var/convertor/kma_wave2grid/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