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