var/convertor/wave2grid_kma/RESET.inc

   1       SUBROUTINE RESET (DATA,N)
   2 Crizvi      REAL*4 DATA(N)
   3       REAL DATA(N)
   4       DO 100 I=1,N
   5        DATA(I)=0.0
   6   100 CONTINUE
   7 C
   8       RETURN
   9       END SUBROUTINE RESET
  10