Developer Reference for Intel® oneAPI Math Kernel Library for Fortran

ID 766686
Date 11/07/2023
Public

A newer version of this document is available. Customers should click here to go to the newest version.

Document Table of Contents

p?syrk

Performs a rank-k update of a symmetric distributed matrix.

Syntax

call pssyrk(uplo, trans, n, k, alpha, a, ia, ja, desca, beta, c, ic, jc, descc)

call pdsyrk(uplo, trans, n, k, alpha, a, ia, ja, desca, beta, c, ic, jc, descc)

call pcsyrk(uplo, trans, n, k, alpha, a, ia, ja, desca, beta, c, ic, jc, descc)

call pzsyrk(uplo, trans, n, k, alpha, a, ia, ja, desca, beta, c, ic, jc, descc)

Include Files

  • mkl_pblas.h

Description

The p?syrk routines perform a distributed matrix-matrix operation defined as

sub(C):=alpha*sub(A)*sub(A)'+ beta*sub(C),

or

sub(C):=alpha*sub(A)'*sub(A)+ beta*sub(C),

where:

alpha and beta are scalars,

sub(C) is an n-by-n symmetric distributed matrix, sub(C)=C(ic:ic+n-1, jc:jc+n-1).

sub(A) is a distributed matrix, sub(A)=A(ia:ia+n-1, ja:ja+k-1), if trans = 'N' or 'n', and sub(A)=A(ia:ia+k-1, ja:ja+n-1) otherwise.

Input Parameters

uplo

(global) CHARACTER*1. Specifies whether the upper or lower triangular part of the symmetric distributed matrix sub(C) is used:

If uplo = 'U' or 'u', then the upper triangular part of the sub(C) is used.

If uplo = 'L' or 'l', then the low triangular part of the sub(C) is used.

trans

(global) CHARACTER*1. Specifies the operation:

if trans = 'N' or 'n', then sub(C) := alpha*sub(A)*sub(A)' + beta*sub(C);

if trans = 'T' or 't', then sub(C) := alpha*sub(A)'*sub(A) + beta*sub(C).

n

(global) INTEGER. Specifies the order of the distributed matrix sub(C), n 0.

k

(global) INTEGER. On entry with trans = 'N' or 'n', k specifies the number of columns of the distributed matrix sub(A) , and on entry with trans = 'T' or 't' , k specifies the number of rows of the distributed matrix sub(A), k 0.

alpha

(global)REAL for pssyrk

DOUBLE PRECISION for pdsyrk

COMPLEX for pcsyrk

DOUBLE COMPLEX for pzsyrk

Specifies the scalar alpha.

a

(local)REAL for pssyrk

DOUBLE PRECISION for pdsyrk

COMPLEX for pcsyrk

DOUBLE COMPLEX for pzsyrk

Array, size (lld_a, kla), where kla is LOCq(ja+k-1) when trans = 'N' or 'n', and is LOCq(ja+n-1) otherwise. Before entry with trans = 'N' or 'n', this array contains the local pieces of the distributed matrix sub(A).

ia, ja

(global) INTEGER. The row and column indices in the distributed matrix A indicating the first row and the first column of the submatrix sub(A), respectively.

desca

(global and local) INTEGER array of dimension 9. The array descriptor of the distributed matrix A.

beta

(global)REAL for pssyrk

DOUBLE PRECISION for pdsyrk

COMPLEX for pcsyrk

DOUBLE COMPLEX for pzsyrk

Specifies the scalar beta.

c

(local)REAL for pssyrk

DOUBLE PRECISION for pdsyrk

COMPLEX for pcsyrk

DOUBLE COMPLEX for pzsyrk

Array, size (lld_c, LOCq(jc+n-1)).

Before entry with uplo = 'U' or 'u', this array contains n-by-n upper triangular part of the symmetric distributed matrix sub(C) and its strictly lower triangular part is not referenced.

Before entry with uplo = 'L' or 'l', this array contains n-by-n lower triangular part of the symmetric distributed matrix sub(C) and its strictly upper triangular part is not referenced.

ic, jc

(global) INTEGER. The row and column indices in the distributed matrix C indicating the first row and the first column of the submatrix sub(C), respectively.

descc

(global and local) INTEGER array of dimension 9. The array descriptor of the distributed matrix C.

Output Parameters

c

With uplo = 'U' or 'u', the upper triangular part of sub(C) is overwritten by the upper triangular part of the updated distributed matrix.

With uplo = 'L' or 'l', the lower triangular part of sub(C) is overwritten by the upper triangular part of the updated distributed matrix.