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