src/res_cfg.inc

Fortran project RESTRAX, source module src/res_cfg.inc.

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   )