Source module last modified on Tue, 12 Apr 2005, 12:20;
HTML image of Fortran source automatically generated by
for2html on Mon, 23 May 2005, 21:29.
# DIMENS
integer*4 nsou
real*8 wsou,hsou,diasou,wmon,thmon,hmon,
1 wana,thana,hana
common /dimens/nsou,wsou,hsou,diasou,wmon,thmon,hmon,
1 wana,thana,hana
# COARSE
integer*4 nfm,nfs,nfa,nfd
common /ncoarse/ nfm,nfs,nfa,nfd
real*8 vlcanm,vlsm,hdm1,hdm2,vdm1,vdm2,
1 vlcans,vlms,hds1,hds2,vds1,vds2,
2 vlcana,vlsa,hda1,hda2,vda1,vda2,
3 vlcand,vlad,hdd1,hdd2,vdd1,vdd2
common /coarse/vlcanm,vlsm,hdm1,hdm2,vdm1,vdm2,
1 vlcans,vlms,hds1,hds2,vds1,vds2,
2 vlcana,vlsa,hda1,hda2,vda1,vda2,
3 vlcand,vlad,hdd1,hdd2,vdd1,vdd2
# MONOCH ANALYS
real*8 himon,hiana,anrm,anra,poissm,poissa
common/crys/himon,anrm,poissm,hiana,anra,poissa
# SETP
real*8 vl0,vl1,vl2,vl3
common /setp/vl0,vl1,vl2,vl3
# SOLLER
real*8 alpha(4),beta(4)
common /SOLLER/alpha,beta
# NTGUIDE
integer*4 nfg
real*8 lguide,dguide,hg1,hg2,vg1,vg2,lga,dga,hga1,hga2,vga1,vga2
common /ntguide/ nfg,lguide,dguide,hg1,hg2,vg1,vg2,
1 lga,dga,hga1,hga2,vga1,vga2
# SOL2A
real*8 dist2a,len2a,h2a1,h2a2,v2a1,v2a2
common /sol2a/ dist2a,len2a,h2a1,h2a2,v2a1,v2a2
# DETECT
integer*4 ndet,nsegdet
real*8 wdet,hdet,diadet,adet,spacedet,phidet
common /detect/ndet,nsegdet,wdet,hdet,diadet,adet,spacedet,phidet
# CRYSTSEGM
integer*4 nhm,nha,nvm,nva,nbm,nba
common /crystsegm/ nhm,nha,nvm,nva,nbm,nba ! numbers of crystal segments