LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ header()

subroutine header

Definition at line 90 of file cblat1.f.

91 * .. Parameters ..
92  INTEGER NOUT
93  parameter(nout=6)
94 * .. Scalars in Common ..
95  INTEGER ICASE, INCX, INCY, MODE, N
96  LOGICAL PASS
97 * .. Local Arrays ..
98  CHARACTER*6 L(10)
99 * .. Common blocks ..
100  COMMON /combla/icase, n, incx, incy, mode, pass
101 * .. Data statements ..
102  DATA l(1)/'CDOTC '/
103  DATA l(2)/'CDOTU '/
104  DATA l(3)/'CAXPY '/
105  DATA l(4)/'CCOPY '/
106  DATA l(5)/'CSWAP '/
107  DATA l(6)/'SCNRM2'/
108  DATA l(7)/'SCASUM'/
109  DATA l(8)/'CSCAL '/
110  DATA l(9)/'CSSCAL'/
111  DATA l(10)/'ICAMAX'/
112 * .. Executable Statements ..
113  WRITE (nout,99999) icase, l(icase)
114  RETURN
115 *
116 99999 FORMAT (/' Test of subprogram number',i3,12x,a6)
117 *
118 * End of HEADER
119 *
Here is the caller graph for this function: