! TITLE:    band_mdl.mac (AAAV)
!
!---------------------------------------------------------------------------
!  Rev -   2/2/2003          J. Judd
!---------------------------------------------------------------------------
!
! Part macro creates portion of AAAV 303A005,Rev 3 band.
!
!---------------------------------------------------------------------------
! COMMAND SYNTAX
!
!  band,Torque,thick
!
!     Torque = Torque on screw which puts band in tension
!      thick = The thickness of the band
!
!---------------------------------------------------------------------------
mod_assemb_prep             ! prepare database for assembly

band_mdl.parm

Torque=arg1
thick=arg2

!------------------- Create Areas  -----------------------
csys,0
rectng,0,length,0,width
init_entity_num

!------------------- MESH -----------------------

ET,1,shell63
R,1,thick           ! Real Constants

amesh,all

init_entity_num