!   TITLE:  az_nut_brg.parm (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   05/16/2001      D. Edwards
!---------------------------------------------------------------------------
!
!   This macro defines the Lower Azimuth Bearing Nut,
!
!      P/N SK318A012
!
!
!---------------------- a.) Title and Units Declaration --------------------
!
/title,Nut, Lower Azimuth Bearing (SK318A012)
!
!
/units,bin
!
!--------------------- b.) Part Name Selection Variable --------------------
!
name='anb'
arry_nam='anb'
!
!--------------------------- c.) Model C.S. Names --------------------------
!
ct_name='CSnba0'            ! cartesian
cyl_name='CSnba1'           ! cylindrical
sph_name='CSnba2'           ! spherical
!
!----------------------- d.) Material and Element Type ---------------------
!
mat_select,'c416'       ! Material Properties
!
et,1,shell93            ! element types
et,2,solid95
!
esize=.04
!
Troom=70                ! [deg F] Room temp (zero thermal stress)
Ttest=-40               ! [deg F] Test temp
!
!--------------------------- e.) Model Parameters --------------------------
!

!
! Keypoint Parameter Definitions
!

x1=0.000000
y1=0.000000
z1=-0.2000000

x2=x1
y2=y1
z2=0.000000

x3=x1
y3=0.7800000
z3=-0.2000000E-01

x4=x1
y4=y3
z4=z2

x5=x1
y5=0.5625000
z5=z1

x6=x1
y6=0.6875000
z6=z1

x7=x1
y7=y5
z7=z2

x8=x1
y8=0.8250000
z8=z3

x9=x1
y9=y8
z9=-0.1200000

x10=x1
y10=y6
z10=z9

!
!------------------------ f.) Model C.S. Coordinates -----------------------
!
! Assemble Nut onto lower bearing lower surface
parm_val,'bla','DW','CSz',0.7774

acs=CSbla0                      ! active coordinate system
!
xc=0                            ! x coordinate center
yc=0                            ! y coordinate center
zc=-CSz                         ! z coordinate center
!
rotxyc=0                        ! xy rotation
rotyzc=0                        ! yz rotation
rotzxc=0                        ! zx rotation
!
!---------------------------------------------------------------------------