c Mahc_Evolve: Numerical Evolution of the General Relativistic Hydro Equations c Copyright (C) 2001 Mark Miller /*@@ @file Mahc_pred_icn_apply_update.F @date January 2000 @author Mark Miller @desc Apply the hydro update for the icn predictor step. @enddesc @@*/ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" /*@@ @routine Mahc_pred_icn_apply_update @date January 2000 @author Mark Miller @desc Apply the hydro update for the icn predictor step. @enddesc @calls @calledby @history @endhistory @@*/ subroutine Mahc_pred_icn_apply_update(CCTK_FARGUMENTS) implicit none DECLARE_CCTK_FARGUMENTS DECLARE_CCTK_PARAMETERS CCTK_REAL frac frac = 0.5d0 call apply_del_hydro(CCTK_FARGUMENTS,frac) c call CCTK_SyncGroup(cctkGH,"gen_rel_perfect_fluid::Mahc_evol_vars") return end