--- name: "c_sblat2.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_sblat2.f" --- # c\_sblat2.f(3) ## NAME CBLAS/testing/c\_sblat2.f ## SYNOPSIS ### Functions/Subroutines program **sblat2**\ subroutine **schk1** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nkb, kb, nalf, alf, nbet, bet, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, iorder)\ subroutine **schk2** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nkb, kb, nalf, alf, nbet, bet, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, iorder)\ subroutine **schk3** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nkb, kb, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, xt, g, z, iorder)\ subroutine **schk4** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, z, iorder)\ subroutine **schk5** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, z, iorder)\ subroutine **schk6** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, z, iorder)\ subroutine **smake** (type, uplo, diag, m, n, a, nmax, aa, lda, kl, ku, reset, transl)\ subroutine **smvch** (trans, m, n, alpha, a, nmax, x, incx, beta, y, incy, yt, g, yy, 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)\ ## Function/Subroutine Documentation ### logical function lse (real, dimension( \* ) ri, real, dimension( \* ) rj, integer lr) Definition at line **2756** of file **c\_sblat2.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 **2786** of file **c\_sblat2.f**. ### real function sbeg (logical reset) Definition at line **2846** of file **c\_sblat2.f**. ### program sblat2 Definition at line **1** of file **c\_sblat2.f**. ### subroutine schk1 (character\*12 sname, real eps, real thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nkb, integer, dimension( nkb ) kb, integer nalf, real, dimension( nalf ) alf, integer nbet, real, dimension( nbet ) bet, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax ) x, real, dimension( nmax\*incmax ) xx, real, dimension( nmax\*incmax ) xs, real, dimension( nmax ) y, real, dimension( nmax\*incmax ) yy, real, dimension( nmax\*incmax ) ys, real, dimension( nmax ) yt, real, dimension( nmax ) g, integer iorder) Definition at line **456** of file **c\_sblat2.f**. ### subroutine schk2 (character\*12 sname, real eps, real thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nkb, integer, dimension( nkb ) kb, integer nalf, real, dimension( nalf ) alf, integer nbet, real, dimension( nbet ) bet, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax ) x, real, dimension( nmax\*incmax ) xx, real, dimension( nmax\*incmax ) xs, real, dimension( nmax ) y, real, dimension( nmax\*incmax ) yy, real, dimension( nmax\*incmax ) ys, real, dimension( nmax ) yt, real, dimension( nmax ) g, integer iorder) Definition at line **816** of file **c\_sblat2.f**. ### subroutine schk3 (character\*12 sname, real eps, real thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nkb, integer, dimension( nkb ) kb, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax ) x, real, dimension( nmax\*incmax ) xx, real, dimension( nmax\*incmax ) xs, real, dimension( nmax ) xt, real, dimension( nmax ) g, real, dimension( nmax ) z, integer iorder) Definition at line **1176** of file **c\_sblat2.f**. ### subroutine schk4 (character\*12 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 ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax ) x, real, dimension( nmax\*incmax ) xx, real, dimension( nmax\*incmax ) xs, real, dimension( nmax ) y, real, dimension( nmax\*incmax ) yy, real, dimension( nmax\*incmax ) ys, real, dimension( nmax ) yt, real, dimension( nmax ) g, real, dimension( nmax ) z, integer iorder) Definition at line **1563** of file **c\_sblat2.f**. ### subroutine schk5 (character\*12 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 ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax ) x, real, dimension( nmax\*incmax ) xx, real, dimension( nmax\*incmax ) xs, real, dimension( nmax ) y, real, dimension( nmax\*incmax ) yy, real, dimension( nmax\*incmax ) ys, real, dimension( nmax ) yt, real, dimension( nmax ) g, real, dimension( nmax ) z, integer iorder) Definition at line **1835** of file **c\_sblat2.f**. ### subroutine schk6 (character\*12 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 ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, real, dimension( nmax, nmax ) a, real, dimension( nmax\*nmax ) aa, real, dimension( nmax\*nmax ) as, real, dimension( nmax ) x, real, dimension( nmax\*incmax ) xx, real, dimension( nmax\*incmax ) xs, real, dimension( nmax ) y, real, dimension( nmax\*incmax ) yy, real, dimension( nmax\*incmax ) ys, real, dimension( nmax ) yt, real, dimension( nmax ) g, real, dimension( nmax, 2 ) z, integer iorder) Definition at line **2131** of file **c\_sblat2.f**. ### real function sdiff (real x, real y) Definition at line **2892** of file **c\_sblat2.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, integer kl, integer ku, logical reset, real transl) Definition at line **2463** of file **c\_sblat2.f**. ### subroutine smvch (character\*1 trans, integer m, integer n, real alpha, real, dimension( nmax, \* ) a, integer nmax, real, dimension( \* ) x, integer incx, real beta, real, dimension( \* ) y, integer incy, real, dimension( \* ) yt, real, dimension( \* ) g, real, dimension( \* ) yy, real eps, real err, logical fatal, integer nout, logical mv) Definition at line **2639** of file **c\_sblat2.f**. ## Author Generated automatically by Doxygen for LAPACK from the source code.