!   TITLE:  az_brg_lower.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   05/15/2001  D. Edwards
!       Rev A   06/05/2002  D. Edwards
!               Added weight, volume and density calculation
!---------------------------------------------------------------------------
!
!   This macro builds the lower azimuth MPB bearing,
!
!       P/N 490A045-102
!
!   CSbla0: Cartesian Bearing Lower Azimuth Coordinate System
!   CSbla1: Cylindrical Bearing Lower Azimuth Coordinate System
!   CSbla2: Spherical Bearing Lower Azimuth Coordinate System
!
!******************************* TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!   4.  Material Definition
!
!
!************************** Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
az_brg_lower.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,,0,0,0
k,,0,0,1

init_entity_num

axp1=km-1
axp2=km

init_entity_num

k,,0,Ri,-Dw
k,,0,Ro,-Dw
k,,0,Ro,0
k,,0,Ri,0

create_area

!
!------------------------- 4.0 Material Properties ---------------------
!
csys,CSbla0

!vol_revolved_area,'V','y'
V=1.7056

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

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

finalize_model