From 0268805650b07981435328225817c3084733a456 Mon Sep 17 00:00:00 2001 From: allen Date: Mon, 25 Jun 2001 09:33:49 +0000 Subject: FARGUMENTS -> ARGUMENTS git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDLinearWaves/trunk@62 5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7 --- src/planewaves.F | 4 ++-- src/teukwaves.F | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/planewaves.F b/src/planewaves.F index 201bcd3..a0bf788 100644 --- a/src/planewaves.F +++ b/src/planewaves.F @@ -41,10 +41,10 @@ c Using macro definitions from Einstein #include "CactusEinstein/Einstein/src/Einstein.h" - subroutine planewaves(CCTK_FARGUMENTS) + subroutine planewaves(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS INTEGER iin,iout diff --git a/src/teukwaves.F b/src/teukwaves.F index c92dd96..02ff0d7 100644 --- a/src/teukwaves.F +++ b/src/teukwaves.F @@ -31,10 +31,10 @@ c Using macro definitions from Einstein @enddesc @@*/ - subroutine teukwaves(CCTK_FARGUMENTS) + subroutine teukwaves(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS CCTK_REAL amp,m,ra,pi -- cgit v1.2.3