pretex << EOF
inlet2d
   1 READ PREVIOUS PARAMETERS 
one2d
   1 BUILD FROM FILE          
one2d
   5 DELETE ELEMENT           
   4 CURVE SIDES              
   5 Autosphere               
4 4 Enter number of elements in core and shell:
.65 Enter ratio in outer shell:
   8 Convert Midside to Circle
4.  Input maxium radius:
   1 BUILD MENU               
   3 GLOBAL REFINE            
  13 Clean up vertices        
   7 REPLICATE/ROTATE         
3    Rep. (1), Rot. (2), Rep/Rot (3) Template (4)? (0=abort)
90   Input rotation angle (deg):
3    Input number of reps (e.g., 1 --> double mesh size)
  13 Clean up vertices        
   1 END GLOBAL REFINE        
   1 END    ELEMENTS          
   1 ACCEPT MATL,QVOL         
   1 ACCEPT B.C.'s            
   1 ACCEPT B.C.'s            
   1 EXIT                     
EOF



#
#  MAKE THE INLET PIPE
#
n2to3 << EOF
inlet2d
inlet3d
0    For ASCII output only: 0; For .rea/.re2: 1
52   input number of levels: (1, 2, 3,...; < 0 for circular sweep.):
0    input z min:
13   input z max:
1.00 input gain (0=custom,1=uniform,other=geometric spacing):
n    This is for CEM: yes or no:
P Enter Z(5) FLUID boundary condition (P,v,O,ect):
P Enter Z(6) FLUID boundary condition (v,O,ect):
EOF