%! %%BoundingBox: 0.0 0.0 612.0 792.0 %%DocumentFonts: (atend) %%Creator: dongarra@thud with Eroff/eps release 3.0.0A %%CreationDate: Wed Oct 14 12:58:20 1992 %%Pages: (atend) %%EndComments /DocState7292 save def /pid 7292 def 0.2400 dup scale /inch { 300.0000 mul } bind def /pgtop 10.875 inch def /stm usertime def /pgc statusdict begin pagecount end def /ps { print flush } bind def 1.0 setlinewidth /page { showpage restore save home } bind def /home { newpath 0 pgtop moveto } bind def /mf { statusdict /manualfeed true put } bind def /af { statusdict /manualfeed false put } bind def af /xform { transform round exch round exch itransform } bind def 0 0 xform moveto 0 setlinecap /y { neg 0 exch xform rmoveto } bind def /X { currentpoint exch pop xform moveto } bind def /Y { pgtop exch sub currentpoint pop exch xform moveto } bind def /s { show } bind def /S { exch currentpoint exch pop xform moveto show } bind def /l { neg rlineto currentpoint stroke moveto } bind def /bnf { /dy exch def /dx exch def currentpoint /cury exch def /curx exch def newpath curx cury moveto 0 dy rlineto dx 0 rlineto 0 dy neg rlineto closepath stroke curx dx add cury moveto } bind def /b { /dy exch def /dx exch def currentpoint /cury exch def /curx exch def newpath curx cury moveto 0 dy rlineto dx 0 rlineto 0 dy neg rlineto closepath gsave fill grestore gsave 0 setgray stroke grestore newpath curx dx add cury moveto } bind def /B { /dy exch def /dx exch def currentpoint /cury exch def /curx exch def newpath curx cury moveto 0 dy rlineto dx 0 rlineto 0 dy neg rlineto closepath fill 0 curx dx add cury moveto } bind def /polystart { currentpoint newpath moveto } bind def /polynext { rlineto } bind def /polyclose { closepath } bind def /polyfill { gsave closepath setgray fill grestore currentpoint stroke moveto } bind def /polydraw { currentpoint stroke moveto } bind def /c { 2 div /rad exch def currentpoint /y0 exch def /x0 exch def newpath x0 rad add y0 xform rad 0 360 arc closepath stroke x0 rad add rad add y0 xform moveto } bind def /cf { 2 div /rad exch def currentpoint /y0 exch def /x0 exch def newpath x0 rad add y0 xform rad 0 360 arc closepath gsave setgray fill grestore stroke x0 rad add rad add y0 xform moveto } bind def /a { /y2 exch neg def /x2 exch def /y1 exch neg def /x1 exch def x1 y1 xform rmoveto currentpoint currentpoint x2 x2 mul y2 y2 mul add sqrt y1 neg x1 neg atan y2 x2 atan newpath arc stroke moveto x2 y2 rmoveto } bind def /e { currentlinewidth /elw exch def gsave 2 div /yrad exch def 2 div /xrad exch def currentpoint /y0 exch def /x0 exch def x0 xrad add y0 translate xrad yrad scale newpath 0 0 xform 1 0 360 arc closepath elw xrad div setlinewidth stroke grestore elw setlinewidth x0 xrad add xrad add y0 xform moveto } bind def /ef { currentlinewidth /elw exch def gsave 2 div /yrad exch def 2 div /xrad exch def currentpoint /y0 exch def /x0 exch def x0 xrad add y0 translate xrad yrad scale newpath 0 0 xform 1 0 360 arc closepath elw xrad div setlinewidth gsave setgray fill grestore stroke grestore elw setlinewidth x0 xrad add xrad add y0 xform moveto } bind def /spln { rcurveto currentpoint stroke moveto } bind def /ft { /fonttype exch def /xsiz exch def /ysiz exch def /sl exch def fonttype [ xsiz pt 0 sl sin sl cos div ysiz pt mul ysiz pt 0 0 ] makefont setfont } bind def /doImage {{currentfile rasterString readhexstring pop} image} bind def /pt { 4.166667 mul } bind def 0.375 0.000000 add inch 0.25 inch translate /savematrix matrix currentmatrix def /roman-8-dict 20 dict def % Local storage /roman-8-mappings [ 8#260 /Adieresis 8#265 /Aring 8#276 /Aacute 8#300 /Agrave 8#311 /Acircumflex 8#314 /Atilde 8#321 /Ccedilla 8#322 /Edieresis 8#323 /Eacute 8#324 /Egrave 8#325 /Ecircumflex 8#326 /Idieresis 8#327 /Iacute 8#330 /Igrave 8#331 /Icircumflex 8#332 /Ntilde 8#333 /Odieresis 8#334 /Oacute 8#335 /Ograve 8#336 /Ocircumflex 8#337 /Otilde 8#340 /Scaron 8#342 /Udieresis 8#344 /Uacute 8#345 /Ugrave 8#346 /Ydieresis 8#347 /adieresis 8#354 /aring 8#355 /aacute 8#356 /agrave 8#357 /acircumflex 8#360 /atilde 8#362 /ccedilla 8#363 /edieresis 8#364 /eacute 8#366 /egrave 8#367 /ecircumflex 8#374 /idieresis 8#375 /iacute 8#376 /igrave 8#220 /icircumflex 8#221 /ntilde 8#222 /odieresis 8#223 /oacute 8#224 /ograve 8#225 /ocircumflex 8#226 /otilde 8#227 /scaron 8#230 /udieresis 8#231 /uacute 8#232 /ugrave 8#233 /ucircumflex 8#234 /ydieresis 8#235 /Ucircumflex ] def /AddRoman-8 { roman-8-dict begin /roman-8-mappings exch def /newName exch def /oldName exch def /oldDict oldName findfont def /newDict oldDict maxlength dict def oldDict { exch dup /FID ne { dup /Encoding eq { exch dup length array copy newDict 3 1 roll put } { exch newDict 3 1 roll put } ifelse } { pop pop } ifelse } forall newDict /FontName newName put 0 2 roman-8-mappings length 1 sub { dup roman-8-mappings exch get exch 1 add roman-8-mappings exch get newDict /Encoding get 3 1 roll put } for newName newDict definefont pop end } bind def /BracketFontDict 9 dict def /$workingdict 10 dict def BracketFontDict begin /FontType 3 def /FontName (Bracket) cvn def /FontMatrix [ 0.001 0 0 0.001 0 0] def /FontBBox [ -50 -250 1000 1000 ] def /Encoding 256 array def 0 1 255 { Encoding exch /.notdef put } for Encoding dup 65 /Cbv put dup 66 /Clt put dup 67 /Clk put dup 68 /Clb put dup 69 /Crt put dup 70 /Crk put dup 71 /Crb put dup 72 /Clc put dup 73 /Clf put dup 74 /Crc put dup 75 /Crf put dup 76 /Cbr put dup 77 /Crn put dup 78 /Cci put dup 79 /C|| put dup 80 /C^^ put dup 81 /Cr1 put dup 82 /Cr2 put pop /CharProcs 24 dict dup begin /setC { 0 -50 -250 500 1000 setcachedevice} bind def /C.bv {220 -250 moveto 0 1000 rlineto 60 0 rlineto 0 -1000 rlineto fill } bind def /C.cbar { 750 moveto 180 0 rlineto 0 -60 rlineto -180 0 rlineto fill } bind def /C.fbar { -250 moveto 180 0 rlineto 0 60 rlineto -180 0 rlineto fill } bind def /C.brk.end { 1 setlinewidth moveto rlineto rcurveto reversepath 60 0 rlineto rlineto rcurveto fill } bind def /C.setl {dup dtransform exch round exch idtransform pop setlinewidth } bind def /Cbv { 208 setC C.bv } bind def /Clt { 208 setC 0 150 50 210 140 250 0 730 0 150 50 250 200 250 0 750 220 -250 C.brk.end } bind def /Clk { 208 setC 1 setlinewidth 220 -250 moveto 0 400 rlineto 0 50 -50 100 -100 100 rcurveto 50 0 100 50 100 100 rcurveto 0 400 rlineto 60 0 rlineto 0 -400 rlineto 0 -50 -50 -100 -100 -100 rcurveto 50 0 100 -50 100 -100 rcurveto 0 -400 rlineto closepath fill } bind def /Clb { 208 setC 0 -150 50 -210 140 -250 0 -730 0 -150 50 -250 200 -250 0 -750 220 750 C.brk.end } bind def /Crt { 208 setC 0 150 -50 250 -200 250 0 750 0 150 -50 210 -140 250 0 730 220 -250 C.brk.end } bind def /Crk { 208 setC 1 setlinewidth 220 -250 moveto 0 400 rlineto 0 50 50 100 100 100 rcurveto -50 0 -100 50 -100 100 rcurveto 0 400 rlineto 60 0 rlineto 0 -400 rlineto 0 -50 50 -100 100 -100 rcurveto -50 0 -100 -50 -100 -100 rcurveto 0 -400 rlineto fill } bind def /Crb { 208 setC 0 -150 -50 -250 -200 -250 0 -750 0 -150 -50 -210 -140 -250 0 -730 220 750 C.brk.end } bind def /Clc { 208 setC C.bv 280 C.cbar } bind def /Clf { 208 setC C.bv 280 C.fbar } bind def /Crc { 208 setC C.bv 40 C.cbar } bind def /Crf { 208 setC C.bv 40 C.fbar } bind def /Cbr { 0 0 -50 -250 0 1000 setcachedevice 40 C.setl 0 -250 moveto 0 1000 rlineto stroke } bind def /Crn { 208 setC 40 C.setl 0 770 moveto 500 0 rlineto stroke } bind def /Cci { 937 0 -50 -250 937 1000 setcachedevice 40 C.setl 500 250 400 0 360 arc stroke } bind def /C|| { 70 0 -50 -250 70 1000 setcachedevice } bind def /C^^ { 33 0 -50 -250 33 1000 setcachedevice } bind def /Cr1 { 333 0 -50 -250 333 1000 setcachedevice 40 C.setl 0 setlinejoin 700 180 moveto -650 currentlinewidth add 0 rlineto 200 -200 rlineto 50 360 moveto 650 currentlinewidth sub 0 rlineto -200 200 rlineto stroke } bind def /Cr2 { 333 0 -50 -250 333 1000 setcachedevice 40 C.setl 2 setlinejoin 217 18 moveto -150 150 rlineto 150 150 rlineto -150 -150 rlineto 633 0 rlineto 50 360 moveto 633 0 rlineto -150 150 rlineto 150 -150 rlineto -150 -150 rlineto stroke } bind def end def /BuildChar { $workingdict begin /charcode exch def /fontdict exch def fontdict /CharProcs get begin fontdict /Encoding get charcode get load gsave 0 setlinecap 0 setgray newpath exec grestore end end } bind def end /BracketFont BracketFontDict definefont pop %%EndProlog %%Page: label 1 %%PageFonts: (atend) /PageState7292 save def home 0 Y 300 X 350 Y 1275 X %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 10 10 f.R ft(.)s 300 X 900 Y 916 X(ARGONNE)s 1129(N)S 1159(A)S 1186(T)S 1211(I)S 1225(O)S 1255(N)S 1285(A)S 1315(L)S 1350(L)S 1375(A)S 1405(B)S 1433(O)S 1463(R)S 1491(A)S 1518(T)S 1543(O)S 1573(R)S 1601(Y)S 300 X 950 Y 1064 X(9700)s 1158(South)S 1266(Cass)S 1355(A)S 1385(v)S 1406(e)S 1425(n)S 1446(u)S 1467(e)S 300 X 1000 Y 1069 X(Argonne,)s 1236(Illinois)S 1376(60439)S 300 X 1230 Y 976 X %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 12 12 f.B ft(An)s 1052(Extended)S 1270(Set)S 1350(of)S 1404(F)S 1433(o)S 1458(r)S 1481(t)S 1498(r)S 1521(a)S 1546(n)S 300 X 1330 Y 892 X(Basic)s 1019(Linear)S 1178(Algebra)S 1364(S)S 1392(u)S 1420(b)S 1448(p)S 1476(r)S 1499(o)S 1524(g)S 1549(r)S 1572(a)S 1597(m)S 1639(s)S 300 X 1530 Y 504 X 0.0 11 11 f.B ft(Jack)s 607(J.)S 652(Dongarra,)S 866(Jeremy)S 1025(Du)S 1094(Croz,)S 1214(Sven)S 1319(Hammarling,)S 1595(and)S 1679(Richard)S 1851(J.)S 1896(H)S 1931(a)S 1954(n)S 1979(s)S 1997(o)S 2020(n)S 300 X 1730 Y 893 X 0.0 10 10 f.R ft(Mathematics)s 1121(and)S 1192(Computer)S 1370(Science)S 1512(D)S 1542(i)S 1554(v)S 1575(i)S 1587(s)S 1603(i)S 1615(o)S 1636(n)S 300 X 1880 Y 898 X(T)s 920(e)S 939(c)S 958(h)S 979(n)S 1000(i)S 1012(c)S 1031(a)S 1050(l)S 1072(Memorandum)S 1319(No.)S 1390(41)S 1442(\(Revision)S 1616(3\))S 300 X 2140 Y 1133 X(September,)s 1333(1986)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Bold %%Page: label 2 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 10 10 f.R ft 1.0000 setlinewidth 300 X 350 Y 1275 X(.)s 300 X 900 Y 1150 X %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft(A)s 1183(B)S 1214(S)S 1239(T)S 1270(R)S 1303(A)S 1336(C)S 1369(T)S 300 X 1100 Y 0.0 10 10 f.R ft(This)s 386(paper)S 493(describes)S 663(an)S 716(extension)S 891(to)S 937(the)S 1002(set)S 1062(of)S 1110(Basic)S 1217(Linear)S 1340(Algebra)S 1489(Subprograms.)S 1735(The)S 1813(extensions)S 2004(are)S 2069(targeted)S 2219(at)S 300 X 1150 Y(matrix-vector)s 545(operations)S 736(which)S 854(should)S 981(provide)S 1125(for)S 1189(e)S 1208 X /CFi{ (f) show xsiz pt 20 div neg 0 rmoveto (\256) s }bind def CFi 1243(cient)S 1341(and)S 1417(portable)S 1571(i)S 1583(m)S 1615(p)S 1636(l)S 1648(e)S 1667(m)S 1699(e)S 1718(n)S 1739(t)S 1751(a)S 1770(t)S 1782(i)S 1794(o)S 1815(n)S 1836(s)S 1867(of)S 1917(algorithms)S 2112(for)S 2175(high)S 300 X 1200 Y(performance)s 523(c)S 542(o)S 563(m)S 595(p)S 616(u)S 637(t)S 649(e)S 668(r)S 682(s)S 698(.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Bold %%Page: label 3 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 10 10 f.R ft 1.0000 setlinewidth 300 X 350 Y 923 X %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 12 12 f.B ft(An)s 999(Extended)S 1217(Set)S 1297(of)S 1351(F)S 1380(o)S 1405(r)S 1428(t)S 1445(r)S 1468(a)S 1493(n)S 300 X 450 Y 839 X(Basic)s 966(Linear)S 1125(Algebra)S 1311(S)S 1339(u)S 1367(b)S 1395(p)S 1423(r)S 1446(o)S 1471(g)S 1496(r)S 1519(a)S 1544(m)S 1586(s)S 300 X 550 Y 1079 X %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft(Jack)s 1176(J.)S 1219(Dongarra)S 526 Y 1410 X 0.0 7 7 f.I ft(\262)s 300 X 625 Y 863 X 0.0 10 10 f.R ft(Mathematics)s 1091(and)S 1162(Computer)S 1340(Science)S 1482(D)S 1512(i)S 1524(v)S 1545(i)S 1557(s)S 1573(i)S 1585(o)S 1606(n)S 300 X 675 Y 995 X(Argonne)s 1152(National)S 1308(L)S 1333(a)S 1352(b)S 1373(o)S 1394(r)S 1408(a)S 1427(t)S 1439(o)S 1460(r)S 1474(y)S 300 X 725 Y 1044 X(Argonne,)s 1211(Illinois)S 1341(60439)S 300 X 825 Y 1093 X 0.0 11 11 f.I ft(Jeremy)s 1239(Du)S 1306(Croz)S 300 X 900 Y 958 X 0.0 10 10 f.R ft(Numerical)s 1146(Algorithms)S 1347(Group)S 1464(Ltd.)S 300 X 950 Y 931 X(NAG)s 1031(Central)S 1166(O)S 1196 X /CFi{ (f) show xsiz pt 20 div neg 0 rmoveto (\256) s }bind def CFi 1231(ce,)S 1289(May)S 1366 X(\256)s 1389(eld)S 1451(House)S 300 X 1000 Y 927 X(256)s 1000(Banbury)S 1155(Road,)S 1264(Oxford)S 1395(OX2)S 1486(7DE)S 300 X 1100 Y 1078 X 0.0 11 11 f.I ft(Sven)s 1177(H)S 1210(a)S 1233(m)S 1266(m)S 1299(a)S 1322(r)S 1340(l)S 1353(i)S 1366(n)S 1389(g)S 300 X 1175 Y 958 X 0.0 10 10 f.R ft(Numerical)s 1146(Algorithms)S 1347(Group)S 1464(Ltd.)S 300 X 1225 Y 931 X(NAG)s 1031(Central)S 1166(O)S 1196 X CFi 1231(ce,)S 1289(May)S 1366 X(\256)s 1389(eld)S 1451(House)S 300 X 1275 Y 927 X(256)s 1000(Banbury)S 1155(Road,)S 1264(Oxford)S 1395(OX2)S 1486(7DE)S 300 X 1375 Y 1072 X 0.0 11 11 f.I ft(Richard)s 1232(J.)S 1275(H)S 1308(a)S 1331(n)S 1354(s)S 1372(o)S 1395(n)S 300 X 1450 Y 1105 X 0.0 10 10 f.R ft(Applied)s 1251(Math)S 1360(2646)S 300 X 1500 Y 1011 X(Sandia)s 1136(National)S 1292(L)S 1317(a)S 1336(b)S 1357(o)S 1378(r)S 1392(a)S 1411(t)S 1423(o)S 1444(r)S 1458(y)S 300 X 1550 Y 958 X(Albuquerque,)s 1198(New)S 1287(Mexico)S 1426(87185)S 300 X 1750 Y 0.0 10 10 f.I ft 375(Abstract)S 534 X 0.0 10 10 f.R ft(\320)s 586(This)S 670(paper)S 774(describes)S 941(an)S 992(extension)S 1165(to)S 1209(the)S 1272(set)S 1330(of)S 1376(Basic)S 1481(Linear)S 1602(Algebra)S 1749(Subprograms.)S 1993(The)S 2069(exten)S 2161 X(-)s 300 X 1800 Y 375(sions)S 473(are)S 537(targeted)S 685(at)S 727(m)S 759(a)S 778(t)S 790(r)S 804(i)S 816(x)S 837(-)S 851(v)S 872(e)S 891(c)S 910(t)S 922(o)S 943(r)S 968(operations)S 1155(which)S 1269(should)S 1392(provide)S 1532(for)S 1592(e)S 1611 X CFi 1646(cient)S 1740(and)S 1812(portable)S 1962(implementa)S 2161 X(-)s 300 X 1850 Y 375(tions)S 467(of)S 512(algorithms)S 702(for)S 761(high)S 846(performance)S 1069(c)S 1088(o)S 1109(m)S 1141(p)S 1162(u)S 1183(t)S 1195(e)S 1214(r)S 1228(s)S 1244(.)S 300 X 2032 Y 0.0 11 11 f.B ft(1.)s 356(I)S 374(n)S 399(t)S 414(r)S 435(o)S 458(d)S 483(u)S 508(c)S 529(t)S 544(i)S 557(o)S 580(n)S 300 X 2123 Y 405 X 0.0 11 11 f.R ft(In)s 458(1973)S 566(Hanson,)S 734(Krogh,)S 878(and)S 961(Lawson)S 1123(wrote)S 1244(an)S 1304(article)S 1437(in)S 1489(the)S 1562(SIGNUM)S 1758(Newsletter)S 1975(\()S 1990(V)S 2019(o)S 2042(l)S 2055(.)S 2093(8,)S 2143(no.)S 2216(4,)S 300 X 2189 Y(page)s 400(16\))S 473(describing)S 678(the)S 747(advantages)S 966(of)S 1016(adopting)S 1190(a)S 1223(set)S 1287(of)S 1337(basic)S 1445(routines)S 1606(for)S 1671(problems)S 1854(in)S 1902(linear)S 2019(algebra.)S 2178(The)S 300 X 2255 Y(original)s 456(basic)S 564(linear)S 682(algebra)S 831(subprograms,)S 1091(now)S 1182(commonly)S 1390(referred)S 1548(to)S 1596(as)S 1647(the)S 1716(BLAS)S 1845(and)S 1924(fully)S 2023(described)S 2214(in)S 300 X 2321 Y(Lawson,)s 473(Hanson,)S 641(Kincaid,)S 815(and)S 898(Krogh)S 1031([9,10],)S 1168(have)S 1272(been)S 1376(very)S 1474(successful)S 1681(and)S 1764(have)S 1868(been)S 1972(used)S 2073(in)S 2124(a)S 2160(wide)S 300 X 2387 Y(range)s 417(of)S 469(software)S 642(including)S 831(L)S 859(I)S 874(N)S 907(P)S 931(A)S 964(C)S 995(K)S 1042([4])S 1109(and)S 1190(many)S 1306(of)S 1359(the)S 1431(algorithms)S 1643(published)S 1838(by)S 1899(the)S 1971(ACM)S 2091(T)S 2116(r)S 2131(a)S 2152(n)S 2175(s)S 2193(a)S 2214(c)S 2235 X(-)s 300 X 2453 Y(tions)s 411(on)S 478(Mathematical)S 755(Software.)S 953(In)S 1012(particular)S 1211(they)S 1312(are)S 1390(an)S 1454(aid)S 1531(to)S 1587(clarity,)S 1737(portability,)S 1961(modularity)S 2183(and)S 300 X 2519 Y(maintenance)s 547(of)S 597(software)S 768(and)S 847(they)S 939(have)S 1039(become)S 1195(a)S 0.0 11 11 f.I ft 1229(de)S 1286(facto)S 0.0 11 11 f.R ft 1392(standard)S 1562(for)S 1628(the)S 1698(elementary)S 1917(vector)S 2046(o)S 2069(p)S 2092(e)S 2113(r)S 2128(a)S 2149(t)S 2162(i)S 2175(o)S 2198(n)S 2221(s)S 2239(.)S 300 X 2585 Y(An)s 367(excellent)S 547(discussion)S 751(of)S 800(the)S 0.0 11 11 f.I ft 868(raison)S 997(d')S 1046(\303)S 1046(etre)S 0.0 11 11 f.R ft 1130(of)S 1179(the)S 1247(BLAS)S 1375(is)S 1417(given)S 1531(in)S 1578(Dodson)S 1732(and)S 1810(Lewis)S 1934([1].)S 300 X 2676 Y 405 X(Special)s 555(versions)S 722(of)S 773(the)S 843(BLAS,)S 984(in)S 1034(some)S 1145(cases)S 1258(machine)S 1429(code)S 1531(versions,)S 1710(have)S 1812(been)S 1914(implemented)S 2169(on)S 2229(a)S 300 X 2742 Y(number)s 457(of)S 512(computers,)S 732(thus)S 826(improving)S 1034(the)S 1107(e)S 1128 X CFi 1167(ciency)S 1305(of)S 1359(the)S 1432(BLAS.)S 1576(However,)S 1772(with)S 1870(some)S 1983(of)S 2037(the)S 2110(m)S 2145(o)S 2168(d)S 2191(e)S 2212(r)S 2227(n)S 300 X 2783 Y 300 X 0.0 8 8 f.R ft /Cru{ 0 ysiz pt 5 div 2 copy rmoveto (_) show neg rmoveto }bind def Cru 311 X Cru 328 X Cru 345 X Cru 362 X Cru 379 X Cru 396 X Cru 413 X Cru 430 X Cru 447 X Cru 464 X Cru 481 X Cru 498 X Cru 515 X Cru 532 X Cru 549 X Cru 566 X Cru 583 X Cru 300 X 2804 Y 300 X 0.0 7 7 f.I ft(\262)s 2828 Y 0.0 9 9 f.R ft 321(W)S 354(o)S 373(r)S 386(k)S 423(supported)S 591(in)S 639(part)S 717(by)S 773(the)S 838(Applied)S 979(Mathematical)S 1208(Sciences)S 1360(subprogram)S 1560(of)S 1611(the)S 1677(O)S 1704 X CFi 1736(ce)S 1789(of)S 1840(E)S 1863(n)S 1882(e)S 1899(r)S 1912(g)S 1931(y)S 300 X 2873 Y(Research,)s 457(U.)S 502(S.)S 541(Department)S 730(of)S 771(Energy,)S 899(under)S 995(Contract)S 1136(W)S 1171(-)S 1184(3)S 1203(1)S 1222(-)S 1235(1)S 1254(0)S 1273(9)S 1292(-)S 1305(E)S 1328(n)S 1347(g)S 1366(-)S 1379(3)S 1398(8)S 1417(.)S 300 X 3008 Y(T)s 321(y)S 340(p)S 359(e)S 376(s)S 390(e)S 407(t)S 427(on)S 474(October)S 606(14,)S 662(1992.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Bold Times-Italic %%Page: label 4 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 9 9 f.R ft 1.0000 setlinewidth 300 X 216 Y 1237 X 0.0 11 11 f.R ft(- 2 -)s 300 X 366 Y(machine)s 470(a)S 491(r)S 506(c)S 527(h)S 550(i)S 563(t)S 576(e)S 597(c)S 618(t)S 631(u)S 654(r)S 669(e)S 690(s)S 708(,)S 732(the)S 802(use)S 877(of)S 928(the)S 998(BLAS)S 1128(is)S 1172(not)S 1244(the)S 1314(best)S 1402(way)S 1492(to)S 1541(improve)S 1708(the)S 1779(e)S 1800 X /CFi{ (f) show xsiz pt 20 div neg 0 rmoveto (\256) s }bind def CFi 1839(ciency)S 1975(of)S 2027(higher)S 2159(level)S 300 X 432 Y(codes.)s 446(On)S 520(vector)S 654(machines,)S 858(for)S 929(example,)S 1115(one)S 1200(needs)S 1324(to)S 1378(optimize)S 1557(at)S 1608(least)S 1711(at)S 1762(the)S 1836(level)S 1944(of)S 1999(m)S 2034(a)S 2055(t)S 2068(r)S 2083(i)S 2096(x)S 2119(-)S 2134(v)S 2157(e)S 2178(c)S 2199(t)S 2212(o)S 2235(r)S 300 X 498 Y(operations)s 505(in)S 553(order)S 662(to)S 710(approach)S 892(the)S 961(potential)S 1136(e)S 1157 X CFi 1196(ciency)S 1330(of)S 1380(the)S 1449(machine)S 1619(\(see)S 1707([2)S 1758(and)S 1838(3]\);)S 1917(and)S 1997(the)S 2067(use)S 2142(of)S 2193(the)S 300 X 564 Y(BLAS)s 434(inhibits)S 590(this)S 674(optimization)S 925(because)S 1089(they)S 1185(hide)S 1281(the)S 1354(m)S 1389(a)S 1410(t)S 1423(r)S 1438(i)S 1451(x)S 1474(-)S 1489(v)S 1512(e)S 1533(c)S 1554(t)S 1567(o)S 1590(r)S 1621(nature)S 1753(of)S 1807(the)S 1880(operations)S 2089(from)S 2193(the)S 300 X 630 Y(c)s 321(o)S 344(m)S 379(p)S 402(i)S 415(l)S 428(e)S 449(r)S 464(.)S 300 X 721 Y 405 X(During)s 552(the)S 626(Gatlinburg)S 843(meeting)S 1009(of)S 1064(June,)S 1177(1984)S 1286(\()S 1301(W)S 1342(a)S 1363(t)S 1376(e)S 1397(r)S 1412(l)S 1425(o)S 1448(o)S 1471(,)S 1499(Ontario\))S 1672(discussions)S 1900(among)S 2042(the)S 2116(partici)S 2235 X(-)s 300 X 787 Y(pants)s 410(encouraged)S 636(two)S 717(of)S 766(us)S 818(\(Dongarra)S 1018(and)S 1096(Hammarling\))S 1354(to)S 1401(prepare)S 1551(a)S 1583(proposed)S 1763(set)S 1826(of)S 1875(extended)S 2054(BLAS.)S 2204(At)S 300 X 853 Y(about)s 414(the)S 482(same)S 588(time)S 681(IFIP)S 772(W)S 813(o)S 836(r)S 851(k)S 874(i)S 887(n)S 910(g)S 944(Group)S 1072(2.5)S 1140(started)S 1275(a)S 1307(project)S 1447(on)S 1504(the)S 1572(same)S 1678(subject)S 1822(at)S 1868(their)S 1965(annual)S 2101(m)S 2136(e)S 2157(e)S 2178(t)S 2191(i)S 2204(n)S 2227(g)S 300 X 919 Y(in)s 347(P)S 371(a)S 392(s)S 410(a)S 431(d)S 454(e)S 475(n)S 498(a)S 519(,)S 541(CA.)S 300 X 1010 Y 405 X(An)s 473(initial)S 594(proposal)S 765(was)S 849(drafted)S 992(and)S 1071(presented)S 1261(at)S 1307(the)S 1376(P)S 1400(a)S 1421(r)S 1436(v)S 1459(e)S 1480(c)S 1513(IV)S 1573(workshop)S 1766(held)S 1858(at)S 1904(P)S 1928(u)S 1951(r)S 1966(d)S 1989(u)S 2012(e)S 2045(Univ.,)S 2172(Oct.)S 300 X 1076 Y(29-30,)s 432(1984.)S 560(At)S 620(that)S 704(time)S 800(two)S 883(more)S 991(authors)S 1141(joined)S 1271(the)S 1342(project)S 1485(\(Hanson)S 1655(and)S 1736(du)S 1796(Croz\).)S 1926(A)S 1973(series)S 2093(of)S 2145(meet)S 2235 X(-)s 300 X 1142 Y(ings)s 391(were)S 495(planned)S 656(so)S 711(that)S 795(the)S 866(project)S 1009(would)S 1138(re)S 1174 X(\257)s 1199(ect)S 1268(the)S 1339(best)S 1428(thinking)S 1596(of)S 1648(the)S 1719(mathematical)S 1983(software)S 2156(com)S 2235 X(-)s 300 X 1208 Y(munity.)s 469(Three)S 594(meetings)S 778(soliciting)S 968(input)S 1080(were)S 1186(held.)S 1304(These)S 1431(occurred)S 1609(at)S 1659(SIAM)S 1789(conferences:)S 2040(The)S 2128(S)S 2153(p)S 2176(r)S 2191(i)S 2204(n)S 2227(g)S 300 X 1274 Y(Meeting)s 473(of)S 529(the)S 604(Society,)S 772(\(Seatle,)S 930(W)S 971(A)S 1004(,)S 1033(July)S 1128(16-20,)S 1265(1984\);)S 1404(The)S 1495(Conference)S 1728(on)S 1793(Applied)S 1961(Linear)S 2101(A)S 2134(l)S 2147(g)S 2170(e)S 2191(b)S 2214(r)S 2229(a)S 300 X 1340 Y(\(Raleigh,)s 490(NC,)S 584(April)S 700(29-May)S 865(2,)S 917(1985\);)S 1055(The)S 1145(F)S 1169(a)S 1190(l)S 1203(l)S 1234(Meeting)S 1407(of)S 1463(the)S 1538(Society,)S 1706(\()S 1721(T)S 1746(e)S 1767(m)S 1802(p)S 1825(e)S 1846(,)S 1875(AZ,)S 1965(October)S 2132(2)S 2155(8)S 2178(-)S 2193(3)S 2216(0)S 2239(,)S 300 X 1406 Y(1985\);)s 433(The)S 519(Conference)S 747(on)S 807(P)S 831(a)S 852(r)S 867(a)S 888(l)S 901(l)S 914(e)S 935(l)S 962(P)S 986(r)S 1001(o)S 1024(c)S 1045(e)S 1066(s)S 1084(s)S 1102(i)S 1115(n)S 1138(g)S 1175(for)S 1242(Scienti)S 1371 X(\256)s 1396(c)S 1431(Computing)S 1652(\(Norfolk,)S 1837(V)S 1866(A)S 1899(,)S 1924(November)S 2132(1)S 2155(8)S 2178(-)S 2193(2)S 2216(1)S 2239(,)S 300 X 1472 Y(1985\).)s 300 X 1563 Y 405 X(Earlier,)s 561(a)S 601(modi)S 695 X(\256)s 720(ed)S 783(proposal)S 961(was)S 1053(printed)S 1204(in)S 1260(the)S 1337(SIGNUM)S 1537(Newletter,)S 1751([6].)S 1846(In)S 1904(that)S 1994(document)S 2196(we)S 300 X 1629 Y(invited)s 444(readers)S 593(to)S 644(send)S 743(us)S 798(their)S 897(views)S 1019(and)S 1100(suggestions)S 1330(for)S 1397(changes)S 1561(to)S 1611(the)S 1682(design)S 1817(of)S 1869(the)S 1940(extended)S 2122(BLAS.)S 300 X 1695 Y(Thus)s 407(we)S 476(have)S 579(appealed)S 760(to)S 811(a)S 847(wide)S 952(audience)S 1133(within)S 1266(the)S 1338(mathematical)S 1604(software)S 1779(community.)S 2026(Our)S 2113(hope)S 2219(is)S 300 X 1761 Y(that)s 384(the)S 455(proposed)S 637(set)S 702(of)S 753(names)S 884(that)S 967(constitue)S 1148(the)S 1218(extended)S 1399(BLAS)S 1529(will)S 1614 X(\256)s 1639(nd)S 1698(wide)S 1801(application)S 2021(in)S 2070(the)S 2140(f)S 2155(u)S 2178(t)S 2191(u)S 2214(r)S 2229(e)S 300 X 1827 Y(software)s 470(of)S 519(numerical)S 715(linear)S 832(algebra)S 980(and)S 1058(provide)S 1210(a)S 1242(useful)S 1366(tool)S 1449(for)S 1513(implementors)S 1777(and)S 1855(u)S 1878(s)S 1896(e)S 1917(r)S 1932(s)S 1950(.)S 300 X 1918 Y 405 X(W)s 446(e)S 482(believe)S 632(that)S 717(the)S 789(time)S 886(is)S 932(right)S 1034(to)S 1085(specify)S 1234(an)S 1293(additional)S 1494(set)S 1562(of)S 1616(BLAS)S 1749(designed)S 1930(for)S 1999(m)S 2034(a)S 2055(t)S 2068(r)S 2083(i)S 2096(x)S 2119(-)S 2134(v)S 2157(e)S 2178(c)S 2199(t)S 2212(o)S 2235(r)S 300 X 1984 Y(operations.)s 517(It)S 558(has)S 632(been)S 732(our)S 805(experience)S 1019(that)S 1101(a)S 1134(small)S 1246(set)S 1310(of)S 1360(m)S 1395(a)S 1416(t)S 1429(r)S 1444(i)S 1457(x)S 1480(-)S 1495(v)S 1518(e)S 1539(c)S 1560(t)S 1573(o)S 1596(r)S 1623(operations)S 1828(occur)S 1943(frequently)S 2145(in)S 2193(the)S 300 X 2050 Y(i)s 313(m)S 348(p)S 371(l)S 384(e)S 405(m)S 440(e)S 461(n)S 484(t)S 497(a)S 518(t)S 531(i)S 544(o)S 567(n)S 608(of)S 664(many)S 784(of)S 840(the)S 915(most)S 1022(common)S 1200(algorithms)S 1415(in)S 1469(linear)S 1593(algebra.)S 1770(W)S 1811(e)S 1850(de)S 1894 X(\256)s 1919(ne)S 1981(here)S 2079(the)S 2154(basic)S 300 X 2116 Y(operations)s 506(for)S 572(that)S 655(set,)S 731(together)S 896(with)S 991(the)S 1061(naming)S 1212(conventions)S 1449(and)S 1529(the)S 1598(calling)S 1737(sequences.)S 1960(Routines)S 2137(at)S 2183(this)S 300 X 2182 Y(level)s 403(should)S 538(provide)S 692(a)S 726(reasonable)S 938(compromise)S 1178(between)S 1346(the)S 1416(sometimes)S 1626(con)S 1693 X(\257)s 1718(icting)S 1837(aims)S 1937(of)S 1988(e)S 2009 X CFi 2048(ciency)S 2183(and)S 300 X 2248 Y(modularity)s 519(and)S 603(it)S 646(is)S 694(our)S 772(hope)S 878(that)S 964(e)S 985 X CFi 1024(cient)S 1131(i)S 1144(m)S 1179(p)S 1202(l)S 1215(e)S 1236(m)S 1271(e)S 1292(n)S 1315(t)S 1328(a)S 1349(t)S 1362(i)S 1375(o)S 1398(n)S 1421(s)S 1455(will)S 1543(become)S 1703(available)S 1888(on)S 1950(a)S 1987(wide)S 2093(range)S 2212(of)S 300 X 2314 Y(computer)s 485(a)S 506(r)S 521(c)S 542(h)S 565(i)S 578(t)S 591(e)S 612(c)S 633(t)S 646(u)S 669(r)S 684(e)S 705(s)S 723(.)S 300 X 2405 Y 405 X(In)s 454(this)S 532(paper)S 646(we)S 711(shall)S 810(refer)S 908(to)S 955(the)S 1023(existing)S 1181(BLAS)S 1309(of)S 1358(Lawson)S 1515(et)S 1560(al.)S 1627(as)S 1677(``Level)S 1824(1)S 1858(B)S 1889(L)S 1917(A)S 1950(S)S 1975(')S 1990(')S 2003(,)S 2025(and)S 2104(the)S 2173(new)S 300 X 2471 Y(extended)s 482(set)S 548(as)S 600(``Level)S 749(2)S 785(B)S 816(L)S 844(A)S 877(S)S 902(')S 917(')S 930(.)S 965(The)S 1050(Level)S 1169(2)S 1205(BLAS)S 1335(involve)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1487(O)S 0.0 11 11 f.R ft 1527(\()S 0.0 11 11 f.I ft 1542(mn)S 0.0 11 11 f.R ft 1605(\))S 1633(scalar)S 1755(operations)S 1961(where)S 0.0 11 11 f.I ft 2087(m)S 0.0 11 11 f.R ft 2140(and)S 0.0 11 11 f.I ft 2220(n)S 300 X 2537 Y 0.0 11 11 f.R ft(are)s 368(the)S 437(dimensions)S 659(of)S 709(the)S 778(matrix)S 910(involved.)S 1095(These)S 1218(could)S 1333(be)S 1389(programmed)S 1635(by)S 1693(a)S 1726(series)S 1844(of)S 1894(calls)S 1992(to)S 2040(the)S 2109(Level)S 2227(1)S 300 X 2603 Y(BLAS,)s 440(though)S 580(we)S 646(do)S 704(not)S 775(recommend)S 1004(that)S 1085(they)S 1176(be)S 1231(implemented)S 1483(in)S 1530(that)S 1611(way.)S 1710(Hence,)S 1851(in)S 1898(a)S 1930(natural)S 2070(sense,)S 2193(the)S 300 X 2669 Y(Level)s 417(2)S 451(BLAS)S 579(are)S 647(performing)S 864(basic)S 971(operations)S 1175(at)S 1220(one)S 1298(level)S 1400(higher)S 1529(than)S 1620(the)S 1688(Level)S 1805(1)S 1839(BLAS.)S 300 X 2760 Y 405 X(In)s 454([7])S 518(we)S 583(present)S 728(a)S 760(model)S 886(i)S 899(m)S 934(p)S 957(l)S 970(e)S 991(m)S 1026(e)S 1047(n)S 1070(t)S 1083(a)S 1104(t)S 1117(i)S 1130(o)S 1153(n)S 1187(of)S 1236(the)S 1304(Level)S 1421(2)S 1456(BLAS)S 1585(in)S 1633(F)S 1657(o)S 1680(r)S 1695(t)S 1708(r)S 1723(a)S 1744(n)S 1779(77)S 1837(\(extended)S 2032(to)S 2080(include)S 2229(a)S 300 X 2826 Y(COMPLEX*16)s 599(data)S 688(type\),)S 805(and)S 883(also)S 969(a)S 1001(set)S 1064(of)S 1113(rigorous)S 1277(test)S 1353(p)S 1376(r)S 1391(o)S 1414(g)S 1437(r)S 1452(a)S 1473(m)S 1508(s)S 1526(.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Italic %%Page: label 5 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1237 X(- 3 -)s 300 X 366 Y %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft(2.)s 345(Scope)S 471(of)S 520(the)S 592(Level)S 712(2)S 746(BLAS)S 300 X 457 Y 405 X 0.0 11 11 f.R ft(The)s 488(following)S 678(three)S 782(types)S 891(of)S 940(basic)S 1047(operation)S 1233(are)S 1301(performed)S 1503(by)S 1560(the)S 1628(Level)S 1745(2)S 1779(BLAS:)S 300 X 589 Y(a\))s 358(M)S 399(a)S 420(t)S 433(r)S 448(i)S 461(x)S 484(-)S 499(v)S 522(e)S 543(c)S 564(t)S 577(o)S 600(r)S 626(products)S 796(of)S 845(the)S 913(form)S 300 X 680 Y 530 X %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft(y)s 558( )S 569 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 614( )S 625 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 654(A)S 682(x)S 710( )S 721 X(+)s 752( )S 763 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 788(y)S 0.0 11 11 f.R ft 816(,)S 0.0 11 11 f.I ft 827( )S 838( )S 849(y)S 877( )S 888 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 933( )S 944 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 973(A)S 1008( )S 653 Y 0.0 8 8 f.I ft 1019(T)S 680 Y 0.0 11 11 f.I ft 1044(x)S 1072( )S 1083 X(+)s 1114( )S 1125 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 1150(y)S 0.0 11 11 f.R ft 1178(,)S 0.0 11 11 f.I ft 1189( )S 0.0 11 11 f.R ft 1211(and)S 0.0 11 11 f.I ft 1278( )S 1289( )S 1300(y)S 1328( )S 1339 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1384( )S 1395 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1424(A)S 677 Y 1434 X %%IncludeFont: BracketFont /f.S2 /BracketFont findfont def 0.0 11 11 f.S2 ft(M)s 680 Y 0.0 11 11 f.I ft 1459( )S 653 Y 0.0 8 8 f.I ft 1470(T)S 680 Y 0.0 11 11 f.I ft 1495(x)S 1523( )S 1534 X(+)s 1565( )S 1576 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 1601(y)S 300 X 771 Y 450 X 0.0 11 11 f.R ft(where)s 574 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.R ft 614(and)S 692 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.R ft 728(are)S 796(scalars,)S 0.0 11 11 f.I ft 945(x)S 0.0 11 11 f.R ft 984(and)S 0.0 11 11 f.I ft 1062(y)S 0.0 11 11 f.R ft 1101(are)S 1169(vectors)S 1314(and)S 0.0 11 11 f.I ft 1392(A)S 0.0 11 11 f.R ft 1438(is)S 1480(a)S 1512(matrix,)S 1654(and)S 300 X 862 Y 530 X 0.0 11 11 f.I ft(x)s 558( )S 569 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 614( )S 625(T)S 647(x)S 0.0 11 11 f.R ft 675(,)S 0.0 11 11 f.I ft 686( )S 697( )S 708(x)S 736( )S 747 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 792( )S 803(T)S 835( )S 835 Y 0.0 8 8 f.I ft 846(T)S 862 Y 0.0 11 11 f.I ft 871(x)S 0.0 11 11 f.R ft 899(,)S 0.0 11 11 f.I ft 910( )S 0.0 11 11 f.R ft 932(and)S 0.0 11 11 f.I ft 999( )S 1010( )S 1021(x)S 1049( )S 1060 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1105( T)S 859 Y 1123 X 0.0 11 11 f.S2 ft(M)s 862 Y 0.0 11 11 f.I ft 1148( )S 835 Y 0.0 8 8 f.I ft 1159(T)S 862 Y 0.0 11 11 f.I ft 1184(x)S 0.0 11 11 f.R ft 1212(,)S 300 X 953 Y 450 X(where)s 0.0 11 11 f.I ft 574(x)S 0.0 11 11 f.R ft 613(is)S 655(a)S 687(vector)S 814(and)S 0.0 11 11 f.I ft 892(T)S 0.0 11 11 f.R ft 935(is)S 977(an)S 1032(upper)S 1148(or)S 1197(lower)S 1313(triangular)S 1504(m)S 1539(a)S 1560(t)S 1573(r)S 1588(i)S 1601(x)S 1624(.)S 300 X 1085 Y(b\))s 360(Rank-one)S 551(and)S 629(rank-two)S 806(updates)S 959(of)S 1008(the)S 1076(form)S 300 X 1176 Y 530 X 0.0 11 11 f.I ft(A)s 565( )S 576 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 621( )S 632 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 661(x)S 682(y)S 710( )S 1149 Y 0.0 8 8 f.I ft 721(T)S 1176 Y 0.0 11 11 f.I ft 746( )S 757 X(+)s 788( A)S 0.0 11 11 f.R ft 834(,)S 0.0 11 11 f.I ft 845( )S 856( )S 867(A)S 902( )S 913 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 958( )S 969 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 998(xy)S 1184 Y 1023 X 0.0 11 11 f.S2 ft(M)s 1176 Y 0.0 11 11 f.I ft 1047( )S 1149 Y 0.0 8 8 f.I ft 1058(T)S 1176 Y 0.0 11 11 f.I ft 1083( )S 1094 X(+)s 1125( A)S 0.0 11 11 f.R ft 1171(,)S 0.0 11 11 f.I ft 1182( )S 1193( )S 1204(H)S 1244( )S 1255 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1300( )S 1311 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1340(xx)S 1184 Y 1365 X 0.0 11 11 f.S2 ft(M)s 1176 Y 0.0 11 11 f.I ft 1389( )S 1149 Y 0.0 8 8 f.I ft 1400(T)S 1176 Y 0.0 11 11 f.I ft 1425( )S 1436 X(+)s 1467( H)S 0.0 11 11 f.R ft 1518(,)S 0.0 11 11 f.I ft 1529( )S 0.0 11 11 f.R ft 1551(and)S 0.0 11 11 f.I ft 1618( )S 1629(H)S 1669( )S 1680 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1725( )S 1736 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1765(xy)S 1184 Y 1790 X 0.0 11 11 f.S2 ft(M)s 1176 Y 0.0 11 11 f.I ft 1814( )S 1149 Y 0.0 8 8 f.I ft 1825(T)S 1176 Y 0.0 11 11 f.I ft 1850( )S 1861 X(+)s 1892( )S 1903 X 0.0 11 11 f.S ft(a)s 1184 Y 1905 X 0.0 11 11 f.S2 ft(M)s 1907 X(M)s 1176 Y 0.0 11 11 f.I ft 1932(yx)S 1184 Y 1957 X 0.0 11 11 f.S2 ft(M)s 1176 Y 0.0 11 11 f.I ft 1981( )S 1149 Y 0.0 8 8 f.I ft 1992(T)S 1176 Y 0.0 11 11 f.I ft 2017( )S 2028 X(+)s 2059( H)S 0.0 11 11 f.R ft 2110(,)S 300 X 1267 Y 450 X(where)s 0.0 11 11 f.I ft 574( )S 585(H)S 625( )S 0.0 11 11 f.R ft 647(is)S 689(a)S 721(Hermitian)S 919(m)S 954(a)S 975(t)S 988(r)S 1003(i)S 1016(x)S 1039(.)S 300 X 1399 Y(c\))s 358(Solution)S 525(of)S 574(triangular)S 765(equations)S 954(of)S 1003(the)S 1071(form)S 300 X 1490 Y 530 X 0.0 11 11 f.I ft(x)s 558( )S 569 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 614( )S 625(T)S 657( )S 1463 Y 668 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.R ft 686(1)S 1490 Y 0.0 11 11 f.I ft 703(x)S 0.0 11 11 f.R ft 731(,)S 0.0 11 11 f.I ft 742( )S 753(x)S 781( )S 792 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 837( )S 848(T)S 880( )S 1463 Y 891 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.I ft 909(T)S 1490 Y 0.0 11 11 f.I ft 934(x)S 0.0 11 11 f.R ft 962(,)S 0.0 11 11 f.I ft 973( )S 0.0 11 11 f.R ft 995(and)S 0.0 11 11 f.I ft 1062( )S 1073( )S 1084(x)S 1112( )S 1123 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1168( T)S 1487 Y 1186 X 0.0 11 11 f.S2 ft(M)s 1490 Y 0.0 11 11 f.I ft 1211( )S 1463 Y 1222 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.I ft 1240(T)S 1490 Y 0.0 11 11 f.I ft 1265(x)S 0.0 11 11 f.R ft 1293(,)S 300 X 1581 Y 450 X(where)s 0.0 11 11 f.I ft 574(T)S 0.0 11 11 f.R ft 617(is)S 659(a)S 691(non-singular)S 935(upper)S 1051(or)S 1100(lower)S 1216(triangular)S 1407(m)S 1442(a)S 1463(t)S 1476(r)S 1491(i)S 1504(x)S 1527(.)S 300 X 1672 Y 405 X(Where)s 540(appropriate,)S 774(the)S 843(operations)S 1048(are)S 1117(applied)S 1266(to)S 1314(general,)S 1474(general)S 1623(band,)S 1737(Hermitian,)S 1948(Hermitian)S 2148(band,)S 300 X 1738 Y(triangular,)s 508(and)S 592(triangular)S 789(band)S 896(matrices)S 1070(in)S 1122(both)S 1220(real)S 1306(and)S 1389(complex)S 1564(arithmetic,)S 1779(and)S 1862(in)S 1914(single)S 2041(and)S 2124(d)S 2147(o)S 2170(u)S 2193(b)S 2216(l)S 2229(e)S 300 X 1804 Y(p)s 323(r)S 338(e)S 359(c)S 380(i)S 393(s)S 411(i)S 424(o)S 447(n)S 470(.)S 300 X 1895 Y 405 X(In)s 455(Appendix)S 649(B)S 692(we)S 758(propose)S 916(c)S 937(o)S 960(r)S 975(r)S 990(e)S 1011(s)S 1029(p)S 1052(o)S 1075(n)S 1098(d)S 1121(i)S 1134(n)S 1157(g)S 1192(sets)S 1275(of)S 1326(routines)S 1488(in)S 1537(which)S 1663(the)S 1733(internal)S 1888(computation)S 2132(is)S 2176(per)S 2235 X(-)s 300 X 1961 Y(formed)s 449(in)S 502(extended)S 687(precision,)S 885(and)S 969(the)S 1043(vectors)S 0.0 11 11 f.I ft 1194(x)S 0.0 11 11 f.R ft 1238(a)S 1259(n)S 1282(d)S 1305(/)S 1317(o)S 1340(r)S 0.0 11 11 f.I ft 1371(y)S 0.0 11 11 f.R ft 1415(are)S 1488(stored)S 1617(in)S 1669(extended)S 1853(precision,)S 2050(so)S 2107(that)S 2193(the)S 300 X 2027 Y(extra)s 404(internal)S 557(precision)S 738(is)S 780(not)S 850(all)S 908(discarded)S 1097(on)S 1154(return)S 1275(from)S 1374(the)S 1442(routine.)S 1596(This)S 1690(proposal)S 1861(is)S 1904(aimed)S 2029(at)S 2075(m)S 2110(a)S 2131(c)S 2152(h)S 2175(i)S 2188(n)S 2211(e)S 2232(s)S 300 X 2093 Y(with)s 394(extended)S 574(precision)S 755(arithmetic)S 954(registers;)S 1135(for)S 1199(example)S 1367(machines)S 1553(performing)S 1770(IEEE)S 1880(arithmetic)S 2079([12].)S 2188(W)S 2229(e)S 300 X 2159 Y(propose)s 458(these)S 566(routines)S 727(as)S 778(an)S 834(optional)S 998(extension)S 1188(to)S 1236(the)S 1305(Level)S 1423(2)S 1458(BLAS)S 1587(because)S 1747(it)S 1786(is)S 1830(not)S 1902(possible)S 2067(to)S 2116(s)S 2134(p)S 2157(e)S 2178(c)S 2199(i)S 2212(f)S 2227(y)S 300 X 2225 Y(a)s 336(complete)S 521(set)S 588(within)S 720(the)S 791(con)S 858 X(\256)s 883(nes)S 959(of)S 1011(ANSI)S 1131(F)S 1155(o)S 1178(r)S 1193(t)S 1206(r)S 1221(a)S 1242(n)S 1279(77.)S 1361(The)S 1447(only)S 1543(case)S 1638(that)S 1722(can)S 1801(be)S 1859(realized)S 2021(is)S 2066(where)S 2193(the)S 300 X 2291 Y(matrix)s 437(is)S 485(real)S 572(single)S 700(precision)S 887(and)S 971(the)S 1045(extended)S 1230(precision)S 1417(vectors)S 1568(are)S 1642(real)S 1729(double)S 1872(precision.)S 2081(Code)S 2197(for)S 300 X 2357 Y(these)s 407(routines)S 567(is)S 609(not)S 679(included)S 850(in)S 897([7].)S 300 X 2489 Y 0.0 11 11 f.B ft(3.)s 345(Naming)S 512(C)S 545(o)S 568(n)S 593(v)S 616(e)S 637(n)S 662(t)S 677(i)S 690(o)S 713(n)S 738(s)S 300 X 2580 Y 405 X 0.0 11 11 f.R ft(The)s 491(name)S 605(of)S 657(a)S 692(Level)S 812(2)S 849(BLAS)S 980(is)S 1026(in)S 1077(the)S 1149(L)S 1177(I)S 1192(N)S 1225(P)S 1249(A)S 1282(C)S 1313(K)S 1361(style)S 1464(and)S 1546(consists)S 1708(of)S 1761 X(\256)s 1786(ve)S 1845(characters,)S 2060(the)S 2132(last)S 2212(of)S 300 X 2646 Y(which)s 424(may)S 514(be)S 569(blank.)S 694(The)S 777(fourth)S 900(and)S 978 X(\256)s 1003(fth)S 1065(characters)S 1265(in)S 1312(the)S 1380(name)S 1491(denote)S 1626(the)S 1694(type)S 1785(of)S 1834(operation,)S 2031(as)S 2081(f)S 2096(o)S 2119(l)S 2132(l)S 2145(o)S 2168(w)S 2201(s)S 2219(:)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Bold Times-Italic Symbol BracketFont %%Page: label 6 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1237 X(- 4 -)s 300 X 399 Y 875 X(MV)s 1018 X(-)s 1044(M)S 1085(a)S 1106(t)S 1119(r)S 1134(i)S 1147(x)S 1170(-)S 1185(v)S 1208(e)S 1229(c)S 1250(t)S 1263(o)S 1286(r)S 1312(p)S 1335(r)S 1350(o)S 1373(d)S 1396(u)S 1419(c)S 1440(t)S 300 X 465 Y 875 X(R)s 1018 X(-)s 1044(Rank-one)S 1235(u)S 1258(p)S 1281(d)S 1304(a)S 1325(t)S 1338(e)S 300 X 531 Y 875 X(R2)s 1018 X(-)s 1044(Rank-two)S 1237(u)S 1260(p)S 1283(d)S 1306(a)S 1327(t)S 1340(e)S 300 X 597 Y 875 X(SV)s 1018 X(-)s 1044(Solve)S 1160(a)S 1192(system)S 1331(of)S 1380(linear)S 1497(e)S 1518(q)S 1541(u)S 1564(a)S 1585(t)S 1598(i)S 1611(o)S 1634(n)S 1657(s)S 300 X 754 Y(Characters)s 510(two)S 590(and)S 668(three)S 772(in)S 819(the)S 887(name)S 998(denote)S 1133(the)S 1201(kind)S 1294(of)S 1343(matrix)S 1474(involved,)S 1658(as)S 1708(f)S 1723(o)S 1746(l)S 1759(l)S 1772(o)S 1795(w)S 1828(s)S 1846(:)S 300 X 919 Y 830 X(GE)s 974 X(General)s 1132(m)S 1167(a)S 1188(t)S 1201(r)S 1216(i)S 1229(x)S 300 X 985 Y 830 X(GB)s 974 X(General)s 1132(band)S 1233(m)S 1268(a)S 1289(t)S 1302(r)S 1317(i)S 1330(x)S 300 X 1051 Y 830 X(HE)s 974 X(Hermitian)s 1172(matrix)S 300 X 1117 Y 830 X(SY)s 974 X(Symmetric)s 1186(matrix)S 300 X 1183 Y 830 X(HP)s 974 X(Hermitian)s 1172(matrix)S 1303(stored)S 1427(in)S 1474(packed)S 1617(form)S 300 X 1249 Y 830 X(SP)s 974 X(Symmetric)s 1186(matrix)S 1317(stored)S 1441(in)S 1488(packed)S 1631(form)S 300 X 1315 Y 830 X(HB)s 974 X(Hermitian)s 1172(band)S 1273(m)S 1308(a)S 1329(t)S 1342(r)S 1357(i)S 1370(x)S 300 X 1381 Y 830 X(SB)s 974 X(Symmetric)s 1186(band)S 1287(m)S 1322(a)S 1343(t)S 1356(r)S 1371(i)S 1384(x)S 300 X 1447 Y 830 X(TR)s 974 X(T)s 999(r)S 1014(i)S 1027(a)S 1048(n)S 1071(g)S 1094(u)S 1117(l)S 1130(a)S 1151(r)S 1177(m)S 1212(a)S 1233(t)S 1246(r)S 1261(i)S 1274(x)S 300 X 1513 Y 830 X(TP)s 974 X(T)s 999(r)S 1014(i)S 1027(a)S 1048(n)S 1071(g)S 1094(u)S 1117(l)S 1130(a)S 1151(r)S 1177(matrix)S 1308(in)S 1355(packed)S 1498(form)S 300 X 1579 Y 830 X(TB)s 974 X(T)s 999(r)S 1014(i)S 1027(a)S 1048(n)S 1071(g)S 1094(u)S 1117(l)S 1130(a)S 1151(r)S 1177(band)S 1278(m)S 1313(a)S 1334(t)S 1347(r)S 1362(i)S 1375(x)S 300 X 1736 Y(The)s 383 X(\256)s 408(rst)S 465(character)S 647(in)S 694(the)S 762(name)S 873(denotes)S 1026(the)S 1094(F)S 1118(o)S 1141(r)S 1156(t)S 1169(r)S 1184(a)S 1205(n)S 1239(data)S 1328(type)S 1419(of)S 1468(the)S 1536(matrix,)S 1678(as)S 1728(f)S 1743(o)S 1766(l)S 1779(l)S 1792(o)S 1815(w)S 1848(s)S 1866(:)S 300 X 1901 Y 712 X(S)s 825 X(REAL)s 300 X 1967 Y 712 X(D)s 825 X(DOUBLE)s 1022(P)S 1047(R)S 1078(E)S 1106(C)S 1137(I)S 1152(S)S 1177(I)S 1192(O)S 1225(N)S 300 X 2033 Y 712 X(C)s 825 X(C)s 856(O)S 889(M)S 930(P)S 955(L)S 983(E)S 1011(X)S 300 X 2099 Y 712 X(Z)s 825 X(COMPLEX*16)s 1124(or)S 1173(DOUBLE)S 1370(COMPLEX)S 1600(\(if)S 1654(a)S 1675(v)S 1698(a)S 1719(i)S 1732(l)S 1745(a)S 1766(b)S 1789(l)S 1802(e)S 1823(\))S 300 X 2256 Y(The)s 384(available)S 565(combinations)S 826(are)S 895(indicated)S 1078(in)S 1126(T)S 1151(a)S 1172(b)S 1195(l)S 1208(e)S 1241(3.1)S 1310(below.)S 1457(In)S 1507(the)S 1576 X(\256)s 1601(rst)S 1659(column,)S 1820(under)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1937(complex)S 0.0 11 11 f.R ft 2092(,)S 2116(the)S 2186(ini)S 2235 X(-)s 300 X 2322 Y(tial)s 374(C)S 419(may)S 512(be)S 570(replaced)S 742(by)S 802(Z.)S 855(In)S 907(the)S 978(second)S 1121(column,)S 1284(under)S 0.0 11 11 f.I ft 1403(real)S 0.0 11 11 f.R ft 1478(,)S 1503(the)S 1574(initial)S 1697(S)S 1736(may)S 1828(be)S 1885(replaced)S 2056(by)S 2115(D.)S 2183(See)S 300 X 2388 Y(Appendix)s 493(C)S 535(for)S 599(the)S 667(full)S 742(subroutine)S 948(calling)S 1086(s)S 1104(e)S 1125(q)S 1148(u)S 1171(e)S 1192(n)S 1215(c)S 1236(e)S 1257(s)S 1275(.)S 300 X 2479 Y 405 X(The)s 490(collection)S 687(of)S 738(routines)S 900(can)S 978(be)S 1036(thought)S 1191(of)S 1243(as)S 1296(being)S 1413(divided)S 1566(into)S 1652(four)S 1742(separate)S 1909(parts,)S 0.0 11 11 f.I ft 2024(real)S 0.0 11 11 f.R ft 2099(,)S 0.0 11 11 f.I ft 2124(d)S 2147(o)S 2170(u)S 2193(b)S 2216(l)S 2229(e)S 300 X 2545 Y(precision)s 0.0 11 11 f.R ft 473(,)S 0.0 11 11 f.I ft 498(complex)S 0.0 11 11 f.R ft 653(,)S 678(and)S 0.0 11 11 f.I ft 758(complex*16)S 0.0 11 11 f.R ft 982(.)S 1017(The)S 1102(routines)S 1264(can)S 1342(be)S 1399(written)S 1543(in)S 1592(ANSI)S 1711(standard)S 1881(F)S 1905(o)S 1928(r)S 1943(t)S 1956(r)S 1971(a)S 1992(n)S 2028(77,)S 2098(with)S 2193(the)S 300 X 2611 Y(exception)s 496(of)S 549(the)S 621(routines)S 785(that)S 870(use)S 947(COMPLEX*16)S 1250(variables.)S 1455(These)S 1582(routines)S 1747(are)S 1820(included)S 1996(for)S 2065(complete)S 2235 X(-)s 300 X 2677 Y(ness)s 393(and)S 473(for)S 539(their)S 636(usefulness)S 841(on)S 899(those)S 1009(systems)S 1167(which)S 1292(support)S 1442(this)S 1521(data)S 1611(type;)S 1716(but)S 1787(because)S 1947(they)S 2039(do)S 2097(not)S 2168(con)S 2235 X(-)s 300 X 2743 Y(form)s 399(to)S 446(the)S 514(F)S 538(o)S 561(r)S 576(t)S 589(r)S 604(a)S 625(n)S 659(standard,)S 838(they)S 929(may)S 1019(not)S 1089(be)S 1144(available)S 1324(on)S 1381(all)S 1439(m)S 1474(a)S 1495(c)S 1516(h)S 1539(i)S 1552(n)S 1575(e)S 1596(s)S 1614(.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Italic %%Page: label 7 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1237 X(- 5 -)s 300 X 366 Y 1189 X(T)s 1214(a)S 1235(b)S 1258(l)S 1271(e)S 1303(3.1)S 300 X 465 Y 836 X %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft(c)s 857(o)S 880(m)S 913(p)S 936(l)S 949(e)S 970(x)S 1067(r)S 1085(e)S 1106(a)S 1129(l)S 0.0 11 11 f.R ft 1218(MV)S 1362 X(R)s 1464 X(R)s 1495(2)S 1587(S)S 1612(V)S 300 X 300 X 597 Y 867 X(CGE)s 1061 X(SGE)s 1243 X(*)s 1361 X(*)s 300 X 663 Y 866 X(CGB)s 1060 X(SGB)s 1243 X(*)s 300 X 729 Y 867 X(CHE)s 1063 X(SSY)s 1243 X(*)s 1366 X(*)s 1479 X(*)s 300 X 795 Y 869 X(CHP)s 1067 X(SSP)s 1243 X(*)s 1366 X(*)s 1479 X(*)s 300 X 861 Y 866 X(CHB)s 1064 X(SSB)s 1243 X(*)s 300 X 927 Y 868 X(CTR)s 1062 X(STR)s 1243 X(*)s 1604 X(*)s 300 X 993 Y 871 X(CTP)s 1065 X(STP)s 1243 X(*)s 1604 X(*)s 300 X 1059 Y 868 X(CTB)s 1062 X(STB)s 1243 X(*)s 1604 X(*)s 300 X 1216 Y(F)s 324(o)S 347(r)S 373(the)S 441(general)S 589(rank-1)S 720(update)S 855(\(GER\))S 988(we)S 1053(specify)S 1199(two)S 1280(complex)S 1451(routines:)S 1636(CGERC)S 1802(for)S 0.0 11 11 f.I ft 1867(A)S 1902( )S 1913 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1958( )S 1969 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1998(xy)S 1224 Y 2023 X %%IncludeFont: BracketFont /f.S2 /BracketFont findfont def 0.0 11 11 f.S2 ft(M)s 1216 Y 0.0 11 11 f.I ft 2047( )S 1189 Y 0.0 8 8 f.I ft 2058(T)S 1216 Y 0.0 11 11 f.I ft 2083( )S 2094 X(+)s 2125( A)S 0.0 11 11 f.R ft 2183(and)S 300 X 1282 Y(CGERU)s 470(for)S 0.0 11 11 f.I ft 537(A)S 572( )S 583 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 628( )S 639 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 668(x)S 689(y)S 717( )S 1255 Y 0.0 8 8 f.I ft 728(T)S 1282 Y 0.0 11 11 f.I ft 753( )S 764 X(+)s 795( A)S 0.0 11 11 f.R ft 841(.)S 877(This)S 973(is)S 1018(the)S 1089(only)S 1185(exception)S 1380(to)S 1429(the)S 1499(one)S 1579(to)S 1628(one)S 1708(c)S 1729(o)S 1752(r)S 1767(r)S 1782(e)S 1803(s)S 1821(p)S 1844(o)S 1867(n)S 1890(d)S 1913(e)S 1934(n)S 1957(c)S 1978(e)S 2012(between)S 2180(real)S 300 X 1348 Y(and)s 378(complex)S 548(routines.)S 730(See)S 808(section)S 951(7)S 985(for)S 1049(further)S 1185(d)S 1208(i)S 1221(s)S 1239(c)S 1260(u)S 1283(s)S 1301(s)S 1319(i)S 1332(o)S 1355(n)S 1378(.)S 300 X 1439 Y 405 X(W)s 446(e)S 483(do)S 545(not)S 620(specify)S 771(routines)S 937(for)S 1007(rank-one)S 1188(and)S 1272(rank-two)S 1455(updates)S 1614(applied)S 1768(to)S 1821(band)S 1928(matrices)S 2102(b)S 2125(e)S 2146(c)S 2167(a)S 2188(u)S 2211(s)S 2229(e)S 300 X 1505 Y(these)s 413(can)S 495(be)S 556(obtained)S 733(by)S 796(calls)S 899(to)S 952(the)S 1026(rank-one)S 1207(and)S 1291(rank-two)S 1474(full)S 1555(matrix)S 1691(routines.)S 1867(This)S 1965(is)S 2012(illustrated)S 2214(in)S 300 X 1571 Y(Appendix)s 493(A.)S 300 X 1769 Y %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft(4.)s 345(Argument)S 558(C)S 591(o)S 614(n)S 639(v)S 662(e)S 683(n)S 708(t)S 723(i)S 736(o)S 759(n)S 784(s)S 300 X 1860 Y 405 X 0.0 11 11 f.R ft(W)s 446(e)S 479(follow)S 611(a)S 644(similar)S 784(convention)S 1002(for)S 1067(the)S 1136(argument)S 1322(lists)S 1409(to)S 1457(that)S 1539(for)S 1604(the)S 1673(Level)S 1791(1)S 1826(BLAS,)S 1967(but)S 2039(with)S 2134(exten)S 2235 X(-)s 300 X 1926 Y(sions)s 407(where)S 531(comparable)S 758(arguments)S 961(are)S 1029(not)S 1099(present)S 1244(in)S 1291(the)S 1359(Level)S 1476(1)S 1510(BLAS.)S 1649(The)S 1732(order)S 1840(of)S 1889(arguments)S 2092(is)S 2134(as)S 2184(fol)S 2235 X(-)s 300 X 1992 Y(lows:)s 300 X 2124 Y 377(a\))S 435(Arguments)S 650(specifying)S 854(o)S 877(p)S 900(t)S 913(i)S 926(o)S 949(n)S 972(s)S 990(.)S 300 X 2190 Y 377(b\))S 437(Arguments)S 652(de)S 696 X(\256)s 721(ning)S 814(the)S 882(size)S 966(of)S 1015(the)S 1083(m)S 1118(a)S 1139(t)S 1152(r)S 1167(i)S 1180(x)S 1203(.)S 300 X 2256 Y 377(c\))S 435(Input)S 543(s)S 561(c)S 582(a)S 603(l)S 616(a)S 637(r)S 652(.)S 300 X 2322 Y 377(d\))S 437(Description)S 664(of)S 713(the)S 781(input)S 887(m)S 922(a)S 943(t)S 956(r)S 971(i)S 984(x)S 1007(.)S 300 X 2388 Y 377(e\))S 435(Description)S 662(of)S 711(input)S 817(v)S 840(e)S 861(c)S 882(t)S 895(o)S 918(r)S 933(\()S 948(s)S 966(\))S 981(.)S 300 X 2454 Y 377(f\))S 429(Input)S 537(scalar)S 657(\(associated)S 875(with)S 968(input-output)S 1207(v)S 1230(e)S 1251(c)S 1272(t)S 1285(o)S 1308(r)S 1323(\))S 1338(.)S 300 X 2520 Y 377(g\))S 437(Description)S 664(of)S 713(the)S 781(input-output)S 1020(v)S 1043(e)S 1064(c)S 1085(t)S 1098(o)S 1121(r)S 1136(.)S 300 X 2586 Y 377(h\))S 437(Description)S 664(of)S 713(the)S 781(input-output)S 1020(m)S 1055(a)S 1076(t)S 1089(r)S 1104(i)S 1117(x)S 1140(.)S 300 X 2718 Y(Note)s 401(that)S 482(not)S 552(each)S 649(category)S 820(is)S 862(present)S 1007(in)S 1054(each)S 1151(of)S 1200(the)S 1268(r)S 1283(o)S 1306(u)S 1329(t)S 1342(i)S 1355(n)S 1378(e)S 1399(s)S 1417(.)S 300 X 2809 Y 405 X(The)s 492(arguments)S 699(that)S 785(specify)S 935(options)S 1087(are)S 1160(character)S 1347(arguments)S 1555(with)S 1653(the)S 1726(names)S 1860(TRANS,)S 2037(UPLO,)S 2183(and)S 300 X 2875 Y(DIAG.)s 447(TRANS)S 608(is)S 650(used)S 746(by)S 803(the)S 871(m)S 906(a)S 927(t)S 940(r)S 955(i)S 968(x)S 991(-)S 1006(v)S 1029(e)S 1050(c)S 1071(t)S 1084(o)S 1107(r)S 1133(product)S 1285(routines)S 1445(as)S 1495(f)S 1510(o)S 1533(l)S 1546(l)S 1559(o)S 1582(w)S 1615(s)S 1633(:)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Italic Symbol BracketFont Times-Bold %%Page: label 8 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1237 X(- 6 -)s 300 X 399 Y 714 X(V)s 743(a)S 764(l)S 777(u)S 800(e)S 890(M)S 931(e)S 952(a)S 973(n)S 996(i)S 1009(n)S 1032(g)S 300 X 420 Y 714 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(_)s 731 X(_)s 754 X(_)s 777 X(_)s 800 X(_)s 823 X(_)s 846 X(_)s 869 X(_)s 892 X(_)s 915 X(_)s 938 X(_)s 961 X(_)s 984 X(_)s 1007 X(_)s 1030 X(_)s 1053 X(_)s 1076 X(_)s 1099 X(_)s 1122 X(_)s 1145 X(_)s 1168 X(_)s 1191 X(_)s 1214 X(_)s 1237 X(_)s 1260 X(_)s 1283 X(_)s 1306 X(_)s 1329 X(_)s 1352 X(_)s 1375 X(_)s 1398 X(_)s 1421 X(_)s 1444 X(_)s 1467 X(_)s 1490 X(_)s 1513 X(_)s 1536 X(_)s 1559 X(_)s 1582 X(_)s 1605 X(_)s 1628 X(_)s 1651 X(_)s 1674 X(_)s 1697 X(_)s 1720 X(_)s 1743 X(_)s 1766 X(_)s 1789 X(_)s 1812 X(_)s 300 X 486 Y 714 X 0.0 11 11 f.R ft(`N')s 890 X(Operate)s 1048(with)S 1141(the)S 1209(m)S 1244(a)S 1265(t)S 1278(r)S 1293(i)S 1306(x)S 1329(.)S 300 X 552 Y 714 X(`T')s 890 X(Operate)s 1048(with)S 1141(the)S 1209(transpose)S 1395(of)S 1444(the)S 1512(m)S 1547(a)S 1568(t)S 1581(r)S 1596(i)S 1609(x)S 1632(.)S 300 X 618 Y 714 X(`C')s 890 X(Operate)s 1048(with)S 1141(the)S 1209(conjugate)S 1401(transpose)S 1587(of)S 1636(the)S 1704(m)S 1739(a)S 1760(t)S 1773(r)S 1788(i)S 1801(x)S 1824(.)S 300 X 775 Y(In)s 349(the)S 417(real)S 498(case)S 590(the)S 658(values)S 788(`T')S 857(and)S 935(`C')S 1007(have)S 1106(the)S 1174(same)S 1280(m)S 1315(e)S 1336(a)S 1357(n)S 1380(i)S 1393(n)S 1416(g)S 1439(.)S 300 X 866 Y 405 X(UPLO)s 539(is)S 585(used)S 685(by)S 746(the)S 818(Hermitian,)S 1031(symmetric,)S 1251(and)S 1333(triangular)S 1528(matrix)S 1663(routines)S 1827(to)S 1878(specify)S 2028(whether)S 2193(the)S 300 X 932 Y(upper)s 416(or)S 465(lower)S 581(triangle)S 734(is)S 776(being)S 890(referenced)S 1097(as)S 1147(f)S 1162(o)S 1185(l)S 1198(l)S 1211(o)S 1234(w)S 1267(s)S 1285(:)S 300 X 1031 Y 1050 X(V)s 1079(a)S 1100(l)S 1113(u)S 1136(e)S 1226(M)S 1267(e)S 1288(a)S 1309(n)S 1332(i)S 1345(n)S 1368(g)S 300 X 1052 Y 1050 X 0.0 11 11 f.S ft(_)s 1062 X(_)s 1085 X(_)s 1108 X(_)s 1131 X(_)s 1154 X(_)s 1177 X(_)s 1200 X(_)s 1223 X(_)s 1246 X(_)s 1269 X(_)s 1292 X(_)s 1315 X(_)s 1338 X(_)s 1361 X(_)s 1384 X(_)s 1407 X(_)s 1430 X(_)s 1453 X(_)s 1476 X(_)s 300 X 1118 Y 1050 X 0.0 11 11 f.R ft(`U')s 1226 X(Upper)s 1352(t)S 1365(r)S 1380(i)S 1393(a)S 1414(n)S 1437(g)S 1460(l)S 1473(e)S 300 X 1184 Y 1050 X(`)s 1065(L)S 1088(')S 1226 X(Lower)s 1357(t)S 1370(r)S 1385(i)S 1398(a)S 1419(n)S 1442(g)S 1465(l)S 1478(e)S 300 X 1366 Y 405 X(DIAG)s 532(is)S 576(used)S 674(by)S 733(the)S 803(triangular)S 996(matrix)S 1129(routines)S 1291(to)S 1340(specify)S 1487(whether)S 1649(or)S 1700(not)S 1772(the)S 1842(matrix)S 1975(is)S 2019(unit)S 2104(triangu)S 2235 X(-)s 300 X 1432 Y(lar,)s 371(as)S 421(f)S 436(o)S 459(l)S 472(l)S 485(o)S 508(w)S 541(s)S 559(:)S 300 X 1531 Y 1008 X(V)s 1037(a)S 1058(l)S 1071(u)S 1094(e)S 1184(M)S 1225(e)S 1246(a)S 1267(n)S 1290(i)S 1303(n)S 1326(g)S 300 X 1552 Y 1008 X 0.0 11 11 f.S ft(_)s 1012 X(_)s 1035 X(_)s 1058 X(_)s 1081 X(_)s 1104 X(_)s 1127 X(_)s 1150 X(_)s 1173 X(_)s 1196 X(_)s 1219 X(_)s 1242 X(_)s 1265 X(_)s 1288 X(_)s 1311 X(_)s 1334 X(_)s 1357 X(_)s 1380 X(_)s 1403 X(_)s 1426 X(_)s 1449 X(_)s 1472 X(_)s 1495 X(_)s 1518 X(_)s 300 X 1618 Y 1008 X 0.0 11 11 f.R ft(`U')s 1184 X(Unit)s 1277(t)S 1290(r)S 1305(i)S 1318(a)S 1339(n)S 1362(g)S 1385(u)S 1408(l)S 1421(a)S 1442(r)S 300 X 1684 Y 1008 X(`N')s 1184 X(Non-unit)s 1361(t)S 1374(r)S 1389(i)S 1402(a)S 1423(n)S 1446(g)S 1469(u)S 1492(l)S 1505(a)S 1526(r)S 300 X 1775 Y(When)s 421(DIAG)S 546(is)S 588(supplied)S 756(as)S 806(`U')S 880(the)S 948(diagonal)S 1119(elements)S 1295(are)S 1363(not)S 1433(r)S 1448(e)S 1469(f)S 1484(e)S 1505(r)S 1520(e)S 1541(n)S 1564(c)S 1585(e)S 1606(d)S 1629(.)S 300 X 1866 Y 405 X(W)s 446(e)S 486(recommend)S 722(that)S 812(the)S 889(equivalent)S 1103(lower)S 1228(case)S 1329(characters)S 1538(be)S 1602(accepted)S 1786(with)S 1888(the)S 1965(same)S 2080(m)S 2115(e)S 2136(a)S 2157(n)S 2180(i)S 2193(n)S 2216(g)S 2239(,)S 300 X 1932 Y(although,)s 488(because)S 651(they)S 746(are)S 818(not)S 892(included)S 1067(in)S 1118(the)S 1190(standard)S 1362(F)S 1386(o)S 1409(r)S 1424(t)S 1437(r)S 1452(a)S 1473(n)S 1510(character)S 1695(set,)S 1772(their)S 1871(use)S 1947(may)S 2040(not)S 2113(be)S 2171(sup)S 2235 X(-)s 300 X 1998 Y(ported)s 429(on)S 486(all)S 544(systems.)S 723(See)S 801(Section)S 951(7)S 985(for)S 1049(further)S 1185(d)S 1208(i)S 1221(s)S 1239(c)S 1260(u)S 1283(s)S 1301(s)S 1319(i)S 1332(o)S 1355(n)S 1378(.)S 300 X 2089 Y 405 X(It)s 446(is)S 490(worth)S 610(noting)S 741(that)S 824(actual)S 949(character)S 1134(arguments)S 1340(in)S 1390(F)S 1414(o)S 1437(r)S 1452(t)S 1465(r)S 1480(a)S 1501(n)S 1538(may)S 1631(be)S 1689(longer)S 1821(than)S 1915(the)S 1986(c)S 2007(o)S 2030(r)S 2045(r)S 2060(e)S 2081(s)S 2099(p)S 2122(o)S 2145(n)S 2168(d)S 2191(i)S 2204(n)S 2227(g)S 300 X 2155 Y(dummy)s 450(arguments.)S 664(So)S 723(that,)S 815(for)S 879(example,)S 1058(the)S 1126(value)S 1238(`T')S 1307(for)S 1371(TRANS)S 1532(may)S 1622(be)S 1677(passed)S 1812(as)S 1862(`)S 1877(T)S 1905(R)S 1936(A)S 1969(N)S 2002(S)S 2027(P)S 2052(O)S 2085(S)S 2110(E)S 2138(')S 2151(.)S 300 X 2246 Y 405 X(The)s 490(size)S 576(of)S 627(the)S 697(matrix)S 830(is)S 874(determined)S 1095(by)S 1154(the)S 1224(arguments)S 1429(M)S 1483(and)S 1564(N)S 1611(for)S 1678(an)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1736(m)S 0.0 11 11 f.R ft 1790(by)S 0.0 11 11 f.I ft 1850(n)S 0.0 11 11 f.R ft 1894(rectangular)S 2117(m)S 2152(a)S 2173(t)S 2186(r)S 2201(i)S 2214(x)S 2237(;)S 300 X 2312 Y(and)s 379(by)S 437(the)S 506(argument)S 692(N)S 737(for)S 802(an)S 0.0 11 11 f.I ft 858(n)S 0.0 11 11 f.R ft 900(by)S 0.0 11 11 f.I ft 958(n)S 0.0 11 11 f.R ft 1000(symmetric,)S 1216(Hermitian,)S 1425(or)S 1474(triangular)S 1665(matrix.)S 1818(Note)S 1919(that)S 2000(it)S 2037(is)S 2079(permissi)S 2235 X(-)s 300 X 2378 Y(ble)s 369(to)S 417(call)S 497(the)S 566(routines)S 727(with)S 821(M)S 874(or)S 925(N)S 971(=)S 1010(0,)S 1057(in)S 1106(which)S 1232(case)S 1326(the)S 1396(routines)S 1558(exit)S 1641(immediately)S 1885(without)S 2039(r)S 2054(e)S 2075(f)S 2090(e)S 2111(r)S 2126(e)S 2147(n)S 2170(c)S 2191(i)S 2204(n)S 2227(g)S 300 X 2444 Y(their)s 399(vector)S 529(or)S 581(matrix)S 715(arguments.)S 943(The)S 1029(bandwidth)S 1238(is)S 1283(determined)S 1505(by)S 1565(the)S 1636(arguments)S 1842(KL)S 1917(and)S 1998(KU)S 2078(for)S 2144(a)S 2178(rec)S 2235 X(-)s 300 X 2510 Y(tangular)s 466(matrix)S 600(with)S 0.0 11 11 f.I ft 696(kl)S 0.0 11 11 f.R ft 751(s)S 769(u)S 792(b)S 815(-)S 830(d)S 853(i)S 866(a)S 887(g)S 910(o)S 933(n)S 956(a)S 977(l)S 990(s)S 1022(and)S 0.0 11 11 f.I ft 1103(ku)S 0.0 11 11 f.R ft 1168(s)S 1186(u)S 1209(p)S 1232(e)S 1253(r)S 1268(-)S 1283(d)S 1306(i)S 1319(a)S 1340(g)S 1363(o)S 1386(n)S 1409(a)S 1430(l)S 1443(s)S 1461(;)S 1489(and)S 1571(by)S 1632(the)S 1704(argument)S 1893(K)S 1941(for)S 2009(a)S 2045(s)S 2063(y)S 2086(m)S 2121(m)S 2156(e)S 2177(t)S 2190(r)S 2205(i)S 2218(c)S 2239(,)S 300 X 2576 Y(Hermitian,)s 509(or)S 558(triangular)S 749(matrix)S 880(with)S 0.0 11 11 f.I ft 973(k)S 0.0 11 11 f.R ft 1012(s)S 1030(u)S 1053(b)S 1076(-)S 1091(d)S 1114(i)S 1127(a)S 1148(g)S 1171(o)S 1194(n)S 1217(a)S 1238(l)S 1251(s)S 1280(a)S 1301(n)S 1324(d)S 1347(/)S 1359(o)S 1382(r)S 1408(s)S 1426(u)S 1449(p)S 1472(e)S 1493(r)S 1508(-)S 1523(d)S 1546(i)S 1559(a)S 1580(g)S 1603(o)S 1626(n)S 1649(a)S 1670(l)S 1683(s)S 1701(.)S 300 X 2667 Y 405 X(The)s 490(description)S 709(of)S 760(the)S 830(matrix)S 963(consists)S 1123(either)S 1242(of)S 1293(the)S 1363(array)S 1471(name)S 1584(\(A\))S 1660(followed)S 1838(by)S 1898(the)S 1969(leading)S 2120(dimen)S 2235 X(-)s 300 X 2733 Y(sion)s 393(of)S 447(the)S 520(array)S 631(as)S 686(declared)S 860(in)S 912(the)S 985(calling)S 1128(\(sub\))S 1238(program)S 1409(\(LDA\),)S 1560(when)S 1676(the)S 1749(matrix)S 1885(is)S 1932(being)S 2050(stored)S 2178(in)S 2229(a)S 300 X 2799 Y(two-)s 396(dimensional)S 634(array;)S 754(or)S 804(the)S 873(array)S 980(name)S 1092(\(AP\))S 1193(alone)S 1307(when)S 1420(the)S 1490(matrix)S 1623(is)S 1667(being)S 1783(stored)S 1909(as)S 1961(a)S 1995(\(packed\))S 2170(vec)S 2235 X(-)s 300 X 2865 Y(tor.)s 376(In)S 428(the)S 499(former)S 636(case)S 730(the)S 800(actual)S 925(array)S 1033(must)S 1135(contain)S 1285(at)S 1332(least)S 1431(\(\()S 0.0 11 11 f.I ft 1461(n)S 1491 X 0.0 11 11 f.S ft(-)s 0.0 11 11 f.R ft 1516(1\))S 0.0 11 11 f.I ft 1554(d)S 1584( )S 1595 X(+)s 1626( l)S 0.0 11 11 f.R ft 1657(\))S 1685(elements,)S 1874(where)S 0.0 11 11 f.I ft 2000(d)S 0.0 11 11 f.R ft 2043(is)S 2087(the)S 2157(lead)S 2235 X(-)s 300 X 2931 Y(ing)s 372(dimension)S 577(of)S 628(the)S 698(array,)S 0.0 11 11 f.I ft 817(d)S 847( )S 858 X 0.0 11 11 f.S ft(\263)s 0.0 11 11 f.I ft 883( l)S 0.0 11 11 f.R ft 914(,)S 938(and)S 0.0 11 11 f.I ft 1018(l)S 1038( )S 1049 X(=)s 1080( m)S 0.0 11 11 f.R ft 1144(for)S 1210(the)S 1280(GE)S 1354(routines,)S 0.0 11 11 f.I ft 1527(l)S 1547( )S 1558 X(=)s 1589( n)S 0.0 11 11 f.R ft 1644(for)S 1711(the)S 1782(S)S 1807(Y)S 1836(,)S 1861(HE)S 1936(and)S 2017(TR)S 2090(r)S 2105(o)S 2128(u)S 2151(t)S 2164(i)S 2177(n)S 2200(e)S 2221(s)S 2239(,)S 300 X 2997 Y 0.0 11 11 f.I ft(l)s 320( )S 331 X(=)s 362( )S 373(k)S 394(l)S 414( )S 425 X(+)s 456( )S 467(k)S 488(u)S 518( )S 529 X(+)s 560( )S 0.0 11 11 f.R ft 571(1)S 607(for)S 673(the)S 742(GB)S 818(routines,)S 990(and)S 0.0 11 11 f.I ft 1069(l)S 1089( )S 1100 X(=)s 1131( k)S 1170 X(+)s 0.0 11 11 f.R ft 1201(1)S 1236(for)S 1301(the)S 1370(SB,)S 1449(HB)S 1525(or)S 1575(TB)S 1646(routines.)S 1829(F)S 1853(o)S 1876(r)S 1903(packed)S 2047(storage)S 2193(the)S 300 X 3063 Y(actual)s 423(array)S 529(must)S 629(contain)S 777(at)S 822(least)S 0.0 11 11 f.I ft 919(n)S 0.0 11 11 f.R ft 949(\()S 0.0 11 11 f.I ft 964(n)S 994 X(+)s 0.0 11 11 f.R ft 1025(1\))S 1063 X 0.0 11 11 f.I ft(/)s 0.0 11 11 f.R ft 1076(2)S 1110(e)S 1131(l)S 1144(e)S 1165(m)S 1200(e)S 1221(n)S 1244(t)S 1257(s)S 1275(.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Symbol Times-Italic %%Page: label 9 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1237 X(- 7 -)s 300 X 366 Y 405 X(The)s 488(scalars)S 626(always)S 766(have)S 865(the)S 933(dummy)S 1083(argument)S 1268(names)S 1397(ALPHA)S 1560(and)S 1638(B)S 1669(E)S 1697(T)S 1722(A)S 1755(.)S 300 X 457 Y 405 X(As)s 467(with)S 560(the)S 628(existing)S 786(BLAS)S 914(the)S 982(description)S 1199(of)S 1248(a)S 1280(vector)S 1407(consists)S 1565(of)S 1614(the)S 1682(name)S 1793(of)S 1842(the)S 1910(array)S 2016(\(X)S 2075(or)S 2124(Y\))S 2184(fol)S 2235 X(-)s 300 X 523 Y(lowed)s 425(by)S 483(the)S 552(storage)S 698(spacing)S 852(\(increment\))S 1079(in)S 1127(the)S 1196(array)S 1303(of)S 1352(the)S 1420(vector)S 1547(elements)S 1723(\(INCX)S 1861(or)S 1910(INCY\).)S 2059(The)S 2142(incre)S 2235 X(-)s 300 X 589 Y(ment)s 404(is)S 447(allowed)S 606(to)S 654(be)S 710(positive)S 869(or)S 919(negative)S 1089(-)S 1116(but)S 1187(not)S 1258(zero)S 1350(\(see)S 1437(section)S 1581(7\).)S 1653(When)S 1775(the)S 1844(vector)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1972(x)S 0.0 11 11 f.R ft 2012(consists)S 2171(of)S 0.0 11 11 f.I ft 2222(k)S 300 X 655 Y 0.0 11 11 f.R ft(elements,)s 488(then)S 580(the)S 649(c)S 670(o)S 693(r)S 708(r)S 723(e)S 744(s)S 762(p)S 785(o)S 808(n)S 831(d)S 854(i)S 867(n)S 890(g)S 925(actual)S 1049(array)S 1156(argument)S 1342(X)S 1387(must)S 1488(be)S 1544(of)S 1594(length)S 1722(at)S 1768(least)S 1866(\()S 1893(1)S 1928(+)S 1965(\()S 0.0 11 11 f.I ft 1980(k)S 0.0 11 11 f.R ft 2008(-1\)|)S 2081(INCX)S 2204(|)S 2224(\).)S 300 X 721 Y(F)s 324(o)S 347(r)S 373(those)S 482(routines)S 642(that)S 723(include)S 871(the)S 939(argument)S 1124(B)S 1155(E)S 1183(T)S 1208(A)S 1241(,)S 1263(when)S 1374(B)S 1405(E)S 1433(T)S 1458(A)S 1502(is)S 1544(supplied)S 1712(as)S 1762(zero)S 1853(then)S 1944(the)S 2012(array)S 2118(Y)S 2162(need)S 300 X 787 Y(not)s 373(be)S 431(set)S 497(on)S 557(input,)S 677(so)S 732(that)S 816(operations)S 1023(such)S 1122(as)S 0.0 11 11 f.I ft 1175(y)S 1203( )S 1214 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1259( )S 1270 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1299(Ax)S 0.0 11 11 f.R ft 1369(may)S 1462(be)S 1520(performed)S 1724(without)S 1878(initially)S 2036(setting)S 0.0 11 11 f.I ft 2173(y)S 0.0 11 11 f.R ft 2214(to)S 300 X 853 Y(zero.)s 300 X 985 Y(The)s 383(following)S 573(values)S 703(of)S 752(arguments)S 955(are)S 1023(i)S 1036(n)S 1059(v)S 1082(a)S 1103(l)S 1116(i)S 1129(d)S 1152(:)S 300 X 1117 Y 366(Any)S 456(value)S 568(of)S 617(the)S 685(character)S 867(arguments)S 1070(DIAG,)S 1206(TRANS,)S 1378(or)S 1427(UPLO)S 300 X 1183 Y 399(whose)S 528(meaning)S 698(is)S 740(not)S 810(speci)S 906 X(\256)s 931(ed.)S 300 X 1249 Y 366(M)S 418(<)S 455(0)S 300 X 1315 Y 366(N)S 410(<)S 447(0)S 300 X 1381 Y 366(KL)S 438(<)S 475(0)S 300 X 1447 Y 366(KU)S 443(<)S 480(0)S 300 X 1513 Y 366(K)S 410(<)S 447(0)S 300 X 1579 Y 366(LDA)S 471(<)S 508(M)S 300 X 1645 Y 366(LDA)S 471(<)S 508(KL)S 580(+)S 617(KU)S 694(+)S 731(1)S 300 X 1711 Y 366(LDA)S 471(<)S 508(N)S 552(for)S 616(the)S 684(HE,)S 767(S)S 792(Y)S 821(,)S 843(and)S 921(TR)S 991(r)S 1006(o)S 1029(u)S 1052(t)S 1065(i)S 1078(n)S 1101(e)S 1122(s)S 1140(.)S 300 X 1777 Y 366(LDA)S 471(<)S 508(K)S 552(+)S 589(1)S 623(for)S 687(the)S 755(HB,)S 841(SB,)S 919(and)S 997(TB)S 1067(r)S 1082(o)S 1105(u)S 1128(t)S 1141(i)S 1154(n)S 1177(e)S 1198(s)S 1216(.)S 300 X 1843 Y 366(INCX)S 489(=)S 526(0)S 300 X 1909 Y 366(INCY)S 489(=)S 526(0)S 300 X 2041 Y(If)s 344(a)S 379(routine)S 524(is)S 569(called)S 695(with)S 791(an)S 849(invalid)S 992(value)S 1107(for)S 1174(any)S 1255(of)S 1307(its)S 1365(arguments,)S 1582(then)S 1677(it)S 1718(must)S 1822(report)S 1947(the)S 2019(fact)S 2104(and)S 2186(ter)S 2235 X(-)s 300 X 2107 Y(minate)s 443(execution)S 641(of)S 696(the)S 770(program.)S 963(In)S 1017(the)S 1090(model)S 1221(i)S 1234(m)S 1269(p)S 1292(l)S 1305(e)S 1326(m)S 1361(e)S 1382(n)S 1405(t)S 1418(a)S 1439(t)S 1452(i)S 1465(o)S 1488(n)S 1527(\(see[7]\),)S 1697(each)S 1799(routine,)S 1957(on)S 2019(detecting)S 2206(an)S 300 X 2173 Y(error,)s 417(calls)S 520(a)S 558(common)S 735(error)S 841(handling)S 1020(routine)S 1168(XERBLA,)S 1380(passing)S 1537(to)S 1591(it)S 1635(the)S 1710(name)S 1828(of)S 1884(the)S 1959(routine)S 2108(and)S 2193(the)S 300 X 2239 Y(number)s 458(of)S 514(the)S 589 X(\256)s 614(rst)S 677(argument)S 868(which)S 998(is)S 1046(in)S 1099(error.)S 1227(Specialized)S 1459(i)S 1472(m)S 1507(p)S 1530(l)S 1543(e)S 1564(m)S 1599(e)S 1620(n)S 1643(t)S 1656(a)S 1677(t)S 1690(i)S 1703(o)S 1726(n)S 1749(s)S 1784(may)S 1880(call)S 1965(system-speci)S 2204 X(\256)s 2229(c)S 300 X 2305 Y(e)s 321(x)S 344(c)S 365(e)S 386(p)S 409(t)S 422(i)S 435(o)S 458(n)S 481(-)S 496(h)S 519(a)S 540(n)S 563(d)S 586(l)S 599(i)S 612(n)S 635(g)S 669(and)S 747(diagnostic)S 949(facilities,)S 1132(either)S 1249(via)S 1317(an)S 1373(auxiliary)S 1550(routine)S 1693(XERBLA)S 1889(or)S 1939(directly)S 2093(from)S 2193(the)S 300 X 2371 Y(routines.)s 490(One)S 586(advantage)S 794(of)S 851(using)S 970(XERBLA)S 1173(is)S 1223(that)S 1312(the)S 1388(test)S 1472(program)S 1646(can)S 1730(then)S 1829(test)S 1913(that)S 2002(all)S 2068(errors)S 2193(are)S 300 X 2437 Y(detected)s 467(\(see)S 553([7]\).)S 300 X 2635 Y %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft(5.)s 345(Storage)S 507(C)S 540(o)S 563(n)S 588(v)S 611(e)S 632(n)S 657(t)S 672(i)S 685(o)S 708(n)S 733(s)S 300 X 2726 Y 405 X 0.0 11 11 f.R ft(Unless)s 547(otherwise)S 744(stated)S 870(it)S 913(is)S 961(assumed)S 1137(that)S 1224(matrices)S 1398(are)S 1472(stored)S 1602(c)S 1623(o)S 1646(n)S 1669(v)S 1692(e)S 1713(n)S 1736(t)S 1749(i)S 1762(o)S 1785(n)S 1808(a)S 1829(l)S 1842(l)S 1855(y)S 1895(in)S 1948(a)S 1986(2)S 2009(-)S 2024(d)S 2047(i)S 2060(m)S 2095(e)S 2116(n)S 2139(s)S 2157(i)S 2170(o)S 2193(n)S 2216(a)S 2237(l)S 300 X 2792 Y(array)s 406(with)S 499(m)S 534(a)S 555(t)S 568(r)S 583(i)S 596(x)S 619(-)S 634(e)S 655(l)S 668(e)S 689(m)S 724(e)S 745(n)S 768(t)S 0.0 11 11 f.I ft 792(a)S 2807 Y 0.0 8 8 f.I ft 815(i)S 827(j)S 2792 Y 0.0 11 11 f.R ft 855(stored)S 979(in)S 1026(a)S 1047(r)S 1062(r)S 1077(a)S 1098(y)S 1121(-)S 1136(e)S 1157(l)S 1170(e)S 1191(m)S 1226(e)S 1247(n)S 1270(t)S 1294(A)S 1327(\()S 1342(I)S 1357(,)S 1368(J)S 1386(\))S 1401(.)S 300 X 2886 Y 405 X(The)s 491(routines)S 654(for)S 721(real)S 805(symmetric)S 1013(and)S 1094(complex)S 1267(Hermitian)S 1468(matrices)S 1639(allow)S 1756(for)S 1823(the)S 1894(matrix)S 2028(to)S 2078(be)S 2137(s)S 2155(t)S 2168(o)S 2191(r)S 2206(e)S 2227(d)S 300 X 2952 Y(in)s 352(either)S 474(the)S 547(upper)S 668(\(UPLO)S 818(=)S 860(`U'\))S 954(or)S 1008(lower)S 1129(triangle)S 1287(\(UPLO)S 1437(=)S 1479(`)S 1494(L)S 1517(')S 1532(\))S 1563(of)S 1617(a)S 1654(two)S 1739(dimensional)S 1981(array,)S 2102(or)S 2155(to)S 2206(be)S 300 X 3018 Y(packed)s 451(in)S 506(a)S 546(one)S 632(dimensional)S 877(array.)S 1002(In)S 1059(the)S 1135(latter)S 1250(case)S 1350(the)S 1426(upper)S 1550(triangle)S 1711(may)S 1809(be)S 1873(packed)S 2025(s)S 2043(e)S 2064(q)S 2087(u)S 2110(e)S 2131(n)S 2154(t)S 2167(i)S 2180(a)S 2201(l)S 2214(l)S 2227(y)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Italic Symbol Times-Bold %%Page: label 10 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1237 X(- 8 -)s 300 X 366 Y(column)s 453(by)S 514(column)S 667(\(UPLO)S 816(=)S 857(`U'\),)S 961(or)S 1014(the)S 1086(lower)S 1206(triangle)S 1363(may)S 1457(be)S 1515(packed)S 1661(sequentially)S 1900(column)S 2052(by)S 2112(c)S 2133(o)S 2156(l)S 2169(u)S 2192(m)S 2227(n)S 300 X 432 Y(\(UPLO)s 447(=)S 486(`)S 501(L)S 524(')S 539(\))S 554(.)S 578(Note)S 681(that)S 764(for)S 830(real)S 913(symmetric)S 1121(matrices)S 1292(packing)S 1453(the)S 1524(upper)S 1643(triangle)S 1799(by)S 1859(column)S 2011(is)S 2056(e)S 2077(q)S 2100(u)S 2123(i)S 2136(v)S 2159(a)S 2180(l)S 2193(e)S 2214(n)S 2237(t)S 300 X 498 Y(to)s 348(packing)S 507(the)S 575(lower)S 691(triangle)S 844(by)S 901(rows,)S 1012(and)S 1090(packing)S 1248(the)S 1316(lower)S 1432(triangle)S 1585(by)S 1642(columns)S 1809(is)S 1851(equivalent)S 2056(to)S 2103(p)S 2126(a)S 2147(c)S 2168(k)S 2191(i)S 2204(n)S 2227(g)S 300 X 564 Y(the)s 370(upper)S 489(triangle)S 645(by)S 705(rows.)S 819(\()S 834(F)S 858(o)S 881(r)S 910(complex)S 1083(Hermitian)S 1284(matrices)S 1455(the)S 1526(only)S 1622(di)S 1658 X /Cff{ (f) show xsiz pt 20 div neg 0 rmoveto (f) s }bind def Cff 1687(erence)S 1823(is)S 1868(that)S 1952(the)S 2023(o)S 2046 X Cff 2075(-)S 2090(d)S 2113(i)S 2126(a)S 2147(g)S 2170(o)S 2193(n)S 2216(a)S 2237(l)S 300 X 630 Y(elements)s 476(are)S 544(c)S 565(o)S 588(n)S 611(j)S 624(u)S 647(g)S 670(a)S 691(t)S 704(e)S 725(d)S 748(.)S 759(\))S 300 X 721 Y 405 X(F)s 429(o)S 452(r)S 480(triangular)S 674(matrices)S 845(the)S 916(argument)S 1104(UPLO)S 1237(serves)S 1367(to)S 1417(de)S 1461 X(\256)s 1486(ne)S 1544(whether)S 1707(the)S 1778(matrix)S 1912(is)S 1957(upper)S 2076(\(UPLO)S 2224(=)S 300 X 787 Y(`U'\))s 389(or)S 438(lower)S 554(\(UPLO)S 699(=)S 736(`)S 751(L)S 774(')S 789(\))S 815(triangular.)S 1017(In)S 1066(packed)S 1209(storage)S 1354(the)S 1422(triangle)S 1575(has)S 1648(to)S 1695(be)S 1750(packed)S 1893(by)S 1950(c)S 1971(o)S 1994(l)S 2007(u)S 2030(m)S 2065(n)S 2088(.)S 300 X 878 Y 405 X(The)s 489(band)S 591(matrix)S 723(routines)S 884(allow)S 999(storage)S 1145(in)S 1193(the)S 1262(same)S 1369(style)S 1469(as)S 1521(with)S 1616(L)S 1644(I)S 1659(N)S 1692(P)S 1716(A)S 1749(C)S 1780(K)S 1813(,)S 1837(so)S 1891(that)S 1974(the)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 2047(j)S 851 Y 0.0 8 8 f.I ft 2065(th)S 878 Y 0.0 11 11 f.R ft 2112(c)S 2133(o)S 2156(l)S 2169(u)S 2192(m)S 2227(n)S 300 X 944 Y(of)s 353(the)S 425(matrix)S 560(is)S 606(stored)S 734(in)S 784(the)S 0.0 11 11 f.I ft 858(j)S 917 Y 0.0 8 8 f.I ft 876(th)S 944 Y 0.0 11 11 f.R ft 924(column)S 1076(of)S 1128(the)S 1199(F)S 1223(o)S 1246(r)S 1261(t)S 1274(r)S 1289(a)S 1310(n)S 1347(array.)S 1467(F)S 1491(o)S 1514(r)S 1543(a)S 1578(general)S 1729(band)S 1833(matrix)S 1967(the)S 2038(diagonal)S 2212(of)S 300 X 1010 Y(the)s 368(matrix)S 499(is)S 541(stored)S 665(in)S 713(the)S 0.0 11 11 f.I ft 782(ku)S 833 X(+)s 0.0 11 11 f.R ft 864(1)S 983 Y 0.0 8 8 f.I ft 887(th)S 1010 Y 0.0 11 11 f.R ft 933(row)S 1016(of)S 1066(the)S 1135(array.)S 1264(F)S 1288(o)S 1311(r)S 1338(a)S 1371(Hermitian)S 1570(or)S 1620(symmetric)S 1826(matrix)S 1958(either)S 2076(the)S 2145(upper)S 300 X 1076 Y(triangle)s 454(\(UPLO)S 600(=)S 638(`U'\))S 728(may)S 819(be)S 875(stored)S 1000(in)S 1048(which)S 1173(case)S 1266(the)S 1335(leading)S 1484(diagonal)S 1656(is)S 1699(in)S 1747(the)S 0.0 11 11 f.I ft 1816(k)S 1844 X(+)s 0.0 11 11 f.R ft 1875(1)S 1049 Y 0.0 8 8 f.I ft 1898(th)S 1076 Y 0.0 11 11 f.R ft 1944(row)S 2027(of)S 2076(the)S 2144(a)S 2165(r)S 2180(r)S 2195(a)S 2216(y)S 2239(,)S 300 X 1142 Y(or)s 350(the)S 419(lower)S 536(triangle)S 690(\(UPLO)S 836(=)S 874(`)S 889(L)S 912(')S 927(\))S 954(may)S 1045(be)S 1101(stored)S 1226(in)S 1274(which)S 1399(case)S 1492(the)S 1561(leading)S 1710(diagonal)S 1882(is)S 1925(in)S 1974(the)S 2044 X(\256)s 2069(rst)S 2128(row)S 2212(of)S 300 X 1208 Y(the)s 370(array.)S 500(F)S 524(o)S 547(r)S 575(an)S 632(upper)S 750(triangular)S 943(band)S 1045(matrix)S 1177(\(UPLO)S 1323(=)S 1361(`U'\))S 1451(the)S 1520(leading)S 1669(diagonal)S 1841(is)S 1884(in)S 1932(the)S 0.0 11 11 f.I ft 2001(k)S 2029 X(+)s 0.0 11 11 f.R ft 2060(1)S 1181 Y 0.0 8 8 f.I ft 2083(th)S 1208 Y 0.0 11 11 f.R ft 2129(row)S 2212(of)S 300 X 1274 Y(the)s 368(array)S 474(and)S 552(for)S 616(a)S 648(lower)S 764(triangular)S 955(band)S 1056(matrix)S 1187(\(UPLO)S 1332(=)S 1369(`)S 1384(L)S 1407(')S 1422(\))S 1448(the)S 1516(leading)S 1664(diagonal)S 1835(is)S 1877(in)S 1924(the)S 1992 X(\256)s 2017(rst)S 2074(row.)S 300 X 1365 Y 405 X(F)s 429(o)S 452(r)S 479(a)S 512(Hermitian)S 711(matrix)S 843(the)S 912(imaginary)S 1111(parts)S 1213(of)S 1263(the)S 1332(diagonal)S 1504(elements)S 1681(are)S 1750(of)S 1800(course)S 1933(zero)S 2025(and)S 2104(thus)S 2193(the)S 300 X 1431 Y(imaginary)s 500(parts)S 603(of)S 654(the)S 724(c)S 745(o)S 768(r)S 783(r)S 798(e)S 819(s)S 837(p)S 860(o)S 883(n)S 906(d)S 929(i)S 942(n)S 965(g)S 1001(F)S 1025(o)S 1048(r)S 1063(t)S 1076(r)S 1091(a)S 1112(n)S 1148(array)S 1256(elements)S 1434(need)S 1535(not)S 1607(be)S 1664(set,)S 1740(but)S 1812(are)S 1882(assumed)S 2054(to)S 2103(be)S 2159(zero.)S 300 X 1497 Y(In)s 350(the)S 419(R)S 462(and)S 541(R2)S 607(routines)S 768(these)S 876(imaginary)S 1075(parts)S 1177(will)S 1261(be)S 1317(set)S 1381(to)S 1429(zero)S 1521(on)S 1579(return,)S 1712(except)S 1846(when)S 1959 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1988( )S 1999 X(=)s 2030( )S 0.0 11 11 f.R ft 2041(0,)S 2088(in)S 2137(which)S 300 X 1563 Y(case)s 392(the)S 460(routines)S 620(exit)S 701(i)S 714(m)S 749(m)S 784(e)S 805(d)S 828(i)S 841(a)S 862(t)S 875(e)S 896(l)S 909(y)S 932(.)S 300 X 1654 Y 405 X(F)s 429(o)S 452(r)S 484(packed)S 633(triangular)S 830(matrices)S 1004(the)S 1078(same)S 1190(storage)S 1342(layout)S 1476(is)S 1525(used)S 1628(whether)S 1795(or)S 1851(not)S 1928(DIAG)S 2060(=)S 2104(`)S 2119(U)S 2152(')S 2165(,)S 2194(i.e.)S 300 X 1720 Y(space)s 415(is)S 457(left)S 530(for)S 594(the)S 662(diagonal)S 833(elements)S 1009(even)S 1108(if)S 1147(those)S 1256(array)S 1362(elements)S 1538(are)S 1606(not)S 1676(r)S 1691(e)S 1712(f)S 1727(e)S 1748(r)S 1763(e)S 1784(n)S 1807(c)S 1828(e)S 1849(d)S 1872(.)S 300 X 1918 Y %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft(6.)s 345(Speci)S 450 X(\256)s 475(cation)S 606(of)S 655(the)S 727(Level)S 847(2)S 881(BLAS)S 300 X 2009 Y 405 X 0.0 11 11 f.R ft(T)s 430(y)S 453(p)S 476(e)S 508(and)S 586(dimension)S 789(for)S 853(variables)S 1032(occurring)S 1220(in)S 1267(the)S 1335(subroutine)S 1541(speci)S 1637 X(\256)s 1662(cations)S 1805(are)S 1873(as)S 1923(f)S 1938(o)S 1961(l)S 1974(l)S 1987(o)S 2010(w)S 2043(s)S 2061(:)S 300 X 2141 Y 410 X(INTEGER)s 661(INCX,)S 795(I)S 810(N)S 843(C)S 874(Y)S 903(,)S 925(K,)S 980(KL,)S 1063(KU,)S 1151(LDA,)S 1267(M,)S 1330(N)S 300 X 2207 Y 410 X(CHARACTER*1)s 746(DIAG,)S 882(TRANS,)S 1054(UPLO)S 300 X 2339 Y(F)s 324(o)S 347(r)S 373(routines)S 533(whose)S 662 X(\256)s 687(rst)S 744(letter)S 851(is)S 893(an)S 948(S:)S 300 X 2471 Y 410 X(REAL)s 552(ALPHA,)S 726(B)S 757(E)S 785(T)S 810(A)S 300 X 2537 Y 410 X(REAL)s 552(X\(*\),)S 660(Y\(*\))S 300 X 2603 Y 410 X(REAL)s 552(A)S 585(\()S 600(L)S 628(D)S 661(A)S 694(,)S 705(*)S 728(\))S 300 X 2669 Y 410 X(REAL)s 552(AP\(*\))S 300 X 2801 Y(F)s 324(o)S 347(r)S 373(routines)S 533(whose)S 662 X(\256)s 687(rst)S 744(letter)S 851(is)S 893(a)S 925(D)S 300 X 2933 Y 410 X(DOUBLE)s 607(PRECISION)S 865(ALPHA,)S 1039(B)S 1070(E)S 1098(T)S 1123(A)S 300 X 2999 Y 410 X(DOUBLE)s 607(PRECISION)S 865(X\(*\),)S 973(Y\(*\))S 300 X 3065 Y 410 X(DOUBLE)s 607(PRECISION)S 865(A)S 898(\()S 913(L)S 941(D)S 974(A)S 1007(,)S 1018(*)S 1041(\))S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Italic Symbol Times-Bold %%Page: label 11 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1237 X(- 9 -)s 300 X 366 Y 410 X(DOUBLE)s 607(PRECISION)S 865(AP\(*\))S 300 X 498 Y(F)s 324(o)S 347(r)S 373(routines)S 533(whose)S 662 X(\256)s 687(rst)S 744(letter)S 851(is)S 893(a)S 925(C:)S 300 X 630 Y 410 X(COMPLEX)s 651(ALPHA)S 300 X 696 Y 410 X(COMPLEX)s 651(B)S 682(E)S 710(T)S 735(A)S 300 X 762 Y 410 X(COMPLEX)s 651(X\(*\),)S 759(Y\(*\))S 300 X 828 Y 410 X(COMPLEX)s 651(A)S 684(\()S 699(L)S 727(D)S 760(A)S 793(,)S 804(*)S 827(\))S 300 X 894 Y 410 X(COMPLEX)s 651(AP\(*\))S 300 X 1026 Y(except)s 433(that)S 514(for)S 578(CHER)S 712(and)S 790(CHPR)S 921(the)S 989(scalar)S 1109 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(a)s 0.0 11 11 f.R ft 1149(is)S 1191(real)S 1272(so)S 1324(that)S 1405(the)S 1473 X(\256)s 1498(rst)S 1555(declaration)S 1773(above)S 1895(is)S 1937(replaced)S 2106(by:)S 300 X 1158 Y 410 X(REAL)s 552(ALPHA)S 300 X 1290 Y(F)s 324(o)S 347(r)S 373(routines)S 533(whose)S 662 X(\256)s 687(rst)S 744(letter)S 851(is)S 893(Z:)S 300 X 1422 Y 344(COMPLEX*16)S 654(ALPHA)S 1105 X(DOUBLE)s 1302(COMPLEX)S 1543(ALPHA)S 300 X 1488 Y 344(COMPLEX*16)S 654(B)S 685(E)S 713(T)S 738(A)S 1220 X(DOUBLE)s 1417(COMPLEX)S 1658(B)S 1689(E)S 1717(T)S 1742(A)S 300 X 1554 Y 344(COMPLEX*16)S 654(X\(*\),)S 762(Y\(*\))S 881(or)S 1105 X(DOUBLE)s 1302(COMPLEX)S 1543(X\(*\),)S 1651(Y\(*\))S 300 X 1620 Y 344(COMPLEX*16)S 654(A\(LDA,*\))S 1105 X(DOUBLE)s 1302(COMPLEX)S 1543(A)S 1576(\()S 1591(L)S 1619(D)S 1652(A)S 1685(,)S 1696(*)S 1719(\))S 300 X 1686 Y 344(COMPLEX*16)S 654(AP\(*\))S 1220 X(DOUBLE)s 1417(COMPLEX)S 1658(AP\(*\))S 300 X 1818 Y(except)s 433(that)S 514(for)S 578(ZHER)S 709(and)S 787(ZHPR)S 915(the)S 983 X(\256)s 1008(rst)S 1065(declaration)S 1283(above)S 1405(is)S 1447(replaced)S 1616(by:)S 300 X 1950 Y 410 X(DOUBLE)s 607(PRECISION)S 865(ALPHA)S 300 X 2082 Y(The)s 385(generic)S 535(names,)S 688(argument)S 875(lists)S 963(and)S 1043(speci)S 1139 X(\256)s 1164(cations)S 1309(for)S 1375(the)S 1445(extended)S 1626(BLAS)S 1756(now)S 1848(follow.)S 1992(Refer)S 2109(to)S 2159(table)S 300 X 2148 Y(3.1)s 368(for)S 432(the)S 500(speci)S 596 X(\256)s 621(c)S 653(subroutine)S 859(n)S 882(a)S 903(m)S 938(e)S 959(s)S 977(.)S 300 X 2280 Y(a\))s 358(General)S 516(Matrix)S 653(V)S 682(e)S 703(c)S 724(t)S 737(o)S 760(r)S 786(P)S 810(r)S 825(o)S 848(d)S 871(u)S 894(c)S 915(t)S 928(s)S 300 X 2412 Y 344(for)S 408(a)S 440(general)S 588(m)S 623(a)S 644(t)S 657(r)S 672(i)S 685(x)S 708(:)S 300 X 2478 Y 344(_GEMV)S 513(\()S 539(TRANS,)S 711(M,)S 774(N,)S 829(ALPHA,)S 1003(A,)S 1058(LDA,)S 1174(X,)S 1229(INCX,)S 1363(B)S 1394(E)S 1422(T)S 1447(A)S 1480(,)S 1502(Y)S 1531(,)S 1553(INCY)S 1676(\))S 300 X 2610 Y 344(for)S 408(a)S 440(general)S 588(band)S 689(m)S 724(a)S 745(t)S 758(r)S 773(i)S 786(x)S 809(:)S 300 X 2676 Y 344(_GBMV)S 516(\()S 542(TRANS,)S 714(M,)S 777(N,)S 832(KL,)S 915(KU,)S 1003(ALPHA,)S 1177(A,)S 1232(LDA,)S 1348(X,)S 1403(INCX,)S 1537(B)S 1568(E)S 1596(T)S 1621(A)S 1654(,)S 1676(Y)S 1705(,)S 1727(INCY)S 1850(\))S 300 X 2808 Y 344(O)S 377(p)S 400(e)S 421(r)S 436(a)S 457(t)S 470(i)S 483(o)S 506(n)S 529(:)S 300 X 2940 Y 388(if)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 427(T)S 452(R)S 480(A)S 508(N)S 539(S)S 569( )S 580 X(=)s 611( )S 0.0 11 11 f.R ft 633(`)S 648(N)S 681(')S 694(,)S 0.0 11 11 f.I ft 705( )S 716( )S 727( )S 738( )S 749( )S 760(y)S 788( )S 799 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 844( )S 855 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 884(A)S 912(x)S 940( )S 951 X(+)s 982( )S 993 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 1018(y)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Symbol Times-Italic %%Page: label 12 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1.0000 setlinewidth 300 X 216 Y 1226 X %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft(- 10 -)s 300 X 366 Y 388(if)S 0.0 11 11 f.I ft 427(T)S 452(R)S 480(A)S 508(N)S 539(S)S 569( )S 580 X(=)s 611( )S 0.0 11 11 f.R ft 633(`)S 648(T)S 676(')S 689(,)S 0.0 11 11 f.I ft 700( )S 711( )S 722( )S 733( )S 744(y)S 772( )S 783 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 828( )S 839 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 868(A)S 903( )S 339 Y 0.0 8 8 f.I ft 914(T)S 366 Y 0.0 11 11 f.I ft 939(x)S 967( )S 978 X(+)s 1009( )S 1020 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 1045(y)S 300 X 498 Y 0.0 11 11 f.R ft 388(if)S 0.0 11 11 f.I ft 427( )S 438(T)S 463(R)S 491(A)S 519(N)S 550(S)S 580( )S 591 X(=)s 622( )S 0.0 11 11 f.R ft 644(`)S 659(C)S 690(')S 703(,)S 0.0 11 11 f.I ft 714( )S 725( )S 736( )S 747( )S 758(y)S 786( )S 797 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 842( )S 853 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 882(A)S 495 Y 892 X %%IncludeFont: BracketFont /f.S2 /BracketFont findfont def 0.0 11 11 f.S2 ft(M)s 498 Y 0.0 11 11 f.I ft 917( )S 471 Y 0.0 8 8 f.I ft 928(T)S 498 Y 0.0 11 11 f.I ft 953(x)S 981( )S 992 X(+)s 1023( )S 1034 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 1059(y)S 0.0 11 11 f.R ft 1087(.)S 300 X 696 Y(b\))s 360(Symmetric)S 572(or)S 621(Hermitian)S 819(Matrix)S 956(V)S 985(e)S 1006(c)S 1027(t)S 1040(o)S 1063(r)S 1089(P)S 1113(r)S 1128(o)S 1151(d)S 1174(u)S 1197(c)S 1218(t)S 1231(s)S 300 X 828 Y 344(for)S 408(a)S 440(symmetric)S 645(or)S 694(Hermitian)S 892(m)S 927(a)S 948(t)S 961(r)S 976(i)S 989(x)S 1012(:)S 300 X 894 Y 344(_SYMV)S 510(\()S 536(UPLO,)S 677(N,)S 732(ALPHA,)S 906(A,)S 961(LDA,)S 1077(X,)S 1132(INCX,)S 1266(B)S 1297(E)S 1325(T)S 1350(A)S 1383(,)S 1405(Y)S 1434(,)S 1456(INCY)S 1579(\))S 300 X 960 Y 344(_HEMV)S 513(\()S 539(UPLO,)S 680(N,)S 735(ALPHA,)S 909(A,)S 964(LDA,)S 1080(X,)S 1135(INCX,)S 1269(B)S 1300(E)S 1328(T)S 1353(A)S 1386(,)S 1408(Y)S 1437(,)S 1459(INCY)S 1582(\))S 300 X 1092 Y 344(for)S 408(a)S 440(symmetric)S 645(or)S 694(Hermitian)S 892(matrix)S 1023(in)S 1070(packed)S 1213(s)S 1231(t)S 1244(o)S 1267(r)S 1282(a)S 1303(g)S 1326(e)S 1347(:)S 300 X 1158 Y 344(_SPMV)S 502(\()S 528(UPLO,)S 669(N,)S 724(ALPHA,)S 898(A)S 931(P)S 955(,)S 977(X,)S 1032(INCX,)S 1166(B)S 1197(E)S 1225(T)S 1250(A)S 1283(,)S 1305(Y)S 1334(,)S 1356(INCY)S 1479(\))S 300 X 1224 Y 344(_HPMV)S 510(\()S 536(UPLO,)S 677(N,)S 732(ALPHA,)S 906(A)S 939(P)S 963(,)S 985(X,)S 1040(INCX,)S 1174(B)S 1205(E)S 1233(T)S 1258(A)S 1291(,)S 1313(Y)S 1342(,)S 1364(INCY)S 1487(\))S 300 X 1356 Y 344(for)S 408(a)S 440(symmetric)S 645(or)S 694(Hermitian)S 892(band)S 993(m)S 1028(a)S 1049(t)S 1062(r)S 1077(i)S 1090(x)S 1113(:)S 300 X 1422 Y 344(_SBMV)S 508(\()S 534(UPLO,)S 675(N,)S 730(K,)S 785(ALPHA,)S 959(A,)S 1014(LDA,)S 1130(X,)S 1185(INCX,)S 1319(B)S 1350(E)S 1378(T)S 1403(A)S 1436(,)S 1458(Y)S 1487(,)S 1509(INCY)S 1632(\))S 300 X 1488 Y 344(_HBMV)S 516(\()S 542(UPLO,)S 683(N,)S 738(K,)S 793(ALPHA,)S 967(A,)S 1022(LDA,)S 1138(X,)S 1193(INCX,)S 1327(B)S 1358(E)S 1386(T)S 1411(A)S 1444(,)S 1466(Y)S 1495(,)S 1517(INCY)S 1640(\))S 300 X 1620 Y 344(O)S 377(p)S 400(e)S 421(r)S 436(a)S 457(t)S 470(i)S 483(o)S 506(n)S 529(:)S 300 X 1711 Y 530 X 0.0 11 11 f.I ft(y)s 558( )S 569 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 614( )S 625 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 654(A)S 682(x)S 710( )S 721 X(+)s 752( )S 763 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 788(y)S 816( )S 827(.)S 300 X 1868 Y 0.0 11 11 f.R ft(c\))s 358(T)S 383(r)S 398(i)S 411(a)S 432(n)S 455(g)S 478(u)S 501(l)S 514(a)S 535(r)S 561(Matrix)S 698(V)S 727(e)S 748(c)S 769(t)S 782(o)S 805(r)S 831(P)S 855(r)S 870(o)S 893(d)S 916(u)S 939(c)S 960(t)S 973(s)S 300 X 2000 Y 344(for)S 408(a)S 440(triangular)S 631(m)S 666(a)S 687(t)S 700(r)S 715(i)S 728(x)S 751(:)S 300 X 2066 Y 344(_TRMV)S 511(\()S 537(UPLO,)S 678(TRANS,)S 850(DIAG,)S 986(N,)S 1041(A,)S 1096(LDA,)S 1212(X,)S 1267(INCX)S 1390(\))S 300 X 2198 Y 344(for)S 408(a)S 440(triangular)S 631(matrix)S 762(in)S 809(packed)S 952(s)S 970(t)S 983(o)S 1006(r)S 1021(a)S 1042(g)S 1065(e)S 1086(:)S 300 X 2264 Y 344(_TPMV)S 505(\()S 531(UPLO,)S 672(TRANS,)S 844(DIAG,)S 980(N,)S 1035(A)S 1068(P)S 1092(,)S 1114(X,)S 1169(INCX)S 1292(\))S 300 X 2396 Y 344(for)S 408(a)S 440(triangular)S 631(band)S 732(m)S 767(a)S 788(t)S 801(r)S 816(i)S 829(x)S 852(:)S 300 X 2462 Y 344(_TBMV)S 511(\()S 537(UPLO,)S 678(TRANS,)S 850(DIAG,)S 986(N,)S 1041(K,)S 1096(A,)S 1151(LDA,)S 1267(X,)S 1322(INCX)S 1445(\))S 300 X 2594 Y 344(O)S 377(p)S 400(e)S 421(r)S 436(a)S 457(t)S 470(i)S 483(o)S 506(n)S 529(:)S 300 X 2726 Y 399(if)S 0.0 11 11 f.I ft 438(T)S 463(R)S 491(A)S 519(N)S 550(S)S 580( )S 591 X(=)s 622( )S 0.0 11 11 f.R ft 644(`)S 659(N)S 692(')S 705(,)S 0.0 11 11 f.I ft 727( )S 738( )S 749( )S 760( )S 771(x)S 799( )S 810 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 855( )S 866(T)S 888(x)S 300 X 2858 Y 0.0 11 11 f.R ft 399(if)S 0.0 11 11 f.I ft 438(T)S 463(R)S 491(A)S 519(N)S 550(S)S 580( )S 591 X(=)s 622( )S 0.0 11 11 f.R ft 644(`)S 659(T)S 687(')S 700(,)S 0.0 11 11 f.I ft 722( )S 733( )S 744( )S 755( )S 766(x)S 794( )S 805 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 850( )S 861(T)S 893( )S 2831 Y 0.0 8 8 f.I ft 904(T)S 2858 Y 0.0 11 11 f.I ft 929(x)S 300 X 2990 Y 0.0 11 11 f.R ft 399(if)S 0.0 11 11 f.I ft 438(T)S 463(R)S 491(A)S 519(N)S 550(S)S 580( )S 591 X(=)s 622( )S 0.0 11 11 f.R ft 644(`)S 659(C)S 690(')S 703(,)S 0.0 11 11 f.I ft 725( )S 736( )S 747( )S 758( )S 769(x)S 797( )S 808 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 853( T)S 2987 Y 871 X 0.0 11 11 f.S2 ft(M)s 2990 Y 0.0 11 11 f.I ft 896( )S 2963 Y 0.0 8 8 f.I ft 907(T)S 2990 Y 0.0 11 11 f.I ft 932(x)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Italic Times-Roman Symbol BracketFont %%Page: label 13 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1.0000 setlinewidth 300 X 216 Y 1226 X %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft(- 11 -)s 300 X 366 Y(d\))s 360(T)S 385(r)S 400(i)S 413(a)S 434(n)S 457(g)S 480(u)S 503(l)S 516(a)S 537(r)S 563(equation)S 734(s)S 752(o)S 775(l)S 788(v)S 811(e)S 832(r)S 847(s)S 300 X 498 Y 344(for)S 408(a)S 440(triangular)S 631(m)S 666(a)S 687(t)S 700(r)S 715(i)S 728(x)S 751(:)S 300 X 564 Y 344(_TRSV)S 495(\()S 521(UPLO,)S 662(TRANS,)S 834(DIAG,)S 970(N,)S 1025(A,)S 1080(LDA,)S 1196(X,)S 1251(INCX)S 1374(\))S 300 X 696 Y 344(for)S 408(a)S 440(triangular)S 631(matrix)S 762(in)S 809(packed)S 952(s)S 970(t)S 983(o)S 1006(r)S 1021(a)S 1042(g)S 1065(e)S 1086(:)S 300 X 762 Y 344(_TPSV)S 489(\()S 515(UPLO,)S 656(TRANS,)S 828(DIAG,)S 964(N,)S 1019(A)S 1052(P)S 1076(,)S 1098(X,)S 1153(INCX)S 1276(\))S 300 X 894 Y 344(for)S 408(a)S 440(triangular)S 631(band)S 732(m)S 767(a)S 788(t)S 801(r)S 816(i)S 829(x)S 852(:)S 300 X 960 Y 344(_TBSV)S 495(\()S 521(UPLO,)S 662(TRANS,)S 834(DIAG,)S 970(N,)S 1025(K,)S 1080(A,)S 1135(LDA,)S 1251(X,)S 1306(INCX)S 1429(\))S 300 X 1092 Y 344(O)S 377(p)S 400(e)S 421(r)S 436(a)S 457(t)S 470(i)S 483(o)S 506(n)S 529(:)S 300 X 1224 Y 399(if)S 0.0 11 11 f.I ft 438(T)S 463(R)S 491(A)S 519(N)S 550(S)S 580( )S 591 X(=)s 622( )S 0.0 11 11 f.R ft 644(`)S 659(N)S 692(')S 705(,)S 0.0 11 11 f.I ft 738( )S 749( )S 760( )S 771( )S 782(x)S 810( )S 821 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 866( )S 877(T)S 909( )S 1197 Y 920 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.R ft 938(1)S 1224 Y 0.0 11 11 f.I ft 955(x)S 300 X 1356 Y 0.0 11 11 f.R ft 399(if)S 0.0 11 11 f.I ft 438(T)S 463(R)S 491(A)S 519(N)S 550(S)S 580( )S 591 X(=)s 622( )S 0.0 11 11 f.R ft 644(`)S 659(T)S 687(')S 700(,)S 0.0 11 11 f.I ft 733( )S 744( )S 755( )S 766( )S 777(x)S 805( )S 816 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 861( )S 872(T)S 904( )S 1329 Y 915 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.I ft 933(T)S 1356 Y 0.0 11 11 f.I ft 958(x)S 300 X 1488 Y 0.0 11 11 f.R ft 399(if)S 0.0 11 11 f.I ft 438(T)S 463(R)S 491(A)S 519(N)S 550(S)S 580( )S 591 X(=)s 622( )S 0.0 11 11 f.R ft 644(`)S 659(C)S 690(')S 703(,)S 0.0 11 11 f.I ft 725( )S 736( )S 747( )S 758( )S 769(x)S 797( )S 808 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 853( T)S 1485 Y 871 X %%IncludeFont: BracketFont /f.S2 /BracketFont findfont def 0.0 11 11 f.S2 ft(M)s 1488 Y 0.0 11 11 f.I ft 896( )S 1461 Y 907 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.I ft 925(T)S 1488 Y 0.0 11 11 f.I ft 950(x)S 978( )S 0.0 11 11 f.R ft 989(.)S 300 X 1686 Y(e\))s 358(General)S 516(Rank-1)S 663(U)S 696(p)S 719(d)S 742(a)S 763(t)S 776(e)S 797(s)S 815(:)S 300 X 1818 Y 344(for)S 408(a)S 440(general)S 588(m)S 623(a)S 644(t)S 657(r)S 672(i)S 685(x)S 708(:)S 300 X 1884 Y 344(_GER_)S 493(\()S 519(M,)S 582(N,)S 637(ALPHA,)S 811(X,)S 866(INCX,)S 1000(Y)S 1029(,)S 1051(I)S 1066(N)S 1099(C)S 1130(Y)S 1159(,)S 1181(A,)S 1236(LDA)S 1341(\))S 300 X 2016 Y 344(for)S 408(real)S 489(m)S 524(a)S 545(t)S 558(r)S 573(i)S 586(c)S 607(e)S 628(s)S 646(:)S 300 X 2082 Y 344(SGER)S 472(or)S 521(DGER)S 657(performs)S 833(the)S 901(operation)S 0.0 11 11 f.I ft 1087(A)S 1122( )S 1133 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1178( )S 1189 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1218(x)S 1239(y)S 1267( )S 2055 Y 0.0 8 8 f.I ft 1278(T)S 2082 Y 0.0 11 11 f.I ft 1303( )S 1314 X(+)s 1345( A)S 0.0 11 11 f.R ft 1391(.)S 300 X 2214 Y 344(for)S 408(complex)S 578(m)S 613(a)S 634(t)S 647(r)S 662(i)S 675(c)S 696(e)S 717(s)S 735(:)S 300 X 2280 Y 344(CGERC)S 509(or)S 558(ZGERC)S 720(performs)S 896(the)S 964(operation)S 0.0 11 11 f.I ft 1150(A)S 1185( )S 1196 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1241( )S 1252 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1281(xy)S 2288 Y 1306 X 0.0 11 11 f.S2 ft(M)s 2280 Y 0.0 11 11 f.I ft 1330( )S 2253 Y 0.0 8 8 f.I ft 1341(T)S 2280 Y 0.0 11 11 f.I ft 1366( )S 1377 X(+)s 1408( A)S 300 X 2346 Y 0.0 11 11 f.R ft 344(and)S 300 X 2412 Y 344(CGERU)S 511(or)S 560(ZGERU)S 724(performs)S 900(the)S 968(operation)S 0.0 11 11 f.I ft 1154(A)S 1189( )S 1200 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1245( )S 1256 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1285(x)S 1306(y)S 1334( )S 2385 Y 0.0 8 8 f.I ft 1345(T)S 2412 Y 0.0 11 11 f.I ft 1370( )S 1381 X(+)s 1412( A)S 0.0 11 11 f.R ft 1458(.)S 300 X 2544 Y(f\))s 352(Symmetric)S 564(or)S 613(Hermitian)S 811(Rank-1)S 958(U)S 991(p)S 1014(d)S 1037(a)S 1058(t)S 1071(e)S 1092(s)S 1110(:)S 300 X 2676 Y 344(for)S 408(a)S 440(symmetric)S 645(or)S 694(Hermitian)S 892(m)S 927(a)S 948(t)S 961(r)S 976(i)S 989(x)S 1012(:)S 300 X 2742 Y 344(_SYR)S 467(\()S 493(UPLO,)S 634(N,)S 689(ALPHA,)S 863(X,)S 918(INCX,)S 1052(A,)S 1107(LDA)S 1212(\))S 300 X 2808 Y 344(_HER)S 470(\()S 496(UPLO,)S 637(N,)S 692(ALPHA,)S 866(X,)S 921(INCX,)S 1055(A,)S 1110(LDA)S 1215(\))S 300 X 2940 Y 344(for)S 408(symmetric)S 613(or)S 662(Hermitian)S 860(matrix)S 991(in)S 1038(packed)S 1181(s)S 1199(t)S 1212(o)S 1235(r)S 1250(a)S 1271(g)S 1294(e)S 1315(:)S 300 X 3006 Y 344(_SPR)S 459(\()S 485(UPLO,)S 626(N,)S 681(ALPHA,)S 855(X,)S 910(INCX,)S 1044(AP)S 1113(\))S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Italic Times-Roman Symbol BracketFont %%Page: label 14 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1226 X(- 12 -)s 300 X 366 Y 344(_HPR)S 467(\()S 493(UPLO,)S 634(N,)S 689(ALPHA,)S 863(X,)S 918(INCX,)S 1052(AP)S 1121(\))S 300 X 498 Y 344(O)S 377(p)S 400(e)S 421(r)S 436(a)S 457(t)S 470(i)S 483(o)S 506(n)S 529(:)S 300 X 589 Y 530 X %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft(A)s 565( )S 576 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 621( )S 632 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 661(xx)S 597 Y 686 X %%IncludeFont: BracketFont /f.S2 /BracketFont findfont def 0.0 11 11 f.S2 ft(M)s 589 Y 0.0 11 11 f.I ft 710( )S 562 Y 0.0 8 8 f.I ft 721(T)S 589 Y 0.0 11 11 f.I ft 746( )S 757 X(+)s 788( A)S 300 X 680 Y 0.0 11 11 f.R ft 344(for)S 408(real)S 489(symmetric)S 694(matrices)S 862(this)S 940(is)S 982(s)S 1000(i)S 1013(m)S 1048(p)S 1071(l)S 1084(y)S 300 X 771 Y 530 X 0.0 11 11 f.I ft(A)s 565( )S 576 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 621( )S 632 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 661(x)S 682(x)S 710( )S 744 Y 0.0 8 8 f.I ft 721(T)S 771 Y 0.0 11 11 f.I ft 746( )S 757 X(+)s 788( )S 799(A)S 834( )S 845(.)S 300 X 928 Y 0.0 11 11 f.R ft(g\))s 360(Symmetric)S 572(or)S 621(Hermitian)S 819(Rank-2)S 966(U)S 999(p)S 1022(d)S 1045(a)S 1066(t)S 1079(e)S 1100(s)S 1118(:)S 300 X 1060 Y 344(for)S 408(a)S 440(symmetric)S 645(or)S 694(Hermitian)S 892(m)S 927(a)S 948(t)S 961(r)S 976(i)S 989(x)S 1012(:)S 300 X 1126 Y 344(_SYR2)S 490(\()S 516(UPLO,)S 657(N,)S 712(ALPHA,)S 886(X,)S 941(INCX,)S 1075(Y)S 1104(,)S 1126(I)S 1141(N)S 1174(C)S 1205(Y)S 1234(,)S 1256(A,)S 1311(LDA)S 1416(\))S 300 X 1192 Y 344(_HER2)S 493(\()S 519(UPLO,)S 660(N,)S 715(ALPHA,)S 889(X,)S 944(INCX,)S 1078(Y)S 1107(,)S 1129(I)S 1144(N)S 1177(C)S 1208(Y)S 1237(,)S 1259(A,)S 1314(LDA)S 1419(\))S 300 X 1324 Y 344(for)S 408(symmetric)S 613(or)S 662(Hermitian)S 860(matrix)S 991(in)S 1038(packed)S 1181(s)S 1199(t)S 1212(o)S 1235(r)S 1250(a)S 1271(g)S 1294(e)S 1315(:)S 300 X 1390 Y 344(_SPR2)S 482(\()S 508(UPLO,)S 649(N,)S 704(ALPHA,)S 878(X,)S 933(INCX,)S 1067(Y)S 1096(,)S 1118(I)S 1133(N)S 1166(C)S 1197(Y)S 1226(,)S 1248(AP)S 1317(\))S 300 X 1456 Y 344(_HPR2)S 490(\()S 516(UPLO,)S 657(N,)S 712(ALPHA,)S 886(X,)S 941(INCX,)S 1075(Y)S 1104(,)S 1126(I)S 1141(N)S 1174(C)S 1205(Y)S 1234(,)S 1256(AP)S 1325(\))S 300 X 1588 Y 344(O)S 377(p)S 400(e)S 421(r)S 436(a)S 457(t)S 470(i)S 483(o)S 506(n)S 529(:)S 300 X 1679 Y 530 X 0.0 11 11 f.I ft(A)s 565( )S 576 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 621( )S 632 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 661(xy)S 1687 Y 686 X 0.0 11 11 f.S2 ft(M)s 1679 Y 0.0 11 11 f.I ft 710( )S 1652 Y 0.0 8 8 f.I ft 721(T)S 1679 Y 0.0 11 11 f.I ft 746( )S 757 X(+)s 788( )S 799 X 0.0 11 11 f.S ft(a)s 1687 Y 801 X 0.0 11 11 f.S2 ft(M)s 803 X(M)s 1679 Y 0.0 11 11 f.I ft 828(yx)S 1687 Y 853 X 0.0 11 11 f.S2 ft(M)s 1679 Y 0.0 11 11 f.I ft 877( )S 1652 Y 0.0 8 8 f.I ft 888(T)S 1679 Y 0.0 11 11 f.I ft 913( )S 924 X(+)s 955( A)S 300 X 1836 Y 0.0 11 11 f.R ft 344(for)S 408(real)S 489(symmetric)S 694(matrices)S 862(this)S 940(is)S 982(s)S 1000(i)S 1013(m)S 1048(p)S 1071(l)S 1084(y)S 300 X 1927 Y 530 X 0.0 11 11 f.I ft(A)s 565( )S 576 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 621( )S 632 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 661(x)S 682(y)S 710( )S 1900 Y 0.0 8 8 f.I ft 721(T)S 1927 Y 0.0 11 11 f.I ft 746( )S 757 X(+)s 788( )S 799 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 828(y)S 849(x)S 877( )S 1900 Y 0.0 8 8 f.I ft 888(T)S 1927 Y 0.0 11 11 f.I ft 913( )S 924 X(+)s 955( )S 966(A)S 1001( )S 1012(.)S 300 X 2150 Y %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft(7.)s 356(R)S 389(a)S 412(t)S 427(i)S 440(o)S 463(n)S 488(a)S 511(l)S 524(e)S 300 X 2241 Y 405 X 0.0 11 11 f.R ft(The)s 490(three)S 596(basic)S 705(m)S 740(a)S 761(t)S 774(r)S 789(i)S 802(x)S 825(-)S 840(v)S 863(e)S 884(c)S 905(t)S 918(o)S 941(r)S 969(operations)S 1175(chosen)S 1317(\(Section)S 1484(2\))S 1535(were)S 1638(obvious)S 1797(candidates)S 2008(because)S 2170(they)S 300 X 2307 Y(occur)s 416(in)S 465(a)S 499(wide)S 602(range)S 718(of)S 769(linear)S 888(algebra)S 1038(a)S 1059(p)S 1082(p)S 1105(l)S 1118(i)S 1131(c)S 1152(a)S 1173(t)S 1186(i)S 1199(o)S 1222(n)S 1245(s)S 1263(,)S 1287(and)S 1367(they)S 1460(occur)S 1576(at)S 1623(the)S 1692(innermost)S 1888(level)S 1991(of)S 2041(many)S 2155(algo)S 2235 X(-)s 300 X 2373 Y(rithms.)s 442(The)S 528(hard)S 624(decision)S 794(was)S 881(to)S 932(restrict)S 1076(the)S 1148(scope)S 1269(only)S 1366(to)S 1417(these)S 1528(operations,)S 1747(since)S 1858(there)S 1966(are)S 2038(many)S 2155(other)S 300 X 2439 Y(potential)s 478(candidates,)S 701(such)S 801(as)S 855(matrix)S 990(scaling)S 1137(and)S 1219(sequences)S 1423(of)S 1476(plane)S 1592(rotations.)S 1780(Similarly,)S 1977(we)S 2045(could)S 2162(have)S 300 X 2505 Y(extended)s 481(the)S 551(scope)S 671(by)S 731(applying)S 907(the)S 978(operations)S 1185(to)S 1235(other)S 1344(types)S 1456(of)S 1508(matrices)S 1679(such)S 1778(as)S 1831(complex)S 2004(symmetric)S 2212(or)S 300 X 2571 Y(augmented)s 516(band)S 618(matrices.)S 798(W)S 839(e)S 872(have)S 972(aimed)S 1097(at)S 1143(a)S 1176(reasonable)S 1387(compromise)S 1626(between)S 1793(a)S 1826(much)S 1940(larger)S 2060(number)S 2212(of)S 300 X 2637 Y(routines)s 460(each)S 557(performing)S 774(one)S 852(type)S 943(of)S 992(operation)S 1178(\(e.g.)S 0.0 11 11 f.I ft 1270(x)S 1298( )S 1309 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1354( )S 1365(L)S 1397( )S 2610 Y 1408 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.I ft 1426(T)S 2637 Y 0.0 11 11 f.I ft 1451(x)S 0.0 11 11 f.R ft 1479(\),)S 1516(and)S 1594(a)S 1626(smaller)S 1773(number)S 1924(of)S 1974(routines)S 2135(with)S 2229(a)S 300 X 2703 Y(more)s 410(complicated)S 653(set)S 721(of)S 775(options.)S 938(There)S 1062(are)S 1135(in)S 1187(fact,)S 1284(in)S 1336(each)S 1438(precision,)S 1634(16)S 1695(real)S 1780(routines)S 1944(performing)S 2165(alto)S 2235 X(-)s 300 X 2769 Y(gether)s 427(43)S 484(di)S 520 X /Cff{ (f) show xsiz pt 20 div neg 0 rmoveto (f) s }bind def Cff 549(erent)S 653(operations,)S 868(and)S 946(17)S 1003(complex)S 1173(routines)S 1333(performing)S 1550(58)S 1607(di)S 1643 X Cff 1672(erent)S 1776(o)S 1799(p)S 1822(e)S 1843(r)S 1858(a)S 1879(t)S 1892(i)S 1905(o)S 1928(n)S 1951(s)S 1969(.)S 300 X 2860 Y 405 X(W)s 446(e)S 481(feel)S 565(that)S 649(to)S 699(extend)S 837(the)S 908(scope)S 1028(further)S 1167(would)S 1296(signi)S 1386 X(\256)s 1411(cantly)S 1539(reduce)S 1677(the)S 1748(chances)S 1910(of)S 1962(having)S 2102(the)S 2174(rou)S 2235 X(-)s 300 X 2926 Y(tines)s 401(implemented)S 655(e)S 676 X /CFi{ (f) show xsiz pt 20 div neg 0 rmoveto (\256) s }bind def CFi 715(ciently)S 855(over)S 950(a)S 984(wide)S 1087(range)S 1203(of)S 1254(machines,)S 1453(because)S 1614(it)S 1653(would)S 1781(place)S 1893(too)S 1965(heavy)S 2089(a)S 2122(b)S 2145(u)S 2168(r)S 2183(d)S 2206(e)S 2227(n)S 300 X 2992 Y(on)s 360(i)S 373(m)S 408(p)S 431(l)S 444(e)S 465(m)S 500(e)S 521(n)S 544(t)S 557(o)S 580(r)S 595(s)S 613(.)S 638(On)S 708(the)S 779(other)S 888(hand,)S 1003(to)S 1054(restrict)S 1198(the)S 1270(scope)S 1391(further)S 1531(would)S 1661(place)S 1775(too)S 1849(narrow)S 1994(a)S 2030(limit)S 2132(on)S 2193(the)S 300 X 3058 Y(potential)s 474(applications)S 710(of)S 759(the)S 827(level)S 929(2)S 963(BLAS.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Italic Symbol BracketFont Times-Bold %%Page: label 15 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1226 X(- 13 -)s 300 X 366 Y 405 X(W)s 446(e)S 480(have)S 581(adhered)S 741(to)S 790(the)S 860(conventions)S 1097(of)S 1148(the)S 1218(level)S 1322(1)S 1358(BLAS)S 1488(in)S 1537(allowing)S 1712(an)S 1769(increment)S 1968(argument)S 2156(to)S 2206(be)S 300 X 432 Y(associated)s 508(with)S 606(each)S 708(vector,)S 851(so)S 908(that)S 994(a)S 1030(vector)S 1161(could,)S 1290(for)S 1358(example,)S 1541(be)S 1600(a)S 1636(row)S 1722(of)S 1775(a)S 1811(matrix.)S 1968(This)S 2065(i)S 2078(n)S 2101(c)S 2122(r)S 2137(e)S 2158(m)S 2193(e)S 2214(n)S 2237(t)S 300 X 498 Y(may)s 393(be)S 451(negative,)S 635(in)S 686(which)S 814(case)S 910(the)S 982(elements)S 1162(of)S 1215(the)S 1287(vectors)S 1436(are)S 1508(taken)S 1624(in)S 1675(reverse)S 1824(order.)S 1958(This)S 2055(a)S 2076 X /Cff{ (f) show xsiz pt 20 div neg 0 rmoveto (f) s }bind def Cff 2105(ects)S 2193(the)S 300 X 564 Y(de)s 344 X(\256)s 369(nition)S 497(of)S 555(the)S 632(operation.)S 849(F)S 873(o)S 896(r)S 931(example,)S 1119(if)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1167(m)S 1207( )S 1218 X(=)s 1249( )S 1260(n)S 1290( )S 1301 X(=)s 1332( )S 0.0 11 11 f.R ft 1343(3)S 1386(and)S 1473(INCX)S 1605(and)S 1692(INCY)S 1824(are)S 1900(both)S 2001(negative,)S 2189(the)S 300 X 630 Y(_GEMV)s 469(routines)S 629(with)S 722(TRANS='N')S 972(perform)S 1130(the)S 1198(o)S 1221(p)S 1244(e)S 1265(r)S 1280(a)S 1301(t)S 1314(i)S 1327(o)S 1350(n)S 1373(:)S 300 X 767 Y 829 X %%IncludeFont: BracketFont /f.S2 /BracketFont findfont def 0.0 11 11 f.S2 ft(B)s 813 Y 829 X(A)s 859 Y 829 X(A)s 905 Y 829 X(D)s 834 Y 0.0 11 11 f.I ft 852( )S 915 Y 863(y)S 930 Y 0.0 8 8 f.R ft 889(1)S 834 Y 863 X 0.0 11 11 f.I ft(y)s 849 Y 0.0 8 8 f.R ft 889(2)S 753 Y 863 X 0.0 11 11 f.I ft(y)s 768 Y 0.0 8 8 f.R ft 889(3)S 834 Y 0.0 11 11 f.I ft 906( )S 767 Y 924 X 0.0 11 11 f.S2 ft(E)s 813 Y 924 X(A)s 859 Y 924 X(A)s 905 Y 924 X(G)s 834 Y 0.0 11 11 f.I ft 947( )S 958 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1003( )S 1014 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1043( )S 744 Y 1061 X 0.0 11 11 f.S2 ft(B)s 790 Y 1061 X(A)s 836 Y 1061 X(A)s 882 Y 1061 X(A)s 928 Y 1061 X(D)s 834 Y 0.0 11 11 f.I ft 1084( )S 942 Y 1095(a)S 957 Y 0.0 8 8 f.R ft 1123(31)S 834 Y 1095 X 0.0 11 11 f.I ft(a)s 849 Y 0.0 8 8 f.R ft 1123(21)S 726 Y 1095 X 0.0 11 11 f.I ft(a)s 741 Y 0.0 8 8 f.R ft 1123(11)S 834 Y 0.0 11 11 f.I ft 1157( )S 942 Y 1179(a)S 957 Y 0.0 8 8 f.R ft 1207(32)S 834 Y 1179 X 0.0 11 11 f.I ft(a)s 849 Y 0.0 8 8 f.R ft 1207(22)S 726 Y 1179 X 0.0 11 11 f.I ft(a)s 741 Y 0.0 8 8 f.R ft 1207(12)S 834 Y 0.0 11 11 f.I ft 1241( )S 942 Y 1263(a)S 957 Y 0.0 8 8 f.R ft 1291(33)S 834 Y 1263 X 0.0 11 11 f.I ft(a)s 849 Y 0.0 8 8 f.R ft 1291(23)S 726 Y 1263 X 0.0 11 11 f.I ft(a)s 741 Y 0.0 8 8 f.R ft 1291(13)S 834 Y 0.0 11 11 f.I ft 1325( )S 744 Y 1343 X 0.0 11 11 f.S2 ft(E)s 790 Y 1343 X(A)s 836 Y 1343 X(A)s 882 Y 1343 X(A)s 928 Y 1343 X(G)s 834 Y 0.0 11 11 f.I ft 1366( )S 767 Y 1395 X 0.0 11 11 f.S2 ft(B)s 813 Y 1395 X(A)s 859 Y 1395 X(A)s 905 Y 1395 X(D)s 834 Y 0.0 11 11 f.I ft 1418( )S 915 Y 1429(x)S 930 Y 0.0 8 8 f.R ft 1455(1)S 834 Y 1429 X 0.0 11 11 f.I ft(x)s 849 Y 0.0 8 8 f.R ft 1455(2)S 753 Y 1429 X 0.0 11 11 f.I ft(x)s 768 Y 0.0 8 8 f.R ft 1455(3)S 834 Y 0.0 11 11 f.I ft 1472( )S 767 Y 1490 X 0.0 11 11 f.S2 ft(E)s 813 Y 1490 X(A)s 859 Y 1490 X(A)s 905 Y 1490 X(G)s 834 Y 0.0 11 11 f.I ft 1513( )S 1524 X(+)s 1555( )S 1566 X 0.0 11 11 f.S ft(b)s 767 Y 1598 X 0.0 11 11 f.S2 ft(B)s 813 Y 1598 X(A)s 859 Y 1598 X(A)s 905 Y 1598 X(D)s 834 Y 0.0 11 11 f.I ft 1621( )S 915 Y 1632(y)S 930 Y 0.0 8 8 f.R ft 1658(1)S 834 Y 1632 X 0.0 11 11 f.I ft(y)s 849 Y 0.0 8 8 f.R ft 1658(2)S 753 Y 1632 X 0.0 11 11 f.I ft(y)s 768 Y 0.0 8 8 f.R ft 1658(3)S 834 Y 0.0 11 11 f.I ft 1675( )S 767 Y 1693 X 0.0 11 11 f.S2 ft(E)s 813 Y 1693 X(A)s 859 Y 1693 X(A)s 905 Y 1693 X(G)s 834 Y 0.0 11 11 f.I ft 1716(.)S 300 X 1052 Y 0.0 11 11 f.R ft(However,)s 491(in)S 538(contrast)S 696(to)S 743(the)S 811(level)S 913(1)S 947(BLAS)S 1075(we)S 1140(do)S 1198(not)S 1269(allow)S 1384(INCX)S 1508(or)S 1558(INCY)S 1682(to)S 1730(be)S 1786(zero.)S 1900(This)S 1994(feature)S 2135(would)S 300 X 1118 Y(have)s 403(little)S 504(usefulness,)S 723(would)S 853(complicate)S 1072(i)S 1085(m)S 1120(p)S 1143(l)S 1156(e)S 1177(m)S 1212(e)S 1233(n)S 1256(t)S 1269(a)S 1290(t)S 1303(i)S 1316(o)S 1339(n)S 1377(of)S 1430(the)S 1502(routines)S 1666(on)S 1726(many)S 1842(vector)S 1972(machines,)S 2172(and,)S 300 X 1184 Y(when)s 411(the)S 479(associated)S 682(vector)S 809(is)S 851(an)S 906(output)S 1035(vector,)S 1173(its)S 1228(meaning)S 1398(is)S 1440(a)S 1461(m)S 1496(b)S 1519(i)S 1532(g)S 1555(u)S 1578(o)S 1601(u)S 1624(s)S 1642(.)S 300 X 1275 Y 405 X(As)s 467(noted)S 582(earlier,)S 724(c)S 745(o)S 768(r)S 783(r)S 798(e)S 819(s)S 837(p)S 860(o)S 883(n)S 906(d)S 929(i)S 942(n)S 965(g)S 1000(to)S 1048(the)S 1117(real)S 1199(routine)S 1342(SGER)S 1471(we)S 1537(specify)S 1683(two)S 1764(complex)S 1935(routines)S 2096(CGERC)S 300 X 1341 Y(\(for)s 0.0 11 11 f.I ft 384(A)S 419( )S 430 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 475( )S 486 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 515(xy)S 1349 Y 540 X 0.0 11 11 f.S2 ft(M)s 1341 Y 0.0 11 11 f.I ft 564( )S 1314 Y 0.0 8 8 f.I ft 575(T)S 1341 Y 0.0 11 11 f.I ft 600( )S 611 X(+)s 642( A)S 0.0 11 11 f.R ft 688(\))S 719(and)S 802(CGERU)S 974(\(for)S 0.0 11 11 f.I ft 1058(A)S 1093( )S 1104 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1149( )S 1160 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1189(x)S 1210(y)S 1238( )S 1314 Y 0.0 8 8 f.I ft 1249(T)S 1341 Y 0.0 11 11 f.I ft 1274( )S 1285 X(+)s 1316( A)S 0.0 11 11 f.R ft 1362(\).)S 1415(Both)S 1521(are)S 1594(frequently)S 1800(required.)S 1981(An)S 2053(a)S 2074(l)S 2087(t)S 2100(e)S 2121(r)S 2136(n)S 2159(a)S 2180(t)S 2193(i)S 2206(v)S 2229(e)S 300 X 1407 Y(would)s 430(be)S 489(to)S 541(provide)S 698(a)S 735(single)S 862(complex)S 1037(routine)S 1184(CGER)S 1323(with)S 1421(an)S 1481(option)S 1615(argument;)S 1818(however)S 1993(this)S 2076(a)S 2097(r)S 2112(g)S 2135(u)S 2158(m)S 2193(e)S 2214(n)S 2237(t)S 300 X 1473 Y(would)s 435(have)S 543(become)S 707(redundant)S 912(in)S 968(the)S 1045(real)S 1135(routine)S 1286(SGER.)S 1434(Rather)S 1578(than)S 1678(have)S 1786(redundant)S 1990(arguments,)S 2212(or)S 300 X 1539 Y(di)s 336 X Cff 365(erent)S 469(argument)S 655(lists)S 742(for)S 807(the)S 876(real)S 958(and)S 1037(complex)S 1208(routines,)S 1380(we)S 1446(have)S 1546(chosen)S 1687(two)S 1768(distinct)S 1917(complex)S 2088(r)S 2103(o)S 2126(u)S 2149(t)S 2162(i)S 2175(n)S 2198(e)S 2219(s)S 2237(;)S 300 X 1605 Y(they)s 391(are)S 459(analogous)S 658(to)S 705(the)S 773(level)S 875(1)S 909(BLAS)S 1037(CDOTC)S 1204(\()S 0.0 11 11 f.I ft 1219(c)S 1247( )S 1258 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1303( )S 1314(c)S 1342( )S 1353 X(+)s 1384( x)S 1613 Y 1399 X 0.0 11 11 f.S2 ft(M)s 1605 Y 0.0 11 11 f.I ft 1423( )S 1578 Y 0.0 8 8 f.I ft 1434(T)S 1605 Y 0.0 11 11 f.I ft 1459(y)S 0.0 11 11 f.R ft 1487(\))S 1513(and)S 1591(CDOTU)S 1760(\()S 0.0 11 11 f.I ft 1775(c)S 1803( )S 1814 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1859( )S 1870(c)S 1898( )S 1909 X(+)s 1940( )S 1951(x)S 1979( )S 1578 Y 0.0 8 8 f.I ft 1990(T)S 1605 Y 0.0 11 11 f.I ft 2015(y)S 0.0 11 11 f.R ft 2043(\).)S 300 X 1696 Y 405 X(Note)s 506(that)S 587(no)S 644(check)S 764(has)S 837(been)S 936(included)S 1107(for)S 1171(singularity,)S 1391(and)S 1469(near)S 1560(singularity,)S 1781(in)S 1829(the)S 1898(triangular)S 2090(e)S 2111(q)S 2134(u)S 2157(a)S 2178(t)S 2191(i)S 2204(o)S 2227(n)S 300 X 1762 Y(solving)s 451(routines.)S 637(The)S 724(requirements)S 980(for)S 1048(such)S 1148(a)S 1184(test)S 1264(depend)S 1413(upon)S 1520(the)S 1592(application)S 1814(and)S 1896(so)S 1952(we)S 2021(felt)S 2098(that)S 2183(this)S 300 X 1828 Y(should)s 434(not)S 504(be)S 559(included,)S 741(but)S 811(should)S 945(instead)S 1088(be)S 1143(performed)S 1345(before)S 1474(calling)S 1612(the)S 1680(triangular)S 1871(s)S 1889(o)S 1912(l)S 1925(v)S 1948(e)S 1969(r)S 1984(.)S 300 X 1919 Y 405 X(On)s 475(certain)S 616(machines,)S 816(which)S 944(do)S 1005(not)S 1079(use)S 1156(the)S 1228(ASCII)S 1362(sequence)S 1548(on)S 1609(all)S 1671(of)S 1724(their)S 1824(F)S 1848(o)S 1871(r)S 1886(t)S 1899(r)S 1914(a)S 1935(n)S 1973(systems,)S 2145(lower)S 300 X 1985 Y(case)s 398(characters)S 604(may)S 700(not)S 776(exist,)S 892(so)S 950(that)S 1037(the)S 1111(innocent)S 1288(looking)S 1446(argument)S 0.0 11 11 f.I ft 1636(`t')S 0.0 11 11 f.R ft 1677(,)S 1704(passed)S 1844(through)S 2003(the)S 2076(a)S 2097(r)S 2112(g)S 2135(u)S 2158(m)S 2193(e)S 2214(n)S 2237(t)S 300 X 2051 Y(TRANS)s 463(for)S 529(designating)S 756(a)S 790(transposed)S 1002(matrix,)S 1147(is)S 1192(not)S 1265(in)S 1315(the)S 1386(F)S 1410(o)S 1433(r)S 1448(t)S 1461(r)S 1476(a)S 1497(n)S 1534(character)S 1719(set.)S 1796(Some)S 1914(U)S 1947(N)S 1980(I)S 1995(V)S 2024(A)S 2057(C)S 2102(s)S 2120(y)S 2143(s)S 2161(t)S 2174(e)S 2195(m)S 2230(s)S 300 X 2117 Y(do)s 358(not)S 429(have)S 529(a)S 562(lower)S 679(case)S 772(r)S 787(e)S 808(p)S 831(r)S 846(e)S 867(s)S 885(e)S 906(n)S 929(t)S 942(a)S 963(t)S 976(i)S 989(o)S 1012(n)S 1047(using)S 1159(the)S 1228(`)S 1243 X(\256)s 1268(eld)S 1337(d)S 1360(a)S 1381(t)S 1394(a)S 1413(')S 1440(character)S 1623(set.)S 1698(On)S 1765(the)S 1833(CDC)S 1939(NOS-2)S 2079(system,)S 2229(a)S 300 X 2183 Y(mechanism)s 523(is)S 567(provided)S 744(for)S 810(a)S 844(full)S 921(128)S 1003(ASCII)S 1135(character)S 1320(set)S 1386(by)S 1446(using)S 1560(pairs)S 1664(of)S 1716(6-bit)S 1817(host)S 1908(characters)S 2111(for)S 2178(cer)S 2235 X(-)s 300 X 2249 Y(tain)s 384(7-bit)S 485(ASCII)S 618(characters.)S 832(This)S 928(means)S 1059(that)S 1142(there)S 1248(is)S 1292(a)S 1326(`2)S 1377(for)S 1443(1')S 1494(physical)S 1662(extension)S 1853(of)S 1904(the)S 1974(logical)S 2114(r)S 2129(e)S 2150(c)S 2171(o)S 2194(r)S 2209(d)S 2232(s)S 300 X 2315 Y(that)s 392(contain)S 540(lower)S 656(case)S 748(letters.)S 885(This)S 979(fact)S 1061(can)S 1138(hamper)S 1288(portability)S 1493(of)S 1543(codes)S 1661(written)S 1804(on)S 1862(ASCII)S 1993(machines)S 2180(that)S 300 X 2381 Y(are)s 370(later)S 466(moved)S 604(to)S 653(CDC)S 761(systems.)S 931(The)S 1016(only)S 1111(safe)S 1199(way)S 1288(to)S 1336(proceed)S 1495(is)S 1538(to)S 1586(convert)S 1737(the)S 1806(transported)S 2026(text)S 2108(e)S 2129(n)S 2152(t)S 2165(i)S 2178(r)S 2193(e)S 2214(l)S 2227(y)S 300 X 2447 Y(into)s 387(the)S 459(F)S 483(o)S 506(r)S 521(t)S 534(r)S 549(a)S 570(n)S 608(character)S 794(set.)S 883(On)S 954(the)S 1026(other)S 1136(hand)S 1241(we)S 1310(believe)S 1460(that)S 1545(users)S 1655(on)S 1716(ASCII)S 1850(character)S 2036(set)S 2104(s)S 2122(y)S 2145(s)S 2163(t)S 2176(e)S 2197(m)S 2232(s)S 300 X 2513 Y(may)s 391(wish)S 490(to)S 538(treat)S 633(upper)S 750(and)S 829(lower)S 946(case)S 1039(letters)S 1165(as)S 1216(equivalent)S 1421(in)S 1468(meaning.)S 1660(If)S 1701(this)S 1779(is)S 1821(done,)S 1933(it)S 1970(means)S 2099(that)S 2180(text)S 300 X 2579 Y(that)s 383(will)S 468(be)S 525(transported)S 746(to)S 795(machines)S 983(of)S 1034(unknown)S 1218(types)S 1329(must)S 1431(have)S 1532(the)S 1602(ASCII)S 1734(set)S 1799(mapped)S 1959(into)S 2045(the)S 2116(F)S 2140(o)S 2163(r)S 2178(t)S 2191(r)S 2206(a)S 2227(n)S 300 X 2645 Y(character)s 482(set)S 545(before)S 674(the)S 742(text)S 823(is)S 865(m)S 900(o)S 923(v)S 946(e)S 967(d)S 990(.)S 300 X 2736 Y 405 X(The)s 494(band)S 601(storage)S 752(scheme)S 908(used)S 1010(by)S 1073(the)S 1147(GB,)S 1239(HB,)S 1331(SB,)S 1416(and)S 1501(TB)S 1578(routines)S 1745(has)S 1825(columns)S 1999(of)S 2055(the)S 2130(m)S 2165(a)S 2186(t)S 2199(r)S 2214(i)S 2227(x)S 300 X 2802 Y(stored)s 426(in)S 474(columns)S 642(of)S 692(the)S 761(array,)S 879(and)S 958(diagonals)S 1148(of)S 1198(the)S 1267(matrix)S 1399(stored)S 1524(in)S 1572(rows)S 1673(of)S 1723(the)S 1792(array.)S 1910(This)S 2004(is)S 2047(the)S 2116(s)S 2134(t)S 2147(o)S 2170(r)S 2185(a)S 2206(g)S 2229(e)S 300 X 2868 Y(scheme)s 452(used)S 550(by)S 609(L)S 637(I)S 652(N)S 685(P)S 709(A)S 742(C)S 773(K)S 806(.)S 830(An)S 899(alternative)S 1109(scheme)S 1261(\(used)S 1374(in)S 1423(some)S 1533(E)S 1561(I)S 1576(S)S 1601(P)S 1625(A)S 1658(C)S 1689(K)S 1735([8,11])S 1858(routines\))S 2035(has)S 2110(rows)S 2212(of)S 300 X 2934 Y(the)s 373(matrix)S 509(stored)S 638(in)S 690(rows)S 795(of)S 849(the)S 922(array,)S 1044(and)S 1127(diagonals)S 1321(of)S 1375(the)S 1447(matrix)S 1582(stored)S 1710(in)S 1761(columns)S 1932(of)S 1985(the)S 2057(array.)S 2178(The)S 300 X 3000 Y(latter)s 413(scheme)S 569(has)S 648(the)S 722(advantage)S 928(that)S 1015(a)S 1053(band)S 1160(m)S 1195(a)S 1216(t)S 1229(r)S 1244(i)S 1257(x)S 1280(-)S 1295(v)S 1318(e)S 1339(c)S 1360(t)S 1373(o)S 1396(r)S 1428(product)S 1586(of)S 1641(the)S 1715(form)S 0.0 11 11 f.I ft 1820(y)S 1848( )S 1859 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1904( )S 1915 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1944(A)S 1972(x)S 2000( )S 2011 X(+)s 2042( )S 2053 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 2078(y)S 0.0 11 11 f.R ft 2123(can)S 2206(be)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Italic BracketFont Symbol %%Page: label 16 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1226 X(- 14 -)s 300 X 366 Y(computed)s 498(using)S 614(long)S 712(vectors)S 862(\(the)S 950(diagonals)S 1144(of)S 1198(the)S 1271(matrix\))S 1422(stored)S 1551(in)S 1603(contiguous)S 1822(elements,)S 2013(and)S 2095(hence)S 2219(is)S 300 X 432 Y(much)s 414(more)S 520(e)S 541 X /CFi{ (f) show xsiz pt 20 div neg 0 rmoveto (\256) s }bind def CFi 580(cient)S 683(on)S 741(some)S 850(machines)S 1037(\(e.g.)S 1130(CDC)S 1237(Cyber)S 1362(205\))S 1458(than)S 1550(the)S 1619 X(\256)s 1644(rst)S 1703(scheme.)S 1866(However)S 2048(other)S 2156(com)S 2235 X(-)s 300 X 498 Y(putations)s 484(involving)S 675(band)S 779(matrices,)S 961(such)S 1060(as)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1113(x)S 1141( )S 1152 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1197( )S 1208(T)S 1230(x)S 0.0 11 11 f.R ft 1258(,)S 0.0 11 11 f.I ft 1283(x)S 1311( )S 1322 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1367( )S 1378(T)S 1410( )S 471 Y 1421 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.R ft 1439(1)S 498 Y 0.0 11 11 f.I ft 1456(x)S 0.0 11 11 f.R ft 1498(and)S 0.0 11 11 f.I ft 1579(LU)S 0.0 11 11 f.R ft 1658(and)S 0.0 11 11 f.I ft 1738(U)S 1778( )S 471 Y 0.0 8 8 f.I ft 1789(T)S 498 Y 0.0 11 11 f.I ft 1814(U)S 0.0 11 11 f.R ft 1867(f)S 1882(a)S 1903(c)S 1924(t)S 1937(o)S 1960(r)S 1975(i)S 1988(z)S 2009(a)S 2030(t)S 2043(i)S 2056(o)S 2079(n)S 2102(,)S 2126(c)S 2147(a)S 2168(n)S 2191(n)S 2214(o)S 2237(t)S 300 X 564 Y(be)s 357(organized)S 553(`by)S 627(d)S 650(i)S 663(a)S 684(g)S 707(o)S 730(n)S 753(a)S 774(l)S 787(s)S 803(')S 818(;)S 844(instead)S 989(the)S 1059(computation)S 1303(sweeps)S 1450(along)S 1567(the)S 1638(band,)S 1753(and)S 1834(the)S 1905(L)S 1933(I)S 1948(N)S 1981(P)S 2005(A)S 2038(C)S 2069(K)S 2116(s)S 2134(t)S 2147(o)S 2170(r)S 2185(a)S 2206(g)S 2229(e)S 300 X 630 Y(scheme)s 455(has)S 533(the)S 606(advantage)S 811(of)S 864(reducing)S 1041(the)S 1113(number)S 1268(of)S 1321(page)S 1424(swaps)S 1552(and)S 1634(allowing)S 1811(contiguous)S 2029(vectors)S 2178(\(the)S 300 X 696 Y(columns)s 467(of)S 516(the)S 584(matrix\))S 730(to)S 777(be)S 832(used.)S 300 X 787 Y 405 X(W)s 446(e)S 486(considered)S 706(the)S 782(possibility)S 994(of)S 1051(generalizing)S 1300(the)S 1376(rank-1)S 1515(and)S 1601(rank-2)S 1740(updates)S 1901(to)S 1957(rank-k)S 2097(u)S 2120(p)S 2143(d)S 2166(a)S 2187(t)S 2200(e)S 2221(s)S 2239(.)S 300 X 853 Y(Rank-k)s 450(updates)S 606(with)S 0.0 11 11 f.I ft 702(k)S 730( )S 741(>)S 772( )S 0.0 11 11 f.R ft 783(1)S 820(\(but)S 0.0 11 11 f.I ft 908(k)S 936( )S 947(<)S 965(<)S 996( )S 1007(n)S 0.0 11 11 f.R ft 1037(\))S 1065(can)S 1143(achieve)S 1299(signi)S 1389 X(\256)s 1414(cantly)S 1541(better)S 1660(performance)S 1906(on)S 1965(some)S 2075(m)S 2110(a)S 2131(c)S 2152(h)S 2175(i)S 2188(n)S 2211(e)S 2232(s)S 300 X 919 Y(than)s 396(rank-1)S 532([5].)S 612(But)S 695(to)S 747(take)S 841(advantage)S 1046(of)S 1100(this)S 1183(usually)S 1333(requires)S 1498(complicating)S 1756(the)S 1830(calling)S 1974(algorithm;)S 2183(and)S 300 X 985 Y(moreover)s 489(rank-k)S 622(updates)S 777(with)S 0.0 11 11 f.I ft 872(k)S 900( )S 976 Y 911 X 0.0 11 11 f.S ft(~)s 987 Y 911 X(~)s 985 Y 0.0 11 11 f.I ft 936( n)S 0.0 11 11 f.R ft 990(would)S 1118(allow)S 1233(an)S 1289(even)S 1389(higher)S 1519(level)S 1622(operation)S 1809(such)S 1906(as)S 1957(matrix)S 2089(multipli)S 2235 X(-)s 300 X 1051 Y(cation)s 425(`in)S 487(by)S 544(the)S 612(back)S 711(d)S 734(o)S 757(o)S 780(r)S 794(')S 807(.)S 840(W)S 881(e)S 913(prefer)S 1034(to)S 1081(keep)S 1180(to)S 1227(a)S 1259(clean)S 1369(concept)S 1525(of)S 1574(genuine)S 1732(m)S 1767(a)S 1788(t)S 1801(r)S 1816(i)S 1829(x)S 1852(-)S 1867(v)S 1890(e)S 1911(c)S 1932(t)S 1945(o)S 1968(r)S 1994(o)S 2017(p)S 2040(e)S 2061(r)S 2076(a)S 2097(t)S 2110(i)S 2123(o)S 2146(n)S 2169(s)S 2187(.)S 300 X 1249 Y %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft(8.)s 356(A)S 389(c)S 410(k)S 435(n)S 460(o)S 483(w)S 516(l)S 529(e)S 550(d)S 575(g)S 598(e)S 619(m)S 658(e)S 679(n)S 704(t)S 719(s)S 300 X 1340 Y 405 X 0.0 11 11 f.R ft(A)s 452(draft)S 553(proposal)S 726(that)S 810(led)S 881(to)S 931(this)S 1012(speci)S 1108 X(\256)s 1133(cation)S 1261(was)S 1347(discussed)S 1539(at)S 1588(the)S 1660(P)S 1684(a)S 1705(r)S 1720(v)S 1743(e)S 1764(c)S 1800(IV)S 1863(W)S 1904(o)S 1927(r)S 1942(k)S 1965(s)S 1983(h)S 2006(o)S 2029(p)S 2067(o)S 2090(r)S 2105(g)S 2128(a)S 2149(n)S 2172(i)S 2185(z)S 2206(e)S 2227(d)S 300 X 1406 Y(by)s 358(John)S 456(Rice)S 553(at)S 598(P)S 622(u)S 645(r)S 660(d)S 683(u)S 706(e)S 738(University)S 944(on)S 1001(October)S 1161(29-30,)S 1290(1984)S 1393(and)S 1471(at)S 1516(various)S 1663(SIAM)S 1788(conferences.)S 2043(W)S 2084(e)S 2116(wish)S 2214(to)S 300 X 1472 Y(thank)s 416(all)S 476(the)S 546(participants)S 776(at)S 823(the)S 893(workshop)S 1087(and)S 1167(meetings)S 1347(for)S 1414(their)S 1513(comments,)S 1727(discussions,)S 1963(and)S 2044(encourage)S 2235 X(-)s 300 X 1538 Y(ment,)s 414(as)S 464(well)S 555(as)S 605(the)S 673(many)S 786(people)S 921(who)S 1011(have)S 1110(sent)S 1196(us)S 1248(comments)S 1448(s)S 1466(e)S 1487(p)S 1510(a)S 1531(r)S 1546(a)S 1567(t)S 1580(e)S 1601(l)S 1614(y)S 1637(.)S 300 X 1736 Y 0.0 11 11 f.B ft(13.)s 379(R)S 412(e)S 433(f)S 448(e)S 469(r)S 490(e)S 511(n)S 536(c)S 557(e)S 578(s)S 300 X 1893 Y 0.0 11 11 f.R ft([)s 315(1)S 338(])S 405(D)S 438(.)S 449(S)S 474(.)S 503(Dodson)S 664(and)S 749(J.G.)S 840(Lewis,)S 982("Issues)S 1132(relating)S 1292(to)S 1346(extension)S 1542(of)S 1598(the)S 1673(Basic)S 1795(Linear)S 1935(Algebra)S 2103(Subpro)S 2235 X(-)s 300 X 1959 Y 405 X(g)s 428(r)S 443(a)S 464(m)S 499(s)S 515(")S 531(,)S 553(ACM)S 669(SIGNUM)S 860(Newsletter,)S 1083(vol)S 1153(20,)S 1221(no)S 1278(1,)S 1323(\(1985\),)S 1467(2-18.)S 300 X 2116 Y([)s 315(2)S 338(])S 405(J)S 423(.)S 434(J)S 452(.)S 480(Dongarra)S 671(and)S 755(S.C.)S 851(Eisenstat,)S 1048(``Squeezing)S 1289(the)S 1364(Most)S 1477(out)S 1554(of)S 1610(an)S 1672(Algorithm)S 1881(in)S 1935(C)S 1966(R)S 1997(A)S 2026(Y)S 2077(F)S 2101(o)S 2124(r)S 2139(t)S 2152(r)S 2167(a)S 2188(n)S 2211(,)S 2220(')S 2235(')S 300 X 2182 Y 405 X 0.0 11 11 f.I ft(ACM)s 514(T)S 536(r)S 554(a)S 577(n)S 600(s)S 618(a)S 641(c)S 662(t)S 675(i)S 688(o)S 711(n)S 734(s)S 763(on)S 820(Mathematical)S 1089(Software,)S 0.0 11 11 f.R ft 1276(V)S 1305(o)S 1328(l)S 1341(.)S 1363(10,)S 1431(No.)S 1509(3,)S 1554(\(1984\),)S 1698(2)S 1721(2)S 1744(1)S 1767(-)S 1782(2)S 1805(3)S 1828(0)S 1851(.)S 300 X 2339 Y([)s 315(3)S 338(])S 405(J)S 423(.)S 434(J)S 452(.)S 474(Dongarra,)S 0.0 11 11 f.I ft 670(Increasing)S 879(the)S 947(P)S 974(e)S 995(r)S 1013(f)S 1026(o)S 1049(r)S 1067(m)S 1100(a)S 1123(n)S 1146(c)S 1167(e)S 1200(of)S 1248(Mathematical)S 1518(Software)S 1695(through)S 1853(High-Level)S 2073(Modular)S 2235 X(-)s 300 X 2405 Y 405 X(ity.)s 0.0 11 11 f.R ft 488(P)S 512(r)S 527(o)S 550(c)S 571(e)S 592(e)S 613(d)S 636(i)S 649(n)S 672(g)S 695(s)S 727(of)S 779(the)S 850(Sixth)S 960(I)S 975(n)S 998(t)S 1011(e)S 1032(r)S 1047(n)S 1070(a)S 1091(t)S 1104(i)S 1117(o)S 1140(n)S 1163(a)S 1184(l)S 1210(Symposium)S 1441(on)S 1500(Computing)S 1720(Methods)S 1895(in)S 1944(Engineering)S 2183(and)S 300 X 2471 Y 405 X(Applied)s 565(Sciences.)S 761(\()S 776(V)S 805(e)S 826(r)S 841(s)S 859(a)S 880(i)S 893(l)S 906(l)S 919(e)S 940(s)S 958(,)S 980(F)S 1004(r)S 1019(a)S 1040(n)S 1063(c)S 1084(e)S 1105(\))S 1120(.)S 1142(N)S 1175(o)S 1198(r)S 1213(t)S 1226(h)S 1249(-)S 1264(H)S 1297(o)S 1320(l)S 1333(l)S 1346(a)S 1367(n)S 1390(d)S 1424(\(1984\),)S 1568(pp)S 1625(2)S 1648(3)S 1671(9)S 1694(-)S 1709(2)S 1732(4)S 1755(8)S 1778(.)S 300 X 2628 Y([)s 315(4)S 338(])S 405(J)S 423(.)S 434(J)S 452(.)S 476(Dongarra,)S 674(J.R.)S 758(Bunch,)S 903(C.B.)S 1000(Moler,)S 1137(and)S 1218(G)S 1251(.)S 1262(W)S 1303(.)S 1328(Stewart,)S 0.0 11 11 f.I ft 1494(L)S 1519(I)S 1534(N)S 1565(P)S 1592(A)S 1620(C)S 1651(K)S 1696(U)S 1729(s)S 1747(e)S 1768(r)S 1786(s)S 1802(')S 1831(Guide,)S 0.0 11 11 f.R ft 1969(SIAM)S 2097(P)S 2121(u)S 2144(b)S 2167(l)S 2180(i)S 2193(c)S 2214(a)S 2235 X(-)s 300 X 2694 Y 405 X(tions,)s 517(P)S 542(h)S 565(i)S 578(l)S 591(a)S 612(d)S 635(e)S 656(l)S 669(p)S 692(h)S 715(i)S 728(a)S 749(,)S 771(1979.)S 300 X 2851 Y([)s 315(5)S 338(])S 405(J)S 423(.)S 434(J)S 452(.)S 478(Dongarra,)S 678(L.)S 732(Kaufman,)S 929(and)S 1011(S.)S 1062(Hammarling,)S 0.0 11 11 f.I ft 1320(Squeezing)S 1523(the)S 1595(Most)S 1703(out)S 1777(of)S 1828(Eigenvalue)S 2052(Solvers)S 2204(on)S 300 X 2917 Y 405 X(H)s 438(i)S 451(g)S 474(h)S 497(-)S 512(P)S 539(e)S 560(r)S 578(f)S 591(o)S 614(r)S 632(m)S 665(a)S 688(n)S 711(c)S 732(e)S 764(Computers,)S 0.0 11 11 f.R ft 989(Linear)S 1121(Algebra)S 1281(and)S 1359(Its)S 1416(A)S 1449(p)S 1472(p)S 1495(l)S 1508(i)S 1521(c)S 1542(a)S 1563(t)S 1576(i)S 1589(o)S 1612(n)S 1635(s)S 1653(,)S 1675(77,)S 1743(pp)S 1800(113-136,)S 1975(\()S 1990(1)S 2013(9)S 2036(8)S 2059(6)S 2082(\))S 2097(.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Italic Symbol Times-Bold %%Page: label 17 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1226 X(- 15 -)s 300 X 366 Y([)s 315(6)S 338(])S 405(J)S 423(.)S 434(J)S 452(.)S 474(Dongarra,)S 670(J.J.)S 739(Du)S 806(Croz,)S 918(S.)S 965(Hammarling,)S 1219(R.J.)S 1301(Hanson,)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1464(A)S 1503(P)S 1530(r)S 1548(o)S 1571(p)S 1594(o)S 1617(s)S 1635(a)S 1658(l)S 1682(for)S 1747(an)S 1804(Extended)S 1988(Set)S 2057(of)S 2105(F)S 2132(o)S 2155(r)S 2173(t)S 2186(r)S 2204(a)S 2227(n)S 300 X 432 Y 405 X(Basic)s 519(Linear)S 653(Algebra)S 813(Subprograms,)S 0.0 11 11 f.R ft 1083(ACM)S 1199(SIGNUM)S 1390(Newsletter,)S 1613(vol.)S 1694(20,)S 1762(no.)S 1830(1,)S 1875(1985.)S 300 X 589 Y([)s 315(7)S 338(])S 405(J)S 423(.)S 434(J)S 452(.)S 476(Dongarra,)S 674(J.J.)S 745(Du)S 814(Croz,)S 928(S.)S 977(Hammarling,)S 1233(R.J.)S 1317(Hanson,)S 0.0 11 11 f.I ft 1483(Model)S 1616(I)S 1631(m)S 1664(p)S 1687(l)S 1700(e)S 1721(m)S 1754(e)S 1775(n)S 1798(t)S 1811(a)S 1834(t)S 1847(i)S 1860(o)S 1883(n)S 1920(and)S 2003(T)S 2025(e)S 2046(s)S 2064(t)S 2091(P)S 2118(a)S 2141(c)S 2162(k)S 2183(a)S 2206(g)S 2229(e)S 300 X 655 Y 405 X(for)s 470(the)S 538(Extended)S 722(BLAS,)S 0.0 11 11 f.R ft 848(Argonne)S 1020(National)S 1191(Laboratory)S 1407(Report,)S 1555(ANL)S 1660(MCS-TM)S 1852(81,)S 1920(August)S 2064(1986.)S 300 X 812 Y([)s 315(8)S 338(])S 405(B)S 436(.)S 447(S)S 472(.)S 502(Garbow,)S 680(J.M.)S 780(Boyle,)S 921(J.J.)S 998(Dongarra,)S 1203(C.B.)S 1307(Moler,)S 0.0 11 11 f.I ft 1451(Matrix)S 1598(Eigensystem)S 1850(Routines)S 2032(-)S 2067(E)S 2095(I)S 2110(S)S 2133(P)S 2160(A)S 2188(C)S 2219(K)S 300 X 878 Y 405 X(Guide)s 529(Extension,)S 0.0 11 11 f.R ft 734(Lecture)S 887(Notes)S 1006(in)S 1053(Computer)S 1248(Science,)S 1415(V)S 1444(o)S 1467(l)S 1480(.)S 1502(51,)S 1570(S)S 1595(p)S 1618(r)S 1633(i)S 1646(n)S 1669(g)S 1692(e)S 1713(r)S 1728(-)S 1743(V)S 1772(e)S 1793(r)S 1808(l)S 1821(a)S 1842(g)S 1865(,)S 1887(Berlin,)S 2025(1977.)S 300 X 1035 Y([)s 315(9)S 338(])S 405(C)S 436(.)S 460(Lawson,)S 630(R.)S 685(Hanson,)S 850(D.)S 907(Kincaid,)S 1078(and)S 1158(F)S 1182(.)S 1206(Krogh,)S 1347(``Basic)S 1494(Linear)S 1628(Algebra)S 1790(Subprograms)S 2047(for)S 2114(F)S 2138(o)S 2161(r)S 2176(t)S 2189(r)S 2204(a)S 2225(n)S 300 X 1101 Y 405 X(U)s 438(s)S 456(a)S 477(g)S 500(e)S 521(,)S 530(')S 545(')S 0.0 11 11 f.I ft 571(ACM)S 680(T)S 702(r)S 720(a)S 743(n)S 766(s)S 784(a)S 807(c)S 828(t)S 841(i)S 854(o)S 877(n)S 900(s)S 929(on)S 986(Mathematical)S 1255(Software)S %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft 1431(5)S 0.0 11 11 f.R ft 1465(\(1979\),)S 1609(3)S 1632(0)S 1655(8)S 1678(-)S 1693(3)S 1716(2)S 1739(3)S 1762(.)S 300 X 1258 Y([)s 315(1)S 338(0)S 361(])S 405(C)S 436(.)S 461(Lawson,)S 632(R.)S 688(Hanson,)S 854(D.)S 912(Kincaid,)S 1084(and)S 1165(F)S 1189(.)S 1214(Krogh,)S 1356(``Algorithm)S 1591(539:)S 1687(Basic)S 1805(Linear)S 1940(Algebra)S 2103(Subpro)S 2235 X(-)s 300 X 1324 Y 405 X(grams)s 528(for)S 592(F)S 616(o)S 639(r)S 654(t)S 667(r)S 682(a)S 703(n)S 737(U)S 770(s)S 788(a)S 809(g)S 832(e)S 853(,)S 862(')S 877(')S 0.0 11 11 f.I ft 903(ACM)S 1012(T)S 1034(r)S 1052(a)S 1075(n)S 1098(s)S 1116(a)S 1139(c)S 1160(t)S 1173(i)S 1186(o)S 1209(n)S 1232(s)S 1261(on)S 1318(Mathematical)S 1587(Software)S 0.0 11 11 f.B ft 1763(5)S 0.0 11 11 f.R ft 1797(\(1979\),)S 1941(3)S 1964(2)S 1987(4)S 2010(-)S 2025(3)S 2048(2)S 2071(5)S 2094(.)S 300 X 1481 Y([)s 315(1)S 338(1)S 361(])S 405(B)S 436(.)S 446(T)S 471(.)S 494(Smith,)S 626(J.M.)S 720(Boyle,)S 855(J.J.)S 926(Dongarra,)S 1124(B.S.)S 1215(Garbow,)S 1387(Y)S 1416(.)S 1440(Ikebe,)S 1567(V)S 1596(.)S 1607(C)S 1638(.)S 1662(Klema,)S 1809(and)S 1889(C.B.)S 1986(Moler,)S 0.0 11 11 f.I ft 2123(M)S 2162(a)S 2185(t)S 2198(r)S 2216(i)S 2229(x)S 300 X 1547 Y 405 X(Eigensystem)s 652(Routines)S 829(-)S 858(E)S 886(I)S 901(S)S 924(P)S 951(A)S 979(C)S 1010(K)S 1055(Guide,)S 0.0 11 11 f.R ft 1193(Lecture)S 1349(Notes)S 1471(in)S 1521(Computer)S 1719(Science,)S 1889(V)S 1918(o)S 1941(l)S 1954(.)S 1979(6,)S 2027(2nd)S 2110(e)S 2131(d)S 2154(i)S 2167(t)S 2180(i)S 2193(o)S 2216(n)S 2239(,)S 300 X 1613 Y 405 X(S)s 430(p)S 453(r)S 468(i)S 481(n)S 504(g)S 527(e)S 548(r)S 563(-)S 578(V)S 607(e)S 628(r)S 643(l)S 656(a)S 677(g)S 700(,)S 722(Berlin,)S 860(1976.)S 300 X 1770 Y([12])s 0.0 11 11 f.I ft 405(IEEE)S 522(Standard)S 709(for)S 781(Binary)S 925(F)S 953(l)S 966(o)S 989(a)S 1012(t)S 1025(i)S 1038(n)S 1061(g)S 1084(-)S 1099(P)S 1126(o)S 1149(i)S 1162(n)S 1185(t)S 1216(Arithmetic,)S 0.0 11 11 f.R ft 1441(ANSI/IEEE)S 1677(Std)S 1756(754-1985,)S 1961(The)S 2051(IEEE)S 2169(Inc.,)S 300 X 1836 Y 405 X(New)s 503(Y)S 532(o)S 555(r)S 570(k)S 593(,)S 615(\()S 630(1)S 653(9)S 676(8)S 699(5)S 722(\))S 737(.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Italic Times-Bold %%Page: label 18 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1226 X(- 16 -)s 300 X 366 Y %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft(Appendix)s 501(A)S 300 X 457 Y 405 X 0.0 11 11 f.R ft(In)s 460(this)S 544(appendix)S 731(we)S 802(illustrate)S 982(how)S 1078(to)S 1131(use)S 1210(the)S 1284(full)S 1366(matrix)S 1504(update)S 1646(routines)S 1813(to)S 1867(obtain)S 2001(rank-one)S 2183(and)S 300 X 523 Y(rank-two)s 478(updates)S 632(to)S 680(band)S 782(matrices.)S 962(W)S 1003(e)S 1036(assume)S 1184(that)S 1266(the)S 1335(vectors)S 1481(x)S 1516(and)S 1595(y)S 1629(are)S 1697(such)S 1793(that)S 1874(no)S 1931 X(\256)s 1956(ll-in)S 2044(occurs)S 2176(out)S 2235 X(-)s 300 X 589 Y(side)s 390(the)S 463(band,)S 580(in)S 632(which)S 761(case)S 858(the)S 931(update)S 1071(a)S 1092 X /Cff{ (f) show xsiz pt 20 div neg 0 rmoveto (f) s }bind def Cff 1121(ects)S 1210(only)S 1308(a)S 1345(full)S 1425(rectangle)S 1612(within)S 1746(the)S 1819(band)S 1925(matrix)S 2061(A.)S 2121(This)S 2219(is)S 300 X 655 Y(illustrated)s 501(in)S 552(Fig.)S 639(A.1)S 721(for)S 789(the)S 861(case)S 957(where)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1085(m)S 1125 X(=)s 1156(n)S 1186 X(=)s 0.0 11 11 f.R ft 1217(9,)S 0.0 11 11 f.I ft 1266(kl)S 1307 X(=)s 0.0 11 11 f.R ft 1338(2,)S 0.0 11 11 f.I ft 1387(ku)S 1438 X(=)s 0.0 11 11 f.R ft 1469(3)S 1507(and)S 1589(the)S 1661(update)S 1800(commences)S 2033(in)S 2083(row)S 2168(\(and)S 300 X 721 Y(column\))s 0.0 11 11 f.I ft 464(l)S 484 X(=)s 0.0 11 11 f.R ft 515(3.)S 300 X 853 Y 307(\()S 363(*)S 453(*)S 543(*)S 633(*)S 1147 X(\))s 1267 X(\()s 1323(0)S 1387(\))S 1417(\()S 1473(0)S 1563(0)S 1653(*)S 1743(*)S 1833(*)S 1923(*)S 2013(0)S 2103(0)S 2193(0)S 2257(\))S 300 X 919 Y 307(\()S 363(*)S 453(*)S 543(*)S 573(_)S 603(_)S 633(*)S 663(_)S 693(_)S 723(*)S 753(_)S 783(_)S 1147 X(\))s 1267 X(\()s 1323(0)S 1387(\))S 300 X 985 Y 307(\()S 363(*)S 453(*)S 520(|)S 543(*)S 633(*)S 723(*)S 813(*)S 850(|)S 1147 X(\))s 1267 X(\()s 1323(*)S 1387(\))S 300 X 1051 Y 307(\()S 453 X(*)s 520(|)S 543(*)S 633(*)S 723(*)S 813(*)S 850(|)S 903(*)S 1147 X(\))s 1267 X(\()s 1323(*)S 1387(\))S 300 X 1117 Y 307(\()S 520 X(|)s 543(*)S 573(_)S 603(_)S 633(*)S 663(_)S 693(_)S 723(*)S 753(_)S 783(_)S 813(*)S 850(|)S 903(*)S 993(*)S 1147 X(\))s 1202(+)S 1267(\()S 1323(*)S 1387(\))S 300 X 1183 Y 307(\()S 633 X(*)s 723(*)S 813(*)S 903(*)S 993(*)S 1083(*)S 1147(\))S 1267 X(\()s 1323(0)S 1387(\))S 300 X 1249 Y 307(\()S 723 X(*)s 813(*)S 903(*)S 993(*)S 1083(*)S 1147(\))S 1267 X(\()s 1323(0)S 1387(\))S 300 X 1315 Y 307(\()S 813 X(*)s 903(*)S 993(*)S 1083(*)S 1147(\))S 1267 X(\()s 1323(0)S 1387(\))S 300 X 1381 Y 307(\()S 903 X(*)s 993(*)S 1083(*)S 1147(\))S 1267 X(\()s 1323(0)S 1387(\))S 300 X 300 X 1538 Y 1188 X 0.0 11 11 f.I ft(A)s 1223( )S 1234 X(+)s 1265( )S 1276(x)S 1297(y)S 1325( )S 1511 Y 0.0 8 8 f.I ft 1336(T)S 300 X 1695 Y 1176 X 0.0 11 11 f.R ft(Figure)s 1307(A.1)S 300 X 1827 Y(W)s 341(e)S 377(see)S 453(that)S 539(the)S 612(update)S 752(a)S 773 X Cff 802(ects)S 891(only)S 989(that)S 1075(part)S 1163(of)S 1217(A)S 1266(indicated)S 1453(by)S 1515(the)S 1588(dotted)S 1720(lines,)S 1835(that)S 1921(is,)S 1979(the)S 2052(\()S 0.0 11 11 f.I ft 2067(kl)S 0.0 11 11 f.R ft 2124(+1\))S 2204(by)S 300 X 1893 Y(\()s 0.0 11 11 f.I ft 315(ku)S 0.0 11 11 f.R ft 359(+1\))S 434(part)S 517(of)S 0.0 11 11 f.I ft 566(A)S 0.0 11 11 f.R ft 612(starting)S 762(at)S 0.0 11 11 f.I ft 807(a)S 1908 Y 0.0 8 8 f.I ft 830(ll)S 1893 Y 0.0 11 11 f.R ft 857(.)S 300 X 2028 Y(The)s 384(routines)S 545(that)S 627(we)S 693(could)S 808(have)S 908(included)S 1080(are)S 1150(_GBR,)S 1292(_SBR,)S 1426(and)S 1506(_SBR2)S 1652(\(in)S 1716(the)S 1786(complex)S 1958(case)S 2052(_HBR)S 2183(and)S 300 X 2094 Y(_HBR2\).)s 478(Their)S 589(argument)S 774(lists)S 860(could)S 974(have)S 1073(been)S 300 X 2226 Y 333(_GBR)S 462(\()S 488(M,)S 551(N,)S 606(KL,)S 689(KU,)S 777(L,)S 827(ALPHA,)S 1001(X,)S 1056(INCX,)S 1190(Y)S 1219(,)S 1241(I)S 1256(N)S 1289(C)S 1320(Y)S 1349(,)S 1371(A,)S 1426(LDA)S 1531(\))S 300 X 2292 Y 333(_SBR)S 454(\()S 480(UPLO,)S 621(N,)S 676(K,)S 731(L,)S 781(ALPHA,)S 955(X,)S 1010(INCX,)S 1144(A,)S 1199(LDA)S 1304(\))S 300 X 2358 Y 333(_SBR2)S 477(\()S 503(UPLO,)S 644(N,)S 699(K,)S 754(L,)S 804(ALPHA,)S 978(X,)S 1033(INCX,)S 1167(Y)S 1196(,)S 1218(I)S 1233(N)S 1266(C)S 1297(Y)S 1326(,)S 1348(A,)S 1403(LDA)S 1508(\))S 300 X 2490 Y(where)s 426(the)S 496(argument)S 683(L)S 724(denotes)S 879(the)S 949(starting)S 1101(row)S 1185(and)S 1265(column)S 1416(for)S 1482(the)S 1552(update)S 1689(and)S 1769(the)S 1839(elements)S 0.0 11 11 f.I ft 2017(x)S 2505 Y 0.0 8 8 f.I ft 2038(l)S 2490 Y 0.0 11 11 f.R ft 2068(and)S 0.0 11 11 f.I ft 2149(y)S 2505 Y 0.0 8 8 f.I ft 2170(l)S 2490 Y 0.0 11 11 f.R ft 2187(,)S 2212(of)S 300 X 2559 Y(the)s 368(vectors)S 0.0 11 11 f.I ft 513(x)S 0.0 11 11 f.R ft 552(and)S 0.0 11 11 f.I ft 630(y)S 0.0 11 11 f.R ft 658(,)S 680(are)S 748(in)S 795(elements)S 971(X\(1\))S 1068(and)S 1146(Y\(1\))S 1243(of)S 1292(the)S 1360(arrays)S 1484(X)S 1528(and)S 1606(Y)S 1635(.)S 300 X 2691 Y(Calls)s 407(to)S 454(SGBR)S 585(can)S 661(be)S 716(achieved)S 893(by)S 300 X 2823 Y 311(KM)S 396(=)S 433(MIN)S 533(\(KL+1,)S 680(M)S 721(-)S 736(L)S 764(+)S 790(1)S 813(\))S 300 X 2889 Y 311(KN)S 388(=)S 425(MIN)S 525(\(KU+1,)S 677(N)S 710(-)S 725(L)S 753(+)S 779(1)S 802(\))S 300 X 2955 Y 311(CALL)S 442(SGER)S 570(\(KM,)S 681(KN,)S 769(ALPHA,)S 943(X,)S 998(INCX,)S 1132(Y)S 1161(,)S 1183(I)S 1198(N)S 1231(C)S 1262(Y)S 1291(,)S 1313(A\(KU+1,)S 1498(L\),)S 1563(MAX\(KM,)S 1781(L)S 1809(D)S 1842(A)S 1875(-)S 1890(1)S 1913(\))S 1928(\))S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Bold Times-Italic %%Page: label 19 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1226 X(- 17 -)s 300 X 366 Y(Calls)s 407(to)S 454(SSBR)S 577(can)S 653(be)S 708(achieved)S 885(by)S 300 X 498 Y 333(KN)S 410(=)S 447(MIN\(K+1,)S 655(N)S 688(-)S 703(L)S 731(+)S 757(1)S 780(\))S 300 X 564 Y 333(IF)S 384(\(UPLO)S 529(.EQ.)S 623('U'\))S 712(THEN)S 300 X 630 Y 366(CALL)S 497(S)S 522(S)S 547(Y)S 580(R)S 611(\()S 626(')S 641(U)S 674(')S 687(,)S 709(KN,)S 797(ALPHA,)S 971(X,)S 1026(INCX,)S 1160(A\(K+1,)S 1312(L\),)S 1377(MAX\(1,)S 1544(L)S 1572(D)S 1605(A)S 1638(-)S 1653(1)S 1676(\))S 1691(\))S 300 X 696 Y 333(ELSE)S 300 X 762 Y 366(CALL)S 497(S)S 522(S)S 547(Y)S 580(R)S 611(\()S 626(')S 641(L)S 664(')S 677(,)S 699(KN,)S 787(ALPHA,)S 961(X,)S 1016(INCX,)S 1150(A\(1,)S 1243(L\),)S 1308(MAX\(1,)S 1475(L)S 1503(D)S 1536(A)S 1569(-)S 1584(1)S 1607(\))S 1622(\))S 300 X 828 Y 333(ENDIF)S 300 X 1026 Y(and)s 378(similarly)S 553(for)S 617(calls)S 714(to)S 761(S)S 786(S)S 811(B)S 842(R)S 873(2)S 896(.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman %%Page: label 20 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1226 X(- 18 -)s 300 X 366 Y %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft(Appendix)s 501(B)S 300 X 457 Y 405 X 0.0 11 11 f.R ft(In)s 460(this)S 544(appendix)S 731(we)S 802(propose)S 965(an)S 1026(additional)S 1229(set)S 1298(of)S 1353(real)S 1440(and)S 1524(complex)S 1700(level)S 1808(2)S 1849(routines)S 2016(which)S 2147(allow)S 300 X 523 Y(extended)s 483(precision)S 668(m)S 703(a)S 724(t)S 737(r)S 752(i)S 765(x)S 788(-)S 803(v)S 826(e)S 847(c)S 868(t)S 881(o)S 904(r)S 934(operations)S 1141(to)S 1191(be)S 1249(performed.)S 1476(The)S 1562(names)S 1694(of)S 1746(these)S 1856(routines)S 2019(are)S 2090(o)S 2113(b)S 2136(t)S 2149(a)S 2170(i)S 2183(n)S 2206(e)S 2227(d)S 300 X 589 Y(by)s 359(preceding)S 555(the)S 625(character)S 809(representing)S 1051(the)S 1121(F)S 1145(o)S 1168(r)S 1183(t)S 1196(r)S 1211(a)S 1232(n)S 1268(data)S 1359(type)S 1453(\(S)S 1507(or)S 1559(C\),)S 1630(by)S 1690(the)S 1761(character)S 1946(E.)S 1999(The)S 2085(matrix)S 2219(is)S 300 X 655 Y(always)s 442(stored)S 568(in)S 616(working)S 781(precision)S 963(\(which)S 1103(is)S 1146(single)S 1269(precision)S 1451(for)S 1516(the)S 1585(ES-)S 1665(or)S 1715(EC-)S 1801(set)S 1865(of)S 1915(routines,)S 2087(and)S 2166(dou)S 2235 X(-)s 300 X 721 Y(ble)s 370(precision)S 553(for)S 619(the)S 689(ED-)S 778(or)S 829(EZ-)S 913(set\).)S 1015(The)S 1100(computation)S 1344(must)S 1446(be)S 1503(performed)S 1707(in)S 1756(extended)S 1938(precision)S 2122(\()S 2137(w)S 2170(h)S 2193(i)S 2206(c)S 2227(h)S 300 X 787 Y(is)s 342(at)S 387(least)S 484(double)S 621(precision)S 802(for)S 866(ES-)S 945(or)S 994(EC-)S 1079(set,)S 1153(and)S 1231(at)S 1276(least)S 1373(quadruple)S 1569(precision)S 1750(for)S 1814(the)S 1882(ED-)S 1969(or)S 2018(EZ-)S 2100(set\).)S 300 X 878 Y 405 X(Such)s 522(routines)S 696(are)S 778(useful,)S 927(for)S 1005(example,)S 1198(in)S 1259(the)S 1341(accurate)S 1523(computation)S 1780(of)S 1844(residuals)S 2035(in)S 2097(i)S 2110(t)S 2123(e)S 2144(r)S 2159(a)S 2180(t)S 2193(i)S 2206(v)S 2229(e)S 300 X 944 Y(re)s 336 X(\256)s 361(nement.)S 533(Many)S 655(machines)S 844(have)S 946(extended)S 1127(precision)S 1310(registers)S 1480(in)S 1529(which)S 1655(extended)S 1836(precision)S 2019(c)S 2040(o)S 2063(m)S 2098(p)S 2121(u)S 2144(t)S 2157(a)S 2178(t)S 2191(i)S 2204(o)S 2227(n)S 300 X 1010 Y(is)s 345(performed)S 550(at)S 598(little)S 698(or)S 750(no)S 810(extra)S 917(cost.)S 1028(However,)S 1222(in)S 1272(order)S 1384(to)S 1435(allow)S 1553(the)S 1625(additional)S 1826(precision)S 2011(to)S 2062(be)S 2121(c)S 2142(a)S 2163(r)S 2178(r)S 2193(i)S 2206(e)S 2227(d)S 300 X 1076 Y(through)s 455(a)S 488(series)S 606(of)S 655(calls)S 752(to)S 799(these)S 906(routines,)S 1077(at)S 1122(least)S 1219(one)S 1297(,)S 1319(in)S 1366(some)S 1474(cases)S 1584(both,)S 1688(of)S 1737(the)S 1805(vectors)S %%IncludeFont: Times-Italic /Times-Italic /Times-Italic-8 roman-8-mappings AddRoman-8 /f.I /Times-Italic-8 findfont def 0.0 11 11 f.I ft 1950(x)S 0.0 11 11 f.R ft 1989(and)S 0.0 11 11 f.I ft 2067(y)S 0.0 11 11 f.R ft 2106(must)S 2206(be)S 300 X 1142 Y(stored)s 424(in)S 471(extended)S 650(p)S 673(r)S 688(e)S 709(c)S 730(i)S 743(s)S 761(i)S 774(o)S 797(n)S 820(.)S 300 X 1233 Y 405 X(These)s 527(routines)S 687(are)S 755(to)S 802(perform)S 960(the)S 1028(operations)S 1232(described)S 1421(in)S 1468(section)S 1611(2)S 1645(as)S 1695(f)S 1710(o)S 1733(l)S 1746(l)S 1759(o)S 1782(w)S 1815(s)S 1833(.)S 300 X 1456 Y 405 X(F)s 429(o)S 452(r)S 478(the)S 546(m)S 581(a)S 602(t)S 615(r)S 630(i)S 643(x)S 666(-)S 681(v)S 704(e)S 725(c)S 746(t)S 759(o)S 782(r)S 808(o)S 831(p)S 854(e)S 875(r)S 890(a)S 911(t)S 924(i)S 937(o)S 960(n)S 983(s)S 300 X 1613 Y 530 X 0.0 11 11 f.I ft(y)s 558( )S 569 X %%IncludeFont: Symbol /f.S /Symbol findfont def 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 614( )S 625 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 654(A)S 682(x)S 710( )S 721 X(+)s 752( )S 763 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 788(y)S 0.0 11 11 f.R ft 816(,)S 0.0 11 11 f.I ft 827( )S 838( )S 849(y)S 877( )S 888 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 933( )S 944 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 973(A)S 1008( )S 1586 Y 0.0 8 8 f.I ft 1019(T)S 1613 Y 0.0 11 11 f.I ft 1044(x)S 1072( )S 1083 X(+)s 1114( )S 1125 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 1150(y)S 0.0 11 11 f.R ft 1178(,)S 0.0 11 11 f.I ft 1189( )S 1200( )S 1211(y)S 1239( )S 1250 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1295( )S 1306 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1335(A)S 1610 Y 1345 X %%IncludeFont: BracketFont /f.S2 /BracketFont findfont def 0.0 11 11 f.S2 ft(M)s 1613 Y 0.0 11 11 f.I ft 1370( )S 1586 Y 0.0 8 8 f.I ft 1381(T)S 1613 Y 0.0 11 11 f.I ft 1406(x)S 1434( )S 1445 X(+)s 1476( )S 1487 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.I ft 1512(y)S 300 X 1704 Y 300 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.R ft 329(,)S 0.0 11 11 f.I ft 340( )S 351 X 0.0 11 11 f.S ft(b)s 0.0 11 11 f.R ft 376(,)S 0.0 11 11 f.I ft 387( A)S 0.0 11 11 f.R ft 433(,)S 455(and)S 0.0 11 11 f.I ft 533(x)S 0.0 11 11 f.R ft 572(are)S 640(working)S 804(precision,)S 0.0 11 11 f.I ft 996(y)S 0.0 11 11 f.R ft 1035(is)S 1077(extended)S 1256(precision)S 1437(and)S 1515(the)S 1583(computation)S 1825(of)S 0.0 11 11 f.I ft 1874(y)S 0.0 11 11 f.R ft 1913(is)S 1955(to)S 2003(be)S 2059(p)S 2082(e)S 2103(r)S 2118(f)S 2133(o)S 2156(r)S 2171(m)S 2206(e)S 2227(d)S 300 X 1770 Y(in)s 347(extended)S 526(p)S 549(r)S 564(e)S 585(c)S 606(i)S 619(s)S 637(i)S 650(o)S 673(n)S 696(.)S 300 X 1927 Y 405 X(F)s 429(o)S 452(r)S 478(the)S 546(triangular)S 737(o)S 760(p)S 783(e)S 804(r)S 819(a)S 840(t)S 853(i)S 866(o)S 889(n)S 912(s)S 300 X 2084 Y 530 X 0.0 11 11 f.I ft(x)s 558( )S 569 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 614( )S 625(T)S 647(x)S 0.0 11 11 f.R ft 675(,)S 0.0 11 11 f.I ft 686( )S 697( )S 708(x)S 736( )S 747 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 792( )S 803(T)S 835( )S 2057 Y 0.0 8 8 f.I ft 846(T)S 2084 Y 0.0 11 11 f.I ft 871(x)S 0.0 11 11 f.R ft 899(,)S 0.0 11 11 f.I ft 910( )S 921( )S 932(x)S 960( )S 971 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1016( T)S 2081 Y 1034 X 0.0 11 11 f.S2 ft(M)s 2084 Y 0.0 11 11 f.I ft 1059( )S 2057 Y 0.0 8 8 f.I ft 1070(T)S 2084 Y 0.0 11 11 f.I ft 1095(x)S 0.0 11 11 f.R ft 1123(,)S 300 X 2175 Y 530 X 0.0 11 11 f.I ft(x)s 558( )S 569 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 614( )S 625(T)S 657( )S 2148 Y 668 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.R ft 686(1)S 2175 Y 0.0 11 11 f.I ft 703(x)S 0.0 11 11 f.R ft 731(,)S 0.0 11 11 f.I ft 742( )S 753( )S 764(x)S 792( )S 803 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 848( )S 859(T)S 891( )S 2148 Y 902 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.I ft 920(T)S 2175 Y 0.0 11 11 f.I ft 945(x)S 0.0 11 11 f.R ft 973(,)S 0.0 11 11 f.I ft 984( )S 995( )S 1006(x)S 1034( )S 1045 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 1090( T)S 2172 Y 1108 X 0.0 11 11 f.S2 ft(M)s 2175 Y 0.0 11 11 f.I ft 1133( )S 2148 Y 1144 X 0.0 8 8 f.S ft(-)s 0.0 8 8 f.I ft 1162(T)S 2175 Y 0.0 11 11 f.I ft 1187(x)S 300 X 2332 Y(T)s 0.0 11 11 f.R ft 344(is)S 387(working)S 552(precision,)S 0.0 11 11 f.I ft 745(x)S 0.0 11 11 f.R ft 785(is)S 829(extended)S 1010(precision)S 1193(and)S 1273(the)S 1343(computation)S 1587(of)S 0.0 11 11 f.I ft 1638(x)S 0.0 11 11 f.R ft 1679(is)S 1723(to)S 1772(be)S 1829(performed)S 2033(in)S 2082(e)S 2103(x)S 2126(t)S 2139(e)S 2160(n)S 2183(d)S 2206(e)S 2227(d)S 300 X 2398 Y(p)s 323(r)S 338(e)S 359(c)S 380(i)S 393(s)S 411(i)S 424(o)S 447(n)S 470(.)S 300 X 2489 Y 405 X(F)s 429(o)S 452(r)S 478(the)S 546(rank-one)S 721(and)S 799(rank-two)S 976(u)S 999(p)S 1022(d)S 1045(a)S 1066(t)S 1079(e)S 1100(s)S 300 X 2646 Y 530 X 0.0 11 11 f.I ft(A)s 565( )S 576 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 621( )S 632 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 661(x)S 682(y)S 710( )S 2619 Y 0.0 8 8 f.I ft 721(T)S 2646 Y 0.0 11 11 f.I ft 746( )S 757 X(+)s 788( A)S 0.0 11 11 f.R ft 834(,)S 0.0 11 11 f.I ft 845( )S 856( )S 867(A)S 902( )S 913 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 958( )S 969 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 998(xy)S 2654 Y 1023 X 0.0 11 11 f.S2 ft(M)s 2646 Y 0.0 11 11 f.I ft 1047( )S 2619 Y 0.0 8 8 f.I ft 1058(T)S 2646 Y 0.0 11 11 f.I ft 1083( )S 1094 X(+)s 1125( A)S 0.0 11 11 f.R ft 1171(,)S 300 X 2737 Y 530 X 0.0 11 11 f.I ft(H)s 570( )S 581 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 626( )S 637 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 666(xx)S 2745 Y 691 X 0.0 11 11 f.S2 ft(M)s 2737 Y 0.0 11 11 f.I ft 715( )S 2710 Y 0.0 8 8 f.I ft 726(T)S 2737 Y 0.0 11 11 f.I ft 751( )S 762 X(+)s 793( H)S 0.0 11 11 f.R ft 844(,)S 0.0 11 11 f.I ft 855( )S 866( )S 877(H)S 917( )S 928 X 0.0 11 11 f.S ft(\254)s 0.0 11 11 f.I ft 973( )S 984 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.I ft 1013(xy)S 2745 Y 1038 X 0.0 11 11 f.S2 ft(M)s 2737 Y 0.0 11 11 f.I ft 1062( )S 2710 Y 0.0 8 8 f.I ft 1073(T)S 2737 Y 0.0 11 11 f.I ft 1098( )S 1109 X(+)s 1140( )S 1151 X 0.0 11 11 f.S ft(a)s 2745 Y 1153 X 0.0 11 11 f.S2 ft(M)s 1155 X(M)s 2737 Y 0.0 11 11 f.I ft 1180(yx)S 2745 Y 1205 X 0.0 11 11 f.S2 ft(M)s 2737 Y 0.0 11 11 f.I ft 1229( )S 2710 Y 0.0 8 8 f.I ft 1240(T)S 2737 Y 0.0 11 11 f.I ft 1265( )S 1276 X(+)s 1307( H)S 0.0 11 11 f.R ft 1358(,)S 300 X 2894 Y 300 X 0.0 11 11 f.S ft(a)s 0.0 11 11 f.R ft 329(,)S 0.0 11 11 f.I ft 356(A)S 0.0 11 11 f.R ft 391(,)S 418(and)S 0.0 11 11 f.I ft 501(H)S 0.0 11 11 f.R ft 557(are)S 630(working)S 799(precision,)S 0.0 11 11 f.I ft 996(x)S 0.0 11 11 f.R ft 1040(and)S 0.0 11 11 f.I ft 1123(y)S 0.0 11 11 f.R ft 1167(are)S 1240(extended)S 1424(precision)S 1610(and)S 1693(the)S 1766(computation)S 2014(is)S 2062(to)S 2115(be)S 2176(per)S 2235 X(-)s 300 X 2960 Y(formed)s 443(in)S 490(extended)S 669(p)S 692(r)S 707(e)S 728(c)S 749(i)S 762(s)S 780(i)S 793(o)S 816(n)S 839(.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Bold Times-Italic Symbol BracketFont %%Page: label 21 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1226 X(- 19 -)s 300 X 366 Y 405 X(The)s 489(ES-)S 569(set)S 633(of)S 683(routines)S 844(can)S 921(be)S 977(called)S 1101(and)S 1181(implemented)S 1435(in)S 1484(standard)S 1654(F)S 1678(o)S 1701(r)S 1716(t)S 1729(r)S 1744(a)S 1765(n)S 1801(77.)S 1882(The)S 1967(EC-)S 2054(set)S 2119(r)S 2134(e)S 2155(q)S 2178(u)S 2201(i)S 2214(r)S 2229(e)S 300 X 432 Y(the)s 370(addition)S 535(of)S 586(a)S 620(COMPLEX*16)S 921(data)S 1012(type,)S 1116(as)S 1168(does)S 1266(the)S 1336(basic)S 1445(Z-)S 1501(set,)S 1577(but)S 1649(can)S 1727(be)S 1784(used)S 1882(across)S 2011(a)S 2045(wide)S 2147(range)S 300 X 498 Y(of)s 350(machines.)S 559(The)S 643(ED-)S 731(set)S 795(require)S 938(the)S 1007(addition)S 1171(of)S 1222(a)S 1256(REAL*16)S 1458(\(quadruple)S 1671(precision)S 1854(real\))S 1952(data)S 2043(type,)S 2147(while)S 300 X 564 Y(the)s 371(EC-)S 459(set)S 525(require)S 670(a)S 705(COMPLEX*32)S 1007(\(quadruple)S 1221(precision)S 1405(complex\))S 1593(data)S 1685(type;)S 1792(these)S 1902(data)S 1993(types)S 2104(are)S 2174(pro)S 2235 X(-)s 300 X 630 Y(vided)s 418(on)S 479(some)S 591(systems.)S 774(W)S 815(e)S 851(strongly)S 1017(recommend)S 1249(that)S 1334(if)S 1378(implementors)S 1647(provide)S 1804(extended)S 1988(precision)S 2174(rou)S 2235 X(-)s 300 X 696 Y(tines)s 405(using)S 522(these)S 635(data)S 730(types,)S 856(they)S 952(adhere)S 1092(to)S 1144(the)S 1217(speci)S 1313 X(\256)s 1338(cations)S 1486(described)S 1680(here,)S 1787(so)S 1844(that)S 1930(at)S 1980(least)S 2082(a)S 2119(l)S 2132(i)S 2145(m)S 2180(i)S 2193(t)S 2206(e)S 2227(d)S 300 X 762 Y(degree)s 435(of)S 484(portability)S 688(may)S 778(be)S 833(a)S 854(c)S 875(h)S 898(i)S 911(e)S 932(v)S 955(e)S 976(d)S 999(.)S 300 X 894 Y(T)s 325(o)S 363(test)S 443(thoroughly)S 660(that)S 745(extended)S 928(precision)S 1113(is)S 1159(used)S 1259(as)S 1313(speci)S 1409 X(\256)s 1434(ed)S 1493(in)S 1545(the)S 1618(internal)S 1776(computations)S 2041(requires)S 2206(an)S 300 X 960 Y(extra)s 407(degree)S 545(of)S 596(s)S 614(o)S 637(p)S 660(h)S 683(i)S 696(s)S 714(t)S 727(i)S 740(c)S 761(a)S 782(t)S 795(i)S 808(o)S 831(n)S 867(from)S 968(the)S 1038(test)S 1116(program.)S 1306(F)S 1330(o)S 1353(r)S 1381(all)S 1441(these)S 1550(reasons,)S 1713(neither)S 1855(a)S 1889(model)S 2017(implementa)S 2235 X(-)s 300 X 1026 Y(tion)s 385(of)S 436(the)S 506(extended)S 687(precision)S 871(routines,)S 1045(nor)S 1120(a)S 1155(test)S 1234(program)S 1403(for)S 1470(them,)S 1587(have)S 1689(been)S 1791(included)S 1965(in)S 2015([6];)S 2095(code)S 2197(for)S 300 X 1092 Y(the)s 368(ES-)S 447(and)S 525(EC-)S 610(sets)S 691(of)S 740(routines)S 900(may)S 990(be)S 1045(obtained)S 1216(from)S 1315(the)S 1383(a)S 1404(u)S 1427(t)S 1440(h)S 1463(o)S 1486(r)S 1501(s)S 1519(.)S 300 X 1224 Y(The)s 383(speci)S 479 X(\256)s 504(cations)S 647(of)S 696(the)S 764(arguments)S 967(remain)S 1106(exactly)S 1252(as)S 1302(in)S 1349(Section)S 1499(6)S 1533(except)S 1666(the)S 1734(f)S 1749(o)S 1772(l)S 1785(l)S 1798(o)S 1821(w)S 1854(i)S 1867(n)S 1890(g)S 1913(:)S 300 X 1356 Y(for)s 364(E)S 392(S)S 417(G)S 450(E)S 478(M)S 519(V)S 548(,)S 570(E)S 598(S)S 623(G)S 656(B)S 687(M)S 728(V)S 757(,)S 779(E)S 807(S)S 832(S)S 857(Y)S 890(M)S 931(V)S 960(,)S 982(E)S 1010(S)S 1035(S)S 1060(B)S 1091(M)S 1132(V)S 1161(,)S 1183(E)S 1211(S)S 1236(S)S 1261(P)S 1286(M)S 1327(V)S 1356(,)S 1378(ESGER,)S 1545(ESSYR2)S 1721(and)S 1799(E)S 1827(S)S 1852(S)S 1877(P)S 1902(R)S 1933(2)S 1956(.)S 300 X 1488 Y 355(DOUBLE)S 552(PRECISION)S 821(Y\(*\))S 300 X 1620 Y(for)s 364(the)S 432(c)S 453(o)S 476(r)S 491(r)S 506(e)S 527(s)S 545(p)S 568(o)S 591(n)S 614(d)S 637(i)S 650(n)S 673(g)S 707(E)S 735(C)S 766(-)S 781(r)S 796(o)S 819(u)S 842(t)S 855(i)S 868(n)S 891(e)S 912(s)S 930(:)S 300 X 1752 Y 355(COMPLEX*16)S 742 X(Y\(*\))s 905(\(or)S 969(e)S 990(q)S 1013(u)S 1036(i)S 1049(v)S 1072(a)S 1093(l)S 1106(e)S 1127(n)S 1150(t)S 1163(\))S 300 X 1884 Y(for)s 364(the)S 432(c)S 453(o)S 476(r)S 491(r)S 506(e)S 527(s)S 545(p)S 568(o)S 591(n)S 614(d)S 637(i)S 650(n)S 673(g)S 707(ED-)S 794(r)S 809(o)S 832(u)S 855(t)S 868(i)S 881(n)S 904(e)S 925(s)S 943(:)S 300 X 2016 Y 355(REAL*16)S 676 X(Y\(*\))s 839(\(or)S 903(e)S 924(q)S 947(u)S 970(i)S 983(v)S 1006(a)S 1027(l)S 1040(e)S 1061(n)S 1084(t)S 1097(\))S 300 X 2148 Y(for)s 364(the)S 432(c)S 453(o)S 476(r)S 491(r)S 506(e)S 527(s)S 545(p)S 568(o)S 591(n)S 614(d)S 637(i)S 650(n)S 673(g)S 707(EZ-)S 789(r)S 804(o)S 827(u)S 850(t)S 863(i)S 876(n)S 899(e)S 920(s)S 938(:)S 300 X 2280 Y 355(COMPLEX*32)S 742 X(Y\(*\))s 905(\(or)S 969(e)S 990(q)S 1013(u)S 1036(i)S 1049(v)S 1072(a)S 1093(l)S 1106(e)S 1127(n)S 1150(t)S 1163(\))S 300 X 2412 Y(for)s 371(E)S 399(S)S 424(T)S 452(R)S 483(M)S 524(V)S 553(,)S 582(E)S 610(S)S 635(T)S 663(B)S 694(M)S 735(V)S 764(,)S 793(E)S 821(S)S 846(T)S 874(P)S 899(M)S 940(V)S 969(,)S 998(E)S 1026(S)S 1051(T)S 1079(R)S 1110(S)S 1135(V)S 1164(,)S 1193(E)S 1221(S)S 1246(T)S 1274(B)S 1305(S)S 1330(V)S 1359(,)S 1388(E)S 1416(S)S 1441(T)S 1469(P)S 1494(S)S 1519(V)S 1548(,)S 1577(ESGER,)S 1751(ESSYR,)S 1922(ESSPR,)S 2085(E)S 2113(S)S 2138(S)S 2163(Y)S 2196(R)S 2227(2)S 300 X 2478 Y(and)s 378(E)S 406(S)S 431(S)S 456(P)S 481(R)S 512(2)S 535(:)S 300 X 2610 Y 355(DOUBLE)S 552(PRECISION)S 821(X\(*\))S 300 X 2742 Y(for)s 364(the)S 432(c)S 453(o)S 476(r)S 491(r)S 506(e)S 527(s)S 545(p)S 568(o)S 591(n)S 614(d)S 637(i)S 650(n)S 673(g)S 707(EC-)S 792(r)S 807(o)S 830(u)S 853(t)S 866(i)S 879(n)S 902(e)S 923(s)S 941(:)S 300 X 2874 Y 355(COMPLEX*16)S 742 X(X\(*\))s 905(\(or)S 969(e)S 990(q)S 1013(u)S 1036(i)S 1049(v)S 1072(a)S 1093(l)S 1106(e)S 1127(n)S 1150(t)S 1163(\))S 300 X 3006 Y(for)s 364(the)S 432(c)S 453(o)S 476(r)S 491(r)S 506(e)S 527(s)S 545(p)S 568(o)S 591(n)S 614(d)S 637(i)S 650(n)S 673(g)S 707(ED-)S 794(r)S 809(o)S 832(u)S 855(t)S 868(i)S 881(n)S 904(e)S 925(s)S 943(:)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman %%Page: label 22 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1226 X(- 20 -)s 300 X 366 Y 355(REAL*16)S 676 X(X\(*\))s 839(\(or)S 903(e)S 924(q)S 947(u)S 970(i)S 983(v)S 1006(a)S 1027(l)S 1040(e)S 1061(n)S 1084(t)S 1097(\))S 300 X 498 Y(for)s 364(the)S 432(c)S 453(o)S 476(r)S 491(r)S 506(e)S 527(s)S 545(p)S 568(o)S 591(n)S 614(d)S 637(i)S 650(n)S 673(g)S 707(EZ-)S 789(r)S 804(o)S 827(u)S 850(t)S 863(i)S 876(n)S 899(e)S 920(s)S 938(:)S 300 X 630 Y 355(COMPLEX*32)S 742 X(X\(*\))s 905(\(or)S 969(e)S 990(q)S 1013(u)S 1036(i)S 1049(v)S 1072(a)S 1093(l)S 1106(e)S 1127(n)S 1150(t)S 1163(\))S 300 X 787 Y 405 X(W)s 446(e)S 478(thank)S 592(V)S 621(e)S 642(l)S 655(v)S 678(e)S 699(l)S 723(Kahan)S 855(for)S 919(insisting)S 1087(that)S 1168(we)S 1233(think)S 1339(about)S 1453(the)S 1521(extended)S 1700(precision)S 1881(i)S 1894(s)S 1912(s)S 1930(u)S 1953(e)S 1974(.)S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman %%Page: label 23 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 11 11 f.R ft 1.0000 setlinewidth 300 X 216 Y 1226 X(- 21 -)s 300 X 366 Y %%IncludeFont: Times-Bold /Times-Bold /Times-Bold-8 roman-8-mappings AddRoman-8 /f.B /Times-Bold-8 findfont def 0.0 11 11 f.B ft(Appendix)s 501(C)S 300 X 457 Y 405 X 0.0 11 11 f.R ft(This)s 498(appendix)S 679(contains)S 845(the)S 913(calling)S 1051(sequences)S 1251(for)S 1315(all)S 1373(the)S 1441(proposed)S 1621(level)S 1723(2)S 1757(BLAS.)S 300 X 589 Y 0.0 8 8 f.R ft 324(n)S 347(a)S 364(m)S 391(e)S 522 X(o)s 544(p)S 570(t)S 592(i)S 610(o)S 632(n)S 656(s)S 874 X(d)s 900(i)S 914(m)S 1006(b)S 1031(-)S 1047(w)S 1076(i)S 1094(d)S 1120(t)S 1138(h)S 1184(s)S 1205(c)S 1227(a)S 1252(l)S 1271(a)S 1295(r)S 1332(m)S 1359(a)S 1384(t)S 1405(r)S 1428(i)S 1446(x)S 1512(x)S 1537(-)S 1556(v)S 1579(e)S 1601(c)S 1626(t)S 1644(o)S 1669(r)S 1712(s)S 1733(c)S 1755(a)S 1780(l)S 1799(a)S 1823(r)S 1864(y)S 1889(-)S 1908(v)S 1931(e)S 1953(c)S 1978(t)S 1996(o)S 2021(r)S 300 X 721 Y 302(_)S 321(G)S 345(E)S 362(M)S 387(V)S 415(\()S 587 X(T)s 608(R)S 629(A)S 651(N)S 676(S)S 703(,)S 868 X(M)s 901(,)S 937(N)S 967(,)S 1179 X(A)s 1203(L)S 1226(P)S 1245(H)S 1267(A)S 1297(,)S 1333(A)S 1363(,)S 1401(L)S 1421(D)S 1443(A)S 1473(,)S 1509(X)S 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1671(,)S 1708(B)S 1731(E)S 1753(T)S 1773(A)S 1803(,)S 1839(Y)S 1869(,)S 1911(I)S 1927(N)S 1950(C)S 1971(Y)S 2021(\))S 300 X 787 Y 302(_)S 321(G)S 344(B)S 362(M)S 387(V)S 415(\()S 587 X(T)s 608(R)S 629(A)S 651(N)S 676(S)S 703(,)S 868 X(M)s 901(,)S 937(N)S 967(,)S 1003(K)S 1027(L)S 1055(,)S 1091(K)S 1113(U)S 1143(,)S 1179(A)S 1203(L)S 1226(P)S 1245(H)S 1267(A)S 1297(,)S 1333(A)S 1363(,)S 1401(L)S 1421(D)S 1443(A)S 1473(,)S 1509(X)S 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1671(,)S 1708(B)S 1731(E)S 1753(T)S 1773(A)S 1803(,)S 1839(Y)S 1869(,)S 1911(I)S 1927(N)S 1950(C)S 1971(Y)S 2021(\))S 300 X 853 Y 302(_)S 321(H)S 345(E)S 362(M)S 387(V)S 415(\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 937 X(N)s 967(,)S 1179 X(A)s 1203(L)S 1226(P)S 1245(H)S 1267(A)S 1297(,)S 1333(A)S 1363(,)S 1401(L)S 1421(D)S 1443(A)S 1473(,)S 1509(X)S 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1671(,)S 1708(B)S 1731(E)S 1753(T)S 1773(A)S 1803(,)S 1839(Y)S 1869(,)S 1911(I)S 1927(N)S 1950(C)S 1971(Y)S 2021(\))S 300 X 919 Y 302(_)S 321(H)S 344(B)S 362(M)S 387(V)S 415(\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 937 X(N)s 967(,)S 1069 X(K)s 1099(,)S 1179(A)S 1203(L)S 1226(P)S 1245(H)S 1267(A)S 1297(,)S 1333(A)S 1363(,)S 1401(L)S 1421(D)S 1443(A)S 1473(,)S 1509(X)S 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1671(,)S 1708(B)S 1731(E)S 1753(T)S 1773(A)S 1803(,)S 1839(Y)S 1869(,)S 1911(I)S 1927(N)S 1950(C)S 1971(Y)S 2021(\))S 300 X 985 Y 302(_HPMV\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 937 X(N)s 967(,)S 1179 X(A)s 1203(L)S 1226(P)S 1245(H)S 1267(A)S 1297(,)S 1333(A)S 1358(P)S 1385(,)S 1509 X(X)s 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1671(,)S 1708(B)S 1731(E)S 1753(T)S 1773(A)S 1803(,)S 1839(Y)S 1869(,)S 1911(I)S 1927(N)S 1950(C)S 1971(Y)S 2021(\))S 300 X 1051 Y 302(_SYMV\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 937 X(N)s 967(,)S 1179 X(A)s 1203(L)S 1226(P)S 1245(H)S 1267(A)S 1297(,)S 1333(A)S 1363(,)S 1401(L)S 1421(D)S 1443(A)S 1473(,)S 1509(X)S 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1671(,)S 1708(B)S 1731(E)S 1753(T)S 1773(A)S 1803(,)S 1839(Y)S 1869(,)S 1911(I)S 1927(N)S 1950(C)S 1971(Y)S 2021(\))S 300 X 1117 Y 302(_)S 324(S)S 344(B)S 362(M)S 387(V)S 415(\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 937 X(N)s 967(,)S 1069 X(K)s 1099(,)S 1179(A)S 1203(L)S 1226(P)S 1245(H)S 1267(A)S 1297(,)S 1333(A)S 1363(,)S 1401(L)S 1421(D)S 1443(A)S 1473(,)S 1509(X)S 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1671(,)S 1708(B)S 1731(E)S 1753(T)S 1773(A)S 1803(,)S 1839(Y)S 1869(,)S 1911(I)S 1927(N)S 1950(C)S 1971(Y)S 2021(\))S 300 X 1183 Y 302(_)S 324(S)S 346(P)S 362(M)S 387(V)S 415(\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 937 X(N)s 967(,)S 1179 X(A)s 1203(L)S 1226(P)S 1245(H)S 1267(A)S 1297(,)S 1333(A)S 1358(P)S 1385(,)S 1509 X(X)s 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1671(,)S 1708(B)S 1731(E)S 1753(T)S 1773(A)S 1803(,)S 1839(Y)S 1869(,)S 1911(I)S 1927(N)S 1950(C)S 1971(Y)S 2021(\))S 300 X 1249 Y 302(_TRMV\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 587(T)S 608(R)S 629(A)S 651(N)S 676(S)S 703(,)S 739(D)S 767(I)S 783(A)S 805(G)S 835(,)S 937 X(N)s 967(,)S 1333 X(A)s 1363(,)S 1401(L)S 1421(D)S 1443(A)S 1473(,)S 1509(X)S 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1691(\))S 300 X 1315 Y 302(_TBMV\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 587(T)S 608(R)S 629(A)S 651(N)S 676(S)S 703(,)S 739(D)S 767(I)S 783(A)S 805(G)S 835(,)S 937 X(N)s 967(,)S 1069 X(K)s 1099(,)S 1333 X(A)s 1363(,)S 1401(L)S 1421(D)S 1443(A)S 1473(,)S 1509(X)S 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1691(\))S 300 X 1381 Y 302(_)S 323(T)S 346(P)S 362(M)S 387(V)S 415(\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 587(T)S 608(R)S 629(A)S 651(N)S 676(S)S 703(,)S 739(D)S 767(I)S 783(A)S 805(G)S 835(,)S 937 X(N)s 967(,)S 1333 X(A)s 1358(P)S 1385(,)S 1509 X(X)s 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1691(\))S 300 X 1513 Y 302(_)S 323(T)S 344(R)S 368(S)S 387(V)S 415(\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 587(T)S 608(R)S 629(A)S 651(N)S 676(S)S 703(,)S 739(D)S 767(I)S 783(A)S 805(G)S 835(,)S 937 X(N)s 967(,)S 1333 X(A)s 1363(,)S 1401(L)S 1421(D)S 1443(A)S 1473(,)S 1509(X)S 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1691(\))S 300 X 1579 Y 302(_)S 323(T)S 344(B)S 368(S)S 387(V)S 415(\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 587(T)S 608(R)S 629(A)S 651(N)S 676(S)S 703(,)S 739(D)S 767(I)S 783(A)S 805(G)S 835(,)S 937 X(N)s 967(,)S 1069 X(K)s 1099(,)S 1333 X(A)s 1363(,)S 1401(L)S 1421(D)S 1443(A)S 1473(,)S 1509(X)S 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1691(\))S 300 X 1645 Y 302(_)S 323(T)S 346(P)S 368(S)S 387(V)S 415(\()S 453(U)S 478(P)S 499(L)S 519(O)S 549(,)S 587(T)S 608(R)S 629(A)S 651(N)S 676(S)S 703(,)S 739(D)S 767(I)S 783(A)S 805(G)S 835(,)S 937 X(N)s 967(,)S 1333 X(A)s 1358(P)S 1385(,)S 1509 X(X)s 1539(,)S 1581(I)S 1597(N)S 1620(C)S 1641(X)S 1691(\))S 300 X 1777 Y 324(n)S 347(a)S 364(m)S 391(e)S 544 X(o)s 566(p)S 592(t)S 614(i)S 632(o)S 654(n)S 678(s)S 896 X(d)s 922(i)S 936(m)S 1030(s)S 1051(c)S 1073(a)S 1098(l)S 1117(a)S 1141(r)S 1182(x)S 1207(-)S 1226(v)S 1249(e)S 1271(c)S 1296(t)S 1314(o)S 1339(r)S 1380(y)S 1405(-)S 1424(v)S 1447(e)S 1469(c)S 1494(t)S 1512(o)S 1537(r)S 1574(m)S 1601(a)S 1626(t)S 1647(r)S 1670(i)S 1688(x)S 300 X 1909 Y 302(_)S 321(G)S 345(E)S 366(R)S 390(_)S 415(\()S 890 X(M)s 923(,)S 959(N)S 989(,)S 1025(A)S 1049(L)S 1072(P)S 1091(H)S 1113(A)S 1143(,)S 1179(X)S 1209(,)S 1251(I)S 1267(N)S 1290(C)S 1311(X)S 1341(,)S 1377(Y)S 1407(,)S 1449(I)S 1465(N)S 1488(C)S 1509(Y)S 1539(,)S 1575(A)S 1605(,)S 1643(L)S 1663(D)S 1685(A)S 1735(\))S 300 X 1975 Y 302(_)S 321(H)S 345(E)S 366(R)S 415(\()S 475(U)S 500(P)S 521(L)S 541(O)S 571(,)S 959 X(N)s 989(,)S 1025(A)S 1049(L)S 1072(P)S 1091(H)S 1113(A)S 1143(,)S 1179(X)S 1209(,)S 1251(I)S 1267(N)S 1290(C)S 1311(X)S 1341(,)S 1575 X(A)s 1605(,)S 1643(L)S 1663(D)S 1685(A)S 1735(\))S 300 X 2041 Y 302(_)S 321(H)S 346(P)S 366(R)S 415(\()S 475(U)S 500(P)S 521(L)S 541(O)S 571(,)S 959 X(N)s 989(,)S 1025(A)S 1049(L)S 1072(P)S 1091(H)S 1113(A)S 1143(,)S 1179(X)S 1209(,)S 1251(I)S 1267(N)S 1290(C)S 1311(X)S 1341(,)S 1575 X(A)s 1600(P)S 1647(\))S 300 X 2107 Y 302(_)S 321(H)S 345(E)S 366(R)S 390(2)S 415(\()S 475(U)S 500(P)S 521(L)S 541(O)S 571(,)S 959 X(N)s 989(,)S 1025(A)S 1049(L)S 1072(P)S 1091(H)S 1113(A)S 1143(,)S 1179(X)S 1209(,)S 1251(I)S 1267(N)S 1290(C)S 1311(X)S 1341(,)S 1377(Y)S 1407(,)S 1449(I)S 1465(N)S 1488(C)S 1509(Y)S 1539(,)S 1575(A)S 1605(,)S 1643(L)S 1663(D)S 1685(A)S 1735(\))S 300 X 2173 Y 302(_)S 321(H)S 346(P)S 366(R)S 390(2)S 415(\()S 475(U)S 500(P)S 521(L)S 541(O)S 571(,)S 959 X(N)s 989(,)S 1025(A)S 1049(L)S 1072(P)S 1091(H)S 1113(A)S 1143(,)S 1179(X)S 1209(,)S 1251(I)S 1267(N)S 1290(C)S 1311(X)S 1341(,)S 1377(Y)S 1407(,)S 1449(I)S 1465(N)S 1488(C)S 1509(Y)S 1539(,)S 1575(A)S 1600(P)S 1647(\))S 300 X 2239 Y 302(_)S 324(S)S 343(Y)S 366(R)S 415(\()S 475(U)S 500(P)S 521(L)S 541(O)S 571(,)S 959 X(N)s 989(,)S 1025(A)S 1049(L)S 1072(P)S 1091(H)S 1113(A)S 1143(,)S 1179(X)S 1209(,)S 1251(I)S 1267(N)S 1290(C)S 1311(X)S 1341(,)S 1575 X(A)s 1605(,)S 1643(L)S 1663(D)S 1685(A)S 1735(\))S 300 X 2305 Y 302(_)S 324(S)S 346(P)S 366(R)S 415(\()S 475(U)S 500(P)S 521(L)S 541(O)S 571(,)S 959 X(N)s 989(,)S 1025(A)S 1049(L)S 1072(P)S 1091(H)S 1113(A)S 1143(,)S 1179(X)S 1209(,)S 1251(I)S 1267(N)S 1290(C)S 1311(X)S 1341(,)S 1575 X(A)s 1600(P)S 1647(\))S 300 X 2371 Y 302(_)S 324(S)S 343(Y)S 366(R)S 390(2)S 415(\()S 475(U)S 500(P)S 521(L)S 541(O)S 571(,)S 959 X(N)s 989(,)S 1025(A)S 1049(L)S 1072(P)S 1091(H)S 1113(A)S 1143(,)S 1179(X)S 1209(,)S 1251(I)S 1267(N)S 1290(C)S 1311(X)S 1341(,)S 1377(Y)S 1407(,)S 1449(I)S 1465(N)S 1488(C)S 1509(Y)S 1539(,)S 1575(A)S 1605(,)S 1643(L)S 1663(D)S 1685(A)S 1735(\))S 300 X 2437 Y 302(_)S 324(S)S 346(P)S 366(R)S 390(2)S 415(\()S 475(U)S 500(P)S 521(L)S 541(O)S 571(,)S 959 X(N)s 989(,)S 1025(A)S 1049(L)S 1072(P)S 1091(H)S 1113(A)S 1143(,)S 1179(X)S 1209(,)S 1251(I)S 1267(N)S 1290(C)S 1311(X)S 1341(,)S 1377(Y)S 1407(,)S 1449(I)S 1465(N)S 1488(C)S 1509(Y)S 1539(,)S 1575(A)S 1600(P)S 1647(\))S 3300 Y showpage PageState7292 restore %%PageFonts: Times-Roman Times-Bold %%Page: label 24 %%PageFonts: (atend) /PageState7292 save def home %%IncludeFont: Times-Roman /Times-Roman /Times-Roman-8 roman-8-mappings AddRoman-8 /f.R /Times-Roman-8 findfont def 0.0 8 8 f.R ft 1.0000 setlinewidth PageState7292 restore %%Trailer %%DocumentFonts: Times-Roman Times-Bold Times-Italic Symbol BracketFont %%Pages: 23 DocState7292 restore %%EOF .