src/ness/ness_common.inc

Fortran project RESTRAX, source module src/ness/ness_common.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 file for NESS part of RESTRAX ***********************
      INCLUDE 'structures.inc'
      integer*4 ldev,lset 
      parameter(ldev=5*bender_size+2*slit_size+2*cryst_size+24)   ! 
      parameter(lset=setup_size+slit_size+8)     ! 
# LDEV and LSET are the lengths of commons DEVICE and DEVICESET in bytes
      integer*4 maxnev
      parameter(maxnev=214748)    ! max. number of events 
#      (protects against overflow of NOUT=10000*NEV) 


      record /SETUP/stp
      record /SLIT/ sou,sam,det
      record /BENDER/ guide,sol1,sol2,sol3,sol4
      record /CRYSTAL/ mon,ana
      integer*4 flipm,flipa,cfgmode,ndum,checksum
      real*8 smos,stemp
      logical*4 ischanged
      common /device/ flipm,flipa,cfgmode,ndum,stemp,guide,sou,sol1,
     &               mon,sol2,sol3,ana,sol4,det
      common /deviceset/ smos,stp,sam       
      common /devicestate/ ischanged,checksum  
      real*8  spint,t0
      common /spin/ spint,t0
      real*4 dbg_time
      common /debg/ dbg_time
      integer*4 nseed,lastnev
      real*8 rndx(crnd)      
      record /RANDFIELD/ rndlist 
      common /randn/ rndx,rndlist,nseed,lastnev     

# STARTING BYTES:
# GUIDE .. 25
# SOU   .. 545
# SOL1  .. 881
# MON   .. 1401
# SOL2  .. 2065
# SOL3  .. 2585
# ANA   .. 3105
# SOL4  .. 3769
# DET   .. 4289
# total DEVICE .. 4624