PHOTON USE
  p
 
 
 
 
  gr ou x 1
  MSG Velocity vectors
  vec x 1 sh
  msg
  msg Press return to plot pressure contours
  pause
  cont p1 x 1 fil;.01
  msg
  msg Type e to End
  ENDUSE
 
#$B514
    GROUP 1. Run title
TEXT(MAGIC-GENERATED 1/2 CYLINDER GRID:  B515
TITLE
CHAR(ANSW)
mesg(Press return to continue
readvdu(answ,char,y)
 
  DISPLAY
    This case differs from the previous one only in respect of the
  grid used. The grid is generated using the Laplace solver, which
  derives the grid by solving for the grid corner coordinates as
  dependent variables in a set of coupled non-linear equations.
  ENDDIS
 
GSET(M,F1,+J+K,1,1,1,LAP5.FFFTFF)
GSET(C,I2,F,I1,+,1,0,0)
NONORT=T