PHOTON USE
   p
 
 
 
 
    0.20443E+04 0.15633E+04 CR
   set title off
   red
   text
 
 
   Backward facing step with Guass-Seidel solver.
    0.65366E+03 0.12376E+03 CR
   use patgeo
   vec z 1 sh
   @
    0.10125E+04 0.12246E+04 CR
   Velocity vectors.@
   @
    0.11215E+04 0.65787E+03  @
   Press RETURN to continue.@
   pause
   vec cl
   red
   con p1 z 1 fill;0.01
   @
    0.10382E+04 0.12246E+04 CR
   Pressure contours.@
   @
    0.14483E+04 0.65136E+03 CR
   Press RETURN to continue.@
   pause
   con cl
   red
   str 2d z 1 sh
   int 30
   @
    0.91000E+03 0.12636E+04 CR
   Streamlines@
   @
    0.13201E+04 0.64484E+03 CR
   Press RETURN to end@
   pause
   end
  ENDUSE
    GROUP 1. Run title and other preliminaries
 
L(290)
TEXT(CORE CASE 290 WITH GASD SOLVER     :N202
TITLE
  DISPLAY
  ** Phoenics core library case 290 with the Gauss-Seidel solver
     (GASD)
  ** Information required to use this solver is:
     1. CSG3=GASD to specify the name of the solver.
     2. ICNGRB <= phi <= ICNGRC to specify which phis to solve for,
        all phis in this range will be solved, though P1,U1,V1,W1
        are also solved by default.
     3. NFUSER=19*NX*NY*NZ for workspace.
     4. USEGRX=T;USOLVE=T to ensure that it is called from grex.
  ENDDIS
 
    GROUP 19. Data communicated by satellite to GROUND
    ** Pass the information for the required solver:
CSG3=GASD
ICNGRB=12;ICNGRC=13;NFUSER=19*NX*NY*NZ;USEGRX=T;USOLVE=T
    GROUP 24. Dumps for restarts
TSTSWP=-1