42 REAL a( nmax, nmax ), af( nmax, nmax ), b( nmax ),
43 $ r1( nmax ), r2( nmax ), w( 3*nmax ), x( nmax )
52 $ spotrf,
spotri, spotrs, sppcon, sppequ, spprfs,
53 $ spptrf, spptri, spptrs
61 common / infoc / infot, nout, ok, lerr
62 common / srnamc / srnamt
70 WRITE( nout, fmt = * )
82 a( i, j ) = 1. /
REAL( i+j )
83 af( i, j ) = 1. /
REAL( i+j )
94 IF(
lsamen( 2, c2,
'PO' ) )
THEN
104 CALL
chkxer(
'SPOTRF', infot, nout, info, ok )
107 CALL
chkxer(
'SPOTRF', infot, nout, info, ok )
110 CALL
chkxer(
'SPOTRF', infot, nout, info, ok )
117 CALL
chkxer(
'SPOTRS', infot, nout, info, ok )
120 CALL
chkxer(
'SPOTRS', infot, nout, info, ok )
123 CALL
chkxer(
'SPOTRS', infot, nout, info, ok )
126 CALL
chkxer(
'SPOTRS', infot, nout, info, ok )
129 CALL
chkxer(
'SPOTRS', infot, nout, info, ok )
134 CALL
alaesm( path, ok, nout )