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