diff options
| author | allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2000-04-19 22:28:41 +0000 |
|---|---|---|
| committer | allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2000-04-19 22:28:41 +0000 |
| commit | bbab83d6758437839449be695f5c6c0fc5a14bc7 (patch) | |
| tree | 241b6e657f0ddc2588cb42a24062b8a76103ec73 | |
| parent | b2bd235d99ff31711844d4ab88142e127ca9b3a8 (diff) | |
Removing warnings
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@25 a678b1cf-93e1-4b43-a69d-d43939e66649
| -rw-r--r-- | src/Startup.c | 9 | ||||
| -rw-r--r-- | src/brillq.F | 1 | ||||
| -rw-r--r-- | src/finishbrilldata.F | 1 |
3 files changed, 4 insertions, 7 deletions
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 |