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

# c\_cblat3.f(3)

## NAME

CBLAS/testing/c\_cblat3.f

## SYNOPSIS

### Functions/Subroutines

program **cblat3**\
 subroutine **cchk1** (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 **cprcn1** (nout, nc, sname, iorder, transa, transb, m, n, k, alpha, lda, ldb, beta, ldc)\
 subroutine **cchk2** (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 **cprcn2** (nout, nc, sname, iorder, side, uplo, m, n, alpha, lda, ldb, beta, ldc)\
 subroutine **cchk3** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c, iorder)\
 subroutine **cprcn3** (nout, nc, sname, iorder, side, uplo, transa, diag, m, n, alpha, lda, ldb)\
 subroutine **cchk4** (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 **cprcn4** (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, beta, ldc)\
 subroutine **cprcn6** (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, beta, ldc)\
 subroutine **cchk5** (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 **cprcn5** (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, ldb, beta, ldc)\
 subroutine **cprcn7** (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, ldb, beta, ldc)\
 subroutine **cmake** (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)\
 subroutine **cmmch** (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)\
 logical function **lce** (ri, rj, lr)\
 logical function **lceres** (type, uplo, m, n, aa, as, lda)\
 complex function **cbeg** (reset)\
 real function **sdiff** (x, y)\
 subroutine **cchk6** (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 **cprcn8** (nout, nc, sname, iorder, uplo, transa, transb, n, k, alpha, lda, ldb, beta, ldc)\
 subroutine **cmmtch** (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

### complex function cbeg (logical reset)

Definition at line **2731** of file **c\_cblat3.f**.

### program cblat3

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

### subroutine cchk1 (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, complex, dimension( nalf ) alf, integer nbet, complex, dimension( nbet ) bet, integer nmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmax\*nmax ) aa, complex, dimension( nmax\*nmax ) as, complex, dimension( nmax, nmax ) b, complex, dimension( nmax\*nmax ) bb, complex, dimension( nmax\*nmax ) bs, complex, dimension( nmax, nmax ) c, complex, dimension( nmax\*nmax ) cc, complex, dimension( nmax\*nmax ) cs, complex, dimension( nmax ) ct, real, dimension( nmax ) g, integer iorder)

Definition at line **441** of file **c\_cblat3.f**.

### subroutine cchk2 (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, complex, dimension( nalf ) alf, integer nbet, complex, dimension( nbet ) bet, integer nmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmax\*nmax ) aa, complex, dimension( nmax\*nmax ) as, complex, dimension( nmax, nmax ) b, complex, dimension( nmax\*nmax ) bb, complex, dimension( nmax\*nmax ) bs, complex, dimension( nmax, nmax ) c, complex, dimension( nmax\*nmax ) cc, complex, dimension( nmax\*nmax ) cs, complex, dimension( nmax ) ct, real, dimension( nmax ) g, integer iorder)

Definition at line **771** of file **c\_cblat3.f**.

### subroutine cchk3 (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, complex, dimension( nalf ) alf, integer nmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmax\*nmax ) aa, complex, dimension( nmax\*nmax ) as, complex, dimension( nmax, nmax ) b, complex, dimension( nmax\*nmax ) bb, complex, dimension( nmax\*nmax ) bs, complex, dimension( nmax ) ct, real, dimension( nmax ) g, complex, dimension( nmax, nmax ) c, integer iorder)

Definition at line **1093** of file **c\_cblat3.f**.

### subroutine cchk4 (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, complex, dimension( nalf ) alf, integer nbet, complex, dimension( nbet ) bet, integer nmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmax\*nmax ) aa, complex, dimension( nmax\*nmax ) as, complex, dimension( nmax, nmax ) b, complex, dimension( nmax\*nmax ) bb, complex, dimension( nmax\*nmax ) bs, complex, dimension( nmax, nmax ) c, complex, dimension( nmax\*nmax ) cc, complex, dimension( nmax\*nmax ) cs, complex, dimension( nmax ) ct, real, dimension( nmax ) g, integer iorder)

Definition at line **1457** of file **c\_cblat3.f**.

### subroutine cchk5 (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, complex, dimension( nalf ) alf, integer nbet, complex, dimension( nbet ) bet, integer nmax, complex, dimension( 2\*nmax\*nmax ) ab, complex, dimension( nmax\*nmax ) aa, complex, dimension( nmax\*nmax ) as, complex, dimension( nmax\*nmax ) bb, complex, dimension( nmax\*nmax ) bs, complex, dimension( nmax, nmax ) c, complex, dimension( nmax\*nmax ) cc, complex, dimension( nmax\*nmax ) cs, complex, dimension( nmax ) ct, real, dimension( nmax ) g, complex, dimension( 2\*nmax ) w, integer iorder)

Definition at line **1867** of file **c\_cblat3.f**.

### subroutine cchk6 (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, complex, dimension( nalf ) alf, integer nbet, complex, dimension( nbet ) bet, integer nmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmax\*nmax ) aa, complex, dimension( nmax\*nmax ) as, complex, dimension( nmax, nmax ) b, complex, dimension( nmax\*nmax ) bb, complex, dimension( nmax\*nmax ) bs, complex, dimension( nmax, nmax ) c, complex, dimension( nmax\*nmax ) cc, complex, dimension( nmax\*nmax ) cs, complex, dimension( nmax ) ct, real, dimension( nmax ) g, integer iorder)

Definition at line **2805** of file **c\_cblat3.f**.

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

Definition at line **2321** of file **c\_cblat3.f**.

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

Definition at line **2449** of file **c\_cblat3.f**.

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

Definition at line **3142** of file **c\_cblat3.f**.

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

Definition at line **736** of file **c\_cblat3.f**.

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

Definition at line **1062** of file **c\_cblat3.f**.

### subroutine cprcn3 (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, complex alpha, integer lda, integer ldb)

Definition at line **1414** of file **c\_cblat3.f**.

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

Definition at line **1800** of file **c\_cblat3.f**.

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

Definition at line **2253** of file **c\_cblat3.f**.

### subroutine cprcn6 (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 **1834** of file **c\_cblat3.f**.

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

Definition at line **2287** of file **c\_cblat3.f**.

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

Definition at line **3100** of file **c\_cblat3.f**.

### logical function lce (complex, dimension( \* ) ri, complex, dimension( \* ) rj, integer lr)

Definition at line **2637** of file **c\_cblat3.f**.

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

Definition at line **2669** of file **c\_cblat3.f**.

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

Definition at line **2785** of file **c\_cblat3.f**.

## Author

Generated automatically by Doxygen for LAPACK from the source code.