!   TITLE:  endbell_assembly.mac (ISS)
!
!---------------------------------------------------------------------------
!       Rev -       08/31/2000      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the endbell assembly used on the OGA recirculation pump
!   motor.  Part # for this is 333A038.
!
!   CSeb0:              Cartesian End Bell Coordinate System
!   CSeb1:          Cylindrical End Bell Coordinate System
!   CSeb2:          Spherical End Bell Coordinate System
!
!
!******************************* TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Material and Element Type
!   4.  Solid Model
!
!
!***************************** END Table of Contents ************************
!
!
!
!************************** Model Assembly Preparation **********************
!
!
mod_assemb_prep                 ! prepare database for assembly
!
!
/title,Endbell Assembly / 333A038
!
!
/units,bin                      ! British/inch
!
!
!**************************** End Model Preparation *************************
!
!
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
endbell_assembly.parm               ! name of parameter file
!
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
!
mod_coord_system,CShs0,0,0,l1,0,0,0
!
!
!<<<<<<<<<<<<<<<<<<<< 3.  Material and Element Type >>>>>>>>>>>>>>>>>>>
!
! REMOVED
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 4.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!------------------------- 4.1  Cross Section -------------------------
!
csys,CSeb1
!
hollow_cylinder,CSeb1,1,2*r1,2*r2,,l2,360
!
lplot
!
!------------------------ 4.2  Create Volumes -------------------------
!
csys,CSeb1
!
k,,0,0,0
k,,1.5*r2,rtangle-(phi1/2),0
k,,1.5*r2,rtangle+(phi1/2),0
!
create_area
!
voffst,am,1.2*l2
!
init_entity_num
!
vsel,s,volu,,vm-4,vm-3,1
cm,vset1,volu
!
init_entity_num
!
vsbv,vset1,vm,delete,delete
!
init_entity_num
!
lplot
!
!---------------------- 5.  Density Calculations ----------------------
!
vsum
!
*get,v_eb,volu,,volu
!
rho_eb=w_eb/v_eb
!
!----------------------------------------------------------------------
!
finalize_model_data