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