c  Mahc_Init_Data: Various Initial Data Routines for Mahc_Evolve
c  Copyright (C) 2001 Mark Miller

/*@@
  @file      Mahc_Init_Startup.F
  @date      May 2000
  @author    Mark Miller
  @desc
     Startup routine for Mahc_Init.
  @enddesc
@@*/

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

/*@@
  @routine    Mahc_Init_Startup
  @date       May 2000
  @author     Mark Miller
  @desc
     Startup routine for Mahc_Init.
  @enddesc
  @calls
  @calledby
  @history
  @endhistory
@@*/


      subroutine Mahc_Init_Startup(CCTK_FARGUMENTS)
      implicit  none
      DECLARE_CCTK_FARGUMENTS
      DECLARE_CCTK_PARAMETERS
      INTEGER CCTK_Equals

#ifdef CACTUSEOS_EOS_1D_BASE
#include "EOS_1D_Base.inc"
#endif

c     conformal factor
      if(use_conformal .eq. 1) then
         psi = 1.0d0
      endif

c     conformal factor derivatives
      if(use_conformal_derivs .eq. 1) then
         psix = 0.0d0
         psiy = 0.0d0
         psiz = 0.0d0
         psixx = 0.0d0
         psixy = 0.0d0
         psixz = 0.0d0
         psiyy = 0.0d0
         psiyz = 0.0d0
         psizz = 0.0d0
      endif


      return
      end