/PREP7  
!*  
ET,1,SOLID65
!*  
ET,2,LINK8  
!*  
R,1, , , , , , ,
RMORE, , , , , , ,  
RMORE, ,
!*  
R,2,500,0,  
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,29000  
MPDATA,PRXY,1,,0
TB,CONC,1,1,9,  
TBTEMP,0
TBDATA,,,,,,,   
TBDATA,,,,,,,   
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,2,,210000 
MPDATA,PRXY,2,,0.3  
BLOCK,0,3000,0,400,0,200,     
!*  
! /PNUM,ELEM,0
! /REPLOT 
!*  
lesize,5,,,10   
lesize,6,,,3
lesize,11,,,2   
TYPE,   1   
MAT,       1
REAL,       1   
ESYS,       0   
SECNUM, 
!*  
MSHAPE,0,3D 
MSHKEY,1
!*  
CM,_Y,VOLU  
VSEL, , , ,       1 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
NSEL,S,LOC,Z,100  
TYPE,   2   
MAT,       2
REAL,       2   
ESYS,       0   
SECNUM, 
TSHAP,LINE  
!*  
FLST,2,2,1  
FITEM,2,111 
FITEM,2,115 
E,P51X  
FLST,2,2,1  
FITEM,2,115 
FITEM,2,117 
E,P51X  
FLST,2,2,1  
FITEM,2,117 
FITEM,2,119 
E,P51X  
FLST,2,4,1  
FITEM,2,119 
FITEM,2,94  
FITEM,2,94  
FITEM,2,121 
E,P51X  
FLST,2,2,1  
FITEM,2,119 
FITEM,2,121 
E,P51X  
FLST,2,2,1  
FITEM,2,121 
FITEM,2,123 
E,P51X  
FLST,2,2,1  
FITEM,2,123 
FITEM,2,125 
E,P51X  
FLST,2,2,1  
FITEM,2,125 
FITEM,2,127 
E,P51X  
FLST,2,2,1  
FITEM,2,127 
FITEM,2,129 
E,P51X  
FLST,2,2,1  
FITEM,2,129 
FITEM,2,131 
E,P51X  
FLST,2,2,1  
FITEM,2,131 
FITEM,2,113 
E,P51X  
EDELE,      64    
FLST,2,4,3,ORDE,3   
FITEM,2,2   
FITEM,2,4   
FITEM,2,-6  
!*  
/GO 
DK,P51X, , , ,0,UY, , , , , ,   
FLST,2,2,3,ORDE,2   
FITEM,2,4   
FITEM,2,6   
!*  
/GO 
DK,P51X, , , ,0,UX, , , , , ,   
FLST,2,1,3,ORDE,1   
FITEM,2,6   
!*  
/GO 
DK,P51X, , , ,0,UZ, , , , , ,   
! EPLOT   
FLST,2,1,1,ORDE,1   
FITEM,2,106 
!*  
/GO 
F,P51X,FY,-1000 
FINISH