LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ header()

subroutine header ( )

Definition at line 96 of file sblat1.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)/' SDOT '/
108  DATA l(2)/'SAXPY '/
109  DATA l(3)/'SROTG '/
110  DATA l(4)/' SROT '/
111  DATA l(5)/'SCOPY '/
112  DATA l(6)/'SSWAP '/
113  DATA l(7)/'SNRM2 '/
114  DATA l(8)/'SASUM '/
115  DATA l(9)/'SSCAL '/
116  DATA l(10)/'ISAMAX'/
117  DATA l(11)/'SROTMG'/
118  DATA l(12)/'SROTM '/
119  DATA l(13)/'SDSDOT'/
120 * .. Executable Statements ..
121  WRITE (nout,99999) icase, l(icase)
122  RETURN
123 *
124 99999 FORMAT (/' Test of subprogram number',i3,12x,a6)