LOAD(*B565)
REAL(DTHYD,PREL)
MESG(Select equation formulation:
MESG(   G - GCV Solver (default)
MESG(   C - CCM SOlver
MESG(   S - Staggered Solver
READVDU(ANS,CHAR,G)
CASE :ANS: OF
WHEN G,1
 GCV=T; DTHYD=1; PREL=1.0
 TEXT(Radiused Slot Entry - GCV Solver
WHEN C,1
 CCM=T;DTHYD=1; PREL=0.1
 TEXT(Radiused Slot Entry - CCM Solver
ORELSE
 SYMBFC=T; DTHYD=1.E-04; PREL=0.2
 TEXT(Radiused Slot Entry - Staggered
ENDCASE
TITLE
RELAX(P1  ,LINRLX, PREL)
RELAX(U1,FALSDT,DTHYD); RELAX(V1,FALSDT,DTHYD)