LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ header()

subroutine header ( )

Definition at line 55 of file c_dblat1.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_DDOT'/
67  DATA l(2)/'CBLAS_DAXPY '/
68  DATA l(3)/'CBLAS_DROTG '/
69  DATA l(4)/'CBLAS_DROT '/
70  DATA l(5)/'CBLAS_DCOPY '/
71  DATA l(6)/'CBLAS_DSWAP '/
72  DATA l(7)/'CBLAS_DNRM2 '/
73  DATA l(8)/'CBLAS_DASUM '/
74  DATA l(9)/'CBLAS_DSCAL '/
75  DATA l(10)/'CBLAS_IDAMAX'/
76 * .. Executable Statements ..
77  WRITE (nout,99999) icase, l(icase)
78  RETURN
79 *
80 99999 FORMAT (/' Test of subprogram number',i3,9x,a15)