diff options
-rw-r--r-- | schedule.ccl | 2 | ||||
-rw-r--r-- | src/standing_planewaves.F77 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/schedule.ccl b/schedule.ccl index 2debdbe..e2b8975 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -20,7 +20,7 @@ if (CCTK_Equals(initial_data,"standing_planewaves")) LANG: C } "Check that the metric_type is recognised" - schedule IDLinearWaves_Standing_PlaneWaves in ADMBase_InitialData + schedule IDLinearWaves_StandWaves in ADMBase_InitialData { LANG: Fortran } "Construct linear planewave initial data" diff --git a/src/standing_planewaves.F77 b/src/standing_planewaves.F77 index c4af49b..cd75a73 100644 --- a/src/standing_planewaves.F77 +++ b/src/standing_planewaves.F77 @@ -5,7 +5,7 @@ c $Header$ #include "cctk_Arguments.h" #include "cctk_Parameters.h" - subroutine IDLinearWaves_Standing_PlaneWaves (CCTK_ARGUMENTS) + subroutine IDLinearWaves_StandWaves (CCTK_ARGUMENTS) implicit none |