---
name: "sdrvsy_rk.f"
section: "3"
platform: "linux"
package: "lapack-doc"
version: "3.12.1-2"
release: "Arch Linux 2026-11-01"
platforms: ["linux"]
url: "https://new.carta.tech/sdrvsy_rk.f"
---

# sdrvsy\_rk.f(3)

## NAME

TESTING/LIN/sdrvsy\_rk.f

## SYNOPSIS

### Functions/Subroutines

subroutine **sdrvsy\_rk** (dotype, nn, nval, nrhs, thresh, tsterr, nmax, a, afac, e, ainv, b, x, xact, work, rwork, iwork, nout)\
 **SDRVSY\_RK**

## Function/Subroutine Documentation

### subroutine sdrvsy\_rk (logical, dimension( \* ) dotype, integer nn, integer, dimension( \* ) nval, integer nrhs, real thresh, logical tsterr, integer nmax, real, dimension( \* ) a, real, dimension( \* ) afac, real, dimension( \* ) e, real, dimension( \* ) ainv, real, dimension( \* ) b, real, dimension( \* ) x, real, dimension( \* ) xact, real, dimension( \* ) work, real, dimension( \* ) rwork, integer, dimension( \* ) iwork, integer nout)

**SDRVSY\_RK**

**Purpose:**

```
!> SDRVSY_RK tests the driver routines SSYSV_RK.
!>
```

**Parameters**

*DOTYPE*

```
!>          DOTYPE is LOGICAL array, dimension (NTYPES)
!>          The matrix types to be used for testing.  Matrices of type j
!>          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
!>          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.
!>
```

*NN*

```
!>          NN is INTEGER
!>          The number of values of N contained in the vector NVAL.
!>
```

*NVAL*

```
!>          NVAL is INTEGER array, dimension (NN)
!>          The values of the matrix dimension N.
!>
```

*NRHS*

```
!>          NRHS is INTEGER
!>          The number of right hand side vectors to be generated for
!>          each linear system.
!>
```

*THRESH*

```
!>          THRESH is REAL
!>          The threshold value for the test ratios.  A result is
!>          included in the output file if RESULT >= THRESH.  To have
!>          every test ratio printed, use THRESH = 0.
!>
```

*TSTERR*

```
!>          TSTERR is LOGICAL
!>          Flag that indicates whether error exits are to be tested.
!>
```

*NMAX*

```
!>          NMAX is INTEGER
!>          The maximum value permitted for N, used in dimensioning the
!>          work arrays.
!>
```

*A*

```
!>          A is REAL array, dimension (NMAX*NMAX)
!>
```

*AFAC*

```
!>          AFAC is REAL array, dimension (NMAX*NMAX)
!>
```

*E*

```
!>          E is REAL array, dimension (NMAX)
!>
```

*AINV*

```
!>          AINV is REAL array, dimension (NMAX*NMAX)
!>
```

*B*

```
!>          B is REAL array, dimension (NMAX*NRHS)
!>
```

*X*

```
!>          X is REAL array, dimension (NMAX*NRHS)
!>
```

*XACT*

```
!>          XACT is REAL array, dimension (NMAX*NRHS)
!>
```

*WORK*

```
!>          WORK is REAL array, dimension (NMAX*max(2,NRHS))
!>
```

*RWORK*

```
!>          RWORK is REAL array, dimension (NMAX+2*NRHS)
!>
```

*IWORK*

```
!>          IWORK is INTEGER array, dimension (2*NMAX)
!>
```

*NOUT*

```
!>          NOUT is INTEGER
!>          The unit number for output.
!>
```

**Author**

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line **153** of file **sdrvsy\_rk.f**.

## Author

Generated automatically by Doxygen for LAPACK from the source code.