diff options
| author | knarf <knarf@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-12-19 15:12:36 +0000 |
|---|---|---|
| committer | knarf <knarf@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-12-19 15:12:36 +0000 |
| commit | 1c980c2cf1278260feb6bb9b613f8af0b22382ce (patch) | |
| tree | 2ede115336a741780133ccbceeb823223f939553 /src/slice_data.F | |
| parent | 076e916c60d9a50dbd84932ae4d891977d21989a (diff) | |
Fix compiler warnings.
Most of them could be fixed by renaming .F77 files to .F
Some had to be fixed by explicitly declaring some variables using
CCTK_DECLARE() (which also only works for .F, not for .F77)
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@287 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/slice_data.F')
| -rw-r--r-- | src/slice_data.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/slice_data.F b/src/slice_data.F index 3ade6f5..c8b49c1 100644 --- a/src/slice_data.F +++ b/src/slice_data.F @@ -13,13 +13,13 @@ C $Header$ c #define-ing the symbol EXACT_NO_F90 will turn this subroutine into a no-op #ifndef EXACT_NO_F90 - integer i, j, k, l, m, n, p, q, s + integer i, j, k, l, m, n, p, q integer nx,ny,nz integer ierr CCTK_REAL s1d(4,3), nd(4), nu(4), norm, gd(4,4), gu(4,4), g3(3,3), $ gd_p(4,4), gd_m(4,4), gd1d(4,4,4), s2d(4,3,3), k3(3,3), - $ ex_eps, d3(3,3,3), dx, dy, dz, exact_psi + $ ex_eps, dx, dy, dz, exact_psi parameter (ex_eps=1.d-6) C Grid parameters. |