************************************************************
  Group 1. Run Title
 TEXT(3D grid created by menu)
   originated by pks/dbs 11.01.94
 TITLE
  DISPLAY
 
   This Q1 was created by the use of the general-menu system.
   To view it, emter the menu system by typing M, followed by
   R.
 
   The grid-generation facilities of the menu can be used to
   modify the grid.
 
  Press Return to continue
 
  ENDDIS
 ************************************************************
readvdu(nx,int,nx)
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,8,8,20)
    * Overall domain extent, RSET(D,name,XULAST,YVLAST,ZWLAST)
 RSET(D,CHAM,1.000E+00,1.000E+00,1.000E+00)
 ************************************************************
  Group 6. Body-Fitted coordinates
 BFC=T
    * Set points
 GSET(P,P1,1.2880E-01,1.1731E-01,0.0000E+00)
 GSET(P,P2,1.2087E-01,9.3583E-01,0.0000E+00)
 GSET(P,P3,8.8734E-01,1.1631E+00,0.0000E+00)
 GSET(P,P4,8.5450E-01,1.2128E-01,0.0000E+00)
 GSET(P,P5,6.7396E-01,7.0961E-01,1.0000E+00)
 GSET(P,P6,7.1967E-01,5.5388E-01,1.0000E+00)
 GSET(P,P7,6.6415E-01,3.8322E-01,1.0000E+00)
 GSET(P,P8,4.6984E-01,3.0781E-01,1.0000E+00)
 GSET(P,P9,2.9932E-01,3.7528E-01,1.0000E+00)
 GSET(P,P10,2.4777E-01,5.9754E-01,1.0000E+00)
 GSET(P,P11,3.1915E-01,7.2852E-01,1.0000E+00)
 GSET(P,P12,4.8967E-01,7.9599E-01,1.0000E+00)
    * Set lines/arcs
 GSET(L,L1,P1,P2,8,1.0)
 GSET(L,L2,P2,P3,8,1.0)
 GSET(L,L3,P3,P4,8,1.0)
 GSET(L,L4,P4,P1,8,1.0)
 GSET(L,A5,P5,P7,8,S2.0,ARC,P6)
 GSET(L,A6,P7,P9,8,S2.0,ARC,P8)
 GSET(L,A7,P9,P11,8,S2.0,ARC,P10)
 GSET(L,A8,P11,P5,8,S2.0,ARC,P12)
    * Set frames
 GSET(F,F1,P1,-,P4,-,P3,-,P2,-)
 GSET(F,F2,P5,-,P11,-,P9,-,P7,-)
    * Match a grid mesh
 GSET(M,F1,+I+J,1,1,1,TRANS)
 GSET(M,F2,-I-J,9,9,7,LAP15)
    * Copy/Transfer/Block grid planes
 GSET(T,K7,F,K1,1,8,1,8,1)
 GSET(C,K21,F,K7,1,8,1,8,RX,-3.1400E+00,1.5000E+00,1,INC,1)