!   TITLE:  az_brg_upper.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   05/09/2001  D. Edwards
!       Rev A   06/05/2002  D. Edwards
!               Added weight, volume and density calculation
!---------------------------------------------------------------------------
!
!   This macro builds the NHBB bearing, P/N 490A045-101, as a solid one
!   piece homogeneous volume.
!
!   CSbua0:     Cartesian Bearing Upper Azimuth Coordinate System
!   CSbua1: Cylindrical Bearing Upper Azimuth Coordinate System
!   CSbua2: Spherical Bearing 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_brg_upper_nhbb.parm          ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
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
k,km+13,x13,y13,z13          ! km + 13

axp1=km+1
axp2=km+2

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

ldele,lm+1

create_area-lines
!
!------------------------- 4.0 Material Properties ---------------------
!
csys,CSbua0

!vol_revolved_area,'V','y'
V=6.9383

create_mat_prop,'mp_bua','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

!
!------------------------------- Meshing ----------------------------------
!
*if,f_mesh_,eq,1,then
    csys,CSbua0
    asel,selv,loc,x,0
    asel,r,loc,y,y3,y9
    rotate_volm_msh,CSbua0,,1,,1,2,.15,.15,c440C
*endif

finalize_model