pic_asum Interface

public interface pic_asum

general interface of the BLAS ASUM routines, will call SASUM, DASUM, SCASUM, DZASUM

Usage: result = pic_asum(x, incx)

where x is a vector and incx is the increment, this will return the sum of the absolute values of the elements of x.

The vector x must be an allocatable array, we deduce the shape from it. The increment incx is 1 by default.

Calls

interface~~pic_asum~~CallsGraph interface~pic_asum pic_asum proc~pic_dasum pic_dasum interface~pic_asum->proc~pic_dasum proc~pic_dzasum pic_dzasum interface~pic_asum->proc~pic_dzasum proc~pic_sasum pic_sasum interface~pic_asum->proc~pic_sasum proc~pic_scasum pic_scasum interface~pic_asum->proc~pic_scasum interface~blas_asum blas_asum proc~pic_dasum->interface~blas_asum proc~pic_dzasum->interface~blas_asum proc~pic_sasum->interface~blas_asum proc~pic_scasum->interface~blas_asum

Module Procedures

private function pic_sasum(x) result(res)

interface for single precision absolute sum

Arguments

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

Return Value real(kind=sp)

private function pic_dasum(x) result(res)

interface for double precision absolute sum

Arguments

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

Return Value real(kind=dp)

private function pic_scasum(x) result(res)

interface for single precision complex absolute sum

Arguments

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

Return Value real(kind=sp)

private function pic_dzasum(x) result(res)

interface for double precision complex absolute sum

Arguments

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

Return Value real(kind=dp)