src/structures.inc

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

Source module last modified on Fri, 25 Mar 2005, 18:24;
HTML image of Fortran source automatically generated by for2html on Mon, 23 May 2005, 21:29.


      STRUCTURE /SLIT/
        character*32  name
        real*8 axi,axv,dist
        real*8 size(3),sta(3),gon(3)
        real*8 pos(3),rot(3,3),rot1(3,3)
        logical*4 map(3),map1(3)
        integer*4 count  
        integer*4  shape
      end structure      ! size = 320
#
      STRUCTURE /DETECTOR/
        record /SLIT/ frame
        real*8 alpha  ! efficiency coeff. [1/A/cm]
        real*8 space  ! distance between adjacent tubes
        integer*4 nd  ! number of tubes in an array  
      end structure      ! size = 340
#

      STRUCTURE /NEUTRON/
          real*8 r(3),k(3),t,s,p
      end structure   

# BENDER:
#
#
#
#
#

      STRUCTURE /BENDER/
         record /SLIT/ frame
           real*8 w2,h2            ! width & height at the exit
           real*8 ghlu,ghld,ghru,ghrd,gvt,gvb   ! horizontal & vertical (H&V) critical angles
           real*8 rhlu,rhld,rhru,rhrd,rvt,rvb   ! horizontal& vertical reflectivities
           real*8 dlh,dlv          ! thickness of H&V lamellae
           real*8 ch,cv            ! curvatures            
           real*4 ah(0:127),av(0:127)  ! parameters of lamellae (for parabolic profile)           
           real*4 lh(0:127),lv(0:127)  ! lengths of lamellae (for parabolic profile)           
           integer*4 nlh,nlv       ! number of slits (H&V), max.=127
           integer*4 typ           ! 0.. normal, 1 .. curved, 2 .. reflecting surfaces 
           integer*4 nhlu,nhld,nhru,nhrd,nvt,nvb  ! indexes pointing to the fieald containg reflectivity data
           integer*4 oscilate
      end structure              ! size = 2552  ( before 496)  
      
      STRUCTURE /CRYSTAL/
           record /SLIT/ frame
           real*8 dhkl,chi,poi,hmos,vmos,qml,vol,mi,dw,mag
           real*8 rh,rv,rb,dh,dv,db
           real*8 sigmab, sigmaa, a, thetad, c2
           real*8 dlam,dext,ext1,delta
           real*8 thb,lambda,stmch,ctmch,qhkl,ref,deta,tanvol
           real*8 dg_dr(3,3),g(3),gama(3),gtot,dgr,dga
           logical*4 mapg(3)
           integer*4 dnrnd
           integer*4 nh,nv,nb,nref   
      end structure              ! size = 760 
       
      STRUCTURE /SETUP/
         integer*4 nfx,sm,ss,sa
         real*8 kfix,e,q,ki,kf,ei0,ef0
      end structure       
           
      STRUCTURE /SOLLER/
       record /SLIT/ frame
           real*8 w2,h2
           integer*4 nl
           integer*4 vertical
      end structure