pic_idamax Function

private function pic_idamax(x) result(idx)

interface for double precision index of maximum absolute value

Arguments

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

Return Value integer(kind=default_int)


Calls

proc~~pic_idamax~~CallsGraph proc~pic_idamax pic_idamax interface~blas_iamax blas_iamax proc~pic_idamax->interface~blas_iamax

Called by

proc~~pic_idamax~~CalledByGraph proc~pic_idamax pic_idamax interface~pic_iamax pic_iamax interface~pic_iamax->proc~pic_idamax

Variables

Type Visibility Attributes Name Initial
integer(kind=default_int), private :: incx
integer(kind=default_int), private :: n

Source Code

   function pic_idamax(x) result(idx)
      !! interface for double precision index of maximum absolute value
      real(dp), intent(in) :: x(:)
      integer(default_int) :: idx
      integer(default_int) :: n, incx
      n = size(x)
      incx = 1
      idx = blas_iamax(n, x, incx)
   end function pic_idamax