pic_izamax Function

private function pic_izamax(x) result(idx)

interface for double precision complex index of maximum absolute value

Arguments

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

Return Value integer(kind=default_int)


Calls

proc~~pic_izamax~~CallsGraph proc~pic_izamax pic_izamax interface~blas_iamax blas_iamax proc~pic_izamax->interface~blas_iamax

Called by

proc~~pic_izamax~~CalledByGraph proc~pic_izamax pic_izamax interface~pic_iamax pic_iamax interface~pic_iamax->proc~pic_izamax

Variables

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

Source Code

   function pic_izamax(x) result(idx)
      !! interface for double precision complex index of maximum absolute value
      complex(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_izamax