LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ header()

subroutine header

Definition at line 48 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*
7499999 FORMAT (/' Test of subprogram number',i3,9x,a15)