diff options
-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 |