!   TITLE:  elev_reslvr_rotor_hub.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   06/14/2000  J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the elevation resolver rotor hub:
!
!               P/N C307002493
!
!       UPPER ASSEMBLY:     C551052986
!
!   This is used in the AAAV assembly, end unit CU01715076.
!
!   CSrh0:    Cartesian Elevation Resolver Rotor Hub Coordinate System
!   CSrh1:    Cylindrical Elevation Resolver Rotor Hub Coordinate System
!   CSrh2:    Spherical Elevation Resolver Rotor Hub 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       ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
elev_reslvr_rotor_hub.parm              ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
csys,CSrh0
!
k,,0,r1,l1          ! points 1 thru 5
k,,0,r1,l1-l5
k,,0,r4,l1-l5
k,,0,r4,l1-l5-l6
k,,0,r1,l1-l5-l6
!
k,,0,r1,l3          ! points 6 thru 10
k,,0,r2,l3
k,,0,r2,l3-l4
k,,0,r3,l3-l4
k,,0,r3,0
!
k,,0,r7,0           ! points 11 thru 15
k,,0,r7,l3
k,,0,r5,l3
k,,0,r5,l1-l2
k,,0,r6,l1-l2
!
k,,0,r6,l1          ! point 16
!
create_area
!
lplot
!
!-------------- Create Volume from Revolved Cross Section ------------------
!
*if,subassm_,ne,1,then
    csys,CSrh00

    k
    k,,0,0,1

    init_entity_num

    /psymb,cs,1
    revolve_aset,km-1,km,360,4
*endif
!
finalize_model