From d81a06f40f33ce4f7c74456ea0e5d673d7de0e0b Mon Sep 17 00:00:00 2001
From: allen <allen@5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7>
Date: Wed, 22 May 2002 22:37:05 +0000
Subject: 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
---
 schedule.ccl                | 2 +-
 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
       
-- 
cgit v1.2.3