f77_herk Interface

public interface f77_herk

Generic old style interface for HERK. Supports c, z. See also: mfi_herk, cherk, zherk.


Subroutines

public pure subroutine cherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

Original interface for CHERK See also: mfi_herk, f77_herk.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
real(kind=wp), intent(in) :: alpha
complex(kind=REAL32), intent(in) :: a(lda,*)
integer, intent(in) :: lda
real(kind=wp), intent(in) :: beta
complex(kind=REAL32), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public pure subroutine zherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

Original interface for ZHERK See also: mfi_herk, f77_herk.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
real(kind=wp), intent(in) :: alpha
complex(kind=REAL64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
real(kind=wp), intent(in) :: beta
complex(kind=REAL64), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc