pic_icamax Function

private function pic_icamax(x) result(idx)

interface for single precision complex index of maximum absolute value

Arguments

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

Return Value integer(kind=default_int)


Calls

proc~~pic_icamax~~CallsGraph proc~pic_icamax pic_icamax interface~blas_iamax blas_iamax proc~pic_icamax->interface~blas_iamax

Called by

proc~~pic_icamax~~CalledByGraph proc~pic_icamax pic_icamax interface~pic_iamax pic_iamax interface~pic_iamax->proc~pic_icamax

Variables

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

Source Code

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