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
|
#include "cctk.h"
MODULE D2_extract_int
c ------------------------------------------------------------------
INTERFACE
SUBROUTINE D2_extract(eta,igrid,Nt,Np,theta,phi,all_modes,l,m,g00,g11,
& g12,g13,g22,g23,g33,dg22,dg23,dg33,
& do_ADMmass,ADMmass_int1,ADMmass_int2,
& do_momentum,momentum_int1,momentum_int2,momentum_int3,
& do_spin,spin_int1,spin_int2,spin_int3,
& mass,rsch,Qodd,Qeven,ADMmass,momentum,spin,dtaudt)
IMPLICIT NONE
INTEGER,INTENT(IN) ::
& igrid,l,m
CCTK_INT,INTENT(IN) ::
& Nt,Np,all_modes,do_momentum,do_spin
INTEGER,INTENT(IN) ::
& do_ADMmass(2)
CCTK_REAL,INTENT(IN) ::
& eta
CCTK_REAL,INTENT(IN),DIMENSION (:) ::
& theta,phi
CCTK_REAL,INTENT(IN),DIMENSION (:,:) ::
& g00,g11,g12,g13,g22,g23,g33,dg22,dg23,dg33,
& ADMmass_int1, ADMmass_int2,
& momentum_int1,momentum_int2,momentum_int3,
& spin_int1,spin_int2,spin_int3
CCTK_REAL,INTENT(OUT) ::
& ADMmass(2),mass,rsch,Qodd(:,:,:),Qeven(:,:,:),dtaudt,
& momentum(3),spin(3)
END SUBROUTINE
END INTERFACE
END MODULE D2_extract_int
|