diff options
| author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-12-09 23:20:15 +0000 |
|---|---|---|
| committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-12-09 23:20:15 +0000 |
| commit | c2b92d8f79ad7c1c4208693ab221baacf76f40b8 (patch) | |
| tree | daab3db10158fa8c35c1ae4c913f172ab8a4640a | |
| parent | dd69f582ec80c15cfa649de125c976b65164b047 (diff) | |
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
| -rw-r--r-- | src/D3_to_D2.F | 28 |
1 files changed, 14 insertions, 14 deletions
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, |