PIL commands to solve a CFD problem with CCM- or
                       MBFGE- methods.
  **************************************************************
CSG3= LCRU
INTEGER(INTISL)
IF(NX.GT.1) THEN
+ SOLVE(UC1);  SOLUTN(UC1,Y,Y,Y,N,N,Y)
+ TERMS(UC1,N,Y,Y,P,P,P);  TERMS(U1,N,N,N,N,N,N)
+ FIINIT(UC1)= 1.E-5
ENDIF
IF(NY.GT.1) THEN
+ SOLVE(VC1);  SOLUTN(VC1,Y,Y,Y,N,N,Y)
+ TERMS(VC1,N,Y,Y,P,P,P);  TERMS(V1,N,N,N,N,N,N)
+ FIINIT(VC1)= 1.E-5
ENDIF
IF(NZ.GT.1) THEN
+ SOLVE(WC1);  SOLUTN(WC1,Y,Y,Y,N,N,Y)
+ TERMS(WC1,N,Y,Y,P,P,P);  TERMS(W1,N,N,N,N,N,N)
+ FIINIT(WC1)= 1.E-5
+ INTISL=ISLN(1)/3
+ IF(INTISL*3.EQ.ISLN(1)) THEN
+  ISLN(1) = ISLN(1)*5
+ ENDIF
+ DO II=9,NPHI
+  INTISL=ISLN(II)/3
+  IF(INTISL*3.EQ.ISLN(II)) THEN
+   ISLN(II) = ISLN(II)*5
+  ENDIF
+ ENDDO
ENDIF
IF(NUMBLK.GT.1) THEN
+ STORE(VPOR)
ENDIF
lsg57=t
  **************************************************************