diff options
Diffstat (limited to 'CarpetExtra/FOWaveToyF77')
-rw-r--r-- | CarpetExtra/FOWaveToyF77/schedule.ccl | 6 | ||||
-rw-r--r-- | CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 | 2 | ||||
-rw-r--r-- | CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 | 1 |
3 files changed, 5 insertions, 4 deletions
diff --git a/CarpetExtra/FOWaveToyF77/schedule.ccl b/CarpetExtra/FOWaveToyF77/schedule.ccl index 05e414b85..a3cd168c0 100644 --- a/CarpetExtra/FOWaveToyF77/schedule.ccl +++ b/CarpetExtra/FOWaveToyF77/schedule.ccl @@ -1,5 +1,5 @@ # Schedule definitions for thorn FOWaveToy77 -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/FOWaveToyF77/schedule.ccl,v 1.9 2003/07/20 21:03:43 schnetter Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/FOWaveToyF77/schedule.ccl,v 1.10 2003/11/05 16:18:39 schnetter Exp $ STORAGE: scalarevolve[3] scalarevolve_derivs[3] @@ -45,12 +45,12 @@ schedule group ApplyBCs as FOWaveToy_ApplyBCs at EVOL after FOWaveToy_Boundaries -schedule FOWaveToyF77_Boundaries as FOWaveToy_Boundaries in PostRestrict +schedule FOWaveToyF77_Boundaries as FOWaveToy_Boundaries at POSTRESTRICT { LANG: Fortran SYNC: scalarevolve scalarevolve_derivs } "Select boundary conditions of 3D wave equation" -schedule group ApplyBCs as FOWaveToy_ApplyBCs in PostRestrict after FOWaveToy_Boundaries +schedule group ApplyBCs as FOWaveToy_ApplyBCs at POSTRESTRICT after FOWaveToy_Boundaries { } "Apply boundary conditions of 3D wave equation" diff --git a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 index a89c8cd57..bc2a17549 100644 --- a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 +++ b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 @@ -13,9 +13,9 @@ c -*-Fortran-*- @@*/ #include "cctk.h" -#include "cctk_Parameters.h" #include "cctk_Arguments.h" #include "cctk_Functions.h" +#include "cctk_Parameters.h" diff --git a/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 b/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 index 84a62f076..a64c3463c 100644 --- a/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 +++ b/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 @@ -11,6 +11,7 @@ c -*-Fortran-*- #include "cctk.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" #include "cctk_Parameters.h" /*@@ |