#include "cctk.h"
#include "cctk_Parameters.h"
#include "cctk_Arguments.h"

      subroutine ADM_init(CCTK_ARGUMENTS)

      implicit none

      DECLARE_CCTK_ARGUMENTS
      DECLARE_CCTK_PARAMETERS

      ADM_gxx0 = gxx
      ADM_gyy0 = gyy
      ADM_gzz0 = gzz
      ADM_gxy0 = gxy
      ADM_gxz0 = gxz
      ADM_gyz0 = gyz

      ADM_kxx0 = kxx
      ADM_kyy0 = kyy
      ADM_kzz0 = kzz
      ADM_kxy0 = kxy
      ADM_kxz0 = kxz
      ADM_kyz0 = kyz

      return
      end