!   TITLE:  az_clamp_stator.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   05/14/2001  D. Edwards
!---------------------------------------------------------------------------
!
!   This macro builds the azimuth torquer stator clamp,
!
!       P/N SK336A025
!
!   CScsa0: Cartesian Retainer Upper Azimuth Coordinate System
!   CScsa1: Cylindrical Retainer Upper Azimuth Coordinate System
!   CScsa2: 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_clamp_stator.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
k,km+12,x12,y12,z12          ! km + 12

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+9,km+7                  ! lm + 5
L,km+9,km+6                  ! lm + 6
L,km+10,km+8                 ! lm + 7
L,km+11,km+12                ! lm + 8
L,km+10,km+12                ! lm + 9
L,km+5,km+11                 ! lm + 10

ldele,lm+1                   ! Axis of revolution
ldele,lm+2                   ! Screw hole centerline

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