f77_blas Module


Uses


Interfaces

interface

?lamch supports s, d. See mfi_lamch for the modern version.

  • public pure function slamch(cmach)

    SLAMCH determines single precision machine parameters.

    Arguments

    Type IntentOptional Attributes Name
    character(len=1), intent(in) :: cmach

    Return Value real(kind=real32)

interface

?lamch supports s, d. See mfi_lamch for the modern version.

  • public pure function dlamch(cmach)

    DLAMCH determines double precision machine parameters.

    Arguments

    Type IntentOptional Attributes Name
    character(len=1), intent(in) :: cmach

    Return Value real(kind=real64)

interface

  • public pure function sdsdot(n, sb, sx, incx, sy, incy)

    Compute the inner product of two vectors with extended precision accumulation.

    Returns S.P. result with dot product accumulated in D.P. SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+IINCX)SY(LY+IINCY), where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)INCX, and LY is defined in a similar way using INCY.

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: n
    real(kind=wp), intent(in) :: sb
    real(kind=wp), intent(in) :: sx(*)
    integer, intent(in) :: incx
    real(kind=wp), intent(in) :: sy(*)
    integer, intent(in) :: incy

    Return Value real(kind=wp)

interface

  • public pure function dsdot(n, sx, incx, sy, incy)

    Compute the inner product of two vectors with extended precision accumulation and result.

    Returns D.P. dot product accumulated in D.P., for S.P. SX and SY DSDOT = sum for I = 0 to N-1 of SX(LX+IINCX) * SY(LY+IINCY), where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is defined in a similar way using INCY.

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: n
    real(kind=sp), intent(in) :: sx(*)
    integer, intent(in) :: incx
    real(kind=sp), intent(in) :: sy(*)
    integer, intent(in) :: incy

    Return Value real(kind=dp)