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