aboutsummaryrefslogtreecommitdiff
path: root/orrs/src/OSPRES.INC
blob: 981abe5596e68f46d25b62eb097211240cfab14d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
      PARAMETER (NMAX=2001,NRMAX=3)
      COMPLEX A,B,C,R, F0,F1, VT
      COMPLEX ALPHA
C
      COMMON/OSP_CPX/
     &    A(2,2,NMAX),B(2,2,NMAX),C(2,2,NMAX),R(2,NRMAX,NMAX),
     &    F0(NMAX),F1(NMAX), VT(NMAX),
     &    ALPHA
      COMMON/OSP_REL/
     &    Y(NMAX),U(NMAX),
     &    RLX,DFMAX,DFRMS, RESMAX,RESRMS
      COMMON/OSP_INT/
     &    N, NRHS, ITER, ITMAX, IBC,ISOL