src/ness/ness_common.inc

Fortran project SIMRES, source module src/ness/ness_common.inc.

Source module last modified on Wed, 30 Mar 2005, 15:08;
HTML image of Fortran source automatically generated by for2html on Mon, 23 May 2005, 21:29.


      integer*4 ldev,lset 
      parameter(ldev=12+8+320+2*760+7*2552+340,lset=384)

# LDEV and LSET are the lengths of commons DEVICE and DEVICESET in bytes
      record /SETUP/stp
      record /SLIT/ sou,sam
      record /DETECTOR/ det
      record /BENDER/guide,gdea,sol1,sol2,sol3,sol4,sol2a
      record /CRYSTAL/ mon,ana
      integer*4 flipm,flipa,imonit
      real*8 dthax(6)
      common /device/ flipm,flipa,imonit,dthax,gdea,guide, sou,
     1 sol1,mon,sol2a,sol2,sol3,ana,sol4,det

      real*8 iinc,finc,einc,diinc,dfinc,ipwd,wpwd,spwd,cpwd,
     *        dipwd,i3ax,e3ax,de3ax,di3ax
      common /mcresult/ iinc,finc,einc,diinc,dfinc,ipwd,wpwd,spwd,cpwd,
     *        dipwd,i3ax,e3ax,de3ax,di3ax

      integer*4 cfgmode,emode
      real*8 smos
      common /deviceset/ smos,stp,sam,cfgmode,emode       
      real*8  spint
      common /spin/ spint
#  SPINT serves to select only events with specified spin transfer      
#  SPINT=0   down ->down
#  SPINT=1   up   ->down
#  SPINT=2   down ->up
#  SPINT=3   up   ->up
#  SPINT<0   all

# Command line options:      
      integer*4 idbg,mdist,iopt,logmin,logmax,ftas,isqom,normmon
      real*8 cbar,cmx
      character*30 logfile
      common /options/ idbg,mdist,iopt,cbar,cmx,logfile,logmin,logmax,
     &                 ftas,isqom,normmon
# Array for simulated 1-dim spectra
      integer*4 spcm,spcn
      parameter (spcm=65)
      real*4 spcx(spcm),spcy(spcm),spcd(spcm)
      common /simarray/ spcx,spcy,spcd,spcn
      
# counters for evaluation of integral intensities etc.
      real*8 sum,dei,dei0,scnt ,scntf,spread,stas,smon  
      common /integral/ sum,dei,dei0,scnt,scntf,spread,stas,smon