LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ header()

subroutine header ( )

Definition at line 91 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)
Here is the caller graph for this function: