fmin_ Function

function fmin_(x) result(fmin)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in), dimension(:) :: x

Return Value real(kind=8)


Calls

proc~~fmin_~~CallsGraph proc~fmin_ fmin_ funcv funcv proc~fmin_->funcv

Source Code

function fmin_(x) result(fmin)
  real(8), dimension(:), intent(in) :: x
  real(8)                           :: fmin
  if (.not. associated(fmin_fvecp)) then
     print*,'fmin: problem with pointer for returned values'
     stop
  endif
  fmin_fvecp=funcv(x)
  fmin=0.5d0*dot_product(fmin_fvecp,fmin_fvecp)
end function fmin_