LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
subroutine header ( )

Definition at line 91 of file zblat1.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)/'ZDOTC '/
103  DATA l(2)/'ZDOTU '/
104  DATA l(3)/'ZAXPY '/
105  DATA l(4)/'ZCOPY '/
106  DATA l(5)/'ZSWAP '/
107  DATA l(6)/'DZNRM2'/
108  DATA l(7)/'DZASUM'/
109  DATA l(8)/'ZSCAL '/
110  DATA l(9)/'ZDSCAL'/
111  DATA l(10)/'IZAMAX'/
112 * .. Executable Statements ..
113  WRITE (nout,99999) icase, l(icase)
114  RETURN
115 *
116 99999 FORMAT (/' Test of subprogram number',i3,12x,a6)