!   TITLE:  gyro_assy.mac (AAAV)
!
!-----------------------------------------------------------------------
!       Rev -   07/26/2001      D. Edwards
!-----------------------------------------------------------------------
!
!   This two volume assembly has equivalent mass and inertial properties
!   as Gimbal and Gyro Assy, SK200A024.
!
!   CSgyr0:     Cartesian edge of band drive journal Coordinate System
!   CSgyr1:     Cylindrical edge of band drive journal Coordinate System
!   CSgyr2:     Spherical edge of band drive journal 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      ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gyro_assy.parm                      ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!-------------------- Create Equiv. Gyro Volumes 1 & 2 --------------------
!
csys,CSgyr0

k,,-b/2,-a/2
k,,b/2,-a/2
k,,b/2,a/2
k,,-b/2,a/2

create_volume,,L1+L2

norm_cut_pln_ct,'z',L1

!
!------------------------ Create Cylindrical End Volumes --------------
!
wpcsys,-1
cyl4,0,0,Dr01,,,,-Dz01

wpoffs,0,0,L1+L2
cyl4,0,0,Dr02,,,,Dz02

!
!--------------------------- Set Volume Attributes --------------------
!
csys,CSgyr0

vsel,s,loc,z,-Dz01,L1
vatt,gyro1

vsel,s,loc,z,L1,L1+L2+Dz02
vatt,gyro2

init_entity_num

finalize_model