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