diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/ADMConstraints.F | 7 | ||||
-rw-r--r-- | src/InitSymBound.F | 4 |
2 files changed, 5 insertions, 6 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 5d32e2a..c999936 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -39,14 +39,13 @@ c c @endhistory c@@*/ - subroutine ADMConstraints(CCTK_FARGUMENTS) + subroutine ADMConstraints(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS - - INTEGER CCTK_Equals + DECLARE_CCTK_FUNCTIONS integer :: i,j,k,i1,i2,j1,j2,k1,k2 diff --git a/src/InitSymBound.F b/src/InitSymBound.F index 63aa697..63d7a85 100644 --- a/src/InitSymBound.F +++ b/src/InitSymBound.F @@ -25,11 +25,11 @@ @@*/ - subroutine ADMConstraint_InitSymBound(CCTK_FARGUMENTS) + subroutine ADMConstraint_InitSymBound(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS INTEGER, PARAMETER :: one = 1 INTEGER, DIMENSION(3) :: sym |