LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ header()

subroutine header

Definition at line 48 of file c_zblat1.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_ZDOTC'/
61  DATA l(2)/'CBLAS_ZDOTU'/
62  DATA l(3)/'CBLAS_ZAXPY'/
63  DATA l(4)/'CBLAS_ZCOPY'/
64  DATA l(5)/'CBLAS_ZSWAP'/
65  DATA l(6)/'CBLAS_DZNRM2'/
66  DATA l(7)/'CBLAS_DZASUM'/
67  DATA l(8)/'CBLAS_ZSCAL'/
68  DATA l(9)/'CBLAS_ZDSCAL'/
69  DATA l(10)/'CBLAS_IZAMAX'/
70 * .. Executable Statements ..
71  WRITE (nout,99999) icase, l(icase)
72  RETURN
73 *
74 99999 FORMAT (/' Test of subprogram number',i3,9x,a15)