diff options
| author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2002-05-29 09:35:40 +0000 |
|---|---|---|
| committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2002-05-29 09:35:40 +0000 |
| commit | c1a3d9ed0014b7a2edf50ae99d5ce93429cb0584 (patch) | |
| tree | 1d7f56a8ca4ed314a3ab7f7ef9f16c3c39cd5146 | |
| parent | e2d3b0c557cfa6ea935b3879704ae5ba06d2e88f (diff) | |
Fixed wrong datatype for argument 'conformal_state' in declaration of routine
'D3_extract' (must be a CCTK_INT). This makes it compiling on a T3E.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@55 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
| -rw-r--r-- | src/D3_extract_int.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/D3_extract_int.F b/src/D3_extract_int.F index 1d7244a..07d7dab 100644 --- a/src/D3_extract_int.F +++ b/src/D3_extract_int.F @@ -19,9 +19,9 @@ c ------------------------------------------------------------------ CCTK_POINTER :: cctkGH INTEGER,INTENT(IN) :: - & conformal_state,igrid,l,m,Psi_power,myproc + & igrid,l,m,Psi_power,myproc CCTK_INT,INTENT(IN) :: - & Nt,Np,all_modes,do_momentum,do_spin,interpolation_order + & conformal_state,Nt,Np,all_modes,do_momentum,do_spin,interpolation_order INTEGER,INTENT(IN) :: & do_ADMmass(2) CCTK_REAL,INTENT(IN) :: |