user_maximum.f90

Go to the documentation of this file.

function user_maximum(nn, ff) result(f_user_maximum)
!----------------------------------------------------------------------------!
! Search for the maximum of a function ff                                    !
!----------------------------------------------------------------------------!

  use itm_types

  implicit none

  integer(itm_i4) :: i, nn

  real(r8)    :: ff(nn)
  real(r8)    :: maximum
  real(r8)    :: f_user_maximum

  maximum = ff(1)
  do i = 2, nn
    maximum = max(maximum, ff(i))
  end do

  f_user_maximum = maximum

end function user_maximum