diff options
author | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 1999-11-01 14:56:51 +0000 |
---|---|---|
committer | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 1999-11-01 14:56:51 +0000 |
commit | 661c56c847f4334feb53fd8d94551b2ab1efdb9a (patch) | |
tree | 3dbdeebf2c0b8f0f0fe30218e9a58fc0cd1638a1 /src/momentum_integrand3D_int.F | |
parent | d8cf32e113a96b24744d231013e3d0b81bf55c30 (diff) |
This commit was generated by cvs2svn to compensate for changes in r2, which
included commits to RCS files with non-trunk default branches.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@3 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src/momentum_integrand3D_int.F')
-rw-r--r-- | src/momentum_integrand3D_int.F | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/src/momentum_integrand3D_int.F b/src/momentum_integrand3D_int.F new file mode 100644 index 0000000..e97174f --- /dev/null +++ b/src/momentum_integrand3D_int.F @@ -0,0 +1,30 @@ + +#include "cctk.h" + + MODULE momentum_integrand3D_int + +c ------------------------------------------------------------------ + + INTERFACE + + SUBROUTINE momentum_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx, + & gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz,momentum_int, + & Psi,Psi_power) + + IMPLICIT NONE + INTEGER,INTENT(IN) :: + & Psi_power + CCTK_REAL,INTENT(IN) :: + & Dx,Dy,Dz,origin(3) + CCTK_REAL,DIMENSION(:),INTENT(IN) :: + & x,y,z + CCTK_REAL,DIMENSION(:,:,:),INTENT(IN) :: + & gxx,gxy,gxz,gyy,gyz,gzz,Psi, + & hxx,hxy,hxz,hyy,hyz,hzz + CCTK_REAL,DIMENSION(:,:,:),INTENT(OUT) :: + & momentum_int + END SUBROUTINE momentum_integrand3D + + END INTERFACE + + END MODULE momentum_integrand3D_int |