W2G.inc

1       SUBROUTINE W2G
2      I(MEND1,NEND1,JEND1,MNWAV,IMAX,JMAX,IMX,JMAXHF,KMAX,
3      I IFAX ,TRIGS,PNM  ,QDAT,
4      O GDAT ,
5      W GWRK)
6 C
7       DIMENSION QDAT(2,KMAX,MNWAV)
8 
9 c990408
10 c      DIMENSION IFAX(10),TRIGS(500)
11       DIMENSION IFAX(10),TRIGS(IMAX)
12 C...WARNING: THE DIMENSION OF GDAT,GWRK SHOULD BE .GE. IMX*JMAX*KMAX
13 C            IMX=IMAX+2
14       DIMENSION GDAT(IMAX,JMAX,KMAX),GWRK(IMAX,JMAX,KMAX)
15       DIMENSION PNM (MNWAV,JMAXHF)
16 C
17 C...IPNM=1; THIS SUBR. IS ASSUMED TO BE CALLED WITH PNM
18       IPNM=1
19       CALL LGNW2G
20      I(MEND1,NEND1,JEND1,MNWAV,IMAX,JMAX,JMAXHF,KMAX,IPNM,PNM,QDAT,
21      O GDAT ,
22      W GWRK)
23       LOT=JMAX*KMAX
24       CALL FFT991(GDAT,TRIGS,IFAX,1,IMX,IMAX,LOT,1)
25 C     CALL FFT991(GDAT,GWRK,TRIGS,IFAX,1,IMX,IMAX,LOT,1)
26 C
27       RETURN
28       END SUBROUTINE W2G
29