REOWV.inc

1       SUBROUTINE REOWV
2      1  (WDATA,QDATA,MEND1,NEND1,JEND1,MNWAV,KWMAX,KQMAX,KWW,KQQ,
3      2   KMX2 ,LAG)
4 C
5 Crizvi      REAL*4 WDATA(KWMAX,MNWAV), QDATA(KQMAX,MNWAV)
6       REAL      WDATA(KWMAX,MNWAV), QDATA(KQMAX,MNWAV)
7       INTEGER*4 LAG(MEND1,NEND1)
8 C
9 C       DGNL ---> CLMN
10 C
11         L=0
12         DO 100 M=1,MEND1
13          NMAX=MIN(NEND1,JEND1+1-M)
14         DO 100 N=1,NMAX
15          L=L+1
16          LX=LAG(M,N)
17         DO 100 K=1,KMX2
18          QDATA(K+KQQ,L)=WDATA(K+KWW,LX)
19 Crizvi         write(75,fmt='(3i8,e20.6)')L,LX,K,QDATA(K+KQQ,L)
20   100   CONTINUE
21 C
22 C
23       RETURN
24       END SUBROUTINE REOWV
25