blas_dot Interface

private interface blas_dot

explicit interface for BLAS DOT routines

Usage: result = blas_dot(x, y, incx, incy, n) This is not a public interface, it is used internally by pic_dot

Called by

interface~~blas_dot~~CalledByGraph interface~blas_dot blas_dot proc~pic_cdotc pic_cdotc proc~pic_cdotc->interface~blas_dot proc~pic_ddot pic_ddot proc~pic_ddot->interface~blas_dot proc~pic_sdot pic_sdot proc~pic_sdot->interface~blas_dot proc~pic_zdotc pic_zdotc proc~pic_zdotc->interface~blas_dot interface~pic_dot pic_dot interface~pic_dot->proc~pic_cdotc interface~pic_dot->proc~pic_ddot interface~pic_dot->proc~pic_sdot interface~pic_dot->proc~pic_zdotc

Functions

private pure function cdotc(n, x, incx, y, incy) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=default_int), intent(in) :: n
complex(kind=sp), intent(in) :: x(*)
integer(kind=default_int), intent(in) :: incx
complex(kind=sp), intent(in) :: y(*)
integer(kind=default_int), intent(in) :: incy

Return Value complex(kind=sp)

private pure function ddot(n, x, incx, y, incy) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=default_int), intent(in) :: n
real(kind=dp), intent(in) :: x(*)
integer(kind=default_int), intent(in) :: incx
real(kind=dp), intent(in) :: y(*)
integer(kind=default_int), intent(in) :: incy

Return Value real(kind=dp)

private pure function sdot(n, x, incx, y, incy) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=default_int), intent(in) :: n
real(kind=sp), intent(in) :: x(*)
integer(kind=default_int), intent(in) :: incx
real(kind=sp), intent(in) :: y(*)
integer(kind=default_int), intent(in) :: incy

Return Value real(kind=sp)

private pure function zdotc(n, x, incx, y, incy) result(res)

Arguments

Type IntentOptional Attributes Name
integer(kind=default_int), intent(in) :: n
complex(kind=dp), intent(in) :: x(*)
integer(kind=default_int), intent(in) :: incx
complex(kind=dp), intent(in) :: y(*)
integer(kind=default_int), intent(in) :: incy

Return Value complex(kind=dp)