From bbab83d6758437839449be695f5c6c0fc5a14bc7 Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 19 Apr 2000 22:28:41 +0000 Subject: Removing warnings git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@25 a678b1cf-93e1-4b43-a69d-d43939e66649 --- src/Startup.c | 9 ++++----- src/brillq.F | 1 - src/finishbrilldata.F | 1 - 3 files changed, 4 insertions(+), 7 deletions(-) (limited to 'src') diff --git a/src/Startup.c b/src/Startup.c index 254a9fb..43daa89 100644 --- a/src/Startup.c +++ b/src/Startup.c @@ -3,9 +3,9 @@ #include "Symmetry.h" -void BrilData_InitSymBound(CCTK_CARGUMENTS) +void BrilData_InitSymBound(CCTK_ARGUMENTS) { - DECLARE_CCTK_CARGUMENTS + DECLARE_CCTK_ARGUMENTS int sym[3]; sym[0] = 1; @@ -14,6 +14,5 @@ void BrilData_InitSymBound(CCTK_CARGUMENTS) SetCartSymmetry(cctkGH, sym,"IDBrillData::brillpsi"); - - -} + return; +} diff --git a/src/brillq.F b/src/brillq.F index d36c89f..c7010f6 100644 --- a/src/brillq.F +++ b/src/brillq.F @@ -47,7 +47,6 @@ C q -> q [ 1 + d rho cos (n (phi)+phi0 ) / ( 1 + e rho ) ] logical firstcall - integer CCTK_Equals integer qtype real*8 brillq,rho,z,phi diff --git a/src/finishbrilldata.F b/src/finishbrilldata.F index 49a87a5..4cd4f18 100644 --- a/src/finishbrilldata.F +++ b/src/finishbrilldata.F @@ -17,7 +17,6 @@ C once the conformal factor has been found. integer i,j,k integer nx,ny,nz - integer CCTK_Equals CCTK_REAL x1,y1,z1,rho1,rho2 CCTK_REAL brillq,psi4,e2q,rhofudge -- cgit v1.2.3