diff options
| author | allen <allen@5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7> | 2002-05-22 22:37:05 +0000 |
|---|---|---|
| committer | allen <allen@5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7> | 2002-05-22 22:37:05 +0000 |
| commit | d81a06f40f33ce4f7c74456ea0e5d673d7de0e0b (patch) | |
| tree | 14a340c997364ac6513a12935381dc6b556efc41 | |
| parent | c0e4e7577cbd914e04a8770e9112253b905adf82 (diff) | |
Reduce subroutine name to less than 31 characters
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDLinearWaves/trunk@77 5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7
| -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 |