


















































































































 


































































































































































 






























































































































































































 



















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































      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
      REAL*8  :: 
     &     rad,theta(:),phi(:)
      REAL*8, 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
