diff options
Diffstat (limited to 'src/unphysical_to_physical_int.F')
-rw-r--r-- | src/unphysical_to_physical_int.F | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/src/unphysical_to_physical_int.F b/src/unphysical_to_physical_int.F new file mode 100644 index 0000000..b53fa0b --- /dev/null +++ b/src/unphysical_to_physical_int.F @@ -0,0 +1,21 @@ + +#include "cctk.h" + + MODULE unphysical_to_physical_int + +c ------------------------------------------------------------------ + + INTERFACE + + SUBROUTINE unphysical_to_physical(grr,grt,grp,gtt,gtp,gpp,dgtt, + & dgtp,dgpp,Psis,dPsis,Psi_power) + IMPLICIT NONE + INTEGER :: + & Psi_power + CCTK_REAL, DIMENSION (:,:) :: + & grr,grt,grp,gtt,gtp,gpp,dgtt,dgtp,dgpp,Psis,dPsis + END SUBROUTINE + + END INTERFACE + + END MODULE unphysical_to_physical_int |