LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ header()

subroutine header ( )

Definition at line 49 of file c_cblat1.f.

49 * .. Parameters ..
50  INTEGER nout
51  parameter(nout=6)
52 * .. Scalars in Common ..
53  INTEGER icase, incx, incy, mode, n
54  LOGICAL pass
55 * .. Local Arrays ..
56  CHARACTER*15 l(10)
57 * .. Common blocks ..
58  COMMON /combla/icase, n, incx, incy, mode, pass
59 * .. Data statements ..
60  DATA l(1)/'CBLAS_CDOTC'/
61  DATA l(2)/'CBLAS_CDOTU'/
62  DATA l(3)/'CBLAS_CAXPY'/
63  DATA l(4)/'CBLAS_CCOPY'/
64  DATA l(5)/'CBLAS_CSWAP'/
65  DATA l(6)/'CBLAS_SCNRM2'/
66  DATA l(7)/'CBLAS_SCASUM'/
67  DATA l(8)/'CBLAS_CSCAL'/
68  DATA l(9)/'CBLAS_CSSCAL'/
69  DATA l(10)/'CBLAS_ICAMAX'/
70 * .. Executable Statements ..
71  WRITE (nout,99999) icase, l(icase)
72  RETURN
73 *
74 99999 FORMAT (/' Test of subprogram number',i3,9x,a15)