diff options
| author | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-04-19 22:28:39 +0000 |
|---|---|---|
| committer | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-04-19 22:28:39 +0000 |
| commit | 1ee240a4812668fedc902d14182344e42fd56c09 (patch) | |
| tree | babf12fc4eb60237747676ebcab2dbce0551c99a /src/D2_extract.F | |
| parent | d10b53eb95acb7f525653c5f477ff8483f9b22fa (diff) | |
Removing warnings
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@13 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src/D2_extract.F')
| -rw-r--r-- | src/D2_extract.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/D2_extract.F b/src/D2_extract.F index 3b24ae0..780fe19 100644 --- a/src/D2_extract.F +++ b/src/D2_extract.F @@ -65,8 +65,8 @@ c Local Variables & g22comb,g23comb,g33comb,S,rsch2,Lambda, & Pi, & fac_h1,fac_H2,fac_K,fac_G,fac_c1,fac_c2, - & fac_dG,fac_dK,fac_dc2,fac1,fac2,fac3,max_g11, - & sph_g11,sph_g22,sph_g33,sph_dg22,sph_dg33,error, + & fac_dG,fac_dK,fac_dc2, + & sph_g11,sph_g22,sph_g33,sph_dg22, & sphere_int CCTK_REAL,DIMENSION(2) :: & Y,Y1,Y2,Y3,Y4,h1,H2,K,G,c1,c2,dG,dK,dc2 @@ -626,7 +626,7 @@ c Output variables c Local variables INTEGER :: - & i,j,Np_start + & i,j CCTK_REAL :: & ft(Nt),fp(Np) CCTK_REAL,PARAMETER :: |