diff options
author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-02-15 14:42:30 +0000 |
---|---|---|
committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-02-15 14:42:30 +0000 |
commit | 33c044d74e13ff89da64e278d5f099fc380fe12f (patch) | |
tree | 920d2ba7205cdba7e2388ac47c5d0b04f58d99dc /src/D3_extract_int.F | |
parent | 9bd4b3ea3155ba07a27a2bfb68ed8d557caf6f88 (diff) |
Use the new interpolation flesh API routines and call the new interpolation
operators from PUGHInterp (according to the setting of the
Extract::interpolation_order parameter).
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@37 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src/D3_extract_int.F')
-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 3bb617a..357f995 100644 --- a/src/D3_extract_int.F +++ b/src/D3_extract_int.F @@ -8,7 +8,7 @@ c ------------------------------------------------------------------ INTERFACE SUBROUTINE D3_extract(cctkGH,do_ADMmass,do_momentum,do_spin,igrid, - & origin,myproc, + & origin,myproc,interpolation_order, & Nt,Np,all_modes,l,m,x,y,z,Dx,Dy,Dz,Psi_power,Psi, & g00,gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & eta,ADMmass,momentum,spin,mass,rsch,Qodd,Qeven, @@ -21,7 +21,7 @@ c ------------------------------------------------------------------ INTEGER,INTENT(IN) :: & igrid,l,m,Psi_power,myproc CCTK_INT,INTENT(IN) :: - & Nt,Np,all_modes,do_momentum,do_spin + & Nt,Np,all_modes,do_momentum,do_spin,interpolation_order INTEGER,INTENT(IN) :: & do_ADMmass(2) CCTK_REAL,INTENT(IN) :: |