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

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

To store by skew-symmetry the upper or lower triangle of a
skew-symmetric matrix, given the other triangle. The diagonal
entries are set to zero.

**Specification**
SUBROUTINE MA02ES( 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 skew-symmetric matrix A.
On exit, the leading N-by-N part of this array contains
the skew-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**