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