diff options
Diffstat (limited to 'src/cartesian_to_spherical_int.F')
-rw-r--r-- | src/cartesian_to_spherical_int.F | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/cartesian_to_spherical_int.F b/src/cartesian_to_spherical_int.F new file mode 100644 index 0000000..a4db3b2 --- /dev/null +++ b/src/cartesian_to_spherical_int.F @@ -0,0 +1,24 @@ + +#include "cctk.h" + + MODULE cartesian_to_spherical_int + +c ------------------------------------------------------------------ + + INTERFACE + + SUBROUTINE cartesian_to_spherical(theta,phi,rad,gxxs,gxys,gxzs, + & gyys,gyzs,gzzs,grrs,grts,grps,gtts,gtps,gpps,dgxxs,dgxys, + & dgxzs,dgyys,dgyzs,dgzzs,dgtts,dgtps,dgpps) + IMPLICIT NONE + CCTK_REAL :: + & rad,theta(:),phi(:) + CCTK_REAL, DIMENSION (:,:) :: + & gxxs,gxys,gxzs,gyys,gyzs,gzzs,dgxxs,dgxys,dgxzs,dgyys, + & dgyzs,dgzzs,grrs,grts,grps,gtts,gtps,gpps,dgtts,dgtps, + & dgpps + END SUBROUTINE + + END INTERFACE + + END MODULE cartesian_to_spherical_int |