*=*=*=*= diagfi.html =*=*=*=*
subroutine diagfi

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