src/trax.inc

Fortran project SIMRES, source module src/trax.inc.

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