LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
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)
BLAS
TESTING
sblat1.f
Generated on Fri Dec 23 2016 15:28:50 for LAPACK by
1.8.10