From c2b92d8f79ad7c1c4208693ab221baacf76f40b8 Mon Sep 17 00:00:00 2001 From: tradke Date: Sun, 9 Dec 2001 23:20:15 +0000 Subject: Fixed calls to CCTK_SyncGroup() which also takes an 'ierror' argument now. You will also need to update the flesh now. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@44 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129 --- src/D3_to_D2.F | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'src') diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F index ceb7217..111292c 100644 --- a/src/D3_to_D2.F +++ b/src/D3_to_D2.F @@ -161,7 +161,7 @@ c ------------------------------------------------------------ c Calculate radial derivatives and project onto sphere c ---------------------------------------------------- CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,Psi,Extract_temp3d) - CALL CCTK_SyncGroup(cctkGH,"extract::temps") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_VarIndex(in_array_indices(1), "extract::temp3d") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, @@ -173,7 +173,7 @@ c ---------------------------------------------------- $ CCTK_VARIABLE_REAL) CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gxx,Extract_temp3d) - CALL CCTK_SyncGroup(cctkGH,"extract::temps") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -184,7 +184,7 @@ c ---------------------------------------------------- $ CCTK_VARIABLE_REAL) CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gxy,Extract_temp3d) - CALL CCTK_SyncGroup(cctkGH,"extract::temps") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -195,7 +195,7 @@ c ---------------------------------------------------- $ CCTK_VARIABLE_REAL) CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gxz,Extract_temp3d) - CALL CCTK_SyncGroup(cctkGH,"extract::temps") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -206,7 +206,7 @@ c ---------------------------------------------------- $ CCTK_VARIABLE_REAL) CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gyy,Extract_temp3d) - CALL CCTK_SyncGroup(cctkGH,"extract::temps") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -217,7 +217,7 @@ c ---------------------------------------------------- $ CCTK_VARIABLE_REAL) CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gyz,Extract_temp3d) - CALL CCTK_SyncGroup(cctkGH,"extract::temps") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -228,7 +228,7 @@ c ---------------------------------------------------- $ CCTK_VARIABLE_REAL) CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gzz,Extract_temp3d) - CALL CCTK_SyncGroup(cctkGH,"extract::temps") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -245,7 +245,7 @@ c Standard equation IF (do_ADMmass(1)) THEN CALL ADMmass_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx,gxy, & gxz,gyy,gyz,gzz,Extract_temp3d,Psi,Psi_power) - CALL CCTK_SyncGroup(cctkGH,"extract::temps") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -269,7 +269,7 @@ c --------------------------------- CALL momentum_integrand3D(origin,Dx,Dy,Dz,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") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -282,7 +282,7 @@ c --------------------------------- CALL momentum_integrand3D(origin,Dx,Dy,Dz,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") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -296,7 +296,7 @@ c --------------------------------- CALL momentum_integrand3D(origin,Dx,Dy,Dz,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") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -315,7 +315,7 @@ c ----------------------------- 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") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -328,7 +328,7 @@ c ----------------------------- 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") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, @@ -342,7 +342,7 @@ c ----------------------------- 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") + CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, $ xs, ys, zs, -- cgit v1.2.3