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