1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#include "cctk.h"
MODULE D3_to_D2_int
c ------------------------------------------------------------------
INTERFACE
SUBROUTINE D3_to_D2(cctkGH,conformal_state,do_ADMmass,do_momentum,do_spin,
& Psi_power,origin,myproc,interpolation_operator,interpolation_order,
& Dx,Dy,Dz,Psi,
& g00,gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz,
& x,y,z,eta,Nt,Np,theta,phi,Psis,g00s,gxxs,gxys,
& gxzs,gyys,gyzs,gzzs,dPsis,dgxxs,dgxys,dgxzs,dgyys,dgyzs,
& dgzzs,ADMmass_int1,ADMmass_int2,
& momentum_int1,momentum_int2,momentum_int3,
& spin_int1,spin_int2,spin_int3,Extract_temp3d)
IMPLICIT NONE
CCTK_POINTER :: cctkGH
INTEGER,INTENT(IN) ::
& conformal_state,myproc,Psi_power
CCTK_INT, INTENT(IN) ::
& Nt,Np,do_momentum,do_spin,interpolation_order
INTEGER ::
& do_ADMmass(2)
CCTK_REAL,INTENT(IN) ::
& origin(3),Dx,Dy,Dz,eta
CCTK_REAL,INTENT(IN),DIMENSION(:,:,:) ::
& Psi,g00,gxx,gxy,gxz,gyy,gyz,gzz,
& hxx,hxy,hxz,hyy,hyz,hzz
CCTK_REAL,INTENT(IN),DIMENSION(:) ::
& x,y,z,theta,phi
CCTK_REAL,INTENT(OUT),DIMENSION(:,:) ::
& Psis,g00s,gxxs,gxys,gxzs,gyys,gyzs,gzzs,dPsis,dgxxs,dgxys,dgxzs,
& dgyys,dgyzs,dgzzs,ADMmass_int1,ADMmass_int2,
& momentum_int1,momentum_int2,momentum_int3,
& spin_int1,spin_int2,spin_int3
CCTK_REAL,INTENT(INOUT),DIMENSION(:,:,:) ::
& Extract_temp3d
CCTK_STRING,INTENT(IN) ::
& interpolation_operator
END SUBROUTINE
END INTERFACE
END MODULE D3_to_D2_int
|
