# sget51.f - Man Page

TESTING/EIG/sget51.f

## Synopsis

### Functions/Subroutines

subroutine sget51 (itype, n, a, lda, b, ldb, u, ldu, v, ldv, work, result)
SGET51

## Function/Subroutine Documentation

### subroutine sget51 (integer itype, integer n, real, dimension( lda, * ) a, integer lda, real, dimension( ldb, * ) b, integer ldb, real, dimension( ldu, * ) u, integer ldu, real, dimension( ldv, * ) v, integer ldv, real, dimension( * ) work, real result)

SGET51

Purpose:

```      SGET51  generally checks a decomposition of the form

A = U B V'

where ' means transpose and U and V are orthogonal.

Specifically, if ITYPE=1

RESULT = | A - U B V' | / ( |A| n ulp )

If ITYPE=2, then:

RESULT = | A - B | / ( |A| n ulp )

If ITYPE=3, then:

RESULT = | I - UU' | / ( n ulp )```
Parameters

ITYPE

```          ITYPE is INTEGER
Specifies the type of tests to be performed.
=1: RESULT = | A - U B V' | / ( |A| n ulp )
=2: RESULT = | A - B | / ( |A| n ulp )
=3: RESULT = | I - UU' | / ( n ulp )```

N

```          N is INTEGER
The size of the matrix.  If it is zero, SGET51 does nothing.
It must be at least zero.```

A

```          A is REAL array, dimension (LDA, N)
The original (unfactored) matrix.```

LDA

```          LDA is INTEGER
The leading dimension of A.  It must be at least 1
and at least N.```

B

```          B is REAL array, dimension (LDB, N)
The factored matrix.```

LDB

```          LDB is INTEGER
The leading dimension of B.  It must be at least 1
and at least N.```

U

```          U is REAL array, dimension (LDU, N)
The orthogonal matrix on the left-hand side in the
decomposition.
Not referenced if ITYPE=2```

LDU

```          LDU is INTEGER
The leading dimension of U.  LDU must be at least N and
at least 1.```

V

```          V is REAL array, dimension (LDV, N)
The orthogonal matrix on the left-hand side in the
decomposition.
Not referenced if ITYPE=2```

LDV

```          LDV is INTEGER
The leading dimension of V.  LDV must be at least N and
at least 1.```

WORK

`          WORK is REAL array, dimension (2*N**2)`

RESULT

```          RESULT is REAL
The values computed by the test specified by ITYPE.  The
value is currently limited to 1/ulp, to avoid overflow.
Errors are flagged by RESULT=10/ulp.```
Author

Univ. of Tennessee

Univ. of California Berkeley

NAG Ltd.

Definition at line 147 of file sget51.f.

## Author

Generated automatically by Doxygen for LAPACK from the source code.

## Referenced By

The man page sget51(3) is an alias of sget51.f(3).

Tue Nov 28 2023 12:08:42 Version 3.12.0 LAPACK