pic_isamax Function

private function pic_isamax(x) result(idx)

interface for single precision index of maximum absolute value

Arguments

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

Return Value integer(kind=default_int)


Calls

proc~~pic_isamax~~CallsGraph proc~pic_isamax pic_isamax interface~blas_iamax blas_iamax proc~pic_isamax->interface~blas_iamax

Called by

proc~~pic_isamax~~CalledByGraph proc~pic_isamax pic_isamax interface~pic_iamax pic_iamax interface~pic_iamax->proc~pic_isamax

Variables

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

Source Code

   function pic_isamax(x) result(idx)
      !! interface for single precision index of maximum absolute value
      real(sp), 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_isamax