*=*=*=*= diagfi.html =*=*=*=* subroutine diagfi
subroutine diagfi(n,x,name) integer n real x(n) character*10 name integer ismin,ismax real ssum print*,name, , 'MIN',x(ismin(n,x,1)),' MAX',x(ismax(n,x,1)),' MOY' , ,ssum(n,x,1)/float(n) return end