From 1ee240a4812668fedc902d14182344e42fd56c09 Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 19 Apr 2000 22:28:39 +0000 Subject: Removing warnings git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@13 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129 --- src/D2_extract.F | 6 +++--- src/D3_to_D2.F | 6 +++--- src/Extract.F | 6 ++---- src/spin_integrand3D.F | 4 ++-- src/spin_integrand3D_int.F | 4 ++-- 5 files changed, 12 insertions(+), 14 deletions(-) (limited to 'src') 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 :: diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F index 74c3cdb..c9ccf5e 100644 --- a/src/D3_to_D2.F +++ b/src/D3_to_D2.F @@ -328,7 +328,7 @@ c Calculate integrands for spin c ----------------------------- IF (do_spin==1) THEN - CALL spin_integrand3D(origin,Dx,Dy,Dz,x,y,z, + CALL spin_integrand3D(origin,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & Extract_temp3d,Psi,Psi_power) CALL CCTK_SyncGroup(cctkGH,"extract::temps") @@ -344,7 +344,7 @@ c ----------------------------- $ CCTK_VARIABLE_REAL $ ) - CALL spin_integrand3D(origin,Dx,Dy,Dz,x,y,z, + CALL spin_integrand3D(origin,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & Extract_temp3d,Psi,Psi_power) CALL CCTK_SyncGroup(cctkGH,"extract::temps") @@ -361,7 +361,7 @@ c ----------------------------- $ ) - CALL spin_integrand3D(origin,Dx,Dy,Dz,x,y,z, + CALL spin_integrand3D(origin,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & Extract_temp3d,Psi,Psi_power) CALL CCTK_SyncGroup(cctkGH,"extract::temps") diff --git a/src/Extract.F b/src/Extract.F index e097471..c59cd1c 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -61,14 +61,14 @@ c Local variables CCTK_INT :: nchar INTEGER :: & ix,iy,iz,fn1,fn2,lmin,lmax,mmin,mmax,lstep,mstep, - & il,im,it,ndet,idet,nx_parfile,iconv,ioutput + & il,im,it,ndet,idet,ioutput INTEGER,SAVE :: openfile = 1 INTEGER,PARAMETER :: & max_detectors = 9,number_timecoords = 2 CCTK_REAL,PARAMETER :: & two = 2.0D0 CCTK_REAL :: - & time,r1,r2,dr,r_max,xmin,xmax,ymin,ymax,zmin,zmax,gf_min,gf_max + & time,r1,r2,dr,r_max,xmin,xmax,ymin,ymax,zmin,zmax CCTK_REAL :: & detector(max_detectors) CHARACTER*100 :: @@ -78,7 +78,6 @@ c Local variables & timestring LOGICAL :: use_proper,use_coordinate,do_output - LOGICAL,SAVE :: firsttime CCTK_REAL,DIMENSION(10),SAVE :: proper_time CCTK_REAL,SAVE :: last_time INTEGER, save :: open_file_level(10) = 0 @@ -530,7 +529,6 @@ c Cannot use the conformal equation for ADM mass now IF (detector(idet) > r_max) THEN IF (openfile == 1 .OR. cctk_iteration == it) THEN call CCTK_WARN(8,"Removing detectors outside coordinate range") -c IF (iconv == 0) STOP END IF ndet =idet-1 GOTO 404 diff --git a/src/spin_integrand3D.F b/src/spin_integrand3D.F index 3f1afc3..cf617d8 100644 --- a/src/spin_integrand3D.F +++ b/src/spin_integrand3D.F @@ -3,7 +3,7 @@ c ======================================================================== - SUBROUTINE spin_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx,gxy,gxz, + SUBROUTINE spin_integrand3D(origin,x,y,z,gxx,gxy,gxz, & gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & spin_int,Psi,Psi_power) @@ -21,7 +21,7 @@ c Input variables INTEGER,INTENT(IN) :: & Psi_power CCTK_REAL,INTENT(IN) :: - & Dx,Dy,Dz,origin(3) + & origin(3) CCTK_REAL,DIMENSION(:),INTENT(IN) :: & x,y,z CCTK_REAL,DIMENSION(:,:,:),INTENT(IN) :: diff --git a/src/spin_integrand3D_int.F b/src/spin_integrand3D_int.F index cb2a1ca..1a31c78 100644 --- a/src/spin_integrand3D_int.F +++ b/src/spin_integrand3D_int.F @@ -7,7 +7,7 @@ c ------------------------------------------------------------------ INTERFACE - SUBROUTINE spin_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx, + SUBROUTINE spin_integrand3D(origin,x,y,z,gxx, & gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz,spin_int, & Psi,Psi_power) @@ -15,7 +15,7 @@ c ------------------------------------------------------------------ INTEGER,INTENT(IN) :: & Psi_power CCTK_REAL,INTENT(IN) :: - & Dx,Dy,Dz,origin(3) + & origin(3) CCTK_REAL,DIMENSION(:),INTENT(IN) :: & x,y,z CCTK_REAL,DIMENSION(:,:,:),INTENT(IN) :: -- cgit v1.2.3