LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ header()

subroutine header ( )

Definition at line 55 of file c_sblat1.f.

55 * .. Parameters ..
56  INTEGER nout
57  parameter(nout=6)
58 * .. Scalars in Common ..
59  INTEGER icase, incx, incy, mode, n
60  LOGICAL pass
61 * .. Local Arrays ..
62  CHARACTER*15 l(10)
63 * .. Common blocks ..
64  COMMON /combla/icase, n, incx, incy, mode, pass
65 * .. Data statements ..
66  DATA l(1)/'CBLAS_SDOT '/
67  DATA l(2)/'CBLAS_SAXPY '/
68  DATA l(3)/'CBLAS_SROTG '/
69  DATA l(4)/'CBLAS_SROT '/
70  DATA l(5)/'CBLAS_SCOPY '/
71  DATA l(6)/'CBLAS_SSWAP '/
72  DATA l(7)/'CBLAS_SNRM2 '/
73  DATA l(8)/'CBLAS_SASUM '/
74  DATA l(9)/'CBLAS_SSCAL '/
75  DATA l(10)/'CBLAS_ISAMAX'/
76 * .. Executable Statements ..
77  WRITE (nout,99999) icase, l(icase)
78  RETURN
79 *
80 99999 FORMAT (/' Test of subprogram number',i3,9x,a15)