summaryrefslogtreecommitdiff
path: root/obsolete/macros/plain
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /obsolete/macros/plain
Initial commit
Diffstat (limited to 'obsolete/macros/plain')
-rw-r--r--obsolete/macros/plain/contrib/fontch20/DSmac.tex5
-rw-r--r--obsolete/macros/plain/contrib/fontch20/README338
-rw-r--r--obsolete/macros/plain/contrib/fontch20/TS1mac.tex130
-rw-r--r--obsolete/macros/plain/contrib/fontch20/bsymbols.tex228
-rw-r--r--obsolete/macros/plain/contrib/fontch20/fontch.tex1201
-rw-r--r--obsolete/macros/plain/contrib/siam/READ.ME30
-rw-r--r--obsolete/macros/plain/contrib/siam/docuptex.tex361
-rw-r--r--obsolete/macros/plain/contrib/siam/pexample.tex523
-rw-r--r--obsolete/macros/plain/contrib/siam/siamptex.sty324
9 files changed, 3140 insertions, 0 deletions
diff --git a/obsolete/macros/plain/contrib/fontch20/DSmac.tex b/obsolete/macros/plain/contrib/fontch20/DSmac.tex
new file mode 100644
index 0000000000..89231af349
--- /dev/null
+++ b/obsolete/macros/plain/contrib/fontch20/DSmac.tex
@@ -0,0 +1,5 @@
+%% DSmac.tex This file is part of fontch package V2.0 2007/09/04
+%% This stupid file is for avoiding to define a new family when it is not
+%% necessary, because a \newfam macro cannot be inside an if structure.
+\newfam\dsfam
+
diff --git a/obsolete/macros/plain/contrib/fontch20/README b/obsolete/macros/plain/contrib/fontch20/README
new file mode 100644
index 0000000000..5d8f5703b7
--- /dev/null
+++ b/obsolete/macros/plain/contrib/fontch20/README
@@ -0,0 +1,338 @@
+README File of the package fontch.tex V2.0 2007/09/04
+ fontch.tex: Macros for changing fonts and sizes in plain TeX
+
+ Rodrigo Medina (IVIC) rmedina@ivic.ve
+
+Suggested locations: .../texmf/tex/plain/fontch/
+ .../texmf/doc/tex/fontch/README.txt
+Licence: LPPL
+
+Components
+----------
+The fontch V2.0 package is composed of the following files:
+ README.txt -- This file
+ fontch.tex -- main macros
+ bsymbols.tex -- macros for boldface symbols
+ TS1mac.tex -- macros for the TS1 companion symbols
+ DSmac.tex -- auxiliary file for the DStroke option
+
+Description
+-----------
+ This package allows, in plain TeX, to change with a single
+command the size of all fonts that are used for text input and math input.
+Main text fonts of sizes 8, 10, 12, 14, 20 and 24 points are available.
+Fonts of sizes 5, 6, 7 and 9 points are used in subscripts and subscripts of
+subscripts of other main sizes.
+In addition fontch gives support to:
+ - boldface math-italic and boldface math symbols,
+ - T1 Latin Modern fonts,
+ - TS1 companion symbol fonts.
+ - AMS fonts for boldface math,
+ - Double Stroke fonts for blackboard bold symbols
+
+Requierements
+-------------
+- In order to use the T1 options LMTone and LMTSone, you need to have installed
+ the Latin Modern fonts.
+- In order to use the AMSfont option you need to have installed the AMS fonts.
+- In order to use the DStroke option ou need to have installed the Double
+ Stroke fonts.
+
+Installation
+------------
+ You have only to put the macro files fontch.tex, bsymbols.tex,
+ TS1mac.tex and DSmac.tex in any sensible place in the texmf tree, like
+ .../texmf/tex/plain/fontch/
+
+It is also commendable to put this README file in a proper place such as
+
+ .../texmf/doc/tex/fontch/README.txt
+
+Usage
+-----
+ For using fontch.tex with the original TeX OT1 fonts (Computer Modern)
+just put at the beginning of the document:
+ \input fontch.tex
+
+The file bsymbols.tex provides macro definitions for boldface versions
+of math symbols. For using it just input the file where you need it.
+
+The fontch package has four options for handling different kinds of fonts:
+
+ - LMTone for Latin Modern T1 fonts.
+ - LMTSone for the TS1 companion symbol font.
+ - AMSfont for AMS fonts used for boldface math.
+ - DStroke for Doublestroke fonts providing blackboard-boldface symbols.
+
+The four options are independent. They are activated by setting the
+corresponding variable before calling fontch.tex. For example for
+activating all the four options and using the macros for bold math
+put at the beginning of the document:
+
+ \let\AMSfont\relax
+ \let\DStroke\relax
+ \let\LMTone\relax
+ \let\LMTSone\relax
+ \input fontch.tex
+ \input bsymbols.tex
+
+NOTES:
+-----
+ (1) There is one modification of the standard behavior of plain TeX. Plain
+ TeX defines for the font #3 the same font (tenex) for text, script and
+ scriptscript. That is awfull. The fontch package uses sevenex for
+ script and fiveex for scriptscript, as for the other fonts.
+
+ (2) The use of files il1-t1.tcx or il2-t1.tcx is recommended together
+ with the LMT1 fonts.
+
+ (3) Only the cmcs, cmmib, cmbsy and cmex AMS fonts are supported. These
+ are used for small caps and for boldface math-italic and boldface
+ greek symbols. The other AMS fonts like the Euler, Cyrillic and extra
+ symbols are not supported.
+
+ (4) Only the roman Doublestroke font is supported. The sans serif version
+ is not supported.
+
+ (5) There are two main uses of boldface math. One case is the use of
+ isolated bold characters or symbols inside a formula. For this case
+ fontch provides bold versions of math synbols and the macro \mb for bold
+ math-italic characters. The plain TeX macro "\bf" yields roman-bold
+ characters in math mode. The name of the bold version of a math symbol
+ is obtained adding the prefix "bf" to the name of the normal symbol. For
+ example a boldface italic "a" is {\mb a}, a boldface roman "P" is
+ {\bf P}, a boldface \Sigma is \bfSigma, a boldface \iff is \bfiff.
+
+ The other case is when one wants to write a complete formula in
+ boldface, for example inside a title. For this case fontch has the
+ macro \setmathbold that changes the font families 1 (cmmi) and 2 (cmsy)
+ to the bold versions cmmib and cmmbsy. The macro \unsetmathbold resets
+ the families 1 and 2 to their original values. These macros should be
+ put before and after the formula.
+
+ (6) Usually the macro \setmathbold does not change the whole formula to
+ boldface. This is due to the fact that in math mode some symbols
+ come from family #0 (cmr) or #3 (cmex) such as "+" or \int. Fontch
+ provides macros for the symbols that come from family #0, For
+ example the bold version of "(" is \bflparen.
+
+ (7) Math symbols of family #3 (cmex) do not have bold versions. In particular
+ \int, \sum and \prod. Never the less \smallint is of cmsy and does
+ a bold version.
+
+Modifications from version 1.3
+------------------------------
+
+Version 2.0 is a mayor revision.
+
+There are many improvements such as
+ -- Proper handling of smallcaps
+ -- Support for bold-math
+ -- Support for AMS fonts
+ -- Support for blackboard boldface
+ -- Correction of bugs and scaling.
+
+The behavior of V2.0 should be compatible with V1.3 except for case explained
+in Note (1).
+-----------------------------------------------------
+%%%%%%%%% Commands of fontch %%%%%%
+
+General Commands
+----------------
+The package fontch defines the following commands valid for any option.
+
+Commands for changing font size:
+ \eightpoint -- Change to small type
+ \tenpoint -- Change to normal type
+ \twelvepoint -- Change to large type
+ \fourteenpoint -- Change to very large type
+ \twentypoint -- Change to huge type
+ \twentyfourpoint -- Change to immense type
+
+Commands for changing family, most already in plain TeX.
+
+ \rm -- Roman
+ \it -- Italic
+ \bf -- Boldface
+ \tt -- Teletype
+ \sf -- Sans Serif (new)
+ \sc -- Small Caps
+ \cal -- Calligraphic
+ \mit -- Math Italic
+ \mb -- Math Boldface (new)
+ \bcal -- Boldface calligraphica (new)
+ \oldstyle -- Old style digits
+ \boldstyle -- Boldface old style digitsa (new)
+ \setmathbold -- set families 1 and 2 to cmmib and cmmbsy (new)
+ \unsetmathbold -- reset families 1 and 2 to cmmi and cmmsy (new)
+
+Command for changing line spacing
+ \doublespace -- Double Space for ten & twelve points
+
+
+
+Macros of bold symbols (Require input of bsymbols.tex)
+----------------------
+Symbols that have a keyword
+ bold_keyword = bf + normal_keyword
+
+Symbols that do not have a keyword
+ \bfexcl -- !
+ \bflparen -- (
+ \bfrparen -- )
+ \bfplus -- +
+ \bfcomma -- ,
+ \bfcolon -- :
+ \bfsemicolon -- ;
+ \bfequal -- =
+ \bflbraket -- [
+ \bflt -- <
+ \bfslash -- /
+ \bfgt -- >
+ \bfminus -- -
+ \bfvert -- |
+ \bfVert -- \|
+
+Command of the DStroke option
+-----------------------------
+ \ds -- Double Stroke
+
+Commands of the LMT1 option
+---------------------------
+
+Redefined Plain TeX Commands:
+ \i , \j , \ae , \AE, \oe , \OE , \o , \O ,
+ \ss , \SS , \aa , \AA , \l , \L ,
+ \Gamma , \Delta , \Theta , \Lambda , \Xi , \Pi ,
+ \Sigma , \Upsilon , \Phi , \Psi , \Omega , \hbar
+
+New T1 Commands for non-latin1 characters
+
+ \lh -- l'
+ \Lh -- L'
+ \dh -- d'
+ \th -- t'
+ \dbar -- d slash
+ \Edh
+ \edh
+ \ij
+ \IJ
+ \nj
+ \NJ
+ \thorn
+ \Thorn
+ \smallzero
+ \lguille -- left guillemot (does not appear in il1-t1.tcx)
+ \rguille -- right guillemot (does not appear in il1-t1.tcx)
+ \vispace -- visible space
+
+Redefined plain TeX accents
+ \` , \' , \^ , \~ , \" , \H , \v , \u , \= , \. , \b , \c
+
+Redefined plain TeX math-accents
+ \acute,\grave,\ddot,\tilde,\bar,\breve,\check,\hat,\dot
+
+New T1 accents
+ \r -- ring accent
+ \k -- ogonek
+
+New T1 math-accent
+ \ring
+
+Commands of the LMTS1 option
+----------------------------
+
+TS1 symbols
+ \tcchar{#1} -- Character of TS1 table
+
+Redefined plain TeX commands
+ \t{#1} -- tie-after-accent
+ \P -- pilcrow
+ \S -- section
+ \dag -- dagger
+ \ddag -- double dagger
+ \copyright
+
+Most TS1 symbols (in increasing charcode order)
+Some are text versions of symbols of the math mode.
+
+ \arrowl -- left arrow
+ \arrowr -- right arrow
+ \blank
+ \dollar
+ \caster -- centered asterisk
+ \sequals -- short equals
+ \anglel
+ \angler
+ \mho
+ \bigcircle
+ \Ohm
+ \bbracketl -- left double square bracket
+ \bbracketr -- right double square bracket
+ \arrowu -- up arrow
+ \arrowd -- down arrow
+ \textstar -- star
+ \born
+ \died
+ \leaf
+ \married
+ \music
+ \doublevert -- Double vertical bar
+ \perthousand
+ \bull -- bullet (is in manmac)
+ \centigrade
+ \olddollar
+ \oldcent
+ \florin
+ \Colon
+ \won
+ \naira
+ \guarani
+ \peso
+ \lira
+ \recipe
+ \interrobang -- Question+Exclamation
+ \gnaborretni -- Question+Exclamation upside-down
+ \dong
+ \TM
+ \pertenth -- per ten thousand
+ \npilcrow -- narrow pilcrow
+ \baht
+ \numero
+ \abzueglich
+ \aestimated -- Big e
+ \openbull
+ \SM
+ \qbrackl -- left quill bracket
+ \qbrackr -- right quill bracket
+ \cent
+ \sterling
+ \currency
+ \yen
+ \brokenvert -- broken vertical bar
+ \feminine
+ \copyleft
+ \lognot -- logical not
+ \circledP
+ \registered
+ \degree
+ \plusminus
+ \twoup
+ \threeup
+ \micro
+ \centereddot
+ \reference
+ \oneup
+ \masculine
+ \root
+ \onequarter
+ \onehalf
+ \threequarters
+ \euro
+ \texttimes
+ \textdiv
+
+Bugs
+----
+ Comments and bug reports are welcome at rmedina@ivic.ve
+-.-
diff --git a/obsolete/macros/plain/contrib/fontch20/TS1mac.tex b/obsolete/macros/plain/contrib/fontch20/TS1mac.tex
new file mode 100644
index 0000000000..00cf719ed7
--- /dev/null
+++ b/obsolete/macros/plain/contrib/fontch20/TS1mac.tex
@@ -0,0 +1,130 @@
+%% TS1mac.tex this file is part of fontch package V2.0 2007/09/04
+%% Support of TS1 fonts
+%% eight points fonts %%
+\font\eightcrm=ts1-lmr8
+\font\eightcbf=ts1-lmbx8
+\font\eightcsl=ts1-lmro8
+\font\eightctt=ts1-lmtt8
+\font\eightcit=ts1-lmri8
+\font\eightcss=ts1-lmss8
+%% ten points fonts %%
+\font\tencrm=ts1-lmr10
+\font\tencbf=ts1-lmbx10
+\font\tencsl=ts1-lmro10
+\font\tenctt=ts1-lmtt10
+\font\tencit=ts1-lmri10
+\font\tencss=ts1-lmss10
+%% twelve points fonts %%
+\font\twelvecrm=ts1-lmr12
+\font\twelvecbf=ts1-lmbx12
+\font\twelvecsl=ts1-lmro12
+\font\twelvectt=ts1-lmtt12
+\font\twelvecit=ts1-lmri12
+\font\twelvecss=ts1-lmss12
+%% fourteen points fonts %%
+\font\fourteencrm=ts1-lmr12 scaled 1167
+\font\fourteencbf=ts1-lmbx12 scaled 1167
+\font\fourteencsl=ts1-lmro12 scaled 1167
+\font\fourteenctt=ts1-lmtt12 scaled 1167
+\font\fourteencit=ts1-lmri12 scaled 1167
+\font\fourteencss=ts1-lmss12 scaled 1167
+%% twenty points fonts %%
+\font\twentycrm=ts1-lmr12 scaled 1667
+\font\twentycbf=ts1-lmbx12 scaled 1667
+\font\twentycsl=ts1-lmro12 scaled 1667
+\font\twentyctt=ts1-lmtt12 scaled 1667
+\font\twentycit=ts1-lmri12 scaled 1667
+\font\twentycss=ts1-lmss12 scaled 1667
+%% twentyfour points fonts %%
+\font\twentyfourcrm=ts1-lmr12 scaled 2000
+\font\twentyfourcbf=ts1-lmbx12 scaled 2000
+\font\twentyfourcsl=ts1-lmro12 scaled 2000
+\font\twentyfourctt=ts1-lmtt12 scaled 2000
+\font\twentyfourcit=ts1-lmri12 scaled 2000
+\font\twentyfourcss=ts1-lmss12 scaled 2000
+%% Text companion symbols TS1 %%
+%% Redefinition of tie-accent
+\def\t#1{{\edef\next{\the\font}\tcfont\accent"1B\next#1}}
+%% TC character
+\def\tcchar#1{{\edef\next{\the\font}\tcfont\char#1\next}}
+%% TC symbols
+\def\arrowl{{\tcchar{"18}}}
+\def\arrowr{{\tcchar{"19}}}
+\def\blank{{\tcchar{"20}}}
+\def\dollar{{\tcchar{"24}}}
+\def\caster{{\tcchar{"2A}}}
+\def\sequals{{\tcchar{"2D}}}
+\def\anglel{{\tcchar{"3C}}}
+\def\angler{{\tcchar{"3E}}}
+\def\mho{{\tcchar{"4D}}}
+\def\bigcircle{{\tcchar{"4F}}}
+\def\Ohm{{\tcchar{"57}}}
+\def\bbracketl{{\tcchar{"5B}}}
+\def\bbracketr{{\tcchar{"5D}}}
+\def\arrowu{{\tcchar{"5E}}}
+\def\arrowd{{\tcchar{"5F}}}
+\def\textstar{{\tcchar{"62}}}
+\def\born{{\tcchar{"63}}}
+\def\died{{\tcchar{"64}}}
+\def\leaf{{\tcchar{"6C}}}
+\def\married{{\tcchar{"6D}}}
+\def\music{{\tcchar{"6E}}}
+\def\dag{{\tcchar{"84}}}%% Redefined
+\def\ddag{{\tcchar{"85}}}%% Redefined
+\def\doublevert{{\tcchar{"86}}}
+\def\perthousand{{\tcchar{"87}}}
+\def\bull{{\tcchar{"88}}}
+\def\centigrade{{\tcchar{"89}}}
+\def\olddollar{{\tcchar{"8A}}}
+\def\oldcent{{\tcchar{"8B}}}
+\def\florin{{\tcchar{"8C}}}
+\def\Colon{{\tcchar{"8D}}}
+\def\won{{\tcchar{"8E}}}
+\def\naira{{\tcchar{"8F}}}
+\def\guarani{{\tcchar{"90}}}
+\def\peso{{\tcchar{"91}}}
+\def\lira{{\tcchar{"92}}}
+\def\recipe{{\tcchar{"93}}}
+\def\interrobang{{\tcchar{"94}}}
+\def\gnaborretni{{\tcchar{"95}}}
+\def\dong{{\tcchar{"96}}}
+\def\TM{{\tcchar{"97}}}
+\def\pertenth{{\tcchar{"98}}}
+\def\npilcrow{{\tcchar{"99}}}
+\def\baht{{\tcchar{"9A}}}
+\def\numero{{\tcchar{"9B}}}
+\def\abzueglich{{\tcchar{"9C}}}
+\def\aestimated{{\tcchar{"9D}}}
+\def\openbull{{\tcchar{"9E}}}
+\def\SM{{\tcchar{"9F}}}
+\def\qbrackl{{\tcchar{"A0}}}
+\def\qbrackr{{\tcchar{"A1}}}
+\def\cent{{\tcchar{"A2}}}
+\def\sterling{{\tcchar{"A3}}}
+\def\currency{{\tcchar{"A4}}}
+\def\yen{{\tcchar{"A5}}}
+\def\brokenvert{{\tcchar{"A6}}}
+\def\S{{\tcchar{"A7}}}%% Redefined
+\def\copyright{{\tcchar{"A9}}}
+\def\feminine{{\tcchar{"AA}}}
+\def\copyleft{{\tcchar{"AB}}}
+\def\lognot{{\tcchar{"AC}}}
+\def\circledP{{\tcchar{"AD}}}
+\def\registered{{\tcchar{"AE}}}
+\def\degree{{\tcchar{"B0}}}
+\def\plusminus{{\tcchar{"B1}}}
+\def\twoup{{\tcchar{"B2}}}
+\def\threeup{{\tcchar{"B3}}}
+\def\micro{{\tcchar{"B5}}}
+\def\P{{\tcchar{"B6}}}%% Redefined
+\def\centereddot{{\tcchar{"B7}}}
+\def\reference{{\tcchar{"B8}}}
+\def\oneup{{\tcchar{"B9}}}
+\def\masculine{{\tcchar{"BA}}}
+\def\root{{\tcchar{"BB}}}
+\def\onequarter{{\tcchar{"BC}}}
+\def\onehalf{{\tcchar{"BD}}}
+\def\threequarters{{\tcchar{"BE}}}
+\def\euro{{\tcchar{"BF}}}
+\def\texttimes{{\tcchar{"D6}}}
+%% End of LMTSone option %%
diff --git a/obsolete/macros/plain/contrib/fontch20/bsymbols.tex b/obsolete/macros/plain/contrib/fontch20/bsymbols.tex
new file mode 100644
index 0000000000..b44d0818bc
--- /dev/null
+++ b/obsolete/macros/plain/contrib/fontch20/bsymbols.tex
@@ -0,0 +1,228 @@
+%% bsymbols.tex Macros for bold symbols defined in cmmib and cmbsy
+%% Part of package fontch V2.0 2007/09/4
+%% Rodrigo Medina (IVIC) rmedina@ivic.ve
+%% Licence: LPPL
+%%
+%%%% Description
+%% Defines a macro for the bold version of each symbol that appears in
+%% cmmi and cmsy. The name of the bold symbol is the name of the normal symbol
+%% with the prefix "bf". For example the bold version of \Sigma is \bfSigma.
+%%
+%% There are also macros for the bold versions of symbols that have their
+%% own key. For example the bold version of "+" is \bfplus.
+%%%% Requirement
+%% As it is defined in fontch.tex cmmib must be family #8 and cmbsy family #9
+%%
+%%%% Usage
+%% You can use bsymbols.tex in two ways:
+%% 1- put \input bsymbols.tex in your document.
+%% 2- If need only a few bold symbols you may copy in your document
+%% the lines of this file in which the symbols that you need appear.
+%%
+%%%%
+%%
+%% These have their own key, most are defined in cmr
+\mathchardef\bfexcl="0621
+\mathchardef\bflparen="4628
+\mathchardef\bfrparen="5629
+\mathchardef\bfplus="262B
+\mathchardef\bfcomma="662C
+\mathchardef\bfcolon="063A
+\mathchardef\bfsemicolon="663B
+\mathchardef\bfequal="363D
+\mathchardef\bflbraket="465B
+\mathchardef\bfrbraket="565D
+\mathchardef\bflt="383C
+\mathchardef\bfslash="283D
+\mathchardef\bfgt="383E
+\mathchardef\bfminus="2900
+\mathchardef\bfvert="296A
+%% cmmi symbols
+\mathchardef\bfGamma="7800
+\mathchardef\bfDelta="7801
+\mathchardef\bfTheta="7802
+\mathchardef\bfLambda="7803
+\mathchardef\bfXi="7804
+\mathchardef\bfPi="7805
+\mathchardef\bfSigma="7806
+\mathchardef\bfUpsilon="7807
+\mathchardef\bfPhi="7808
+\mathchardef\bfPsi="7809
+\mathchardef\bfOmega="780A
+\mathchardef\bfalpha="080B
+\mathchardef\bfbeta="080C
+\mathchardef\bfgamma="080D
+\mathchardef\bfdelta="080E
+\mathchardef\bfepsilon="080F
+\mathchardef\bfzeta="0810
+\mathchardef\bfeta="0811
+\mathchardef\bftheta="0812
+\mathchardef\bfiota="0813
+\mathchardef\bfkappa="0814
+\mathchardef\bflambda="0815
+\mathchardef\bfmu="0816
+\mathchardef\bfnu="0817
+\mathchardef\bfxi="0818
+\mathchardef\bfpi="0819
+\mathchardef\bfrho="081A
+\mathchardef\bfsigma="081B
+\mathchardef\bftau="081C
+\mathchardef\bfupsilon="081D
+\mathchardef\bfphi="081E
+\mathchardef\bfchi="081F
+\mathchardef\bfpsi="0820
+\mathchardef\bfomega="0821
+\mathchardef\bfvarepsilon="0822
+\mathchardef\bfvartheta="0823
+\mathchardef\bfvarpi="0824
+\mathchardef\bfvarrho="0825
+\mathchardef\bfvarsigma="0826
+\mathchardef\bfvarphi="0827
+\mathchardef\bfleftharpoonup="3828
+\mathchardef\bfleftharpoondown="3829
+\mathchardef\bfrightharpoonup="382A
+\mathchardef\bfrightharpoondown="382B
+\mathchardef\bflhook="382C
+\mathchardef\bfrhook="382D
+\def\bfhookrightarrow{\bflhook\joinrel\bfrightarrow}
+\def\bfhookleftarrow{\bfleftarrow\joinrel\bfrhook}
+\def\bfrelbar{\mathrel{\smash\bfminus}}
+\def\bfRelbar{\mathrel\bfequal}
+\mathchardef\bftriangleright="282E
+\mathchardef\bftriangleleft="282F
+\def\bfjoinrel{\mathrel{\mkern-4mu}}
+\def\bfbowtie{\mathrel\bftriangleright\bfjoinrel\mathrel\bftriangleleft}
+\def\bfmodels{\mathrel\bfvert\bfjoinrel\bfequal}
+\def\bfLongrightarrow{\bfRelbar\bfjoinrel\bfRightarrow}
+\def\bflongrightarrow{\bfrelbar\bfjoinrel\bfrightarrow}
+\def\bflongmapsto{\bfmapstochar\bflongrightarrow}
+\def\bflongleftarrow{\bfleftarrow\bfjoinrel\bfrelbar}
+\def\bfLongleftarrow{\bfLeftarrow\bfjoinrel\bfRelbar}
+\def\bflongleftrightarrow{\bfleftarrow\bfjoinrel\bfrightarrow}
+\def\bfLongleftrightarrow{\bfLeftarrow\bfjoinrel\bfRightarrow}
+\def\bfiff{\;\bfLongleftrightarrow\;}
+
+
+\mathchardef\bfldotp="683A
+\def\bfldots{\mathinner{\bfldotp\bfldotp\bfldotp}}
+\let\bfdots=\bfldots
+\mathchardef\bfstar="283F
+\mathchardef\bfpartial="0840
+\mathchardef\bfflat="085B
+\mathchardef\bfnatural="085C
+\mathchardef\bfsharp="085D
+\mathchardef\bfsmile="385E
+\mathchardef\bffrown="385F
+\mathchardef\bfell="0860
+\mathchardef\bfimath="087B
+\mathchardef\bfjmath="087C
+\mathchardef\bfwp="087D
+%%
+%% cmsy symbols
+\mathchardef\bfcdot="2901
+\mathchardef\bfcdotp="6201
+\def\bfcdots{\mathinner{\bfcdotp\bfcdotp\bfcdotp}}
+\mathchardef\bftimes="2902
+\mathchardef\bfast="2903
+\mathchardef\bfdiv="2904
+\mathchardef\bfdiamond="2905
+\mathchardef\bfpm="2906
+\mathchardef\bfmp="2907
+\mathchardef\bfoplus="2908
+\mathchardef\bfominus="2909
+\mathchardef\bfotimes="290A
+\mathchardef\bfoslash="290B
+\mathchardef\bfodot="290C
+\mathchardef\bfbigcirc="290D
+\mathchardef\bfcirc="290E
+\mathchardef\bfbullet="290F
+\mathchardef\bfasymp="3910
+\mathchardef\bfequiv="3911
+\mathchardef\bfsubseteq="3912
+\mathchardef\bfsupseteq="3913
+\mathchardef\bfleq="3914 \let\bfle=\bfleq
+\mathchardef\bfgeq="3915 \let\bfge=\bfgeq
+\mathchardef\bfpreceq="3916
+\mathchardef\bfsucceq="3917
+\mathchardef\bfsim="3918
+\mathchardef\bfapprox="3919
+\mathchardef\bfsubset="391A
+\mathchardef\bfsupset="391B
+\mathchardef\bfll="391C
+\mathchardef\bfgg="391D
+\mathchardef\bfprec="391E
+\mathchardef\bfsucc="391F
+\mathchardef\bfleftarrow="3920 \let\bfgets=\bfleftarrow
+\mathchardef\bfrightarrow="3921 \let\bfto=\bfrightarrow
+\mathchardef\bfuparrow="3922
+\mathchardef\bfdownarrow="3923
+\mathchardef\bfleftrightarrow="3924
+\mathchardef\bfnearrow="3925
+\mathchardef\bfsearrow="3926
+\mathchardef\bfsimeq="3927
+\mathchardef\bfLeftarrow="3928
+\mathchardef\bfRightarrow="3929
+\mathchardef\bfUparrow="392A
+\mathchardef\bfDownarrow="392B
+\mathchardef\bfLeftrightarrow="392C
+\mathchardef\bfnwarrow="392D
+\mathchardef\bfswarrow="392E
+\mathchardef\bfpropto="392F
+\mathchardef\bfprime="0930
+\mathchardef\bfinfty="0931
+\mathchardef\bfin="3932
+\mathchardef\bfni="3933
+\mathchardef\bfbigtriangle="2934
+\mathchardef\bfbigtriangledown="2935
+\mathchardef\bfnot="3936
+\mathchardef\bfmapstochar="3937
+\def\bfmapsto{\bfmapstochar\bfrightarrow}
+\mathchardef\bfforall="0938
+\mathchardef\bfexists="0939
+\mathchardef\bfneg="093A \let\bflnot=\bfneg
+\mathchardef\bfemptyset="093B
+\mathchardef\bfRe="093C
+\mathchardef\bfIm="093D
+\mathchardef\bftop="093E
+\mathchardef\bfbot="093F \let\bfperp=\bfbot
+\mathchardef\bfaleph="0940
+\mathchardef\bfcup="295B
+\mathchardef\bfcap="295C
+\mathchardef\bfuplus="295D
+\mathchardef\bfwedge="295E \let\bfland=\bfwedge
+\mathchardef\bfvee="295F \let\bflor=\bfvee
+\mathchardef\bfvdash="3960
+\mathchardef\bfdashv="2961
+\mathchardef\bflfloor="4962
+\mathchardef\bfrfloor="5963
+\mathchardef\bflceil="4964
+\mathchardef\bfrceil="5965
+\mathchardef\bflbrace="4966
+\mathchardef\bfrbrace="5967
+\mathchardef\bflangle="4968
+\mathchardef\bfrangle="5969
+\mathchardef\bfmid="396A
+\mathchardef\bfparallel="396B
+\mathchardef\bfVert="296B
+\mathchardef\bfupdownarrow="396C
+\mathchardef\bfUpdownarrow="396D
+\mathchardef\bfbackslash="096E
+\mathchardef\bfwr="296F
+\def\bfsurd{{\mathchar"1970}}
+\mathchardef\bfamalg="2971
+\mathchardef\bfnabla="0972
+\mathchardef\bfsmallint="1973
+\mathchardef\bfsqcup="2974
+\mathchardef\bfsqcap="2975
+\mathchardef\bfsqsubseteq="3976
+\mathchardef\bfsqsupseteq="3977
+\mathchardef\bfS="0978
+\mathchardef\bfdagger="2979
+\mathchardef\bfddagger="297A
+\mathchardef\bfP="097B
+\mathchardef\bfclubsuit="097C
+\mathchardef\bfdiamondsuit="097D
+\mathchardef\bfheartsuit="097E
+\mathchardef\bfspadesuit="097F
+%%
+~
diff --git a/obsolete/macros/plain/contrib/fontch20/fontch.tex b/obsolete/macros/plain/contrib/fontch20/fontch.tex
new file mode 100644
index 0000000000..976d301684
--- /dev/null
+++ b/obsolete/macros/plain/contrib/fontch20/fontch.tex
@@ -0,0 +1,1201 @@
+%% fontch.tex Macros for easily changing fonts and sizes in plain TeX %%
+%% V2.0 2007/09/04
+%% Rodrigo Medina (IVIC) rmedina@ivic.ve
+%% Suggested location: .../texmf/tex/plain/fontch/
+%% Licence: LPPL
+%%
+%%%%%% Components
+%% The fontch V2.0 package is composed of the following files
+%% README.txt -- Explanation file (has essentially this information)
+%% fontch.tex -- main macros
+%% bsymbols.tex -- macros for boldface symbols
+%% TS1mac.tex -- macros for the TS1 companion symbols
+%% DSmac.tex -- auxiliary file for the DStroke option
+%%%%%% Description
+%%
+%% Fontch implements a mechanism for changing type and size of fonts. One
+%% can write text and math at main sizes of 8, 10, 12, 14, 20 and 24 points.
+%% Fonts of sizes 5, 6, 7 and 9 points are used in subscripts and subscripts of %% subscripts of other main sizes.
+%% A single command makes all the changes needed for changing font smoothly.
+%% In addition fontch gives support to:
+%% - boldface math-italic and boldface math symbols,
+%% - T1 Latin Modern fonts,
+%% - TS1 companion symbol fonts.
+%% - AMS fonts for boldface math,
+%% - Double Stroke fonts for blackboard bold symbols
+%%
+%%%%%% Usage
+%%
+%% For using fontch.tex with the original TeX OT1 fonts (Computer Modern)
+%% just put at the beginning of the document:
+%% \input fontch.tex
+%%
+%% The file bsymbols.tex provides macro definitions for boldface versions
+%% of math symbols. For using it just input the file where you need it.
+%%
+%% The fontch package has four options for handling different kinds of fonts:
+%%
+%% - LMTone for Latin Modern T1 fonts.
+%% - LMTSone for the TS1 companion symbol font.
+%% - AMSfont for AMS fonts used for boldface math.
+%% - DStroke for Doublestroke fonts providing blackboard-boldface symbols.
+%%
+%% The four options are independent. They are activated by setting the
+%% corresponding variable before calling fontch.tex. For example for
+%% activating all the four options and using the macros for bold math
+%% put at the beginning of the document:
+%%
+%% \let\AMSfont\relax
+%% \let\DStroke\relax
+%% \let\LMTone\relax
+%% \let\LMTSone\relax
+%% \input fontch.tex
+%% \input bsymbols.tex
+%%
+%%
+%%%%%% NOTES:
+%% (1) There is one modification of the standard behavior of plain TeX. Plain
+%% TeX defines for the font #3 the same font (tenex) for text, script and
+%% scriptscript. That is awfull. The fontch package uses sevenex for
+%% script and fiveex for scriptscript, as for the other fonts.
+%%
+%% (2) The use of files il1-t1.tcx or il2-t1.tcx is recommended together
+%% with the LMT1 fonts.
+%%
+%% (3) Only the cmcs, cmmib, cmbsy and cmex AMS fonts are supported. These
+%% are used for small caps and for boldface math-italic and boldface
+%% greek symbols. The other AMS fonts like the Euler, Cyrillic and extra
+%% symbols are not supported.
+%%
+%% (4) Only the roman Doublestroke font is supported. The sans serif version
+%% is not supported.
+%%
+%% (5) There are two main uses of boldface math. One case is the use of
+%% isolated bold characters or symbols inside a formula. For this case
+%% fontch provides bold versions of math synbols and the macro \mb for bold
+%% math-italic characters. The plain TeX macro "\bf" yields roman-bold
+%% characters in math mode. The name of the bold version of a math symbol
+%% is obtained adding the prefix "bf" to the name of the normal symbol. For
+%% example a boldface italic "a" is {\mb a}, a boldface roman "P" is
+%% {\bf P}, a boldface \Sigma is \bfSigma, a boldface \iff is \bfiff.
+%%
+%% The other case is when one wants to write a complete formula in
+%% boldface, for example inside a title. For this case fontch has the
+%% macro \setmathbold that changes the font families 1 (cmmi) and 2 (cmsy)
+%% to the bold versions cmmib and cmmbsy. The macro \unsetmathbold resets
+%% the families 1 and 2 to their original values. These macros should be
+%% put before and after the formula.
+%%
+%% (6) Usually the macro \setmathbold does not change the whole formula to
+%% boldface. This is due to the fact that in math mode some symbols
+%% come from family #0 (cmr) or #3 (cmex) such as "+" or \int. Fontch
+%% provides macros for the symbols that come from family #0, For
+%% example the bold version of "(" is \bflparen.
+%%
+%% (7) Math symbols of family #3 (cmex) do not have bold versions. In particular
+%% \int, \sum and \prod. Never the less \smallint is of cmsy and does
+%% a bold version.
+%%
+%%%%%%%%% Commands of fontch %%%%%%
+%%
+%%%%%% General Commands
+% \rm -- Roman
+% \it -- Italic
+% \bf -- Boldface
+% \tt -- Teletype
+% \sf -- Sans Serif
+% \sc -- Small Caps
+% \cal -- Calligraphic
+% \mit -- Math Italic
+% \mb -- Math Boldface
+% \bcal -- Boldface calligraphic
+% \oldstyle -- Old style digits
+% \boldstyle -- Boldface old style digits
+% \setmathbold -- set families 1 and 2 to cmmib and cmmbsy
+% \unsetmathbold -- reset families 1 and 2 to cmmi and cmmsy
+% \eightpoint -- Change to small type
+% \tenpoint -- Change to normal type
+% \twelvepoint -- Change to large type
+% \fourteenpoint -- Change to very large type
+% \twentypoint -- Change to huge type
+% \twentyfourpoint -- Change to immense type
+% \doublespace -- Double Space for ten & twelve points
+%
+%%%%%% Macros of bold symbols
+% Symbols that have a keyword
+% bold_keyword = bf + normal_keyword
+%
+% Symbols that do not have a keyword
+% \bfexcl -- !
+% \bflparen -- (
+% \bfrparen -- )
+% \bfplus -- +
+% \bfcomma -- ,
+% \bfcolon -- :
+% \bfsemicolon -- ;
+% \bfequal -- =
+% \bflbraket -- [
+% \bflt -- <
+% \bfslash -- /
+% \bfgt -- >
+% \bfminus -- -
+% \bfvert -- |
+% \bfVert -- \|
+%
+%%%%%% Command of the DStroke option
+% \ds -- Double Stroke
+%
+%%%%%% Commands of the LMT1 option
+%% Redefined Plain TeX Commands
+% \i , \j , \ae , \AE, \oe , \OE , \o , \O ,
+% \ss , \SS , \aa , \AA , \l , \L ,
+% \Gamma , \Delta , \Theta , \Lambda , \Xi , \Pi ,
+% \Sigma , \Upsilon , \Phi , \Psi , \Omega, \hbar
+%%
+%% New T1 Commands for non-latin1 characters
+% \lh -- l'
+% \Lh -- L'
+% \dh -- d'
+% \th -- t'
+% \dbar -- d slash
+% \Edh
+% \edh
+% \ij
+% \IJ
+% \nj
+% \NJ
+% \thorn
+% \Thorn
+% \smallzero
+% \lguille -- left guillemot (does not appear in il1-t1.tcx)
+% \rguille -- right guillemot (does not appear in il1-t1.tcx)
+% \vispace -- visible space
+%%
+%% Redefined plain TeX accents
+% \` , \' , \^ , \~ , \" , \H , \v , \u , \= , \. , \b , \c
+%% New T1 accents
+% \r -- ring accent
+% \k -- ogonek
+%%
+%% Redefined plain TeX math-accents
+% \acute,\grave,\ddot,\tilde,\bar,\breve,\check,\hat,\dot
+%% New T1 math-accent
+% \ring
+%%
+%%%%% Commands of the LMTS1 option %%
+%% Text companion symbols TS1 %%
+% \tcchar{#1} -- Character of TS1 table
+%% Redefined plain TeX commands
+% \t{#1} -- tie-after-accent
+% \P -- pilcrow
+% \S -- section
+% \dag -- dagger
+% \ddag -- double dagger
+% \copyright
+%% Most TS1 symbols (in increasing charcode order)
+% \arrowl -- left arrow
+% \arrowr -- right arrow
+% \blank
+% \dollar
+% \caster -- centered asterisk
+% \sequals -- short equals
+% \anglel
+% \angler
+% \mho
+% \bigcircle
+% \Ohm
+% \bbracketl -- left double square bracket
+% \bbracketr -- right double square bracket
+% \arrowu -- up arrow
+% \arrowd -- down arrow
+% \textstar -- star
+% \born
+% \died
+% \leaf
+% \married
+% \music
+% \doublevert -- Double vertical bar
+% \perthousand
+% \bull -- bullet (is in manmac)
+% \centigrade
+% \olddollar
+% \oldcent
+% \florin
+% \Colon
+% \won
+% \naira
+% \guarani
+% \peso
+% \lira
+% \recipe
+% \interrobang -- Question+Exclamation
+% \gnaborretni -- Question+Exclamation upsidedown
+% \dong
+% \TM
+% \pertenth -- per ten thousand
+% \npilcrow -- narrow pilcrow
+% \baht
+% \numero
+% \abzueglich
+% \aestimated -- Big e
+% \openbull
+% \SM
+% \qbrackl -- left quill bracket
+% \qbrackr -- right quill bracket
+% \cent
+% \sterling
+% \currency
+% \yen
+% \brokenvert -- broken vertical bar
+% \feminine
+% \copyleft
+% \lognot -- logical not
+% \circledP
+% \registered
+% \degree
+% \plusminus
+% \twoup
+% \threeup
+% \micro
+% \centereddot
+% \reference
+% \oneup
+% \masculine
+% \root
+% \onequarter
+% \onehalf
+% \threequarters
+% \euro
+% \texttimes
+% \textdiv
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%% Modifications from version 1.3
+%%
+%% Version 2.0 is a mayor revision.
+%%
+%% There are many improvements such as
+%% -- Proper handling of smallcaps
+%% -- Support for bold-math
+%% -- Support for AMS fonts
+%% -- Support for blackboard boldface
+%% -- Correction of bugs and scaling.
+%%
+%% The behavior should be compatible with V1.3 except for
+%% case explained in Note (1).
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\wlog{File: fontch.tex
+ [v2.0 (2007/09/04) font change package for plain TeX]}
+%
+%% Math fonts, valid for any option
+%% five points fonts (defined in plain.tex) %%
+%% six points fonts %%
+\font\sixi=cmmi6
+\font\sixsy=cmsy6
+\skewchar\sixi='177
+\skewchar\sixsy='60
+%% seven points fonts (defined in plain.tex) %%
+%% eight points fonts %%
+\font\eighti=cmmi8
+\font\eightsy=cmsy8
+\skewchar\eighti='177
+\skewchar\eightsy='60
+%% nine points fonts %%
+\font\ninei=cmmi9
+\font\ninesy=cmsy9
+\skewchar\ninei='177
+\skewchar\ninesy='60
+%% ten points fonts %%
+\font\tenmib=cmmib10
+\font\tenbsy=cmbsy10
+\skewchar\tenmib='177
+\skewchar\tenbsy='60
+%% twelve points fonts %%
+\font\twelvei=cmmi12
+\font\twelvesy=cmsy10 scaled 1200
+\font\twelveex=cmex10 scaled 1200
+\font\twelvemib=cmmib10 scaled 1200
+\font\twelvebsy=cmbsy10 scaled 1200
+\skewchar\twelvei='177
+\skewchar\twelvemib='177
+\skewchar\twelvesy='60
+\skewchar\twelvebsy='60
+%% fourteen points fonts %%
+\font\fourteeni=cmmi12 scaled 1167
+\font\fourteensy=cmsy10 scaled 1400
+\font\fourteenex=cmex10 scaled 1400
+\font\fourteenmib=cmmib10 scaled 1400
+\font\fourteenbsy=cmbsy10 scaled 1400
+\skewchar\fourteeni='177
+\skewchar\fourteenmib='177
+\skewchar\fourteensy='60
+\skewchar\fourteenbsy='60
+%% twenty points fonts %%
+\font\twentyi=cmmi12 scaled 1667
+\font\twentysy=cmsy10 scaled 2000
+\font\twentyex=cmex10 scaled 2000
+\font\twentymib=cmmib10 scaled 2000
+\font\twentybsy=cmbsy10 scaled 2000
+\skewchar\twentyi='177
+\skewchar\twentymib='177
+\skewchar\twentysy='60
+\skewchar\twentybsy='60
+%% twentyfour points fonts %%
+\font\twentyfouri=cmmi12 scaled 2000
+\font\twentyfoursy=cmsy10 scaled 2400
+\font\twentyfourex=cmex10 scaled 2400
+\font\twentyfourmib=cmmib10 scaled 2400
+\font\twentyfourbsy=cmsy10 scaled 2400
+\skewchar\twentyfouri='177
+\skewchar\twentyfourmib='177
+\skewchar\twentyfoursy='60
+\skewchar\twentyfourbsy='60
+%%
+%% big... operators
+\newdimen\bigsize
+\newdimen\Bigsize
+\newdimen\biggsize
+\newdimen\Biggsize
+%% Make @ visible
+\catcode`\@=11
+\def\big#1{{\hbox{$\left#1\vbox to \bigsize{}\right.\n@space$}}}
+\def\Big#1{{\hbox{$\left#1\vbox to \Bigsize{}\right.\n@space$}}}
+\def\bigg#1{{\hbox{$\left#1\vbox to \biggsize{}\right.\n@space$}}}
+\def\Bigg#1{{\hbox{$\left#1\vbox to \Biggsize{}\right.\n@space$}}}
+%%
+\ifx\AMSfont\@undefined%
+{}
+\else
+\let\ifAMS=\relax
+\fi
+%%
+\ifx\DStroke\@undefined%
+{}
+\else
+\let\ifDS=\relax
+\fi
+%%
+\ifx\LMTone\@undefined%
+{}
+\else
+\let\ifLMT=\relax
+\fi
+\ifx\LMTSone\@undefined%
+{}
+\else
+\let\ifLMTS=\relax
+\fi
+%%
+%% Make @ invisible
+\catcode`\@=12
+%%
+\ifx\ifAMS\relax%
+%% AMS option activated %%
+\immediate\write16{*** AMS option activated. AMS fonts are used ***}
+%% extension font
+\font\sevenex=cmex7
+\font\eightex=cmex8
+\font\nineex=cmex9
+\font\fiveex=cmex7 scaled 714
+\font\sixex=cmex7 scaled 857
+%% math-italic boldface font
+\font\fivemib=cmmib5
+\font\sixmib=cmmib6
+\font\sevenmib=cmmib7
+\font\eightmib=cmmib8
+\font\ninemib=cmmib9
+%% boldface symbols fonts
+\font\fivebsy=cmbsy5
+\font\sixbsy=cmbsy6
+\font\sevenbsy=cmbsy7
+\font\eightbsy=cmbsy8
+\font\ninebsy=cmbsy9
+\else
+%% extension font
+\font\fiveex=cmex10 scaled 500
+\font\sixex=cmex10 scaled 600
+\font\sevenex=cmex10 scaled 700
+\font\eightex=cmex10 scaled 800
+\font\nineex=cmex10 scaled 900
+%% math-italic boldface font
+\font\fivemib=cmmib10 scaled 500
+\font\sixmib=cmmib10 scaled 600
+\font\sevenmib=cmmib10 scaled 700
+\font\eightmib=cmmib10 scaled 800
+\font\ninemib=cmmib10 scaled 900
+%% boldface symbols fonts
+\font\fivebsy=cmbsy10 scaled 500
+\font\sixbsy=cmbsy10 scaled 600
+\font\sevenbsy=cmbsy10 scaled 700
+\font\eightbsy=cmbsy10 scaled 800
+\font\ninebsy=cmbsy10 scaled 900
+\fi
+%% End of AMS option
+\skewchar\fivemib='177
+\skewchar\sixmib='177
+\skewchar\sevenmib='177
+\skewchar\eightmib='177
+\skewchar\ninemib='177
+\skewchar\fivebsy='60
+\skewchar\sixbsy='60
+\skewchar\sevenbsy='60
+\skewchar\eightbsy='60
+\skewchar\ninebsy='60
+%%
+\ifx\ifLMT\relax%
+%% T1 option activated %
+\immediate\write16{*** T1 option activated. cork-LM fonts are used ***}
+%% Replace CM text fonts %%
+%% ten points fonts %%
+\font\tenrm=cork-lmr10
+\font\tenbf=cork-lmbx10
+\font\tensl=cork-lmro10
+\font\tentt=cork-lmtt10
+\font\tenit=cork-lmri10
+\font\tenss=cork-lmss10
+\font\tencsc=cork-lmcsc10
+%% eight points fonts %%
+\font\eightrm=cork-lmr8
+\font\eightbf=cork-lmbx8
+\font\eightsl=cork-lmro8
+\font\eighttt=cork-lmtt8
+\font\eightit=cork-lmri8
+\font\eightss=cork-lmss8
+\font\eightcsc=cork-lmcsc10 at 8pt
+%% five points fonts %%
+\font\fiverm=cork-lmr5
+\font\fivebf=cork-lmbx5
+\font\fivess=cork-lmss8 scaled 625
+%% six points fonts %%
+\font\sixrm=cork-lmr6
+\font\sixbf=cork-lmbx6
+\font\sixss=cork-lmss8 scaled 750
+%% seven points fonts %%
+\font\sevenrm=cork-lmr7
+\font\sevenbf=cork-lmbx7
+\font\sevenss=cork-lmss8 scaled 875
+%% nine points fonts %%
+\font\ninerm=cork-lmr9
+\font\ninebf=cork-lmbx9
+\font\niness=cork-lmss9
+%% twelve points fonts %%
+\font\twelverm=cork-lmr12
+\font\twelvebf=cork-lmbx12
+\font\twelvesl=cork-lmro12
+\font\twelvett=cork-lmtt12
+\font\twelveit=cork-lmri12
+\font\twelvess=cork-lmss12
+\font\twelvecsc=cork-lmcsc10 scaled 1200
+%% fourteen points fonts %%
+\font\fourteenrm=cork-lmr12 scaled 1167
+\font\fourteenbf=cork-lmbx12 scaled 1167
+\font\fourteensl=cork-lmro12 scaled 1167
+\font\fourteentt=cork-lmtt12 scaled 1167
+\font\fourteenit=cork-lmri12 scaled 1167
+\font\fourteenss=cork-lmss12 scaled 1167
+\font\fourteencsc=cork-lmcsc10 scaled 1400
+%% twenty points fonts %%
+\font\twentyrm=cork-lmr12 scaled 1667
+\font\twentybf=cork-lmbx12 scaled 1667
+\font\twentysl=cork-lmro12 scaled 1667
+\font\twentytt=cork-lmtt12 scaled 1667
+\font\twentyit=cork-lmri12 scaled 1667
+\font\twentyss=cork-lmss12 scaled 1667
+\font\twentycsc=cork-lmcsc10 scaled 2000
+%% twentyfour points fonts %%
+\font\twentyfourrm=cork-lmr12 scaled 2000
+\font\twentyfourbf=cork-lmbx12 scaled 2000
+\font\twentyfoursl=cork-lmro12 scaled 2000
+\font\twentyfourtt=cork-lmtt12 scaled 2000
+\font\twentyfourit=cork-lmri12 scaled 2000
+\font\twentyfourss=cork-lmss12 scaled 2000
+\font\twentyfourcsc=cork-lmcsc10 scaled 2400
+%%
+%% Redefinition of character commands %%
+\chardef\i="19 \chardef\j="1A
+\chardef\ae="E6 \chardef\AE="C6
+\chardef\oe="F7 \chardef\OE="D7
+\chardef\o="F8 \chardef\O="D8
+\chardef\ss="FF \chardef\SS="DF
+\chardef\aa="E5 \chardef\AA="C5
+\chardef\l="AA \chardef\L="8A
+\mathchardef\Gamma="0100
+\mathchardef\Delta="0101
+\mathchardef\Theta="0102
+\mathchardef\Lambda="0103
+\mathchardef\Xi="0104
+\mathchardef\Pi="0105
+\mathchardef\Sigma="0106
+\mathchardef\Upsilon="0107
+\mathchardef\Phi="0108
+\mathchardef\Psi="0109
+\mathchardef\Omega="010A
+\def\hbar{{\mathchar"7009\mkern-9muh}}
+
+%% New character commands %%
+\chardef\lh="A9 \chardef\Lh="89
+\chardef\dh="A4 \chardef\th="B4
+\chardef\dbar="9E
+\chardef\Edh="D0 \chardef\edh="F0
+\chardef\ij="BC \chardef\IJ="9C
+\chardef\nj="AD \chardef\NJ="8D
+\chardef\thorn="FE \chardef\Thorn="DE
+\chardef\smallzero="18
+\chardef\lguille="E \chardef\rguille="F
+\chardef\vispace="20
+
+%% Redefinition of accents and new accents%%
+\def\`#1{{\accent0 #1}}
+\def\'#1{{\accent1 #1}}
+\def\^#1{{\accent2 #1}}
+\def\~#1{{\accent3 #1}}
+\def\"#1{{\accent4 #1}}
+\def\H#1{{\accent5 #1}}
+%New ring accent
+\def\r#1{{\accent6 #1}}
+\def\v#1{{\accent7 #1}}
+\def\u#1{{\accent8 #1}}
+\def\=#1{{\accent9 #1}}
+\def\.#1{{\accent10 #1}}
+\def\b#1{\oalign{#1\crcr\hidewidth
+ \vbox to.2ex{\hbox{\char9}\vss}\hidewidth}}
+\def\c#1{\setbox0=\hbox{#1}\ifdim\ht0=1ex \accent"B #1%
+ \else{\ooalign{\unhbox0\crcr\hidewidth\char"B\hidewidth}}\fi}
+%New ogonek accent
+\def\k#1{\setbox0=\hbox{#1}\ifdim\ht0=1ex \accent"C #1%
+ \else{\ooalign{\unhbox0\crcr\hidewidth\char"C\hidewidth}}\fi}
+\def\textdiv{{\tcchar{"F6}}}
+%
+%% Redefinition of math-accents %%
+\def\acute{\mathaccent"7001 }
+\def\grave{\mathaccent"7000 }
+\def\ddot{\mathaccent"7004 }
+\def\tilde{\mathaccent"7003 }
+\def\bar{\mathaccent"7009 }
+\def\breve{\mathaccent"7008 }
+\def\check{\mathaccent"7007 }
+\def\hat{\mathaccent"7002 }
+\def\dot{\mathaccent"700A }
+%New ring math-accent
+\def\ring{\mathaccent"7006 }
+%
+%% Activate non-ascii letters %%
+% upper case
+\catcode`\^^80=11 \uccode`\^^80=`\^^80 \lccode`\^^80=`\^^a0
+\catcode`\^^81=11 \uccode`\^^81=`\^^81 \lccode`\^^81=`\^^a1
+\catcode`\^^82=11 \uccode`\^^82=`\^^82 \lccode`\^^82=`\^^a2
+\catcode`\^^83=11 \uccode`\^^83=`\^^83 \lccode`\^^83=`\^^a3
+\catcode`\^^84=11 \uccode`\^^84=`\^^84 \lccode`\^^84=`\^^a4
+\catcode`\^^85=11 \uccode`\^^85=`\^^85 \lccode`\^^85=`\^^a5
+\catcode`\^^86=11 \uccode`\^^86=`\^^86 \lccode`\^^86=`\^^a6
+\catcode`\^^87=11 \uccode`\^^87=`\^^87 \lccode`\^^87=`\^^a7
+\catcode`\^^88=11 \uccode`\^^88=`\^^88 \lccode`\^^88=`\^^a8
+\catcode`\^^89=11 \uccode`\^^89=`\^^89 \lccode`\^^89=`\^^a9
+\catcode`\^^8a=11 \uccode`\^^8a=`\^^8a \lccode`\^^8a=`\^^aa
+\catcode`\^^8b=11 \uccode`\^^8b=`\^^8b \lccode`\^^8b=`\^^ab
+\catcode`\^^8c=11 \uccode`\^^8c=`\^^8c \lccode`\^^8c=`\^^ac
+\catcode`\^^8d=11 \uccode`\^^8d=`\^^8d \lccode`\^^8d=`\^^ad
+\catcode`\^^8e=11 \uccode`\^^8e=`\^^8e \lccode`\^^8e=`\^^ae
+\catcode`\^^8f=11 \uccode`\^^8f=`\^^8f \lccode`\^^8f=`\^^af
+\catcode`\^^90=11 \uccode`\^^90=`\^^90 \lccode`\^^90=`\^^b0
+\catcode`\^^91=11 \uccode`\^^91=`\^^91 \lccode`\^^91=`\^^b1
+\catcode`\^^92=11 \uccode`\^^92=`\^^92 \lccode`\^^92=`\^^b2
+\catcode`\^^93=11 \uccode`\^^93=`\^^93 \lccode`\^^93=`\^^b3
+\catcode`\^^94=11 \uccode`\^^94=`\^^94 \lccode`\^^94=`\^^b4
+\catcode`\^^95=11 \uccode`\^^95=`\^^95 \lccode`\^^95=`\^^b5
+\catcode`\^^96=11 \uccode`\^^96=`\^^96 \lccode`\^^96=`\^^b6
+\catcode`\^^97=11 \uccode`\^^97=`\^^97 \lccode`\^^97=`\^^b7
+\catcode`\^^98=11 \uccode`\^^98=`\^^98 \lccode`\^^98=`\^^b8
+\catcode`\^^99=11 \uccode`\^^99=`\^^99 \lccode`\^^99=`\^^b9
+\catcode`\^^9a=11 \uccode`\^^9a=`\^^9a \lccode`\^^9a=`\^^ba
+\catcode`\^^9b=11 \uccode`\^^9b=`\^^9b \lccode`\^^9b=`\^^bb
+\catcode`\^^9c=11 \uccode`\^^9c=`\^^9c \lccode`\^^9c=`\^^bc
+\catcode`\^^c0=11 \uccode`\^^c0=`\^^c0 \lccode`\^^c0=`\^^e0
+\catcode`\^^c1=11 \uccode`\^^c1=`\^^c1 \lccode`\^^c1=`\^^e1
+\catcode`\^^c2=11 \uccode`\^^c2=`\^^c2 \lccode`\^^c2=`\^^e2
+\catcode`\^^c3=11 \uccode`\^^c3=`\^^c3 \lccode`\^^c3=`\^^e3
+\catcode`\^^c4=11 \uccode`\^^c4=`\^^c4 \lccode`\^^c4=`\^^e4
+\catcode`\^^c5=11 \uccode`\^^c5=`\^^c5 \lccode`\^^c5=`\^^e5
+\catcode`\^^c6=11 \uccode`\^^c6=`\^^c6 \lccode`\^^c6=`\^^e6
+\catcode`\^^c7=11 \uccode`\^^c7=`\^^c7 \lccode`\^^c7=`\^^e7
+\catcode`\^^c8=11 \uccode`\^^c8=`\^^c8 \lccode`\^^c8=`\^^e8
+\catcode`\^^c9=11 \uccode`\^^c9=`\^^c9 \lccode`\^^c9=`\^^e9
+\catcode`\^^ca=11 \uccode`\^^ca=`\^^ca \lccode`\^^ca=`\^^ea
+\catcode`\^^cb=11 \uccode`\^^cb=`\^^cb \lccode`\^^cb=`\^^eb
+\catcode`\^^cc=11 \uccode`\^^cc=`\^^cc \lccode`\^^cc=`\^^ec
+\catcode`\^^cd=11 \uccode`\^^cd=`\^^cd \lccode`\^^cd=`\^^ed
+\catcode`\^^ce=11 \uccode`\^^ce=`\^^ce \lccode`\^^ce=`\^^ee
+\catcode`\^^cf=11 \uccode`\^^cf=`\^^cf \lccode`\^^cf=`\^^ef
+\catcode`\^^d0=11 \uccode`\^^d0=`\^^d0 \lccode`\^^d0=`\^^f0
+\catcode`\^^d1=11 \uccode`\^^d1=`\^^d1 \lccode`\^^d1=`\^^f1
+\catcode`\^^d2=11 \uccode`\^^d2=`\^^d2 \lccode`\^^d2=`\^^f2
+\catcode`\^^d3=11 \uccode`\^^d3=`\^^d3 \lccode`\^^d3=`\^^f3
+\catcode`\^^d4=11 \uccode`\^^d4=`\^^d4 \lccode`\^^d4=`\^^f4
+\catcode`\^^d5=11 \uccode`\^^d5=`\^^d5 \lccode`\^^d5=`\^^f5
+\catcode`\^^d6=11 \uccode`\^^d6=`\^^d6 \lccode`\^^d6=`\^^f6
+\catcode`\^^d7=11 \uccode`\^^d7=`\^^d7 \lccode`\^^d7=`\^^f7
+\catcode`\^^d8=11 \uccode`\^^d8=`\^^d8 \lccode`\^^d8=`\^^f8
+\catcode`\^^d9=11 \uccode`\^^d9=`\^^d9 \lccode`\^^d9=`\^^f9
+\catcode`\^^da=11 \uccode`\^^da=`\^^da \lccode`\^^da=`\^^fa
+\catcode`\^^db=11 \uccode`\^^db=`\^^db \lccode`\^^db=`\^^fb
+\catcode`\^^dc=11 \uccode`\^^dc=`\^^dc \lccode`\^^dc=`\^^fc
+\catcode`\^^dd=11 \uccode`\^^dd=`\^^dd \lccode`\^^dd=`\^^fd
+\catcode`\^^de=11 \uccode`\^^de=`\^^de \lccode`\^^de=`\^^fe
+\catcode`\^^df=11 \uccode`\^^df=`\^^df \lccode`\^^df=`\^^ff
+% Lower case
+\catcode`\^^a0=11 \uccode`\^^a0=`\^^80 \lccode`\^^a0=`\^^a0
+\catcode`\^^a1=11 \uccode`\^^a1=`\^^81 \lccode`\^^a1=`\^^a1
+\catcode`\^^a2=11 \uccode`\^^a2=`\^^82 \lccode`\^^a2=`\^^a2
+\catcode`\^^a3=11 \uccode`\^^a3=`\^^83 \lccode`\^^a3=`\^^a3
+\catcode`\^^a4=11 \uccode`\^^a4=`\^^84 \lccode`\^^a4=`\^^a4
+\catcode`\^^a5=11 \uccode`\^^a5=`\^^85 \lccode`\^^a5=`\^^a5
+\catcode`\^^a6=11 \uccode`\^^a6=`\^^86 \lccode`\^^a6=`\^^a6
+\catcode`\^^a7=11 \uccode`\^^a7=`\^^87 \lccode`\^^a7=`\^^a7
+\catcode`\^^a8=11 \uccode`\^^a8=`\^^88 \lccode`\^^a8=`\^^a8
+\catcode`\^^a9=11 \uccode`\^^a9=`\^^89 \lccode`\^^a9=`\^^a9
+\catcode`\^^aa=11 \uccode`\^^aa=`\^^8a \lccode`\^^aa=`\^^aa
+\catcode`\^^ab=11 \uccode`\^^ab=`\^^8b \lccode`\^^ab=`\^^ab
+\catcode`\^^ac=11 \uccode`\^^ac=`\^^8c \lccode`\^^ac=`\^^ac
+\catcode`\^^ad=11 \uccode`\^^ad=`\^^8d \lccode`\^^ad=`\^^ad
+\catcode`\^^ae=11 \uccode`\^^ae=`\^^8e \lccode`\^^ae=`\^^ae
+\catcode`\^^af=11 \uccode`\^^af=`\^^8f \lccode`\^^af=`\^^af
+\catcode`\^^b0=11 \uccode`\^^b0=`\^^90 \lccode`\^^b0=`\^^b0
+\catcode`\^^b1=11 \uccode`\^^b1=`\^^91 \lccode`\^^b1=`\^^b1
+\catcode`\^^b2=11 \uccode`\^^b2=`\^^92 \lccode`\^^b2=`\^^b2
+\catcode`\^^b3=11 \uccode`\^^b3=`\^^93 \lccode`\^^b3=`\^^b3
+\catcode`\^^b4=11 \uccode`\^^b4=`\^^94 \lccode`\^^b4=`\^^b4
+\catcode`\^^b5=11 \uccode`\^^b5=`\^^95 \lccode`\^^b5=`\^^b5
+\catcode`\^^b6=11 \uccode`\^^b6=`\^^96 \lccode`\^^b6=`\^^b6
+\catcode`\^^b7=11 \uccode`\^^b7=`\^^97 \lccode`\^^b7=`\^^b7
+\catcode`\^^b8=11 \uccode`\^^b8=`\^^98 \lccode`\^^b8=`\^^b8
+\catcode`\^^b9=11 \uccode`\^^b9=`\^^99 \lccode`\^^b9=`\^^b9
+\catcode`\^^ba=11 \uccode`\^^ba=`\^^9a \lccode`\^^ba=`\^^ba
+\catcode`\^^bb=11 \uccode`\^^bb=`\^^9b \lccode`\^^bb=`\^^bb
+\catcode`\^^e0=11 \uccode`\^^e0=`\^^c0 \lccode`\^^e0=`\^^e0
+\catcode`\^^e1=11 \uccode`\^^e1=`\^^c1 \lccode`\^^e1=`\^^e1
+\catcode`\^^e2=11 \uccode`\^^e2=`\^^c2 \lccode`\^^e2=`\^^e2
+\catcode`\^^e3=11 \uccode`\^^e3=`\^^c3 \lccode`\^^e3=`\^^e3
+\catcode`\^^e4=11 \uccode`\^^e4=`\^^c4 \lccode`\^^e4=`\^^e4
+\catcode`\^^e5=11 \uccode`\^^e5=`\^^c5 \lccode`\^^e5=`\^^e5
+\catcode`\^^e6=11 \uccode`\^^e6=`\^^c6 \lccode`\^^e6=`\^^e6
+\catcode`\^^e7=11 \uccode`\^^e7=`\^^c7 \lccode`\^^e7=`\^^e7
+\catcode`\^^e8=11 \uccode`\^^e8=`\^^c8 \lccode`\^^e8=`\^^e8
+\catcode`\^^e9=11 \uccode`\^^e9=`\^^c9 \lccode`\^^e9=`\^^e9
+\catcode`\^^ea=11 \uccode`\^^ea=`\^^ca \lccode`\^^ea=`\^^ea
+\catcode`\^^eb=11 \uccode`\^^eb=`\^^cb \lccode`\^^eb=`\^^eb
+\catcode`\^^ec=11 \uccode`\^^ec=`\^^cc \lccode`\^^ec=`\^^ec
+\catcode`\^^ed=11 \uccode`\^^ed=`\^^cd \lccode`\^^ed=`\^^ed
+\catcode`\^^ee=11 \uccode`\^^ee=`\^^ce \lccode`\^^ee=`\^^ee
+\catcode`\^^ef=11 \uccode`\^^ef=`\^^cf \lccode`\^^ef=`\^^ef
+\catcode`\^^f0=11 \uccode`\^^f0=`\^^d0 \lccode`\^^f0=`\^^f0
+\catcode`\^^f1=11 \uccode`\^^f1=`\^^d1 \lccode`\^^f1=`\^^f1
+\catcode`\^^f2=11 \uccode`\^^f2=`\^^d2 \lccode`\^^f2=`\^^f2
+\catcode`\^^f3=11 \uccode`\^^f3=`\^^d3 \lccode`\^^f3=`\^^f3
+\catcode`\^^f4=11 \uccode`\^^f4=`\^^d4 \lccode`\^^f4=`\^^f4
+\catcode`\^^f5=11 \uccode`\^^f5=`\^^d5 \lccode`\^^f5=`\^^f5
+\catcode`\^^f6=11 \uccode`\^^f6=`\^^d6 \lccode`\^^f6=`\^^f6
+\catcode`\^^f7=11 \uccode`\^^f7=`\^^d7 \lccode`\^^f7=`\^^f7
+\catcode`\^^f8=11 \uccode`\^^f8=`\^^d8 \lccode`\^^f8=`\^^f8
+\catcode`\^^f9=11 \uccode`\^^f9=`\^^d9 \lccode`\^^f9=`\^^f9
+\catcode`\^^fa=11 \uccode`\^^fa=`\^^da \lccode`\^^fa=`\^^fa
+\catcode`\^^fb=11 \uccode`\^^fb=`\^^db \lccode`\^^fb=`\^^fb
+\catcode`\^^fc=11 \uccode`\^^fc=`\^^dc \lccode`\^^fc=`\^^fc
+\catcode`\^^fd=11 \uccode`\^^fd=`\^^dd \lccode`\^^fd=`\^^fd
+\catcode`\^^fe=11 \uccode`\^^fe=`\^^de \lccode`\^^fe=`\^^fe
+\catcode`\^^ff=11 \uccode`\^^ff=`\^^df \lccode`\^^ff=`\^^ff
+%%End of LMTone option %%
+\else
+%%
+%% Other CM fonts
+%% eight points fonts %%
+\font\eightrm=cmr8
+\font\eightbf=cmbx8
+\font\eightsl=cmsl8
+\font\eighttt=cmtt8
+\font\eightit=cmti8
+\font\eightss=cmss8
+%% five points fonts %%
+\font\fivess=cmss8 scaled 625
+%% six points fonts %%
+\font\sixrm=cmr6
+\font\sixbf=cmbx6
+\font\sixss=cmss8 scaled 750
+%% seven points fonts %%
+\font\sevenss=cmss8 scaled 875
+%% nine points fonts %%
+\font\ninerm=cmr9
+\font\ninebf=cmbx9
+\font\niness=cmss9
+%% ten points fonts (not defined in plain.tex)%%
+\font\tenss=cmss10
+\font\tencsc=cmcsc10
+%% twelve points fonts %%
+\font\twelverm=cmr12
+\font\twelvebf=cmbx12
+\font\twelvesl=cmsl12
+\font\twelvett=cmtt12
+\font\twelveit=cmti12
+\font\twelvess=cmss12
+\font\twelvecsc=cmcsc10 scaled 1200
+%% fourteen points fonts %%
+\font\fourteenrm=cmr12 scaled 1167
+\font\fourteenbf=cmbx12 scaled 1167
+\font\fourteensl=cmsl12 scaled 1167
+\font\fourteentt=cmtt12 scaled 1167
+\font\fourteenit=cmti12 scaled 1167
+\font\fourteenss=cmss12 scaled 1167
+\font\fourteencsc=cmcsc10 scaled 1400
+%% twenty points fonts %%
+\font\twentyrm=cmr12 scaled 1667
+\font\twentybf=cmbx12 scaled 1667
+\font\twentysl=cmsl12 scaled 1667
+\font\twentytt=cmtt12 scaled 1667
+\font\twentyit=cmti12 scaled 1667
+\font\twentyss=cmss12 scaled 1667
+\font\twentycsc=cmcsc10 scaled 2000
+%% twentyfour points fonts %%
+\font\twentyfourrm=cmr12 scaled 2000
+\font\twentyfourbf=cmbx12 scaled 2000
+\font\twentyfoursl=cmsl12 scaled 2000
+\font\twentyfourtt=cmtt12 scaled 2000
+\font\twentyfourit=cmti12 scaled 2000
+\font\twentyfourss=cmss12 scaled 2000
+\font\twentyfourcsc=cmcsc10 scaled 2400
+%% AMS activated
+\ifx\ifAMS\relax%
+%% small caps font
+\font\eightcsc=cmcsc8
+\else
+%% small caps font
+\font\eightcsc=cmcsc10 scaled 800
+\fi
+%% end of AMS option
+\fi
+%% end of LMT1 option
+%% Support of TS1 fonts
+\ifx\ifLMTS\relax%
+\immediate\write16{*** TS1 option activated. ts1-LM fonts are used ***}
+\input TS1mac.tex
+\fi
+%% End of LMTSone option %%
+%% DStroke option %%
+\ifx\ifDS\relax%
+\immediate\write16{*** Doublestroke option activated. DS fonts used ***}
+\font\fiveds=dsrom8 scaled 625
+\font\sixds=dsrom8 scaled 750
+\font\sevends=dsrom8 scaled 875
+\font\eightds=dsrom8
+\font\nineds=dsrom10 scaled 900
+\font\tends=dsrom10
+\font\twelveds=dsrom12
+\font\fourteends=dsrom12 scaled 1167
+\font\twentyds=dsrom12 scaled 1667
+\font\twentyfourds=dsrom12 scaled 2000
+\fi
+%% End of DStroke option %%
+%%
+%% Families defined in plain.tex %%
+%% fam0 rm roman
+%% fam1 i math-italic
+%% fam2 sy symbols
+%% fam3 ex extension fonts
+%% fam4 itfam text-italic
+%% fam5 slfam slanted
+%% fam6 bffam roman boldface
+%% fam7 ttfam teletype
+%%
+%% New family math-italic bold. Must be fam8 %%
+\newfam\mibfam
+%%
+%% New family symbols boldface. Must be fam9 %%
+\newfam\bsyfam
+%%
+%% New family sans serif %%
+\newfam\ssfam
+%%
+%% New family small caps %%
+\newfam\cscfam
+%%
+%% New family doublestroke %%
+\ifx\ifDS\relax%
+\input DSmac.tex
+\fi
+\def\ds{}
+%%
+%% Change to tenpoint fonts %%
+\def\tenpoint{
+\textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
+\textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
+\def\mit{\fam1 } \def\oldstyle{\fam1 \teni}
+\textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
+\def\cal{\fam2 }
+\textfont3=\tenex \scriptfont3=\sevenex \scriptscriptfont3=\fiveex
+\textfont\itfam=\tenit
+\textfont\slfam=\tensl
+\textfont\ttfam=\tentt
+\textfont\ssfam=\tenss
+\scriptfont\ssfam=\sevenss \scriptscriptfont\ssfam=\fivess
+\textfont\bffam=\tenbf
+\scriptfont\bffam=\sevenbf \scriptscriptfont\bffam=\fivebf
+\textfont\cscfam=\tencsc
+\textfont\mibfam=\tenmib
+\scriptfont\mibfam=\sevenmib \scriptscriptfont\bffam=\fivemib
+\textfont\bsyfam=\tenbsy
+\scriptfont\bsyfam=\sevenbsy \scriptscriptfont\bffam=\fivebsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\tends
+\scriptfont\dsfam=\sevends \scriptscriptfont\dsfam=\fiveds
+\def\ds{\fam\dsfam\tends}
+\else
+{}
+\fi
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \tenrm \let\tcfont=\tencrm}
+\def\it{\fam\itfam\tenit \let\tcfont=\tencit}
+\def\sl{\fam\slfam\tensl \let\tcfont=\tencsl}
+\def\tt{\fam\ttfam\tentt \let\tcfont=\tenctt}
+\def\sf{\fam\ssfam\tenss \let\tcfont=\tencss}
+\def\bf{\fam\bffam\tenbf \let\tcfont=\tencbf}
+\else
+\def\rm{\fam0 \tenrm}
+\def\it{\fam\itfam\tenit}
+\def\sl{\fam\slfam\tensl}
+\def\tt{\fam\ttfam\tentt}
+\def\sf{\fam\ssfam\tenss}
+\def\bf{\fam\bffam\tenbf}
+\fi
+\def\sc{\fam\cscfam\tencsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\tenmib}
+\def\bcal{\fam\bsyfam\tenbsy}
+\def\unsetmathbold{
+\textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
+\textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
+\def\oldstyle{\fam1 \teni} }
+\def\setmathbold{
+\textfont1=\tenmib \scriptfont1=\sevenmib \scriptscriptfont1=\fivemib
+\textfont2=\tenbsy \scriptfont2=\sevenbsy \scriptscriptfont2=\fivebsy
+\def\oldstyle{\fam1 \tenmib} }
+\normalbaselineskip=12pt minus 1pt
+\setbox\strutbox=\hbox{\vrule height8.5pt depth3.5pt width0pt}
+\bigsize=8.5pt
+\Bigsize=11.5pt
+\biggsize=14.5pt
+\Biggsize=17.5pt
+\normalbaselines\rm}
+%%
+%% Change to twelve points fonts %%
+\def\twelvepoint{
+\textfont0=\twelverm \scriptfont0=\eightrm \scriptscriptfont0=\sixrm
+\textfont1=\twelvei \scriptfont1=\eighti \scriptscriptfont1=\sixi
+\def\mit{\fam1 } \def\oldstyle{\fam1 \twelvei}
+\textfont2=\twelvesy \scriptfont2=\eightsy \scriptscriptfont2=\sixsy
+\def\cal{\fam2 }
+\textfont3=\twelveex \scriptfont3=\eightex \scriptscriptfont3=\sixex
+\textfont\itfam=\twelveit
+\textfont\slfam=\twelvesl
+\textfont\ttfam=\twelvett
+\textfont\ssfam=\twelvess
+\scriptfont\ssfam=\eightss \scriptscriptfont\ssfam=\sixss
+\textfont\bffam=\twelvebf
+\scriptfont\bffam=\eightbf \scriptscriptfont\bffam=\sixbf
+\textfont\cscfam=\twelvecsc
+\textfont\mibfam=\twelvemib
+\scriptfont\mibfam=\eightmib \scriptscriptfont\mibfam=\sixmib
+\textfont\bsyfam=\twelvebsy
+\scriptfont\bsyfam=\eightbsy \scriptscriptfont\bsyfam=\sixbsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\twelveds
+\scriptfont\dsfam=\eightds \scriptscriptfont\dsfam=\sixds
+\def\ds{\fam\dsfam\twelveds}
+\else
+{}
+\fi
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \twelverm \let\tcfont=\twelvecrm}
+\def\it{\fam\itfam\twelveit \let\tcfont=\twelvecit}
+\def\sl{\fam\slfam\twelvesl \let\tcfont=\twelvecsl}
+\def\tt{\fam\ttfam\twelvett \let\tcfont=\twelvectt}
+\def\sf{\fam\ssfam\twelvess \let\tcfont=\twelvecss}
+\def\bf{\fam\bffam\twelvebf \let\tcfont=\twelvecss}
+\else
+\def\rm{\fam0 \twelverm}
+\def\it{\fam\itfam\twelveit}
+\def\sl{\fam\slfam\twelvesl}
+\def\tt{\fam\ttfam\twelvett}
+\def\sf{\fam\ssfam\twelvess}
+\def\bf{\fam\bffam\twelvebf}
+\fi
+\def\sc{\fam\cscfam\twelvecsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\twelvemib}
+\def\bcal{\fam\bsyfam}
+\def\unsetmathbold{
+\textfont1=\twelvei \scriptfont1=\eighti \scriptscriptfont1=\sixi
+\textfont2=\twelvesy \scriptfont2=\eightsy \scriptscriptfont2=\sixsy
+\def\oldstyle{\fam1 \twelvei} }
+\def\setmathbold{
+\textfont1=\twelvemib \scriptfont1=\eightmib \scriptscriptfont1=\sixmib
+\textfont2=\twelvebsy \scriptfont2=\eightbsy \scriptscriptfont2=\sixbsy
+\def\oldstyle{\fam1 \twelvemib} }
+\normalbaselineskip=14pt minus 1pt
+\setbox\strutbox=\hbox{\vrule height10pt depth4pt width0pt}
+\bigsize=10.2pt
+\Bigsize=13.8pt
+\biggsize=17.4pt
+\Biggsize=21pt
+\normalbaselines\rm}
+%%
+%% Change to eight points fonts %%
+\def\eightpoint{
+\textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
+\textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei
+\def\mit{\fam1 } \def\oldstyle{\fam1 \eighti}
+\textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
+\def\cal{\fam2 }
+\textfont3=\eightex \scriptfont3=\sixex \scriptscriptfont3=\fiveex
+\textfont\itfam=\eightit
+\textfont\slfam=\eightsl
+\textfont\ttfam=\eighttt
+\textfont\ssfam=\eightss
+\scriptfont\ssfam=\sixss \scriptscriptfont\ssfam=\fivess
+\textfont\bffam=\eightbf
+\scriptfont\bffam=\sixbf \scriptscriptfont\bffam=\fivebf
+\textfont\cscfam=\eightcsc
+\textfont\mibfam=\eightmib
+\scriptfont\mibfam=\sixmib \scriptscriptfont\mibfam=\fivemib
+\textfont\bsyfam=\eightbsy
+\scriptfont\bsyfam=\sixbsy \scriptscriptfont\bsyfam=\fivebsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\eightds
+\scriptfont\dsfam=\sixds \scriptscriptfont\dsfam=\fiveds
+\def\ds{\fam\dsfam\eightds}
+\else
+{}
+\fi
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \eightrm \let\tcfont=\eightcrm}
+\def\it{\fam\itfam\eightit \let\tcfont=\eightcit}
+\def\sl{\fam\slfam\eightsl \let\tcfont=\eightcsl}
+\def\tt{\fam\ttfam\eighttt \let\tcfont=\eightctt}
+\def\sf{\fam\ssfam\eightss \let\tcfont=\eightcss}
+\def\bf{\fam\bffam\eightbf \let\tcfont=\eightcbf}
+\else
+\def\rm{\fam0 \eightrm}
+\def\it{\fam\itfam\eightit}
+\def\sl{\fam\slfam\eightsl}
+\def\tt{\fam\ttfam\eighttt}
+\def\sf{\fam\ssfam\eightss}
+\def\bf{\fam\bffam\eightbf}
+\fi
+\def\sc{\fam\cscfam\eightcsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\eightmib}
+\def\bcal{\fam\bsyfam}
+\def\unsetmathbold{
+\textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei
+\textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
+\def\oldstyle{\fam1 \eighti} }
+\def\setmathbold{
+\textfont1=\eightmib \scriptfont1=\sixmib \scriptscriptfont1=\fivemib
+\textfont2=\eightbsy \scriptfont2=\sixbsy \scriptscriptfont2=\fivebsy
+\def\oldstyle{\fam1 \eightmib} }
+\normalbaselineskip=9pt
+\setbox\strutbox=\hbox{\vrule height7pt depth2pt width0pt}
+\bigsize=6.8pt
+\Bigsize=9.2pt
+\biggsize=11.6pt
+\Biggsize=14pt
+\normalbaselines\rm}
+%%
+%% Change to fourteen points fonts %%
+\def\fourteenpoint{
+\textfont0=\fourteenrm \scriptfont0=\ninerm \scriptscriptfont0=\sevenrm
+\textfont1=\fourteeni \scriptfont1=\ninei \scriptscriptfont1=\seveni
+\def\mit{\fam1 } \def\oldstyle{\fam1 \fourteeni}
+\textfont2=\fourteensy \scriptfont2=\ninesy \scriptscriptfont2=\sevensy
+\def\cal{\fam2 }
+\textfont3=\fourteenex \scriptfont3=\nineex \scriptscriptfont3=\sevenex
+\textfont\itfam=\fourteenit
+\textfont\slfam=\fourteensl
+\textfont\ttfam=\fourteentt
+\textfont\ssfam=\fourteenss
+\scriptfont\ssfam=\niness \scriptscriptfont\ssfam=\sevenss
+\textfont\bffam=\fourteenbf
+\scriptfont\bffam=\ninebf \scriptscriptfont\bffam=\sevenbf
+\textfont\cscfam=\fourteencsc
+\textfont\mibfam=\fourteenmib
+\scriptfont\mibfam=\ninemib \scriptscriptfont\mibfam=\sevenmib
+\textfont\bsyfam=\fourteenbsy
+\scriptfont\bsyfam=\ninebsy \scriptscriptfont\bsyfam=\sevenbsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\fourteends
+\scriptfont\dsfam=\nineds \scriptscriptfont\dsfam=\sevends
+\def\ds{\fam\dsfam\fourteends}
+\else
+{}
+\fi
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \fourteenrm \let\tcfont=\fourteencrm}
+\def\it{\fam\itfam\fourteenit \let\tcfont=\fourteencit}
+\def\sl{\fam\slfam\fourteensl \let\tcfont=\fourteencsl}
+\def\tt{\fam\ttfam\fourteentt \let\tcfont=\fourteenctt}
+\def\bf{\fam\bffam\fourteenbf \let\tcfont=\fourteencbf}
+\def\sf{\fam\ssfam\fourteenss \let\tcfont=\fourteencss}
+\else
+\def\rm{\fam0 \fourteenrm}
+\def\it{\fam\itfam\fourteenit}
+\def\sl{\fam\slfam\fourteensl}
+\def\tt{\fam\ttfam\fourteentt}
+\def\bf{\fam\bffam\fourteenbf}
+\def\sf{\fam\ssfam\fourteenss}
+\fi
+\def\sc{\fam\cscfam\fourteencsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\fourteenmib}
+\def\bcal{\fam\bsyfam}
+\def\unsetmathbold{
+\textfont1=\fourteeni \scriptfont1=\ninei \scriptscriptfont1=\seveni
+\textfont2=\fourteensy \scriptfont2=\ninesy \scriptscriptfont2=\sevensy
+\def\oldstyle{\fam1 \fourteeni} }
+\def\setmathbold{
+\textfont1=\fourteenmib \scriptfont1=\ninemib \scriptscriptfont1=\sevenmib
+\textfont2=\fourteenbsy \scriptfont2=\ninebsy \scriptscriptfont2=\sevenbsy
+\def\oldstyle{\fam1 \fourteenmib} }
+\normalbaselineskip=17pt minus 1pt
+\setbox\strutbox=\hbox{\vrule height12pt depth5pt width0pt}
+\bigsize=11.9pt
+\Bigsize=16.1pt
+\biggsize=20.3pt
+\Biggsize=24.5pt
+\normalbaselines\rm}
+%%
+%% Change to twentypoint fonts %%
+\def\twentypoint{
+\textfont0=\twentyrm \scriptfont0=\fourteenrm \scriptscriptfont0=\tenrm
+\textfont1=\twentyi \scriptfont1=\fourteeni \scriptscriptfont1=\teni
+\def\mit{\fam1 } \def\oldstyle{\fam1 \twentyi}
+\textfont2=\twentysy \scriptfont2=\fourteensy \scriptscriptfont2=\tensy
+\def\cal{\fam2 }
+\textfont3=\twentyex \scriptfont3=\fourteenex \scriptscriptfont3=\tenex
+\textfont\itfam=\twentyit
+\textfont\slfam=\twentysl
+\textfont\ttfam=\twentytt
+\textfont\ssfam=\twentyss
+\scriptfont\ssfam=\fourteenss \scriptscriptfont\ssfam=\tenss
+\textfont\bffam=\twentybf
+\scriptfont\bffam=\fourteenbf \scriptscriptfont\bffam=\tenbf
+\textfont\cscfam=\twentycsc
+\textfont\mibfam=\twentymib
+\scriptfont\mibfam=\fourteenmib \scriptscriptfont\mibfam=\tenmib
+\textfont\bsyfam=\twentybsy
+\scriptfont\bsyfam=\fourteenbsy \scriptscriptfont\bsyfam=\tenbsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\twentyds
+\scriptfont\dsfam=\fourteends \scriptscriptfont\dsfam=\tends
+\def\ds{\fam\dsfam\twentyds}
+\else
+{}
+\fi
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \twentyrm \let\tcfont=\twentycrm}
+\def\it{\fam\itfam\twentyit \let\tcfont=\twentycit}
+\def\sl{\fam\slfam\twentysl \let\tcfont=\twentycsl}
+\def\tt{\fam\ttfam\twentytt \let\tcfont=\twentyctt}
+\def\sf{\fam\ssfam\twentyss \let\tcfont=\twentycss}
+\def\bf{\fam\bffam\twentybf \let\tcfont=\twentycbf}
+\else
+\def\rm{\fam0 \twentyrm}
+\def\it{\fam\itfam\twentyit}
+\def\sl{\fam\slfam\twentysl}
+\def\tt{\fam\ttfam\twentytt}
+\def\sf{\fam\ssfam\twentyss}
+\def\bf{\fam\bffam\twentybf}
+\fi
+\def\sc{\fam\cscfam\twentycsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\twentymib}
+\def\unsetmathbold{
+\textfont1=\twentyi \scriptfont1=\fourteeni \scriptscriptfont1=\teni
+\textfont2=\twentysy \scriptfont2=\fourteensy \scriptscriptfont2=\tensy
+\def\oldstyle{\fam1 \twentyi} }
+\def\setmathbold{
+\textfont1=\twentymib \scriptfont1=\fourteenmib \scriptscriptfont1=\tenmib
+\textfont2=\twentybsy \scriptfont2=\fourteenbsy \scriptscriptfont2=\tenbsy
+\def\oldstyle{\fam1 \twentymib} }
+\normalbaselineskip=24pt minus 2pt
+\setbox\strutbox=\hbox{\vrule height17pt depth7pt width0pt}
+\bigsize=17pt
+\Bigsize=23pt
+\biggsize=29pt
+\Biggsize=35pt
+\normalbaselines\rm}
+%%
+%% Change to twentyfour points fonts %%
+\def\twentyfourpoint{
+\textfont0=\twentyfourrm \scriptfont0=\fourteenrm \scriptscriptfont0=\twelverm
+\textfont1=\twentyfouri \scriptfont1=\fourteeni \scriptscriptfont1=\twelvei
+\def\mit{\fam1 } \def\oldstyle{\fam1 \twentyfouri}
+\textfont2=\twentyfoursy \scriptfont2=\fourteensy \scriptscriptfont2=\twelvesy
+\def\cal{\fam2 }
+\textfont3=\twentyfourex \scriptfont3=\fourteenex \scriptscriptfont3=\twelveex
+\textfont\itfam=\twentyfourit
+\textfont\slfam=\twentyfoursl
+\textfont\ttfam=\twentyfourtt
+\textfont\ssfam=\twentyfourss
+\scriptfont\ssfam=\fourteenss \scriptscriptfont\ssfam=\twelvess
+\textfont\bffam=\twentyfourbf
+\scriptfont\bffam=\fourteenbf \scriptscriptfont\bffam=\twelvebf
+\textfont\cscfam=\twentyfourcsc
+\textfont\mibfam=\twentyfourmib
+\scriptfont\mibfam=\fourteenmib \scriptscriptfont\mibfam=\twelvemib
+\textfont\bsyfam=\twentyfourbsy
+\scriptfont\bsyfam=\fourteenbsy \scriptscriptfont\bsyfam=\twelvebsy
+\ifx\ifDS\relax%
+\textfont\dsfam=\twentyfourds
+\scriptfont\dsfam=\fourteends \scriptscriptfont\dsfam=\twelveds
+\def\ds{\fam\dsfam\twentyfourds}
+\else
+{}
+\fi
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \twentyfourrm \let\tcfont=\twentyfourcrm}
+\def\it{\fam\itfam\twentyfourit \let\tcfont=\twentyfourcit}
+\def\sl{\fam\itfam\twentyfoursl \let\tcfont=\twentyfourcsl}
+\def\tt{\fam\ttfam\twentyfourtt \let\tcfont=\twentyfourctt}
+\def\sf{\fam\ssfam\twentyfourss \let\tcfont=\twentyfourcss}
+\def\bf{\fam\bffam\twentyfourbf \let\tcfont=\twentyfourcbf}
+\else
+\def\rm{\fam0 \twentyfourrm}
+\def\it{\fam\itfam\twentyfourit}
+\def\sl{\fam\itfam\twentyfoursl}
+\def\tt{\fam\ttfam\twentyfourtt}
+\def\sf{\fam\ssfam\twentyfourss}
+\def\bf{\fam\bffam\twentyfourbf}
+\fi
+\def\sc{\fam\cscfam\twentyfourcsc}
+\def\mb{\fam\mibfam} \def\boldstyle{\fam\mibfam\twentyfourmib}
+\def\bcal{\fam\bsyfam}
+\def\unsetmathbold{
+\textfont1=\twentyfouri \scriptfont1=\fourteeni \scriptscriptfont1=\twelvei
+\textfont2=\twentyfoursy \scriptfont2=\fourteensy \scriptscriptfont2=\twelvesy
+\def\oldstyle{\fam1 \twentyfouri} }
+\def\setmathbold{
+\textfont1=\twentyfourmib \scriptfont1=\fourteenmib
+\scriptscriptfont1=\twelvemib
+\textfont2=\twentyfourbsy \scriptfont2=\fourteenbsy
+\scriptscriptfont2=\twelvebsy
+\def\oldstyle{\fam1 \twentyfourmib} }
+\normalbaselineskip=28pt minus 2pt
+\setbox\strutbox=\hbox{\vrule height20pt depth8pt width0pt}
+\bigsize=20.4pt
+\Bigsize=27.6pt
+\biggsize=34.8pt
+\Biggsize=42pt
+\normalbaselines\rm}
+%%
+%% double space
+\def\doublespace{
+\normalbaselineskip=24pt minus 1pt
+\setbox\strutbox=\hbox{\vrule height17pt depth 7pt width0pt}
+\normalbaselines}
+%%
+%% Initial set at ten points
+\tenpoint
+
diff --git a/obsolete/macros/plain/contrib/siam/READ.ME b/obsolete/macros/plain/contrib/siam/READ.ME
new file mode 100644
index 0000000000..341a72aaff
--- /dev/null
+++ b/obsolete/macros/plain/contrib/siam/READ.ME
@@ -0,0 +1,30 @@
+READ.ME 12/11/92
+
+The following files constitute the full distribution
+of SIAM's TeX macro package. The files are:
+
+siamptex.sty
+docuptex.tex
+pexample.tex
+
+docuptex.tex is the documentation file and should be refered to
+for information about using the macros.
+
+The SIAM macro's home is NETLIB@research.att.com, accessible through email.
+
+Both the LaTeX and plain TeX macros can be accessed through NETLIB:
+Send an e-mail message to netlib@research.att.com, the body of the
+message should be:
+
+ send siamltex.all from typesetting
+
+for the LaTeX version, and
+
+ send siamptex.all from typesetting
+
+for the plain TeX version.
+
+Questions, problems, bugs, and bug fixes should be
+forwarded to SIAM TeX Support, 3600 University City Science Center,
+Philadelphia PA, 19104. E-mail to duggan@siam.org.
+
diff --git a/obsolete/macros/plain/contrib/siam/docuptex.tex b/obsolete/macros/plain/contrib/siam/docuptex.tex
new file mode 100644
index 0000000000..5cf8f39ddf
--- /dev/null
+++ b/obsolete/macros/plain/contrib/siam/docuptex.tex
@@ -0,0 +1,361 @@
+\input siamptex.sty
+
+% The definitions are to provide a verbatim text environment
+
+\def\uncatcodespecials{\def\do##1{\catcode`##1=12 }\dospecials}
+\def\setupverbatim{\tt%
+ \def\par{\leavevmode\endgraf}%
+ \obeylines\uncatcodespecials\obeyspaces}
+{\obeyspaces\global\let =\ }
+\def\doverbatim#1{\def\next##1#1{##1\endgroup}\next}
+\def\verbatim{\begingroup\setupverbatim\doverbatim}
+
+
+\overfullrule=0pt
+
+\topmatter
+\vol{1}
+\no{1, pp.~000--000}
+\journal{SIAM J. E{\smc XAMPLE} F{\smc ILES}}
+\date{October 1992}
+\copyyear{1992}
+\code{000}
+
+\title Using SIAM's \TeX\ Macros\endtitle
+
+\shorttitle{USING SIAM'S \TeX\ MACROS}
+
+\recdate{*}{October 8, 1992.
+This work was supported by the Society for Industrial
+and Applied Mathematics}
+
+\author Paul Duggan\fnmark{$^{\dag}$}\endauthor
+
+\address{$^{\dag}$}{Society for Industrial and Applied Mathematics,
+Philadelphia, Pennsylvania ({\tt duggan@siam.org}). Questions, comments,
+or corrections to this document may be directed to that email address}
+
+\abstract{}
+\subjclass\endsubjclass
+\keywords\endkeywords
+
+
+\endtopmatter
+
+
+\heading{1}{Introduction}
+This file is documentation for the SIAM \TeX\ macros, and provides
+instruction for submission of files formatted in \TeX.
+
+To accommodate authors who electronically typeset their manuscripts,
+SIAM supports the use of \TeX. To ensure quality typesetting according
+to SIAM style standards, SIAM provides a \TeX\ macro style file.
+Using \TeX\ to format a manuscript should simplify the editorial process
+and lessen the author's proofreading burden. It is still necessary to
+proofread with care.
+
+Electronic files should not be submitted until the paper has been
+accepted, and then not until requested to do so by someone in the SIAM
+office. Once an article is slated for an issue,
+someone from the SIAM office will contact the author about any or all
+of the following: editorial and stylistic queries;
+supplying the source files (and any supplementary macros)
+for the properly formatted article; and handling figures.
+
+Electronic submissions (to {\tt tex@siam.org}) should be clearly
+designated as to the journal and author. Authors are responsible for ensuring
+that the paper generated from the source files exactly matches the paper that
+was accepted for publication by the review editor. If it does not,
+that should be indicated in the transmission of the file.
+When submitting a file, please be sure to include any additional
+macros (other than those provided by SIAM) that will be needed to run
+the paper.
+
+Once the files are corrected here at SIAM, we will send back the revised
+proofs to be read against the original edited manuscript. We are not
+set up to shuttle back and forth varying electronic versions of each
+paper, so we must rely on hard copy. The author's proofreading
+is an important but easily overlooked step. Even if SIAM were not
+to introduce a single editorial change into your manuscript, there
+would still be a need to check line and page breaks as the encoding
+of Times Roman fonts would change the page makeup of a Computer
+Modern file.
+
+A sample file is included with this distribution to demonstrate the
+standard use of SIAM's macro package. To provide an incentive for
+the use of \TeX\ in paper preparation, SIAM provides 100 free reprints
+of the author's journal article but only to those who have made use of
+the SIAM macro in proper fashion. To qualify for free reprints the
+following criteria must be met:
+\meti{1.} The appropriate document style line must appear at
+the beginning of the source file.
+\meti{2.} All top matter information (key words, affiliation, etc.) must
+be present and correctly tagged. The only exception to the rule will be
+the AMS subject classification.
+\meti{3.} All tagging conventions, as described in this documentation
+and used in the example file, must be followed.
+\meti{4.} The format of the bibliography must strictly adhere to SIAM
+guidelines. The appropriate tags must be used for all entries. All names
+are to be keyed initial upper case cap and small caps. Only the first
+and middle initials, followed by the last name, are to be used.
+Last names should never be listed first. There will be no exceptions
+to this requirement. An improperly prepared bibliography will,
+in all cases, prevent an author from receiving free reprints
+
+
+The distribution contains the following items: {\tt siamptex.sty}, the
+main macro package; this documentation file; and a sample file, {\tt
+pexample.tex}. The sample file is representative of the standard way
+to apply the macros. The rest of this paper emphasizes some aspects
+of applying the macros, points out options and special cases, and
+describes the SIAM style standards.
+The SIAM macros make use of the small caps font, {\tt cmcsc}, which
+is not installed in some systems. Contact the American Mathematical
+Society for information about the availability of this font.
+
+\heading{2}{Headings}
+The top matter of a journal is in a standard format. The macro
+and initial definitions should be included as follows
+
+\verbatim:
+\def\smc{\tensmc}
+\input siamptex.sty
+\overfullrule=0pt
+
+:
+
+The \verbatim:\overfullrule: should be set wider while still
+being edited by the author, to assist in locating lines that extend
+beyond the margins.
+
+
+The ``slugline,'' containing the journal and copyright information, is
+created by special commands following the\verbatim:\topmatter:
+
+\verbatim:
+\vol{0}
+\no{0, pp.~000--000}
+\journal{SIAM J. A{\smc PPL}. M{\smc ATH}.}
+\date{May 1992}
+\copyyear{1992}
+\code{000}
+
+:
+The information for volume, number, date, and code will likely be unknown,
+or zeros should be
+put in where required. SIAM will place the appropriate information in
+the commands in production, however, the commands must be used.
+
+The title and author(s) of the paper are indicated by the
+\verbatim:\title\endtitle: and \verbatim:\author\endauthor: commands.
+Author support and address information is indicated as follows:
+
+\verbatim:
+\author A.~U. Thorone\fnmark{$^{\dag}$}
+ \and A.~U. Thortwo\fnmark{$^{\ddag}$}\endauthor
+
+\address{$^{\dag}$}{Address of the first author and support}
+\address{$^{\ddag}$}{Address of the second author and support}
+
+:
+
+The commands \verbatim:\shorttitle{}: and \verbatim:\shortauthor{}:
+are used to designate the running heads for the paper.
+
+The \verbatim:\abstract{}:, \verbatim:\keywords\endkeywords:, and
+\verbatim:\subjclass\endsubjclass: commands are used to include the
+abstract, keywords, and AMS subject class numbers, respectively.
+If there is to be only one subject classification number, the
+\verbatim:\subjclass: command should be preceded by
+\verbatim:\oneclass:. If the AMS numbers are unknown, leave that
+information blank. Authors are responsible for providing AMS numbers.
+They can be found in the Annual Index of Math Reviews, or
+through {\tt e-Math} ({\tt telnet@e-math.ams.com}; login
+and password are both {\tt e-math}).
+This section initial information is ended by \verbatim:\endtopmatter:.
+
+
+
+\heading{3}{Equations}
+Equations and are handled by standard \TeX\ commands. SIAM style is
+for numbered equations to appear flush with the left margin. The
+\verbatim:\leqno: and \verbatim:\leqalignno{}: commands are used for
+this purpose. If any letters indicating subequations are to be used
+with the numbers, they should be set in roman type.
+
+More information on the formatting of equations and aligned
+equations are found in Knuth [1]. Authors bear primary responsibility
+for formatting their equations within margins and in an aestheticly
+pleasing and informative manner.
+
+Groups of equations that are not directly related to each other
+should normally be centered independently. This may be done through
+the \TeX\ math command \verbatim:\displaylines{}:. Numbering
+independently centered equations can be difficult, so Seroul and Levy's [2]
+macro \verbatim:\ldisplaylinesno{}: has been included in {\tt siamptex.sty}.
+\verbatim:\ldisplaylinesno{}: works just like \verbatim:\leqalignno:, except
+no ampersand is used to align the equations, since they are to be centered.
+
+\heading{4}{Text formatting}
+Section and subsection headings are both included using the
+\verbatim:\heading{}{}: command, which requires two arguments. The first is
+for the number, and the second is the title of the section or
+subsection.
+
+No extra spacing should be placed between paragraphs. The
+\verbatim:\heading: command inserts the required spacing between sections.
+
+SIAM style does not normally make use of the plain \TeX's \verbatim:\item:
+command. The \verbatim:\meti: command is preferred for
+lists of items beginning with, for instance, bullets ($\bullet$) or
+roman numerals (iv). The\verbatim:\meti: command retains normal
+paragraph shape, but places all labels aligned flush right. For
+example:
+
+\verbatim:
+\meti{(i)} This is the first item.
+\meti{(ii)} This is the second item of the series.
+
+:
+
+produces
+
+\meti{(i)} This is the first item.
+\meti{(ii)} This is the second item of the series.
+\medskip
+
+The \verbatim:\meti: macro was adapted from Seroul and Levy [2].
+
+\heading{4.1}{Punctuation}
+All standard punctuation and all numerals should be set in Roman type
+(upright). The only exceptions are periods and commas. They may
+be set to match the surrounding text.
+
+\heading{4.2}{Theorems, lemmas, and proofs}
+Theorems, lemmas, propositions, and so forth, have macros included
+for correct formatting. Below is an example.
+
+\verbatim:
+\thm{Theorem 3.1}
+Sample theorem included for illustration. Words in all caps, like
+{\rm SIAM} should be set in roman type, as should all numbers and
+parentheses. Note that words in displayed equations, such as
+$$ x^2 = Y^2 \sin z^2 \hbox{ for all } x $$
+will appear in italic type in a theorem, though normally
+they should appear in roman.\endthm
+
+:
+
+This produces:
+
+\thm{Theorem 3.1}
+Sample theorem included for illustration. Words in all caps, like {\rm
+SIAM} should be set in roman type, as should all numbers and
+parentheses. Note that words in displayed equations, such as
+$$ x^2 = Y^2 \sin z^2 \hbox{ for all } x $$
+will appear in italic type in a theorem, though normally
+text they should appear in roman.\endthm
+
+The \verbatim:\lem:, \verbatim:\prop:, and \verbatim:\cor: commands
+all work similarly. Named theorems should be designated with the
+title in roman type, enclosed in parentheses.
+
+\verbatim:
+\thm{Theorem 3.2 {\rm (sample theorem with title)}}
+
+:
+
+Proofs are illustrated in the following example:
+
+\verbatim:
+\prf{Proof}
+The body of the proof.
+\qquad\endproof
+
+:
+
+If the proof ends with a displayed equation, the \verbatim:\endproof:
+box \endproof\ should appear flush right with the margin, on line with the
+equation. The \verbatim:\eqno:
+command will place this in the correct position. If the equation is
+already numbered, this method will not work, so just include the
+\verbatim:\endproof: box and SIAM will handle making the box flush
+right in production.
+
+\heading{5}{Figures and tables}
+Figures and tables are best handled in \TeX\ by putting them within a
+\verbatim:\topinsert \endinsert: environment. The appropriate amount
+of space should be left for the figure, and the caption should be
+formatted to be centered or as a paragraph if more than one line. Text
+should be italic, eight-point type, with the words ``Fig.~\#'' in small
+caps.
+
+SIAM tables should be formatted in eight-point type, with enough
+space left between entries and surrounding lines so that they do not
+touch. See Knuth [1] or Seroul and Levy [2] for more information on
+the formatting of tables in \TeX. Table captions are similar to
+figure captions, but the words ``Table'' and the number appear on one
+line.
+
+SIAM supports the use of {\tt psfig} for including {\smc PostScript}
+figures. All {\smc Post\-Script} figures should be sent in separate
+files. See the {\tt psfig} documentation for more details on the use
+of this style option. It is a good idea to submit hardcopy of all
+{\smc Post\-Script} figures just in case there is difficulty in the
+reproduction of the figure. Figures produced by other non-\TeX\
+methods should be included as hardcopy when the manuscript is submitted.
+
+\heading{6}{Bibliographies}
+References are handled using the \verbatim:\Refs: command. Some
+representative sample entries are illustrated below:
+
+\verbatim|
+\Refs
+
+\ref 1\\ {\smc A.~U Thorone}, {\it Title of paper with lower case
+letters}, SIAM J. Abbrev. Correctly, 2 (1992), pp.~000--000.\endref
+
+\ref 2\\ \sameauthor, % generates a 3-em rule
+{\it Title of paper appearing in book}, in Book Title:
+With All Initial Caps, Publisher, Location, 1992.\endref
+
+\ref 3\\ {\smc A.~U. Thorone, A.~U. Thortwo, and A.~U. Thorthree},
+{\it Title of Book{\rm :} Note Initial Caps and {\rm ROMAN TYPE}
+for Punctuation and Acronyms}, Publisher, Location, pp.~000--000.
+1992.\endref
+
+\ref 4\\ {\smc A. Notherauth}, {\it Title of paper that's not yet
+published}, SIAM J. Abbrev. Correctly, to appear.\endref
+
+|
+
+Other types of references fall into the same general pattern. See the
+sample file or any SIAM journal for other examples. Authors must
+correctly format their bibliography to be considered as having used
+the macros correctly. An incorrectly formatted bibliography is not
+only time-consuming but very likely to have errors introduced into it by
+keyboarders/copy editors.
+
+As an alternative to the above style of reference, an alphanumeric
+code may be used in place of the number (e.g., [AUTh90]). The same
+\verbatim:\Refs: and \verbatim:\ref: commands are used, but the
+command \verbatim:\resetrefindent{}: must be used before the
+\verbatim:\Refs: command, with the widest expected alphanumeric code
+as an argument.
+
+Another alternative is no number, simply the authors' names and
+the year of publication following in parentheses. The rest of the
+format is identical. To get an entry with no number in brackets
+before it, use the \verbatim:\xref: command.
+
+
+\Refs
+
+\ref 1\\ {\smc D.~E. Knuth}, {\it The {\rm \TeX} book}, Addison Wesley,
+Reading, MA, 1986.\endref
+
+\ref 2\\ {\smc R. Seroul and S. Levy}, {\it A Beginner's Book of
+{\rm \TeX}}, Springer-Verlag, Berlin, New York, 1991.\endref
+
+
+\bye
diff --git a/obsolete/macros/plain/contrib/siam/pexample.tex b/obsolete/macros/plain/contrib/siam/pexample.tex
new file mode 100644
index 0000000000..90ba472adf
--- /dev/null
+++ b/obsolete/macros/plain/contrib/siam/pexample.tex
@@ -0,0 +1,523 @@
+% Sample file for SIAM's plain TeX macro package.
+%
+\input siamptex.sty
+
+% author defined macros included for illustrative purposes only.
+% symbols for real numbers, complex, ... (\Bbb font from AMS-TeX
+% fonts v2.x also useable)
+
+\def\fR{{\bf R}}
+\def\fC{{\bf C}}
+\def\fK{{\bf K}}
+
+% misc. operators
+\def\Span {\mathop{\hbox{\rm span}}\nolimits}
+\def\Range{\mathop{\hbox{\rm Range}}\nolimits}
+\def\Det {\mathop{\hbox{\rm det}}}
+\def\Re {\mathop{\hbox{\rm Re}}}
+\def\Im {\mathop{\hbox{\rm Im}}}
+\def\Deg {\mathop{\hbox{\rm deg}}}
+
+% misc.
+
+\def\Kr{\hbox{\bf K}}
+\def\K { { K}}
+\def\sT{\hbox{$\cal T$}}
+\def\sB{\hbox{$\cal B$}}
+
+\def\bmatrix#1{\left[ \matrix{#1} \right]}
+
+% Each of the following commands have to be filled in with
+% something. If the data is unknown, the arguments can be
+% left blank.
+
+\topmatter
+\journal{SIAM J. E{\smc XAMPLE} F{\smc ILES}}
+\vol{1}
+\no{1, pp.~000--000}
+\date{October 1993}
+\copyyear{1993}
+\code{000}
+
+
+\title SAMPLE FILE FOR SIAM PLAIN \TeX\ MACRO
+PACKAGE\endtitle
+
+\shorttitle{SIAM MACRO EXAMPLE}
+
+\recdate{*}{May 1, 1992; accepted by the editors Month, x,
+xxxx. This work was supported by the Society for Industrial
+and Applied Mathemtics, Philadelphia, Pennsylvania}
+
+\author Paul Duggan\fnmark{$^{\dag}$} \and Various A.~U.
+Thors\fnmark{$^{\ddag}$}\endauthor
+
+\address{$^{\dag}$}{Composition Department, Society for
+Industrial and Applied Mathematics, 3600 University City
+Science Center, Philadelphia, Pennsylvania, 19104-2688
+({\tt duggan@siam.org})}
+
+\address{$^{\ddag}$}{Various affiliations, supported by
+various foundation grants}
+
+\abstract{An example of SIAM \TeX\ macros is presented.
+Various aspects of composing manuscripts for SIAM's journals
+are illustrated with actual examples from accepted
+manuscripts. SIAM's stylistic standards are adhered to
+throughout, and illustrated.}
+
+\keywords polynomials, SI model\endkeywords
+
+\subjclass 33H40, 35C01\endsubjclass
+
+% if there is only one AMS subject number, the
+% command \oneclass should precede the \subjclass command.
+
+\endtopmatter
+
+\heading{1}{Introduction and examples}
+This paper presents a sample file for the use of SIAM's
+\TeX\ macro package. It illustrates the features of the
+macro package, using actual examples culled from various
+papers published in SIAM's journals. This sample will provide
+examples of how to use the
+macros to generate standard elements of journal papers,
+e.g., equations, theorems, or figures. This paper also
+serves as an exmple of SIAM's stylistic preferences for the
+formatting of such elements as bibliographic references,
+displayed equations, and aligned equations, among others.
+Some special circumstances are not dealt with this the
+sample file; for that information, please see the
+associated documentation file.
+
+{\it Note}. This paper is not to be read in any form for
+content. The conglomeration of equations, lemmas, and other
+text elements were put together solely for typographic
+illustrative purposes.
+
+For theoretical reasons, it is desirable to find characterizations of the
+conditions of breakdown of the algorithms that are based on the key {\it
+spaces} $\Kr_n(r^{(0)},A)$ and $\Kr_n(\tilde r^{(0)},A^*)$ rather than
+the {\it formulas} for the algorithms. In particular, we will
+characterize breakdown of the three Lanczos algorithms in terms of the
+{\it moment matrices} $\K_n(\tilde r^{(0)},A^*)^*\K_n(r^{(0)},A)$ and
+$\K_n(\tilde r^{(0)},A^*)^*A\K_n(r^{(0)},A)$. Here we define the matrix
+$\K_n(v,A)=\bmatrix{v&Av&\cdots&A^{n-1}v\cr}$, a matrix whose columns span
+the Krylov space $\Kr_n(v,A)$.
+
+The following three theorems give exact conditions for breakdown of the
+above algorithms. Detailed proofs may be found in [3]. A
+result similar to Theorem 2 is found in [1]; see also [5].
+
+
+\thm{Theorem 1 {\rm (Lanczos--Orthodir breakdown)}}
+Suppose Lanczos/Orthodir has successfully generated
+$u^{(n-1)}\not=u$. Then the following are equivalent:
+
+\meti{$\bullet$} The algorithm does not break down at step $n$.
+
+\meti{$\bullet$} The matrix $\K_n(\tilde r^{(0)},A^*)^*A\K_n(r^{(0)},A)$
+is nonsingular.
+
+\meti{$\bullet$} There exists a unique iterate $u^{(n)}$ satisfying $(2)$.
+\endthm
+
+
+\thm{Theorem 2 {\rm (Lanczos--Orthomin breakdown)}}
+Suppose Lanczos/Orthomin has successfully generated $u^{(n-1)}\not=u$.
+Then the following are equivalent:
+
+\meti{$\bullet$} The algorithm breaks down at step $n$.
+
+\meti{$\bullet$} Either
+$\K_{n-1}(\tilde r^{(0)},A^*)^*\K_{n-1}(r^{(0)},A)$ or
+$\K_n(\tilde r^{(0)},A^*)^*A\K_n(r^{(0)},A)$ is singular.
+\endthm
+
+
+\prop{Proposition 3 {\rm (zero sets of polynomials)}}
+Let $\fK=\fR$ or $\fC$. If $P$ is a complex nonzero polynomial in the
+variables $x_1,x_2,\ldots ,x_N\in\fK$, then $P(x)\not=0$ for almost every
+$x=(x_1,x_2,\ldots,x_N)\in \fK^N$.
+\endprop
+
+\prf{Proof}
+If $\fK=\fR$ and $P$ is nonzero, then either $\Re P(z)$ or $\Im P(z)$
+is a nonzero (real) polynomial; if $\fK=\fC$, we may decompose each $x_i$
+into real and imaginary parts, giving $2N$ variables, and consider the
+real polynomial $P(x)^*P(x)$. In any case, we may assume without loss of
+generality that $P$ is a nonzero real polynomial of real variables.
+
+We know that for any point $x$, the polynomial $P$ is the zero polynomial
+if and only if the polynomial and all its derivatives are zero at $x$.
+Let $V_0$ denote the set of zeros of $P$ in $\fR^N$. Suppose the set
+$V_0$ has nonzero measure. We know from integration theory (see, for
+example, [6, pp.\ 128f]) that almost every point of $V_0$ is
+a point of density in each of the $N$ coordinate directions. We recall
+that $x\in\fR$ is a point of density of a measurable subset
+$S\subseteq\fR$ if for any sequence of intervals $I_n$ such that
+$x\in I_n$ with measure $m(I_n)\rightarrow 0$ we have
+$m(S\cap I_n)/m(I_n)\rightarrow 1$.
+
+It is easily seen that at such points in $V_0$, the first
+partial derivatives of $P$ must necessarily be zero. Let $V_1$ be the
+points of $V_0$ where all first derivatives are also zero. We have just
+shown that $V_0$ and $V_1$ both have the same nonzero measure. The
+argument
+may be repeated for $V_1$ to show all second partial derivatives of $f$
+are zero at almost every point of $V_0$, and so forth, resulting in the
+fact that $P$ and all its derivatives are zero on a set which has nonzero
+measure. The proof is completed by selecting any one of these points.
+\qquad\endproof
+
+\thm{Theorem 4 {\rm (Lanczos breakdown, iterate $n$)}}
+Let $\fK=\fR$ or $\fC$, $A, \tilde Z\in\fK^{N\times N}$, and $n\leq d(A)$.
+Then exactly one of the following three conditions holds for the Lanczos
+method with $\tilde r^{(0)}=\tilde Z^* r^{(0)}$.
+
+\meti{\rm (i)} Hard breakdown at step $n$ occurs for every vector
+$r^{(0)}\in\sT_n(A)\cap\fK^N$ $($and thus at least for almost every
+$r^{(0)}\in\fK^N)$.
+
+\meti{\rm (ii)} Hard breakdown at step $n$ occurs for a nonempty measure-zero
+set of vectors $r^{(0)}\in\sT_n(A)\cap\fK^N$
+$($and thus a nonempty measure-zero set of vectors in $\fK^N)$.
+
+\meti{\rm (iii)} Hard breakdown at step $n$ occurs for no vectors
+$r^{(0)}\in\sT_n(A)\cap\fK^N$ $($and thus for at most a measure-zero set of
+vectors in $\fK^N)$.
+
+Furthermore, the same result holds if ``hard breakdown'' is replaced by
+``soft breakdown'' in the statement of this theorem.
+\endthm
+
+
+\prf{Proof}
+For vectors $r^{(0)}\in\sT_n(A)\cap\fK^N$, breakdown is equivalent to
+singularity of an appropriate moment matrix. The set $\sT_n(A)\cap\fK^N$
+amounts to almost
+every vector in $\fK^N$. Now, by Corollary 5, the set $S_n$ of vectors in
+$\fK^N$ for which the moment matrix of dimension $n$ is singular is either
+the set of all vectors or a subset of measure zero. If the moment matrix
+is singular for every vector (i.e., $S_n=\fK^N$), then it is singular for
+every vector in $\sT_n(A)\cap\fK^N$, giving case (i) above. Otherwise the
+set $S_n$ is measure zero in $\fK^N$. Thus
+$\sB_n\equiv S_n\cap(\sT_n(A)\cap\fK^N)$ is of measure zero
+and is either empty or nonempty.
+\qquad\endproof
+
+\heading{2}{Tables and figures}
+In Tables 1 and 2 we consider the unpreconditioned problem and also the (left)
+ILU- and MILU-preconditioned problem (see [2] and [4]). Runs for which
+convergence was not possible in ITMAX iterations are labeled by (--).
+
+
+\topinsert
+\hbox{\vbox{ \eightpoint
+{\parindent 0pt
+\centerline{\smc Table 1}
+\centerline{\it Model problem, $h^{-1}=128$, {\rm ITMAX=3000}.
+ Number of iterations.}\vskip 6pt
+\hfil\vbox{\offinterlineskip
+\hrule
+\halign{&\vrule#&\strut\ \hfil#\ \cr
+height2pt&\omit&&\omit&&\omit&&\omit&&\omit
+ &&\omit&&\omit&&\omit&&\omit&&\omit&&\omit&\cr
+&{\rm method $\backslash$ Dh: } &
+ &0&&2${}^{-3}$&&2${}^{-2}$&&2${}^{-1}$&&2${}^{0}$&
+ &2${}^{1}$&&2${}^{ 2}$&&2${}^{ 3}$&&2${}^{ 4}$&&2${}^{5}$&\cr
+height2pt&\omit&&\omit&&\omit&&\omit&&\omit
+ &&\omit&&\omit&&\omit&&\omit&&\omit&&\omit&\cr
+\noalign{\hrule}
+height2pt&\omit&&\omit&&\omit&&\omit&&\omit
+ &&\omit&&\omit&&\omit&&\omit&&\omit&&\omit&\cr
+&{GMRES}($\infty$) \hfill &
+& 290&& 269&& 245&& 220&& 200&& 189&& 186&& 189&& 207&& 249&\cr
+&{BCG} \hfill &
+& 308&& 341&& 299&&1518&& -- && -- && -- && -- && 533&& -- &\cr
+&{BCG}{\rm, random $u^{(0)}$} \hfill &
+& 309&& 354&& 300&& 310&& 313&& 301&& 299&& 302&& 290&& 293&\cr
+&{BCGNB} \hfill &
+& 308&& 353&& 284&& 338&& 253&& 240&& 243&& 240&& 302&& 962&\cr
+&{CGS} \hfill &
+& 272&& 254&& 222&& -- && -- && -- && -- && -- && -- && -- &\cr
+&{CGS}{\rm, random $u^{(0)}$} \hfill &
+& 193&& 189&& 200&& 192&& 193&& 175&& 225&& 212&& 216&& 197&\cr
+&{CGSNB} \hfill &
+& 272&& 284&& 212&& 196&& 151&& 162&& 158&& 173&& 156&& 256&\cr
+height1pt&\omit&&\omit&&\omit&&\omit&&\omit
+ &&\omit&&\omit&&\omit&&\omit&&\omit&&\omit&\cr
+} \hrule}\hfil}}}
+\endinsert
+
+
+\topinsert
+
+\hbox{\vbox{ \eightpoint
+{\parindent 0pt
+\centerline{\smc Table 2}
+
+\centerline{\it Model Problem, $h^{-1}=128$,}
+\centerline{\it {\rm MILU}-preconditioning, {\rm ITMAX=500.}
+Number of iterations.}
+
+\medskip
+
+\hfil\vbox{\offinterlineskip
+\hrule
+\halign{&\vrule#&\strut\ \hfil#\ \cr
+height2pt&\omit&&\omit&&\omit&&\omit&&\omit
+ &&\omit&&\omit&&\omit&&\omit&&\omit&&\omit&\cr
+&{\rm Method $\backslash$ Dh: } &
+ &0&&2${}^{-3}$&&2${}^{-2}$&&2${}^{-1}$&&2${}^{0}$&
+ &2${}^{1}$&&2${}^{ 2}$&&2${}^{ 3}$&&2${}^{ 4}$&&2${}^{5}$&\cr
+height2pt&\omit&&\omit&&\omit&&\omit&&\omit
+ &&\omit&&\omit&&\omit&&\omit&&\omit&&\omit&\cr
+\noalign{\hrule}
+height2pt&\omit&&\omit&&\omit&&\omit&&\omit
+ &&\omit&&\omit&&\omit&&\omit&&\omit&&\omit&\cr
+&{\rm {GMRES}($\infty$)} \hfill &
+& 27&& 25&& 24&& 26&& 28&& 28&& 25&& 19&& 14&& 10&\cr
+&{\rm {GMRES}($\infty$), random $u^{(0)}$} \hfill &
+& 33&& 29&& 28&& 29&& 31&& 31&& 29&& 24&& 19&& 14&\cr
+&{\rm {BCG}} \hfill &
+& 31&& 27&& 29&& 33&& 30&& 37&& 30&& 23&& 15&& 10&\cr
+% &{BCG}, random $u^{(0)}$, $\gamma=.1$ \hfill &
+% & 35&& 30&& 31&& 35&& 40&& 37&& 34&& 27&& 20&& 15&\cr
+&{\rm {BCG}, random $u^{(0)}$} \hfill &
+& 38&& 34&& 33&& 37&& 44&& 40&& 38&& 29&& 23&& 18&\cr
+&{\rm {BCGNB}} \hfill &
+& 28&& 27&& 29&& 30&& 34&& 35&& 30&& 23&& 15&& 10&\cr
+&{\rm {CGS}} \hfill &
+& 21&& 18&& 17&& 20&& 22&& 22&& 19&& 15&& 9&& 6&\cr
+&{\rm {CGS}, random $u^{(0)}$} \hfill &
+& 24&& 18&& 20&& 22&& 22&& 23&& 21&& 16&& 12&& 9&\cr
+&{\rm {CGSNB}} \hfill &
+& 21&& 18&& 17&& 20&& 22&& 27&& 20&& 15&& 9&& 6&\cr
+height1pt&\omit&&\omit&&\omit&&\omit&&\omit
+ &&\omit&&\omit&&\omit&&\omit&&\omit&&\omit&\cr
+} \hrule}\hfil}}}
+\endinsert
+
+We make the following observations about these runs.
+
+\meti{$\bullet$} For the unpreconditioned problem, the standard
+{BCG} and {CGS} algorithms break down in a number of cases, but the use
+of random $u^{(0)}$ or the use of {BCGNB} or {CGSNB}
+resulted in convergence. Furthermore, the iteration counts for the
+algorithms {BCG} and {BCGNB} are in
+general comparatively close to those of the ``best'' method,
+{GMRES}($\infty$), while these algorithms have short economical
+recurrences, unlike {GMRES}($\infty$). This underscores the
+importance of the Lanczos algorithms as economical solution techniques.
+
+\meti{$\bullet$} For the ILU-preconditioned problems, in most cases
+all methods worked well. For the case of $Dh=1$, {BCG} gave
+an excessive number of iterations, but this was remedied significantly
+by {BCGNB} and much more so
+by the use of random $u^{(0)}$. Similarly, {CGS} could
+not converge, but {CGSNB} and {CGS} with random
+$u^{(0)}$ both converged.
+
+\meti{$\bullet$} For all of the MILU-preconditioned problems, all of
+the Lanczos-type algorithms performed quite well. In particular, the
+{BCG} algorithm gave approximately the same number of
+iterations as {GMRES}($\infty$).
+
+Figures 1 and 2 give representative plots of the convergence behavior of the
+algorithms for the case of $h^{-1}=128$, $Dh=4$, and no preconditioning.
+These results show that the new algorithms keep the residual size
+better behaved than the standard {BCG} and {CGS}
+algorithms over the course of the run.
+
+\topinsert
+\vskip 3.2in
+\centerline{\eightpoint\smc Fig.~1. \it Residual
+behavior: $h^{-1}=128$, $Dh=4$.}
+\endinsert
+
+
+\topinsert
+ \vskip 3.2in
+\centerline{\eightpoint\smc Fig.~2. \it Residual
+behavior: $h^{-1}=128$, $Dh=4$.}
+\endinsert
+
+We now consider a more difficult class of finite difference problems,
+namely, central finite differencing applied to the Dirichlet problem
+$$ -u_{xx}(x,y) - u_{yy}(x,y) +
+ D[(y-\textstyle{1\over 2}\displaystyle) u_x(x,y) +
+ (x-\textstyle{1\over 3}\displaystyle)
+ (x-\textstyle{2\over 3}\displaystyle) u_y(x,y)], $$
+$$ - 43\pi^2u(x,y) = G(x,y) \quad {\rm on}\ \Omega=[0,1]^2,$$
+$$u(x,y) = 1 + xy \quad \hbox{\rm on}\ \partial\Omega,$$
+with $G(x,y)$ chosen as before so that the true solution is $u(x,y)=1+xy$.
+Again, we let $h$ denote the mesh size in each direction. For $D=0$
+and $h$ small, the matrix generated by this problem is a symmetric
+indefinite matrix with 16 distinct negative eigenvalues and the rest
+of the spectrum positive.
+
+The standard conjugate residual algorithm applied to this problem with
+$h^{-1}=128$ and $D=0$ requires 766 iterations to converge to
+$||r^{(n)}||/||b||<\zeta=10^{-6}$. In any case, this is a difficult
+problem to solve.
+
+ \def\qed{\vrule height8pt width4pt depth0pt\par\medskip}
+ \def\Zero{{\bf 0}}
+ \def\dis{\displaystyle}
+ \def\b{\beta}
+ \def\r{\rho}
+ \def\X{{\bf X}}
+ \def\Y{{\bf Y}}
+ \def\bb{{\bar \beta}}
+ \def\tbcr{\theta\bb c_h \rho_h}
+ \def\ep{\varepsilon}
+
+
+
+Figures 3(a) and 3(b) show the compartmental diagrams for SI models without
+and with deaths due to the disease, for the situation in which the infectious
+period has only one stage. Figures 4(a) and 4(b) give the corresponding models
+with $m$ stages of infection. Venereal
+warts, caused by the human papilloma virus, and ordinary herpes are examples
+of sexually transmitted diseases without deaths
+due to the disease, although both are not quite SI diseases because of
+partial immunity. AIDS is the example of an SI disease with death due to
+the disease. Although our main focus is on the latter, we present results
+on SI models without deaths due to the
+disease because the simplification in the dynamics of such models
+ throws light on the case with disease-related deaths.
+
+\topinsert
+\vskip 2in
+\centerline{\eightpoint {\smc Fig.} 3(a). SI {\it model for subgroup $i$, without death
+due to the disease.}}
+\vskip 2in
+\centerline{\eightpoint {\smc Fig.} 3(b). SI {\it model with death due to the disease.}}
+\endinsert
+
+\topinsert
+\vskip 2in
+\centerline{\eightpoint {\smc Fig.} 4(a). SI {\it model without deaths due to the
+disease with $m$ stages of infection.}}
+\vskip 2in
+\centerline{\eightpoint {\smc Fig.} 4(b). SI {\it model with deaths due to the disease,
+with $m$ stages of infection.}}
+\endinsert
+
+\heading{3}{Equations and alignments}
+The equations for the system follow directly from the definitions and the
+compartmental diagrams. For one infected stage with no disease-related
+deaths, the equations are
+$$ \dot X_i=-X_ig_i-\mu X_i+U_i, \leqno(1)$$
+$$ \dot Y_i=X_ig_i-\mu Y_i. \leqno(2)$$
+If there are multiple stages to the infection, (2) is replaced by
+(3)--(5) as follows:
+$$\leqalignno{\dot Y_{i1}&=X_ig_i-(k+\mu)Y_{i1}, &(3)\cr
+\dot Y_{ir}&=kY_{i,r-1}-(k+\mu)Y_{ir},\qquad r=2,\ldots,m-1 &(4)\cr
+\dot Y_{im}&=kY_{i,m-1}-\mu Y_{im}. &(5)\cr }$$
+
+
+
+\heading{3.1}{The SI model with structured mixing}
+In this subsection we write the equations for the SI model with
+structured mixing, with one infected stage and with deaths due to the
+disease. The equations for multiple infected stages follow easily, as do
+those for SI models without death due to the disease. Recall that $f_{is}$
+gives the fraction of population subgroup $i$'s
+contacts that are made in activity group $s$. The total contact rate of
+susceptibles from population subgroup $i$ in activity group $s$ must be
+$c_iX_if_{is}$. Let $\rho_{ij}(s)$ be the fraction of the contacts of group
+$i$ that are with members of group $j$, within activity group $s$.
+Assuming random allocation of the susceptibles and infecteds from each
+population subgroup to the activity groups, the fraction infected in group
+$j$ in activity group $s$ must be $Y_j/N_j$, giving
+$$ c_iX_if_{is}\rho_{ij}(s)\beta_j{Y_j \over N_j}\leqno(6) $$
+for the rate at which susceptibles in $i$ are infected by contacts
+with infecteds from $j$ in activity group $s$. Thus, in this case, $g_i$ is
+given by
+$$
+ g_i=c_i\sum_sf_{is}\sum_j\rho_{ij}(s)\beta_j{Y_j \over N_j},
+\leqno(7)
+ $$
+and (1a) and (1b) become
+$$ \dot X_i=-c_iX_i\sum_sf_{is}\sum_j\rho_{ij}(s)\beta_j{Y_j \over
+N_j}-\mu X_i+U_i, \leqno(8) $$
+$$ \dot Y_i=c_iX_i\sum_sf_{is}\sum_j\rho_{ij}(s)\beta_j{Y_j \over
+N_j}-(\mu+k)Y_i. \leqno(9) $$
+
+\heading{3.2}{Structured mixing within activity groups}
+If the mixing within activity groups is proportional mixing, then
+$\rho_{ij}(s)$ is given by (10):
+$$\rho_{ij}(s)={f_{js}c_jN_j\over \sum_pf_{ps}c_pN_p}, \leqno(10)$$
+and (8) and (9) become (11) and (12):
+$$\dot X_i=-c_iX_i\sum_sf_{is}{\sum_jf_{js}c_j\beta_jY_j \over
+\sum_jf_{js}c_jN_j}-\mu X_i+U_i \leqno(11)$$
+$$\dot Y_i=c_iX_i\sum_sf_{is}{\sum_jf_{js}c_j\beta_jY_j \over
+\sum_jf_{js}c_jN_j}-(k+\mu)Y_i. \leqno(12)$$
+
+Expressions (11) and (12) show an important consequence of death due
+to the disease. If there are no deaths due to the disease, $N_j$ is
+constant on the asymptotically stable invariant subspace $U_j=\mu
+N_j$ for all $j$, and the first term, the nonlinear term, in
+(11) and (12) is a sum of {\it quadratic} terms. If there are deaths
+due to the disease, $N_j$ is no longer constant and the first term is
+a sum of rational expressions, each homogeneous of degree one. This
+observation extends to SIS, SIR, and SIRS models.
+
+
+
+\Refs
+
+
+\ref 1\\
+{\smc R. Fletcher}, {\it Conjugate gradient methods for indefinite
+systems}, in Numerical Analysis Dundee 1975, G.~A. Watson, ed.,
+Springer-Verlag, New York, Lecture Notes in Math. 506,
+1976, pp. 73--89.
+\endref
+
+
+\ref 2\\
+{\smc I. Gustafsson}, {\it Stability and rate of convergence of
+modified incomplete Cholesky factorization methods}, Ph.D. thesis,
+Chalmers University of Technology and the University of Goteborg,
+Goteborg, Sweden, 1979.
+\endref
+
+
+\ref 3\\
+{\smc W.~D. Joubert}, {\it Generalized conjugate gradient and
+Lanczos methods for the solution of nonsymmetric systems of linear
+equations}, Ph.D. thesis and Report
+CNA-238, Center for Numerical Analysis, University of Texas,
+Austin, TX, January 1990.
+\endref
+
+
+\ref 4\\
+{\smc J.~A. Meijerink and H.~A. van der Vorst}, {\it An iterative
+solution method for linear systems of which the coefficient matrix is
+a symmetric $M$-matrix}, Math. Comp., 31 (1977), pp.~148--162.
+\endref
+
+
+
+\ref 5\\
+{\smc Y.~Saad}, {\it The Lanczos biorthogonalization algorithm and
+other oblique projection methods for solving large unsymmetric systems},
+SIAM J. Numer. Anal., 19 (1982), pp. 485--506.
+\endref
+
+
+\ref 6\\
+{\smc S. Saks}, {\it The Theory of the Integral}, G.~E. Stechert,
+New York, 1937.
+\endref
+
+\ref 7\\
+{\smc M. Tinkham}, {\it Introduction to
+Superconductivity}, McGraw-Hill, New York, 1975.
+\endref
+
+\bye
diff --git a/obsolete/macros/plain/contrib/siam/siamptex.sty b/obsolete/macros/plain/contrib/siam/siamptex.sty
new file mode 100644
index 0000000000..8d5f040584
--- /dev/null
+++ b/obsolete/macros/plain/contrib/siam/siamptex.sty
@@ -0,0 +1,324 @@
+% SIAMPTEX.STY; 12-11-92; Paul Duggan, Society for Industrial
+% and Applied Mathematics. From
+% Ralph Youngen's siamtex.sty
+%
+% This file may be freely distributed but may not be altered in
+% any way.
+%
+% This is a file of macros and definitions for creating an article
+% for publication in a SIAM journal.
+%
+% Make the @ sign a letter for internal control sequences.
+\catcode`\@=11
+%
+% Report the version number of this package.
+\message{ *** SIAM Plain TeX macro package, version 2.1, 1-JAN-1993 ***}
+%
+%
+% FONTS
+\font\tenrm=cmr10
+\font\tenbf=cmbx10
+\font\tenit=cmti10
+\font\tensmc=cmcsc10
+\def\tenpoint{%
+ \def\rm{\fam0\tenrm}\def\bf{\fam\bffam\tenbf}%
+ \def\it{\fam\itfam\tenit}\def\smc{\tensmc}
+ \textfont0=\tenrm \scriptfont0=\sevenrm
+ \textfont1=\teni \scriptfont1=\seveni
+ \textfont2=\tensy \scriptfont2=\sevensy
+ \textfont3=\tenex \scriptfont3=\tenex
+\baselineskip=12pt\rm}%
+
+\font\ninerm=cmr9
+\font\ninebf=cmbx9
+\font\nineit=cmti9
+\def\ninepoint{%
+ \def\rm{\ninerm}\def\bf{\ninebf}%
+ \def\it{\nineit}\baselineskip=11pt\rm}%
+
+\font\eightrm=cmr8
+\font\eightbf=cmbx8
+\font\eightit=cmti8
+\font\eighti=cmmi8
+\font\eightsy=cmsy8
+\font\eightsmc=cmcsc8
+\font\eighttt=cmtt8
+ \def\eightpoint{%
+ \def\rm{\fam0\eightrm}\def\bf{\fam\bffam\eightbf}%
+ \def\it{\fam\itfam\eightit}\def\smc{\eightsmc}\def\tt{\eighttt}\baselineskip=10pt\rm%
+ \textfont0=\eightrm \scriptfont0=\sixrm
+ \textfont1=\eighti \scriptfont1=\sixi
+ \textfont2=\eightsy \scriptfont2=\sixsy
+\textfont3=\tenex \scriptfont3=\tenex
+}
+
+\font\sixrm=cmr6
+\font\sixbf=cmbx6
+\font\sixi=cmmi6
+\font\sixsmc=cmr5
+\font\sixsy=cmsy6
+\def\sixpoint{%
+ \def\rm{\sixrm}\def\bf{\sixbf}%
+ \def\smc{\sixsmc}\baselineskip=8pt\rm}%
+
+\fontdimen13\tensy=2.6pt
+\fontdimen14\tensy=2.6pt
+\fontdimen15\tensy=2.6pt
+\fontdimen16\tensy=1.2pt
+\fontdimen17\tensy=1.2pt
+\fontdimen18\tensy=1.2pt
+
+\def\rheadfont{\tenpoint\smc}
+\def\titlefont{\tenpoint\bf}
+\def\authorfont{\eightpoint\smc}
+\def\dedicatefont{\ninepoint\it}
+
+
+% DIMENSIONS
+\hsize=31pc
+\vsize=50pc
+\parindent=2em
+
+
+% MACROS
+\newif\ifkeywords@
+\newif\ifsubjclass@
+\newif\ifdedicate@
+\newif\ifrecdate@
+\newif\ifoneclass@
+
+\keywords@false
+\subjclass@false
+\dedicate@false
+\recdate@false
+\oneclass@false
+
+\def\title#1\endtitle{\def\thetitle{\uppercase{#1}}%
+ \def\\{\relax\ }\xdef\rightrh{\lowercase{#1}}}
+
+\def\shorttitle#1{\xdef\rightrh{\lowercase{#1}}}
+
+\def\author#1\endauthor{%
+ \def\and{\hbox{\sixrm AND }}\def\\{\break}% prevent \uppercase when typesetting
+ \def\theauthor{\uppercase{#1}}%
+ {%
+ \def\\{\relax\ }% change \\ to be a space in the running head
+ \def\fnmark##1{}% turn address off in the running head
+ \def\and{and }% "and" is the same size as names in the running head
+ \xdef\leftrh{\lowercase{#1}}%
+ }}
+
+\def\shortauthor#1{\def\and{and }\xdef\leftrh{\lowercase{#1}}}
+
+\gdef\fnmark#1{#1}
+\gdef\address#1#2{\makefootnote@{\textfont2=\eightsy #1}{#2\unskip.}}
+\def\journal#1{\def\thejournal{#1}}
+\journal{SIAM J. S{\smc CI. }S{\smc TAT. }C{\smc OMP.}}
+\def\copyyear#1{\def\thecopyyear{#1}}
+\copyyear{1989}
+\def\vol#1{\def\thevol{#1}}
+\def\no#1{\def\theno{#1}}
+\def\date#1{\def\thedate{#1}}
+\def\code#1{\def\thecode{#1}}
+\def\dedicate#1{\dedicate@true\def\thededicate{#1}}
+\def\keywords#1\endkeywords{\keywords@true\def\thekeywords{#1}}
+\def\subjclass#1\endsubjclass{\subjclass@true\def\thesubjclass{#1}}
+\def\oneclass{\oneclass@true}
+\long\def\abstract#1{\def\theabstract{#1}}
+
+\def\raggedcenter{\leftskip=0pt plus 1fill \rightskip=0pt plus 1fill}
+
+\def\copyright#1{{\ooalign{\hfil\raise.07ex\hbox{c}\hfil\crcr#1\char"0D}}}
+
+\def\recdate#1#2{\global\recdate@true
+ \gdef\recdate@{#1Received by the editors \ignorespaces#2\unskip.}%
+ \makefootnote@{}{\recdate@}}
+
+
+
+\def\heading#1#2{%
+ \vskip6pt{\bf #1.\enspace\ignorespaces#2.\enspace}\ignorespaces}
+
+\def\thm#1{{\smc #1.}\begingroup\it\enspace\ignorespaces}
+\let\lem=\thm
+\let\cor=\thm
+\let\prop=\thm
+
+\def\endthm{\endgroup}
+\let\endlem=\endthm
+\let\endcor=\endthm
+\let\endprop=\endthm
+
+\def\prf#1{{\it #1}.\rm\enspace\ignorespaces}
+\let\rem=\prf
+\let\case=\prf
+
+\def\endproof{\vbox{\hrule\hbox{%
+ \vrule height1.3ex\hskip0.8ex\vrule}\hrule
+ }}
+
+\def\dfn#1{{\smc #1.}\rm\enspace\ignorespaces}
+
+\let\topmatter=\relax
+\def\endtopmatter{%
+ \global\headline={\hss\vtop to \z@ {%
+ \sixpoint\rm\noindent\thejournal \hfill%
+ \rm\copyright{\sevensy}\rm%
+ \thecopyyear\ Society for Industrial and Applied Mathematics\par
+ \noindent Vol. \thevol , No. \theno , \thedate\hfill\thecode\par
+ \vss}\hss}%
+ \leavevmode\vskip8pt
+ \vbox{\noindent\raggedcenter\let\\=\break\titlefont\thetitle
+ \ifrecdate@*\fi}
+ \vskip6pt
+ \vbox{\noindent\raggedcenter\let\\=\break\authorfont\theauthor}
+ \ifdedicate@
+ \vskip6pt
+ \vbox{\noindent\raggedcenter\let\\=\break\dedicatefont
+ \thededicate}
+ \fi
+ \vskip14pt
+ {\eightpoint{\bf Abstract.\ }\theabstract\par
+ \ifkeywords@
+ \vskip10pt
+ {\bf Key words.} \thekeywords\par
+ \fi
+ \ifsubjclass@
+ \vskip10pt
+ {\bf AMS subject classification\ifoneclass@\else s\fi. }%
+ \thesubjclass\par
+ \fi}
+ \vskip8pt
+ \tenpoint}
+%%grouping of \eightpoint is new: added 2/22/91 to allow roman & bold
+%%in math mode
+
+
+%%% REFERENCES
+
+\newdimen\refindent@
+\newdimen\refhangindent@
+\newbox\refbox@
+\setbox\refbox@=\hbox{\eightpoint\rm [00]}% Default 2 digits
+\refindent@=\wd\refbox@
+
+\def\resetrefindent#1{%
+ \setbox\refbox@=\hbox{\eightpoint\rm [#1]}%
+ \refindent@=\wd\refbox@}
+
+\def\Refs{%
+ \unskip\vskip2pc
+ \centerline{\eightpoint\rm REFERENCES}%
+ \penalty10000
+ \vskip4pt
+ \penalty10000
+ \refhangindent@=\refindent@
+ \global\advance\refhangindent@ by 2em
+ \global\everypar{\hangindent\refhangindent@}%
+ \parindent=0pt\eightpoint\rm}
+
+\def\XRefs{%
+ \unskip\vskip2pc
+ \centerline{\eightpoint\rm REFERENCES}%
+ \penalty10000
+ \vskip4pt
+ \penalty10000
+ \refhangindent@=\refindent@
+ \global\everypar{\hangindent\refhangindent@}%
+ \parindent=0pt\eightpoint\rm}
+
+\def\sameauthor{\leavevmode\vbox to 1ex{\vskip 0pt plus 100pt
+ \hbox to 3em{\leaders\hrule\hfil}\vskip 0pt plus 300pt}}
+
+\def\ref#1\\#2\endref{\leavevmode\hbox to \refindent@{\hfil[#1]}\enspace #2\par}
+
+\def\xref\\#1\endref{\leavevmode #1\par}
+%%% OUTPUT
+
+\global\footline={\hss\eightpoint\rm\folio\hss}% first page
+\output{\plainoutput}
+\def\plainoutput{\shipout\vbox{\makeheadline\pagebody\makefootline}%
+ \advancepageno
+ \ifnum\pageno>1
+ \global\footline={\hfill}%
+ \fi
+ \ifodd\pageno
+ \global\headline={\hss\rightrh\hss{\tenpoint\rm\folio}}%
+ \else
+ \global\headline={\hskip-8pt{\tenpoint\rm\folio}\hss\leftrh\hss}%
+ \fi
+ \ifnum\outputpenalty>-\@MM \else\dosupereject\fi}
+\def\pagebody{\vbox to\vsize{\boxmaxdepth\maxdepth \pagecontents}}
+\def\makeheadline{\vbox to\z@{\vskip-22.5\p@
+ \line{\vbox to8.5\p@{}\rheadfont\the\headline}\vss}%
+ \nointerlineskip}
+\def\makefootline{\baselineskip24\p@\vskip-8\p@\line{\the\footline}}
+\def\dosupereject{\ifnum\insertpenalties>\z@ % something is being held over
+ \line{}\kern-\topskip\nobreak\vfill\supereject\fi}
+
+\def\relaxnext@{\let\next\relax}
+\def\footmarkform@#1{\ifmmode {}^{#1}\else$^{#1}$\fi }
+\let\thefootnotemark\footmarkform@
+\def\makefootnote@#1#2{\insert\footins
+ {\interlinepenalty\interfootnotelinepenalty
+ \eightpoint \splittopskip=\ht\strutbox
+ \splitmaxdepth=\dp\strutbox
+ \floatingpenalty=\@MM
+ \leftskip=\z@ \rightskip=\z@
+ \spaceskip=\z@ \xspaceskip=\z@
+ \leavevmode{#1}\footstrut\ignorespaces#2\unskip
+ \lower\dp\strutbox\vbox to\dp\strutbox{}}}
+\newcount\footmarkcount@
+ \footmarkcount@=\z@ % Initialization
+\def\footnotemark{\let\@sf=\empty \relaxnext@
+ \ifhmode \edef\@sf{\spacefactor=\the\spacefactor}\/\fi
+ \def\next@{\ifx[\next \let\next=\nextii@ \else
+ \ifx"\next \let\next=\nextiii@ \else
+ \let\next=\nextiv@ \fi\fi\next}%
+ \def\nextii@[##1]{\footmarkform@{##1}\@sf}%
+ \def\nextiii@"##1"{{##1}\@sf}%
+ \def\nextiv@{\global\advance\footmarkcount@\@ne
+ \footmarkform@{\number\footmarkcount@}\@sf}%
+ \futurelet\next\next@}
+\def\footnotetext{\relaxnext@
+ \def\next@{\ifx[\next \let\next=\nextii@ \else
+ \ifx"\next \let\next=\nextiii@ \else
+ \let\next=\nextiv@ \fi\fi\next}%
+ \def\nextii@[##1]##2{\makefootnote@{\footmarkform@{##1}}{##2}}%
+ \def\nextiii@"##1"##2{\makefootnote@{##1}{##2}}%
+
+\def\nextiv@##1{\makefootnote@{\footmarkform@{\number\footmarkcount@}}{##1}}%
+ \futurelet\next\next@}
+\def\footnote{\let\@sf=\empty \relaxnext@
+ \ifhmode \edef\@sf{\spacefactor\the\spacefactor}\/\fi
+ \def\next@{\ifx[\next \let\next=\nextii@ \else
+ \ifx"\next \let\next=\nextiii@ \else
+ \let\next=\nextiv@ \fi\fi\next}%
+ \def\nextii@[##1]##2{\footnotemark[##1]\footnotetext[##1]{##2}}%
+ \def\nextiii@"##1"##2{\footnotemark"##1"\footnotetext"##1"{##2}}%
+ \def\nextiv@##1{\footnotemark\footnotetext{##1}}%
+ \futurelet\next\next@}
+\def\adjustfootnotemark#1{\advance\footmarkcount@#1\relax}
+
+\skip\footins=18\p@ plus6\p@ minus6\p@
+
+\def\footnoterule{\kern -4\p@\hrule width 3pc \kern 3.6\p@ } % rule = .4 pt high
+
+\def\meti#1{\parindent=2\parindent \par\indent\llap{#1\enspace}\ignorespaces\parindent=.5\parindent}
+\def\metimeti#1{\parindent=2\parindent \par\indent\llap{#1\enspace}\ignorespaces\parindent=.5\parindent}
+
+\font\tencmmib=cmmib10 \skewchar\tencmmib='177
+\newfam\cmmibfam
+\textfont\cmmibfam=\tencmmib
+
+\def\ldisplaylinesno#1{\displ@y\halign{
+ \hbox to\displaywidth{$\@lign\hfil\displaystyle##\hfil$}&
+ \kern-\displaywidth\rlap{$##$}\kern\displaywidth\crcr
+ #1\crcr}}
+
+\def\bphi{\mathchar"0\hexnumber@\cmmibfam"1E}
+
+
+% Turn off @ as being a letter.
+%
+\catcode`\@=12