223 REAL function
slatm3( m, n, i, j, isub, jsub, kl, ku,
224 $ idist, iseed, d, igrade, dl, dr, ipvtng, iwork,
233 INTEGER i, idist, igrade, ipvtng, isub, j, jsub, kl,
240 INTEGER iseed( 4 ), iwork( * )
241 REAL d( * ), dl( * ), dr( * )
249 parameter( zero = 0.0e0 )
270 IF( i.LT.1 .OR. i.GT.m .OR. j.LT.1 .OR. j.GT.n )
THEN
279 IF( ipvtng.EQ.0 )
THEN
282 ELSE IF( ipvtng.EQ.1 )
THEN
285 ELSE IF( ipvtng.EQ.2 )
THEN
288 ELSE IF( ipvtng.EQ.3 )
THEN
295 IF( jsub.GT.isub+ku .OR. jsub.LT.isub-kl )
THEN
302 IF( sparse.GT.zero )
THEN
303 IF(
slaran( iseed ).LT.sparse )
THEN
314 temp =
slarnd( idist, iseed )
316 IF( igrade.EQ.1 )
THEN
318 ELSE IF( igrade.EQ.2 )
THEN
320 ELSE IF( igrade.EQ.3 )
THEN
321 temp = temp*dl( i )*dr( j )
322 ELSE IF( igrade.EQ.4 .AND. i.NE.j )
THEN
323 temp = temp*dl( i ) / dl( j )
324 ELSE IF( igrade.EQ.5 )
THEN
325 temp = temp*dl( i )*dl( j )
real function slaran(iseed)
SLARAN
real function slarnd(idist, iseed)
SLARND
real function slatm3(m, n, i, j, isub, jsub, kl, ku, idist, iseed, d, igrade, dl, dr, ipvtng, iwork, sparse)
SLATM3