src/ness/nesobj_bender.inc

Fortran project RESTRAX, source module src/ness/nesobj_bender.inc.

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 'nesobj_slit.inc'
      
      integer*4 id_bender,bnlist,m_nmax 
      character*6 t_bender
      parameter(id_bender=2, t_bender= 'BENDER')
      parameter (m_nmax=10)
      character*5 bendcomm(6)
      character*(lhint) bendhint(6)
      common /benderlist/ bendcomm,bendhint,bnlist
      real*8 m_alpha(128,m_nmax), m_ref1(128,m_nmax),m_ref2(128,m_nmax)
      character*3 m_name(m_nmax)
      integer*4 m_n(m_nmax)
      common /mirror/ m_alpha,m_ref1,m_ref2,m_n,m_name 

      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 curv             ! horizontal curvature            
           real*8 bint  ! integral Int(B)dz in [T*m]
           integer*4 nlh,nlv       ! number of slits (H&V)
           integer*4 typ          ! 0.. normal, 1 .. curved , 2.. reflecting surfaces 
           integer*4 nhlu,nhld,nhru,nhrd,nvt,nvb  ! indexes pointing to the field containg reflectivity data
           integer*4 ndum  ! dummy integer for data alignment
      end structure    

#     PARAMETER(BENDER_SIZE=SLIT_SIZE+184)   ! 520