## MA02ED

### Store by symmetry the upper or lower triangle of a symmetric matrix, given the other triangle

[Specification] [Arguments] [Method] [References] [Comments] [Example]

Purpose

      To store by symmetry the upper or lower triangle of a symmetric
      matrix, given the other triangle.

Specification

          SUBROUTINE MA02ED( UPLO, N, A, LDA )
    C     .. Scalar Arguments ..
          CHARACTER          UPLO
          INTEGER            LDA, N
    C     .. Array Arguments ..
          DOUBLE PRECISION   A(LDA,*)

Arguments

Mode Parameters

      UPLO    CHARACTER*1
              Specifies which part of the matrix is given as follows:
              = 'U':  Upper triangular part;
              = 'L':  Lower triangular part.
              For all other values, the array A is not referenced.

Input/Output Parameters

      N       (input) INTEGER
              The order of the matrix A.  N >= 0.

      A       (input/output) DOUBLE PRECISION array, dimension (LDA,N)
              On entry, the leading N-by-N upper triangular part
              (if UPLO = 'U'), or lower triangular part (if UPLO = 'L'),
              of this array must contain the corresponding upper or
              lower triangle of the symmetric matrix A.
              On exit, the leading N-by-N part of this array contains
              the symmetric matrix A with all elements stored.

      LDA     INTEGER
              The leading dimension of the array A.  LDA >= max(1,N).

Further Comments

      None

Example

Program Text

      None

Program Data

      None

Program Results

      None

Return to Supporting Routines index