LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ header()

subroutine header

Definition at line 95 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*
12499999 FORMAT (/' Test of subprogram number',i3,12x,a6)
125*
126* End of HEADER
127*