From 9ba88a4e7c228c29823c9ec36b1fecc4edfa0642 Mon Sep 17 00:00:00 2001 From: tradke Date: Mon, 7 Jul 2003 15:21:25 +0000 Subject: 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 --- src/ADMmass_integrand3D_int.F | 4 +++- src/D3_extract.F | 4 +++- src/D3_extract_int.F | 4 +++- src/D3_to_D2.F | 4 +++- src/D3_to_D2_int.F | 4 +++- src/momentum_integrand3D_int.F | 4 +++- 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) :: -- cgit v1.2.3