Source module last modified on Wed, 13 Jul 2005, 16:20;
HTML image of Fortran source automatically generated by
for2html on Mon, 29 May 2006, 15:06.
# include variables read from the configuration file
integer*4 c_chi,c_ani,c_poi,c_z,c_y,c_x,c_nh,c_nv
integer*4 c_use,c_dist,c_len,c_hor1,c_hor2,c_ver1,c_ver2,c_roh,
* c_gamah,c_gamav,c_refh,c_refv
real*8 tas_col(12,5)
real*8 tas_cry(8,2)
real*8 tas_dis(4)
character*60 cfgtitle
real*8 dsrc,wsrc,hsrc,tsrc,ddet,wdet,hdet
integer*4 nsrc,ndet
common /tas_title/ cfgtitle
common /tas_src/ nsrc,dsrc,wsrc,hsrc,tsrc
common /tas_det/ ndet,ddet,wdet,hdet
common /tas_coll/ tas_col
common /tas_cryst/ tas_cry
common /tas_dist/tas_dis
# indexes to the crystal field TAS_CRY
parameter(
* c_chi=1 ,
* c_ani=2 ,
* c_poi=3 ,
* c_z=4 ,
* c_y=5 ,
* c_x=6 ,
* c_nh=7 ,
* c_nv=8 )
# indexes to the collimator field TAS_COL
parameter(
* c_use=1 ,
* c_dist=2 ,
* c_len=3 ,
* c_hor1=4 ,
* c_hor2=5 ,
* c_ver1=6 ,
* c_ver2=7 ,
* c_roh=8 ,
* c_gamah=9 ,
* c_gamav=10 ,
* c_refh=11 ,
* c_refv=12 )