src/collimators.inc

Fortran project SIMRES, source module src/collimators.inc.

Source module last modified on Tue, 26 Oct 2004, 16:42;
HTML image of Fortran source automatically generated by for2html on Mon, 23 May 2005, 21:29.


#// Collimator parameters for NESS
      
      integer*4 nco
      parameter (nco=7)   ! number of collimators in the setup
      integer*4 polar(nco),nlam(nco),vlam(nco),ctyp(nco) 
      logical*4 osc(nco)

      real*8 roh(nco),rov(nco),gamh(nco),gamv(nco),refh(nco),refv(nco),
     &       dlamh(nco),dlamv(nco)
      
      common /collimators/ roh,rov,gamh,gamv,refh,refv,dlamh,dlamv,
     &                     nlam,vlam,polar,ctyp,osc