---
name: "sprcn1"
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/c_sblat3.f"
---

# sprcn1(3)

Part of [c\_sblat3.f(3)](/c_sblat3.f/3.md).

## NAME

CBLAS/testing/c\_sblat3.f

## SYNOPSIS

### Functions/Subroutines

program **sblat3**\
 subroutine **schk1** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c, cc, cs, ct, g, iorder)\
 subroutine **sprcn1** (nout, nc, sname, iorder, transa, transb, m, n, k, alpha, lda, ldb, beta, ldc)\
 subroutine **schk2** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c, cc, cs, ct, g, iorder)\
 subroutine **sprcn2** (nout, nc, sname, iorder, side, uplo, m, n, alpha, lda, ldb, beta, ldc)\
 subroutine **schk3** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c, iorder)\
 subroutine **sprcn3** (nout, nc, sname, iorder, side, uplo, transa, diag, m, n, alpha, lda, ldb)\
 subroutine **schk4** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c, cc, cs, ct, g, iorder)\
 subroutine **sprcn4** (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, beta, ldc)\
 subroutine **schk5** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nbet, bet, nmax, ab, aa, as, bb, bs, c, cc, cs, ct, g, w, iorder)\
 subroutine **sprcn5** (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, ldb, beta, ldc)\
 subroutine **smake** (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)\
 subroutine **smmch** (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)\
 logical function **lse** (ri, rj, lr)\
 logical function **lseres** (type, uplo, m, n, aa, as, lda)\
 real function **sbeg** (reset)\
 real function **sdiff** (x, y)\
 subroutine **schk6** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c, cc, cs, ct, g, iorder)\
 subroutine **sprcn8** (nout, nc, sname, iorder, uplo, transa, transb, n, k, alpha, lda, ldb, beta, ldc)\
 subroutine **smmtch** (uplo, transa, transb, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)\

## Function/Subroutine Documentation

### logical function lse (real, dimension( \* ) ri, real, dimension( \* ) rj, integer lr)

Definition at line **2340** of file **c\_sblat3.f**.

### logical function lseres (character\*2 type, character\*1 uplo, integer m, integer n, real, dimension( lda, \* ) aa, real, dimension( lda, \* ) as, integer lda)

Definition at line **2372** of file **c\_sblat3.f**.

### real function sbeg (logical reset)

Definition at line **2434** of file **c\_sblat3.f**.

### program sblat3

Definition at line **1** of file **c\_sblat3.f**.

### subroutine schk1 (character\*13 sname, real eps, real thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, real, dimension( nalf ) alf, integer nbet, real, dimension( nbet ) bet, integer nmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax, nmax ) b, real, dimension( nmax\*nmax ) bb, real, dimension( nmax\*nmax ) bs, real, dimension( nmax, nmax ) c, real, dimension( nmax\*nmax ) cc, real, dimension( nmax\*nmax ) cs, real, dimension( nmax ) ct, real, dimension( nmax ) g, integer iorder)

Definition at line **434** of file **c\_sblat3.f**.

### subroutine schk2 (character\*13 sname, real eps, real thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, real, dimension( nalf ) alf, integer nbet, real, dimension( nbet ) bet, integer nmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax, nmax ) b, real, dimension( nmax\*nmax ) bb, real, dimension( nmax\*nmax ) bs, real, dimension( nmax, nmax ) c, real, dimension( nmax\*nmax ) cc, real, dimension( nmax\*nmax ) cs, real, dimension( nmax ) ct, real, dimension( nmax ) g, integer iorder)

Definition at line **762** of file **c\_sblat3.f**.

### subroutine schk3 (character\*13 sname, real eps, real thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, real, dimension( nalf ) alf, integer nmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax, nmax ) b, real, dimension( nmax\*nmax ) bb, real, dimension( nmax\*nmax ) bs, real, dimension( nmax ) ct, real, dimension( nmax ) g, real, dimension( nmax, nmax ) c, integer iorder)

Definition at line **1073** of file **c\_sblat3.f**.

### subroutine schk4 (character\*13 sname, real eps, real thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, real, dimension( nalf ) alf, integer nbet, real, dimension( nbet ) bet, integer nmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax, nmax ) b, real, dimension( nmax\*nmax ) bb, real, dimension( nmax\*nmax ) bs, real, dimension( nmax, nmax ) c, real, dimension( nmax\*nmax ) cc, real, dimension( nmax\*nmax ) cs, real, dimension( nmax ) ct, real, dimension( nmax ) g, integer iorder)

Definition at line **1432** of file **c\_sblat3.f**.

### subroutine schk5 (character\*13 sname, real eps, real thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, real, dimension( nalf ) alf, integer nbet, real, dimension( nbet ) bet, integer nmax, real, dimension( 2\*nmax\*nmax ) ab, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax\*nmax ) bb, real, dimension( nmax\*nmax ) bs, real, dimension( nmax, nmax ) c, real, dimension( nmax\*nmax ) cc, real, dimension( nmax\*nmax ) cs, real, dimension( nmax ) ct, real, dimension( nmax ) g, real, dimension( 2\*nmax ) w, integer iorder)

Definition at line **1749** of file **c\_sblat3.f**.

### subroutine schk6 (character\*13 sname, real eps, real thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, real, dimension( nalf ) alf, integer nbet, real, dimension( nbet ) bet, integer nmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax, nmax ) b, real, dimension( nmax\*nmax ) bb, real, dimension( nmax\*nmax ) bs, real, dimension( nmax, nmax ) c, real, dimension( nmax\*nmax ) cc, real, dimension( nmax\*nmax ) cs, real, dimension( nmax ) ct, real, dimension( nmax ) g, integer iorder)

Definition at line **2501** of file **c\_sblat3.f**.

### real function sdiff (real x, real y)

Definition at line **2480** of file **c\_sblat3.f**.

### subroutine smake (character\*2 type, character\*1 uplo, character\*1 diag, integer m, integer n, real, dimension( nmax, \* ) a, integer nmax, real, dimension( \* ) aa, integer lda, logical reset, real transl)

Definition at line **2105** of file **c\_sblat3.f**.

### subroutine smmch (character\*1 transa, character\*1 transb, integer m, integer n, integer kk, real alpha, real, dimension( lda, \* ) a, integer lda, real, dimension( ldb, \* ) b, integer ldb, real beta, real, dimension( ldc, \* ) c, integer ldc, real, dimension( \* ) ct, real, dimension( \* ) g, real, dimension( ldcc, \* ) cc, integer ldcc, real eps, real err, logical fatal, integer nout, logical mv)

Definition at line **2218** of file **c\_sblat3.f**.

### subroutine smmtch (character\*1 uplo, character\*1 transa, character\*1 transb, integer n, integer kk, real alpha, real, dimension( lda, \* ) a, integer lda, real, dimension( ldb, \* ) b, integer ldb, real beta, real, dimension( ldc, \* ) c, integer ldc, real, dimension( \* ) ct, real, dimension( \* ) g, real, dimension( ldcc, \* ) cc, integer ldcc, real eps, real err, logical fatal, integer nout, logical mv)

Definition at line **2839** of file **c\_sblat3.f**.

### subroutine sprcn1 (integer nout, integer nc, character\*13 sname, integer iorder, character\*1 transa, character\*1 transb, integer m, integer n, integer k, real alpha, integer lda, integer ldb, real beta, integer ldc)

Definition at line **727** of file **c\_sblat3.f**.

### subroutine sprcn2 (integer nout, integer nc, character\*13 sname, integer iorder, character\*1 side, character\*1 uplo, integer m, integer n, real alpha, integer lda, integer ldb, real beta, integer ldc)

Definition at line **1042** of file **c\_sblat3.f**.

### subroutine sprcn3 (integer nout, integer nc, character\*13 sname, integer iorder, character\*1 side, character\*1 uplo, character\*1 transa, character\*1 diag, integer m, integer n, real alpha, integer lda, integer ldb)

Definition at line **1389** of file **c\_sblat3.f**.

### subroutine sprcn4 (integer nout, integer nc, character\*13 sname, integer iorder, character\*1 uplo, character\*1 transa, integer n, integer k, real alpha, integer lda, real beta, integer ldc)

Definition at line **1716** of file **c\_sblat3.f**.

### subroutine sprcn5 (integer nout, integer nc, character\*13 sname, integer iorder, character\*1 uplo, character\*1 transa, integer n, integer k, real alpha, integer lda, integer ldb, real beta, integer ldc)

Definition at line **2072** of file **c\_sblat3.f**.

### subroutine sprcn8 (integer nout, integer nc, character\*13 sname, integer iorder, character\*1 uplo, character\*1 transa, character\*1 transb, integer n, integer k, real alpha, integer lda, integer ldb, real beta, integer ldc)

Definition at line **2797** of file **c\_sblat3.f**.

## Author

Generated automatically by Doxygen for LAPACK from the source code.