!   TITLE:  az_torq_rotor.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   05/14/2001  D. Edwards
!---------------------------------------------------------------------------
!
!   This macro builds the Rotor, Azimuth Torquer
!
!       P/N SKCB06631006
!
!   CSrta0: Cartesian Sleeve Brg Lower Upper Azimuth Coordinate System
!   CSrta1: Cylindrical Sleeve Brg Lower Azimuth Coordinate System
!   CSrta2: Spherical Sleeve Brg Lower Azimuth Coordinate System
!
!
!******************************* TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!   4.  Material Properties
!
!
!************************** Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
az_torq_rotor.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
k,km+11,x11,y11,z11          ! km + 11

axp1=km+1
axp2=km+2

!
! Line Definitions
!
L,km+1,km+2                  ! lm + 1
L,km+7,km+4                  ! lm + 2
L,km+5,km+6                  ! lm + 3
L,km+4,km+6                  ! lm + 4
L,km+7,km+8                  ! lm + 5
L,km+8,km+9                  ! lm + 6
L,km+9,km+10                 ! lm + 7
L,km+5,km+11                 ! lm + 8
L,km+10,km+11                ! lm + 9

ldele,lm+1

create_area-lines

!
!------------------------- 4 Material Properties ---------------------------
!
csys,CSrta0

!vol_revolved_area,'V_sta','y'
V=0.54640

create_mat_prop,'mp_rta','ex',E,'nuxy',nu,'dens',(W/V)/g_bin

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

finalize_model