LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ header()

subroutine header ( )

Definition at line 96 of file dblat1.f.

96 * .. Parameters ..
97  INTEGER nout
98  parameter(nout=6)
99 * .. Scalars in Common ..
100  INTEGER icase, incx, incy, n
101  LOGICAL pass
102 * .. Local Arrays ..
103  CHARACTER*6 l(13)
104 * .. Common blocks ..
105  COMMON /combla/icase, n, incx, incy, pass
106 * .. Data statements ..
107  DATA l(1)/' DDOT '/
108  DATA l(2)/'DAXPY '/
109  DATA l(3)/'DROTG '/
110  DATA l(4)/' DROT '/
111  DATA l(5)/'DCOPY '/
112  DATA l(6)/'DSWAP '/
113  DATA l(7)/'DNRM2 '/
114  DATA l(8)/'DASUM '/
115  DATA l(9)/'DSCAL '/
116  DATA l(10)/'IDAMAX'/
117  DATA l(11)/'DROTMG'/
118  DATA l(12)/'DROTM '/
119  DATA l(13)/'DSDOT '/
120 * .. Executable Statements ..
121  WRITE (nout,99999) icase, l(icase)
122  RETURN
123 *
124 99999 FORMAT (/' Test of subprogram number',i3,12x,a6)