!   TITLE:  az_retainer_upper.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   05/11/2001  D. Edwards
!---------------------------------------------------------------------------
!
!   This macro builds the upper azimuth inner race retainer,
!   P/N SK343A053
!
!   CSrua0: Cartesian Retainer Upper Azimuth Coordinate System
!   CSrua1: Cylindrical Retainer Upper Azimuth Coordinate System
!   CSrua2: Spherical Retainer Upper Azimuth Coordinate System
!
!
!******************************* TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!
!
!************************** Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
az_retainer_upper.parm          ! name of parameter file
!
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!

!
! Keypoint Definitions
!

k,km+1,x1,y1,z1              ! km + 1
k,km+2,x2,y2,z2              ! km + 2
k,km+3,x3,y3,z3              ! km + 3
k,km+4,x4,y4,z4              ! km + 4
k,km+5,x5,y5,z5              ! km + 5
k,km+6,x6,y6,z6              ! km + 6
k,km+7,x7,y7,z7              ! km + 7
k,km+8,x8,y8,z8              ! km + 8
k,km+9,x9,y9,z9              ! km + 9
k,km+10,x10,y10,z10          ! km + 10

axp1=km+1
axp2=km+2

!
! Retainer geometry
!
L,km+1,km+2                  ! lm + 1
L,km+3,km+4                  ! lm + 2
L,km+5,km+6                  ! lm + 3
L,km+7,km+8                  ! lm + 4
L,km+6,km+4                  ! lm + 5
L,km+9,km+5                  ! lm + 6
L,km+10,km+9                 ! lm + 7
L,km+3,km+10                 ! lm + 8

ldele,lm+1
ldele,lm+4

create_area-lines

!
! Make a volume out the the retainer cross section
!
*if,subassm_,ne,1,then
    /psymb,cs,1
    revolve_aset,axp1,axp2,360,4
*endif

finalize_model