dhvnrm Function

private function dhvnrm(v, n) result(m)

Compute the maximum norm of the first n elements of vector v. Replacement for the original SLATEC routine.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in), dimension(:) :: v
integer, intent(in) :: n

Return Value real(kind=wp)


Called by

proc~~dhvnrm~~CalledByGraph proc~dhvnrm dhvnrm proc~dhstrt ddeabm_class%dhstrt proc~dhstrt->proc~dhvnrm proc~dsteps ddeabm_class%dsteps proc~dsteps->proc~dhstrt proc~ddes ddeabm_class%ddes proc~ddes->proc~dsteps proc~ddeabm ddeabm_class%ddeabm proc~ddeabm->proc~ddes proc~ddeabm_with_event_wrapper ddeabm_with_event_class%ddeabm_with_event_wrapper proc~ddeabm_with_event_wrapper->proc~ddeabm proc~ddeabm_with_event_wrapper_vec ddeabm_with_event_class_vec%ddeabm_with_event_wrapper_vec proc~ddeabm_with_event_wrapper_vec->proc~ddeabm proc~ddeabm_wrapper ddeabm_class%ddeabm_wrapper proc~ddeabm_wrapper->proc~ddeabm

Source Code

   function dhvnrm(v, n) result(m)

      implicit none

      real(wp)                         :: m
      integer, intent(in)               :: n
      real(wp), dimension(:), intent(in) :: v

      m = maxval(abs(v(1:n)))

   end function dhvnrm