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

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