diff options
| author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2003-07-07 15:21:25 +0000 |
|---|---|---|
| committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2003-07-07 15:21:25 +0000 |
| commit | 9ba88a4e7c228c29823c9ec36b1fecc4edfa0642 (patch) | |
| tree | a6c2a6d77372fd6ace4f27b043af823a69a58ea2 | |
| parent | 91853ef68b64448bc7d902de45084407b7e18b77 (diff) | |
conformal_state must be passed as CCTK_INT rather than int.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@80 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
| -rw-r--r-- | src/ADMmass_integrand3D_int.F | 4 | ||||
| -rw-r--r-- | src/D3_extract.F | 4 | ||||
| -rw-r--r-- | src/D3_extract_int.F | 4 | ||||
| -rw-r--r-- | src/D3_to_D2.F | 4 | ||||
| -rw-r--r-- | src/D3_to_D2_int.F | 4 | ||||
| -rw-r--r-- | src/momentum_integrand3D_int.F | 4 | ||||
| -rw-r--r-- | src/spin_integrand3D_int.F | 4 |
7 files changed, 21 insertions, 7 deletions
diff --git a/src/ADMmass_integrand3D_int.F b/src/ADMmass_integrand3D_int.F index b9f98d3..d502128 100644 --- a/src/ADMmass_integrand3D_int.F +++ b/src/ADMmass_integrand3D_int.F @@ -10,8 +10,10 @@ c ------------------------------------------------------------------ SUBROUTINE ADMmass_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx,gxy, & gxz,gyy,gyz,gzz,ADMmass_int,Psi,Psi_power,conformal_state) IMPLICIT NONE + CCTK_INT,INTENT(IN) :: + & conformal_state INTEGER,INTENT(IN) :: - & Psi_power,conformal_state + & Psi_power CCTK_REAL,INTENT(IN) :: & Dx,Dy,Dz,origin(3) CCTK_REAL,DIMENSION(:),INTENT(IN) :: diff --git a/src/D3_extract.F b/src/D3_extract.F index 7ef0f0f..52762c3 100644 --- a/src/D3_extract.F +++ b/src/D3_extract.F @@ -71,8 +71,10 @@ c Input variables CCTK_POINTER :: cctkGH + CCTK_INT,INTENT(IN) :: + & conformal_state INTEGER,INTENT(IN) :: - & conformal_state,igrid,l,m,Psi_power,myproc + & igrid,l,m,Psi_power,myproc CCTK_INT,INTENT(IN) :: & Nt,Np,nx,ny,nz,all_modes,do_momentum,do_spin,interpolation_order INTEGER,INTENT(IN) :: diff --git a/src/D3_extract_int.F b/src/D3_extract_int.F index e00b321..3be6450 100644 --- a/src/D3_extract_int.F +++ b/src/D3_extract_int.F @@ -18,8 +18,10 @@ c ------------------------------------------------------------------ CCTK_POINTER :: cctkGH + CCTK_INT,INTENT(IN) :: + & conformal_state INTEGER,INTENT(IN) :: - & conformal_state,igrid,l,m,Psi_power,myproc + & igrid,l,m,Psi_power,myproc CCTK_INT,INTENT(IN) :: & Nt,Np,nx,ny,nz,all_modes,do_momentum,do_spin,interpolation_order INTEGER,INTENT(IN) :: diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F index 1e71ff4..15218b7 100644 --- a/src/D3_to_D2.F +++ b/src/D3_to_D2.F @@ -32,8 +32,10 @@ c Input variables CCTK_POINTER :: cctkGH + CCTK_INT,INTENT(IN) :: + & conformal_state INTEGER,INTENT(IN) :: - & conformal_state,myproc,Psi_power + & myproc,Psi_power CCTK_INT, INTENT(IN) :: & Nt,Np,nx,ny,nz,do_momentum,do_spin,interpolation_order CCTK_REAL,INTENT(IN) :: diff --git a/src/D3_to_D2_int.F b/src/D3_to_D2_int.F index 4aeef0a..7daf934 100644 --- a/src/D3_to_D2_int.F +++ b/src/D3_to_D2_int.F @@ -19,8 +19,10 @@ c ------------------------------------------------------------------ IMPLICIT NONE CCTK_POINTER :: cctkGH + CCTK_INT,INTENT(IN) :: + & conformal_state INTEGER,INTENT(IN) :: - & conformal_state,myproc,Psi_power + & myproc,Psi_power CCTK_INT, INTENT(IN) :: & Nt,Np,nx,ny,nz,do_momentum,do_spin,interpolation_order CCTK_REAL,INTENT(IN) :: diff --git a/src/momentum_integrand3D_int.F b/src/momentum_integrand3D_int.F index 31a6f50..490235e 100644 --- a/src/momentum_integrand3D_int.F +++ b/src/momentum_integrand3D_int.F @@ -12,8 +12,10 @@ c ------------------------------------------------------------------ & Psi,Psi_power,conformal_state) IMPLICIT NONE + CCTK_INT,INTENT(IN) :: + & conformal_state INTEGER,INTENT(IN) :: - & Psi_power,conformal_state + & Psi_power CCTK_REAL,INTENT(IN) :: & Dx,Dy,Dz,origin(3) CCTK_REAL,DIMENSION(:),INTENT(IN) :: diff --git a/src/spin_integrand3D_int.F b/src/spin_integrand3D_int.F index 4f9fc5e..be7d648 100644 --- a/src/spin_integrand3D_int.F +++ b/src/spin_integrand3D_int.F @@ -12,8 +12,10 @@ c ------------------------------------------------------------------ & Psi,Psi_power,conformal_state) IMPLICIT NONE + CCTK_INT,INTENT(IN) :: + & conformal_state INTEGER,INTENT(IN) :: - & Psi_power,conformal_state + & Psi_power CCTK_REAL,INTENT(IN) :: & origin(3) CCTK_REAL,DIMENSION(:),INTENT(IN) :: |