Analyzer/UTILSUBS/g_sph_xyz.f - view

Return to g_sph_xyz.f CVS log

Up to [HallC] / Analyzer / UTILSUBS

File: [HallC] / Analyzer / UTILSUBS / g_sph_xyz.f (download)
Revision: 1.1, Wed Feb 9 14:18:28 1994 UTC (30 years, 7 months ago) by cdaq
Branch: MAIN
CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, oct1194, nov2894, nov2696, mduality, may2495, may1894, mar1495, mar-24-2003, jun1794, jun1594, jun1394, jun0794, jul2895, jul0794, jan2795, jan2496, jan1896, jan1796, gep_online, gep3, fpi2, emc, e01004, dec0694, bigcal, baryon, aug1794, aug0394, aug-12-2003, apr3096, apr1594, apr0695, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS

Initial revision


      SUBROUTINE G_sph_XYZ(r,theta,phi,x,y,z)
*----------------------------------------------------------------------
*- 
*-   Purpose and Methods : convert spherical coord.s to cartesian
*- 
*-   Inputs  : r	- conventional radial coord.
*-             theta	-              theta angle (radians)
*-	       phi	-              phi 
*-   Outputs : x	- X coord. (conventional right handed system) 
*-             y	- Y 
*-             z	- Z 
*- 
*-   Created  27-MAR-1992   Kevin B. Beard 
*-   Modified for hall C 9/1/93: KBB
*     $Log: g_sph_xyz.f,v $
*     Revision 1.1  1994/02/09 14:18:28  cdaq
*     Initial revision
*
*- 
*----------------------------------------------------------------------
      IMPLICIT NONE
      real r,theta,phi,x,y,z 
*----------------------------------------------------------------------
*
	x= r*SIN(theta)*COS(phi)
	y= r*SIN(theta)*SIN(phi)
	z= r*COS(theta) 
*
	RETURN
	end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood