simple.inc

来自「关于simple算法」· INC 代码 · 共 18 行

      COMMON F(22,22,10),P(22,22),RHO(22,22),GAM(22,22),CON(22,22),
     + AIP(22,22),AIM(22,22),AJP(22,22),AJM(22,22),AP(22,22),
     + X(22),XU(22),XDIF(22),XCV(22),XCVS(22),
     + Y(22),YV(22),YDIF(22),YCV(22),YCVS(22),
     + YCVR(22),YCVRS(22),ARX(22),ARXJ(22),ARXJP(22),
     + R(22),RMN(22),SX(22),SXMN(22),XCVI(22),XCVIP(22)
      COMMON DU(22,22),DV(22,22),FV(22),FVP(22),
     + FX(22),FXM(22),FY(22),FYM(22),PT(22),QT(22)
*-----------  Arrays U, V and PC may be absent in "SOLVE"  -------------
      DIMENSION U(22,22),V(22,22),PC(22,22)
      EQUIVALENCE(F(1,1,1),U(1,1)),(F(1,1,2),V(1,1)),(F(1,1,3),PC(1,1))
*-----------------------------------------------------------------------
      CHARACTER*10 TITLE
      LOGICAL LSOLVE,LPRINT,LBLK,LSTOP
      COMMON/INDX/NF,NFMAX,NP,NRHO,NGAM,L1,L2,L3,M1,M2,M3,
     + IST,JST,ITER,LAST,TITLE(13),RELAX(13),TIME,DT,XL,YL,
     + IPREF,JPREF,LSOLVE(10),LPRINT(13),LBLK(10),MODE,NTIMES(10),RHOCON