Program Stat1

implicit none
real :: v,somma,vm,vmax,vmin
integer :: i,iend

! Legge un file di numeri
! calcola la media , il massimo e il minimodei moduli


vmax=-1e36  
vmin=1e36
somma=0
do i=1,100000
   read(5,*,iostat=iend)v
   if(iend /= 0)exit
   if(v > vmax) vmax=v
   if(v < vmin) vmin=v
   somma=somma+v
   write(6,'(f10.2)')v
enddo
if(iend > 0)then
   write(6,*)'Errore di lettura :',iend
else
   vm=somma/(i-1)
   write(6,*) 'vmedia=',vm
   write(6,*) 'vmax =',vmax
   write(6,*) 'vmin =',vmin
endif
end Program Stat1