! The thermal model is constrained at the bottom edge.  This results in 
! a shift of the center of the outer bearing race making it difficult
! to determine the net amount of collapsing, i.e. change in radius of
! ID surface of the race.

! This macro subracts out the shift that the center of the race undergoes
! and calculates the radial deflection of the race relative to its center.

ESEL,S,MAT,,cres
/rep
nsle,s,active
nplot
csys,13
nsel,r,loc,x,r_mal_i
/rep
csys,0
!*  
NSORT,LOC,Y,0,0, ,SELECT
NLIST
!*  
!*  
NSORT,LOC,Y,0,0, ,SELECT
NLIST
!*  
AVPRIN,0,0,
!*  
PRNSOL,U,Y
NLIST,ALL, , , ,Y,NODE,NODE