ibm.ps

fortran版本的eslack,好不容易找到的。里面有程序的索引。主要包括了常用了矩阵计算代码。

(ter,)-1597 70 y(P)o(alo)14 b(Alto,)f(CA.)-355 108 y(3.)22 b(A.)15 b(A.)f
(Dubrulle)h(\(June)h(1988\),)e(\\A)h(V)l(ersion)g(of)f(Eispac)o(k)h(for)g
(the)g(IBM)g(3090VF,")e(T)l(ec)o(h-)-1595 71 y(nical)h(Rep)q(ort)i
(G320-351)o(0,)d(IBM)j(Scien)o(ti\014c)f(Cen)o(ter,)g(P)o(alo)e(Alto,)h
(CA.)-1314 108 y(4.)22 b(A.)15 b(P)o(adegs,)h(B.)f(B.)h(Mo)q(ore,)f(R.)h
(M.)f(Smith)h(and)g(W.)f(Buc)o(hholz)i(\(1988\))o(,)e(\\The)h(IBM)g(Sys-)
-1596 70 y(tem/370)d(V)l(ector)h(Arc)o(hitecture:)19 b(Design)14 b
(Considerations,")f(IEEE)h(T)l(rans.)g(Comp.,)g(V)l(ol.)-1597 71 y(37,)g
(No.)h(5.)-252 108 y(5.)22 b(S.)13 b(G.)f(T)l(uc)o(k)o(er)h(\(1986\),)o 
12 x(\\The)g(IBM)h(3090)e(System:)18 b(An)c(Ov)o(erview,")e(IBM)i(Systems)f
(Jour-)-1596 70 y(nal,)h(V)l(ol.)h(25,)f(No.)g(1,pp.)h(4-19.)-608 108 y
(6.)22 b(H.)15 b(H.)g(W)l(ang)g(\(Marc)o(h)f(1986\),)g(\\In)o(tro)q
(duction)h(to)g(V)l(ectorizing)g(T)l(ec)o(hniques)h(on)f(the)h(IBM)-1596 
71 y(3090)f(V)l(ector)h(F)l(acilit)o(y)l(,")o 16 x(T)l(ec)o(hnical)g(Rep)q
(ort)h(G320-348)o(9,)e(IBM)i(Scien)o(ti\014c)f(Cen)o(ter,)g(P)o(alo)-1597 
70 y(Alto,)e(CA.)-253 108 y(7.)22 b(J.)13 b(H.)g(Wilkinson)f(and)i(C.)f
(Reinsc)o(h)h(\(1971\),)e(\\Handb)q(o)q(ok)i(for)e(Automatic)h
(Computation,)-1598 71 y(V)l(ol.)h(I)q(I,)i(Linear)f(Algebra,")f
(Springer-V)l(erlag,)g(New)i(Y)l(ork.)-332 1033 y(20)-937 b
20 @eop1

19 @bop0
@F1 @sf
[<
007FC00003FFF8000FFFFC001FC03F003F000F807E0007807C0007C0FC0003C0F80003E0F8
0003E0F80003E0F80007E0F8000FE0FC001FE07C007FE07E01FFC03F03FFC01F8FFF8007FF
FF8001FFFF0001FFFC0007FFF8000FFFE0001FFFF8001FFE7E003FFC3F003FF01F003FC01F
803F800F803F000F803E000F803E000F801E001F801F001F000F003F000FC07E0003FFFC00
01FFF000003FC000>
	 27 39 -3 38 34] 56 @dc
[<
00003FF800000003FFFF0000000FFFFFC000003FF007F00000FF8000F80001FE00003C0007
FC00001E0007F800000F000FF0000007001FE0000007803FE0000003803FC0000003807FC0
000003807FC0000003807FC000000000FF8000000000FF8000000000FF8000000000FF8000
000000FF8000000000FF8000000000FF8000000000FF8000000000FF8000000000FF800000
0000FF80000000007FC0000003807FC0000003807FC0000003803FC0000007803FE0000007
801FE000000F800FF000000F8007F800001F8007FC00003F8001FE00007F8000FF8001FF80
003FF007FF80000FFFFF8F800003FFFE078000003FF00180>
	 41 41 -4 40 50] 67 @dc
[<
003FE00001FFFC0007F07F000FC01F801F800FC03F800FE03F800FE07F0007F07F0007F0FF
0007F8FF0007F8FF0007F8FF0007F8FF0007F8FF0007F8FF0007F8FF0007F87F0007F07F00
07F07F0007F03F0007E03F800FE01F800FC00FC01F8003F07E0001FFFC00003FE000>
	 29 27 -2 26 34] 111 @dc
[<
FFFEFFFEFFFE0FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00F
E00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE0
0FE00FE0FFE0FFE0FFE0>
	 15 42 -3 41 19] 108 @dc
[<
003FC3FF8001FFF3FF8003F03BFF8007E01FF8000FE00FF8000FE007F8000FE007F8000FE0
03F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8
000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000F
E003F8000FE003F800FFE03FF800FFE03FF800FFE03FF800>
	 33 27 -3 26 38] 117 @dc
[<
FFFEFFFEFFFE0FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00F
E00FE00FE00FE00FE00FE0FFE0FFE0FFE0000000000000000000000000000007001FC01FE0
3FE03FE03FE01FE01FC00700>
	 15 43 -3 42 19] 105 @dc
@F10 @sf
[<
7FE3FE3FF00700700700070070070007007007000700700700070070070007007007000700
70070007007007000700700700070070070007007007000700700700070070070007007007
000700700700070070070007007007000700700700FFFFFFFF000700700000070070000007
007000000700700000070070000007007000000700F00F000300F00F000380F80F0001C07C
060000F04F0400001F81F800>
	 36 32 0 31 38] 14 @dc
[<
FF07FE1E01E00601E00201C0030380010700008700004E00007C00003C0000380000780000
EC0000E40001C2000381000701800701C00F01E07FC3FC>
	 23 20 0 19 24] 120 @dc

19 @eop0

0 0 19 @bop1 59 192 a @F1 @sf(8)69 b(Conclusions)-458 115 y @F10 @sf(Tw)o
(o)12 b(new)h(v)o(ersions)f(of)g(the)h(EISP)l(A)o(CK)h(subroutine)e(pac)o
(k)m(age)h(ha)o(v)o(e)g(b)q(een)h(tailo)o(red)e(for)g(the)h(3090-)-1711 
71 y(VF.)18 b(One)i(w)o(as)e(pro)q(duced)i(b)o(y)f(Augustin)f(Dubrulle)h
(of)f(IBM)h(P)o(alo)f(Alto)g(Scien)o(ti\014c)h(Cen)o(ter)f(in)-1710 70 y
(double)f(precision)f(and)h(in)o(tended)g(to)g(b)q(e)g(most)f(e\016cien)o
(t)g(for)h(extremely)f(large)g(problems.)24 b(The)-1710 71 y(other)13 b(w)o
(as)g(pro)q(duced)h(b)o(y)f(Pleasan)o(t)g(V)l(alley)f(Soft)o(w)o(are)g(in)i
(single)e(precision)h(with)g(the)g(purp)q(ose)h(of)-1710 70 y(attaining)c
(e\016ciency)j(for)e(smaller)g(problems.)18 b(The)13 b(enco)q(ding)f(of)g
(the)g(PVS)g(v)o(ersion)f(has)h(rev)o(ealed)-1710 71 y(sev)o(eral)k(imp)q
(ortan)o(t)f(transforma)o(tions)g(that)g(can)i(b)q(e)g(imp)q(ortan)o(t)e
(in)h(making)g(similar)o 15 x(programs)-1711 70 y(more)f(e\016cien)o(t)g
(for)f(the)i(3090-VF.)218 2034 y(19)-937 b
19 @eop1
restore
% Number of pages processed by driver: 4
%!
save
% Repeat download of texpre.pro
% dvi2ps: BEGIN including file "/lusr/lib/ps/dvi-2-ps/pro/texpre.pro"
% Copyright (c) 1988 Stephan v. Bechtolsheim
% Begin pass0 (which contains bitmaps and PS font definitions) for
/@bop0
{
PsPrintEnabled { (Pass0: Page ) print == flush } {pop} ifelse
}	def
/@eop0 {
pop
}	def
% delta-x and delta-y are shift amounts (in pixels) by which the coordinate
/@bop1
{
PsPrintEnabled { (Pass1: Page ) print == flush } {pop} ifelse
save
DviTranslateVector-X DviTranslateVector-Y translate
DviOrientationMatrix concat
Page-H-Offset Page-V-Offset translate
3 1 roll
translate
0 0 moveto
Draft-Flag { @Draft } if
/DriverDelta 0 def
} def
/@eop1 {
pop
showpage
restore
} def
/@end {
(Done!\n) print flush
} def
/@ReportVmStatus {
(\n@ReportVmStatus: ) print
print (: ) print
vmstatus
(max: ) print 20 string cvs print
(, used: ) print 20 string cvs print
(, level: ) print 20 string cvs print
(\n) print flush
} def
/@ReportVmStatusNew {
(VM: ) print
exch print
(, printer: ) print
/Vmfree vmstatus pop exch pop def Vmfree (       ) cvs print
(, driver: ) print dup (      ) cvs print
(, delta: ) print
Vmfree sub (      ) cvs print
(\n) print flush
} def
/@Draft {
gsave
Page-H-Offset neg Page-V-Offset neg translate
-45 rotate
-150 0 moveto
/Helvetica-Bold findfont
[120.0 0 0 -120.0 0 0 ] makefont setfont
(DRAFT) show
grestore
gsave
Page-H-Offset neg Page-V-Offset neg translate
300 -100 moveto
/Helvetica-Bold findfont
[60.0 0 0   -60.0 0 0 ] makefont setfont
Date-and-Time		show
(   ::   )	      	show
Dvi-File-Name		show
grestore
} def
% dvi2ps: END including file "/lusr/lib/ps/dvi-2-ps/pro/texpre.pro"
% Repeat download of pos.pro
% dvi2ps: BEGIN including file "/lusr/lib/ps/dvi-2-ps/pro/pos.pro"
% Copyright (c) 1988 Stephan v. Bechtolsheim
/a { rmoveto } def
/DriverDelta 0 def
/b { exch p dup /DriverDelta exch def 0 rmoveto } def
% (string) c-k -
/c { p DriverDelta 4 sub dup /DriverDelta exch def 0 rmoveto } def
/d { p DriverDelta 3 sub dup /DriverDelta exch def 0 rmoveto } def
/e { p DriverDelta 2 sub dup /DriverDelta exch def 0 rmoveto } def
/f { p DriverDelta 1 sub dup /DriverDelta exch def 0 rmoveto } def
/g { p DriverDelta 0 rmoveto } def
/h { p DriverDelta 1 add dup /DriverDelta exch def 0 rmoveto } def
/i { p DriverDelta 2 add dup /DriverDelta exch def 0 rmoveto } def
/j { p DriverDelta 3 add dup /DriverDelta exch def 0 rmoveto } def
/k { p DriverDelta 4 add dup /DriverDelta exch def 0 rmoveto } def
%   These next allow us to make small motions (-4..4) cheaply.
/l { p -4 0 rmoveto } def
/m { p -3 0 rmoveto } def
/n { p -2 0 rmoveto } def
/o { p -1 0 rmoveto } def
/q { p 1 0 rmoveto } def
/r { p 2 0 rmoveto } def
/s { p 3 0 rmoveto } def
/t { p 4 0 rmoveto } def
/p { show } def
/w { 0 exch rmoveto } def
/x { 0 rmoveto } def
/y { 3 -1 roll p rmoveto } def
/z
{   /dy exch def
/dx exch def
%	(start rule\n) print flush
currentpoint
currentpoint
newpath
moveto
dx 0 rlineto
0 dy rlineto
dx neg 0 rlineto
closepath
fill
moveto
%	(end rule\n) print flush
}
def
/u-string ( ) def
% Show a single character (given in octal)
/u { u-string exch 0 exch put
u-string show
} def
/v { u-string exch 0 exch put
currentpoint
u-string show
moveto
} def
% dvi2ps: END including file "/lusr/lib/ps/dvi-2-ps/pro/pos.pro"
% Repeat download of pixel-fonts.pro
% dvi2ps: BEGIN including file "/lusr/lib/ps/dvi-2-ps/pro/pixel-fonts.pro"
% Copyright (c) 1988 Stephan v. Bechtolsheim
/@newfont
{
/newname exch def
newname 7 dict def
newname load begin
/FontType 3 def
/FontMatrix [1 0 0 -1 0 0] def
/FontBBox [0 0 1 1] def
/BitMaps 256 array def
/BuildChar {CharBuilder} def
/Encoding 256 array def
0 1 255 {Encoding exch /.undef put} for
end
newname newname load definefont pop
} def
/ch-image {ch-data 0 get} def
/ch-width {ch-data 1 get} def
/ch-height {ch-data 2 get} def
/ch-xoff  {ch-data 3 get} def
/ch-yoff  {ch-data 4 get} def
/ch-tfmw  {ch-data 5 get} def
/CharBuilder
{
/ch-code exch def
/font-dict exch def
/ch-data font-dict /BitMaps get ch-code get def
ch-data null eq not
{
ch-tfmw   0
ch-xoff neg
ch-height ch-yoff sub neg
ch-width  ch-xoff neg add
ch-yoff
setcachedevice
ch-width ch-height true
[1 0  0 1 ch-xoff ch-height ch-yoff sub] {ch-image} imagemask
}
if
} def
%       spacing (= number of pixels to go right after character has been
% SliTeX characters (characters with no pixel information) if it
/@dc
{
%   (start @dc\n) print flush
/ch-code exch def
/ch-data exch def
currentfont /BitMaps get
ch-code ch-data put
currentfont /Encoding get
ch-code (   ) cvs   % convert the character code to a string
cvn
ch-code exch put
%   (done @dc\n) print flush
} def
/@sf /setfont load def
% dvi2ps: END including file "/lusr/lib/ps/dvi-2-ps/pro/pixel-fonts.pro"
/Dvi-File-Name (ibm.dvi) def
/Draft-Flag false def
/#copies 1 def
/HostName (dimebox) def
/PsPrintEnabled false def
/Page-H-Offset   0.000000 def
/Page-V-Offset   0.000000 def
/ExecPsConv {0.30 mul} def
/Date-and-Time (Sun May 26 14:19 1991) def
/DviTranslateVector-X   72.000 def
/DviTranslateVector-Y  720.000 def
/DviOrientationMatrix [    0.240    0.000    0.000
	   -0.240 0.0 0.0 ] def

18 @bop0
/@F10 @newfont
@F10 @sf
[<
07FFFE00001F8000000F0000000F0000000F0000000F0000000F0000000F0000000F000000
0F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F
0000000F0000000F0000800F0010800F0010800F0010800F0010C00F0030400F0020400F00
20600F0060780F01E07FFFFFE0>
	 28 31 -2 30 33] 84 @dc
[<
FFE7FC0E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E
01C00E01C00E01C00F01C00F01C00E81800E43000E3E000E00000E00000E00000E00000E00
000E00000E00000E00000E00000E0000FE00000E0000>
	 22 32 -1 31 25] 104 @dc
[<
01F8000706000C0100180080380080700000700000F00000F00000F00000FFFF80F00380F0
03807003807007003807003807001C0E000E1C0003F000>
	 17 20 -1 19 20] 101 @dc
[<
083E000CC3000D01C00F00E00E00E00E00700E00700E00780E00780E00780E00780E00780E
00780E00700E00700E00E00F00E00F01C00EC3800E3E000E00000E00000E00000E00000E00
000E00000E00000E00000E00000E0000FE00000E0000>
	 21 32 -1 31 25] 98 @dc
[<
8F80D060E030C018C01880188018803800700FF03FE07F807800E000C010C010C010403030
701F90>
	 13 20 -2 19 18] 115 @dc
[<
01E0031006100E080E080E080E080E080E000E000E000E000E000E000E000E000E000E000E
00FFF83E000E000E0006000600020002000200>
	 13 28 -1 27 18] 116 @dc
[<
FF07FE1E01E00601E00201C0030380010700008700004E00007C00003C0000380000780000
EC0000E40001C2000381000701800701C00F01E07FC3FC>
	 23 20 0 19 24] 120 @dc
[<
0F83C0386720781E10F01E10F00E10F00E10F00E10780E00380E001E0E00078E0000FE0000
0E00000E00000E00300E00781C007818003030001FE000>