c************
c  Description:	Includes for type 5000 utilities
c
c  Author:	
c
c  $Revision: 1.2 $
c  $Modtime:   31 Aug 1993  9:50:04  $
c  
c************
c
	structure /TRANSMATRIX/
	  real*8	a11,a21,a31
	  real*8	a12,a22,a32
	  real*8	a13,a23,a33
	  real*8	b1,b2,b3
	  real*8	s1,s2,s3
	end structure

	integer*4 P_SCA,P_CAR,P_SPH,P_CYL,P_ELL,P_GEO
	parameter (P_SCA=1,P_CAR=2,P_SPH=3,P_CYL=4,P_ELL=5,P_GEO=6)

	integer*4 P_AZIM,P_ELEV,P_ROLL,P_YAW,P_PITCH
	parameter (P_AZIM=1,P_ELEV=2,P_ROLL=3,P_YAW=4,P_PITCH=5)
