!   TITLE:  mirror.parm
!
!---------------------------------------------------------------------------
!       Rev -   10/20/2000  J. Rinaldi
!---------------------------------------------------------------------------
!
!   This is the parameter file used in the construction of the mirror
!   MIRROR.MAC.
!
!---------------------------------------------------------------------------
!
!
!--------------------- a.) Part Name Selection Variable --------------------
!
name='mirror'
arry_nam='mir'
!
!--------------------------- b.) Model C.S. Names --------------------------
!
ct_name='CSm0'    ! cartesian
cyl_name='CSm1'  ! cylindrical
sph_name='CSm2'  ! spherical
!
!---------------------------------------------------------------------------
!

*if,modl_num,eq,3,then
    ! adap_l1 is used to locate the mirror relative to the 
    ! adapter_ring
    parm_val,'adpter','L1','adap_l1'
    parm_val,'adpter','D1','adap_d1'
*else
    adap_l1=.115
*endif

!dboss=adap_d1      ! was 1.750 !----- See Figure 1 -----
dboss=1.730         ! Reduced value to give a gap
ne1=9
ne2=6
ne3=1
l1=0.950-0.625

l2=1.62
h1=1.55
ne4=3
ne5=8
l3=0.625

ne6=3
l4=9.50
h2=8.00
l5=0.120
l6=1.50

h3=0.37