var/convertor/kma_wave2grid/MNMX.inc

   1       SUBROUTINE MNMX(DATA,N,ITTL)
   2 Crizvi      REAL*4 DATA(N)
   3       REAL DATA(N)
   4       CHARACTER*(*) ITTL
   5 C
   6       DMAX=DATA(1)
   7 C      DMIN=DATA(1)
   8       DMIN=0
   9       DO 100 I=1,N
  10        DMAX=MAX(DMAX,DATA(I))
  11        DMIN=DMIN+DATA(I)
  12   100 CONTINUE
  13       WRITE(6,101)ITTL,DMAX,DMIN
  14   101 FORMAT(1H ,A4,4X,2E12.5)
  15 C
  16       RETURN
  17       END SUBROUTINE MNMX
  18