SYNOPSIS

SUBROUTINE DLAT2S(

UPLO, N, A, LDA, SA, LDSA, INFO )

    

CHARACTER UPLO

    

INTEGER INFO, LDA, LDSA, N

    

REAL SA( LDSA, * )

    

DOUBLE PRECISION A( LDA, * )

PURPOSE

DLAT2S converts a DOUBLE PRECISION triangular matrix, SA, to a SINGLE PRECISION triangular matrix, A. RMAX is the overflow for the SINGLE PRECISION arithmetic
DLAS2S checks that all the entries of A are between -RMAX and RMAX. If not the convertion is aborted and a flag is raised. This is an auxiliary routine so there is no argument checking.

ARGUMENTS

UPLO (input) CHARACTER*1

= 'U': A is upper triangular;
= 'L': A is lower triangular.

N (input) INTEGER

The number of rows and columns of the matrix A. N >= 0.

A (input) DOUBLE PRECISION array, dimension (LDA,N)

On entry, the N-by-N triangular coefficient matrix A.

LDA (input) INTEGER

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

SA (output) REAL array, dimension (LDSA,N)

Only the UPLO part of SA is referenced. On exit, if INFO=0, the N-by-N coefficient matrix SA; if INFO>0, the content of the UPLO part of SA is unspecified.

LDSA (input) INTEGER

The leading dimension of the array SA. LDSA >= max(1,M).

INFO (output) INTEGER

= 0: successful exit.
= 1: an entry of the matrix A is greater than the SINGLE PRECISION overflow threshold, in this case, the content of the UPLO part of SA in exit is unspecified. ========= End of DLAT2S