!   TITLE:  wire_tube.parm (ISS)
!
!---------------------------------------------------------------------------
!       Rev -       10/12/2000      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This is the parameter file for the wire tube assembly and weld used
!   in the OGA recirculation pump motor assembly.
!
!---------------------------------------------------------------------------
!
!
!--------------------- a.) Part Name Selection Variable --------------------
!
name='wire_tub'
arry_nam='w_tub'
!
!--------------------------- b.) Model C.S. Names --------------------------
!
ct_name='CSht0'     ! cartesian
cyl_name='CSht1'        ! cylindrical
sph_name='CSht2'        ! spherical
!
!---------------------------------------------------------------------------
!
r1=2.125/2
!
*if,modl_num,eq,2,then
    parm_val,'stat068','R8','r2'
    parm_val,'stat068','RFIL2','rfil'
    r2=r2+rfil
*else
    r2=2.005/2
*endif
!
r3=2.230/2
r4=1.0580/2
r5=0.938/2
!
r6=0.9840/2
!
rfil1=0.203
rfil2=0.125
rfil3=0.500
rfil4=0.125+.035
!
l1=1.983
l2=0.100
l3=0.306
l4=0.682
l5=0.400
!
l6=1.600
l7=1.325
l8=1.125
!
l10=0.712
!
l11=1.234
!
l13=0.750
l14=1.125
l15=2.438
!
l16=0.188
l17=1.000
l18=0.125
l19=1.538
l20=0.650
!
l21=0.810
l22=1.100
l23=0.786
!
phi1=15
!
slope=tan(phi1*rconv)
intrcpt=l21/cos(phi1*rconv)
!
l12=(l14-intrcpt)/slope
l9=l22-rfil3
!
w1=0.002                ! weld width
!
*if,modl_num,eq,2,then
    parm_val,'stat068','H5','h1'
    h100=2*h1+w1
*endif
!
l2=0.020
w1=0.002