% \filename{bobmacrola.tex} \version{21-nov-1997}
% This is a latex version of the more useful parts of bobmacro.tex
% that don't cause problems or which are unnecessary in LATEX.
% This is not a breakfast cereal.
% [bob= jantzen@ucis.vill.edu]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% INSTALLATION DEPENDENT TEXT CORNER PLACEMENT OF PLAIN TEX OUTPUT:
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% VXRMG9.ICRA.IT MICROVAX(preset margin on laser A4 paper):
% \hoffset=.15truecm \voffset=0pt
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\Message#1{\typeout{#1}} % written when encountered
\def\DMessage#1{\write16{#1}} % written at output stage
% (for floating insertions...)
\def\Typeout#1{\typeout{#1}}
%%%%%% to override the latex pagesetup for drafts (saves paper):
\def\noheaderplainsetup{\typeout{************ using PLAIN TeX page setup.}%
\topmargin=0pt \headheight=0pt \headsep=0pt % kill header stuff
\oddsidemargin=0pt \evensidemargin=0pt % kill left margin stuff
\textheight=8.9truein \textwidth=6.5truein} % PLAIN text dimensions
% if there are no headers but if there are headers use instead:
\def\headerplainsetup{\typeout{************ using PLAIN TeX page dimensions.}%
\topmargin=0pt % no extra topmargin
\advance\voffset by -\headheight % so textpage starts 1in from
\advance\voffset by -\headsep % top of page with header above
\oddsidemargin=0pt \evensidemargin=0pt % kill side margins
\textheight=8.9truein \textwidth=6.5truein} % PLAIN text dimensions
\def\nopagenumbers{\pagestyle{empty}} % kills header and footer
% American format date (month, day, year):
\def\today{\ifcase\month\or
January\or February\or March\or April\or May\or June\or
July\or August\or September\or October\or November\or December\fi
\space\number\day, \number\year}
\let\Date=\today % \date is a Latex command
% Italian format date (giorno, mese, anno)
\def\oggi{\number\day\space \ifcase\month\or
gennaio\or febbraio\or marzio\or aprile\or maggio\or giugno\or
luglio\or agosto\or settembre\or ottobre\or novembre\or dicembre\fi
, \space\number\year}
\let\data=\oggi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% this is for a blankline within a paragraph when \parskip=0pt:
\def\blankline{\par\vskip\baselineskip\noindent}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% see top of p.357 of The TeXbook:
\def\noarrowfill{$\mathsurround=0pt \mathord- \mkern-6mu
\cleaders\hbox{$\mkern-2mu \mathord- \mkern-2mu$}\hfill
\mkern-6mu \mathord-$}
\def\clinefill{\noarrowfill} % center linefill instead of baseline linefill
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newcommand{\be}{\begin{equation}} % for lazy typers
\newcommand{\ee}{\end{equation}}
% This was a mistake, since if one has to re-edit (to remove macros for
% journal submission, for example}, the string "\be" is too frequently used
% in Latex, so global substitutions won't work.
\newcommand{\beq}{\begin{equation}} % for lazy typers
\newcommand{\eeq}{\end{equation}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Redefine the plain tex macro \eqalign:
\makeatletter % make @ like a letter
\def\eqalign#1{\null\,\vcenter{\openup\jot\m@th \let\\=\crcr % more latexlike
\ialign{\strut\hfil$\displaystyle{##}$&$\displaystyle{{}##}$\hfil
\crcr#1\crcr}}\,}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% while we're at it why not a multiple point alignment:
% 1) this one right justifies the first column and left justifies the rest
% (any number), useful for a sequence of equalities with no tabskip;
% add \qquad before & for new equation starting points
% (equivalent to \eqalign for 2 cols):
\def\meqalign#1{\null\,\vcenter{\openup\jot\m@th \let\\=\crcr % more latexlike
\ialign{\strut\hfil$\displaystyle{##}$&&$\displaystyle{{}##}$\hfil
\crcr#1\crcr}}\,}
% 2) this one left/right justifies pairs of columns for individual physical
% columns of aligned equations (equivalent to \eqalign for 2 columns)
\def\imeqalign#1{\null\,\vcenter{\openup\jot\m@th \let\\=\crcr % more latexlike
\ialign{\strut\hfil$\displaystyle{##}$&$\displaystyle{{}##}$\hfil
&&\hfil$\displaystyle{##}$&$\displaystyle{{}##}$\hfil
\crcr#1\crcr}}\,}
% 3) this one centers each column after the first
\def\cmeqalign#1{\null\,\vcenter{\openup\jot\m@th \let\\=\crcr % more latexlike
\ialign{\strut\hfil$\displaystyle{##}$&&\hfil$\displaystyle{{}##}$\hfil
\crcr#1\crcr}}\,}
\makeatother % back to nonletter category
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% for article.sty:
% to have equation numbers like (2.1) instead of (1) as in report.sty;
% override article.sty equation numbering to individual section listing:
\makeatletter
\def\artsectnumbering{%
\@addtoreset{equation}{section} % Makes \section reset 'equation' counter.
\def\theequation{\thesection.\arabic{equation}}}
\makeatother
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% bob's useful definitions:
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\chardef\bslash=`\\ % stolen from manmac.tex for backslash to use in
% typewriter font control sequence symbol:
\def\csb#1{{\tt\bslash #1}} % (without the \bslash in #1)(#1= only letters)
% similar def:
\def\cs#1{{\tt\string #1}} % to print control sequences in TEX documents
% (with the \bslash in #1)(#1= control sequence)
\def\bivec#1{\vbox{\ialign{##\crcr $\leftrightarrow$\crcr\noalign{
\kern-1pt \nointerlineskip}$\hfil\displaystyle{#1}\hfil$\crcr}}}
% This puts a double arrow over a symbol.
\let\bar=\overline
% This puts a \sim under a symbol:
\def\ut#1{\mathop{\vtop{\ialign{##\crcr
$\hfil\displaystyle{#1}\hfil$\crcr\noalign
{\kern1pt\nointerlineskip}\hbox{$\hfil\sim\hfil$}\crcr
\noalign{\kern1pt}}}}}
\def\undersim{\ut}
% This is the model for putting a symbol under another symbol
% without shrinkage:
\def\undersymbol#1#2{\mathop{\vtop{\ialign{##\crcr
$\hfil\displaystyle{#2}\hfil$\crcr\noalign
{\kern1pt\nointerlineskip}\hbox{$\hfil#1\hfil$}\crcr
\noalign{\kern1pt}}}}}
\def\oversymbol#1#2{\vbox{\ialign{##\crcr \hfil$#1$\hfil\crcr
\noalign{\kern1pt\nointerlineskip}%
\hbox{$\hfil\displaystyle#2\hfil$}\crcr}}}
\def\Overeq#1{\oversymbol{\scriptstyle\kern2pt =}{#1}}
\def\overeq#1{\oversymbol{\scriptstyle\kern.5pt =}{#1}}
% crude substitute for some symbols from amssymbols.sty:
\def\lesssim{\undersymbol{\sim}{<}} \def\gtrsim{\undersymbol{\sim}{>}}
% the right way to do oversymbols (thanks to barbara beeton of the ams):
% use \mathop with \limits from the amstex macros:
\makeatletter
\newdimen\ex@ \ex@=.2326ex \def\tw@{2}
\def\dddot#1{{\mathop{#1}\limits^{\vbox to-1.4\ex@{\kern-\tw@\ex@
\hbox{\rm...}\vss}}}}
\def\ddddot#1{{\mathop{#1}\limits^{\vbox to-1.4\ex@{\kern-\tw@\ex@
\hbox{\rm....}\vss}}}}
\makeatother
\def\sub#1{_{\hbox{$#1$}}} % subscripts without shrinkage
% Capital letters hardly look like subscripts, so must be lowered:
\def\Sub#1{\hbox{\lower 2pt\hbox{${}_{#1}$}}}
% This is for contraction of a vector against a covariant tensor in
% index free notation:
\def\leftcontract{\mathop{\hbox{\vrule height0.5pt width6pt \vrule width0.5pt
height6pt}}}
\def\rightcontract{\mathop{\hbox{\vrule width0.5pt height6pt%
\vrule height0.5pt width6pt}}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% These are definitions for textstyle fractions in display mode:
\def\half{{\textstyle {1\over2}}}
\def\fraction#1#2{{\textstyle{#1\over#2}}}
% \frac{#1}{#2} in latex gives displaystyle?
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% These are roman abbreviations for math mode:
\def\Tr{\mathop{\rm Tr}\nolimits} \def\diag{\mathop{\rm diag}\nolimits}
\def\sgn{\mathop{\rm sgn}\nolimits}
\def\ad{\mathop{\rm ad}\nolimits} \def\Ad{\mathop{\rm Ad}\nolimits}
\def\aut{\mathop{\it aut}\nolimits} \def\Aut{\mathop{\rm Aut}\nolimits}
\def\SAut{\mathop{\rm SAut}\nolimits}
% \span is a TeX primitive so:
\def\Span{\mathop{\rm span}\nolimits} \def\Flow{\mathop{\rm Flow}\nolimits}
\def\rank{\mathop{\rm rank}\nolimits} \def\ker{\mathop{\rm ker}\nolimits}
\def\csch{\mathop{\rm csch}\nolimits} \def\sech{\mathop{\rm sech}\nolimits}
\def\tanh{\mathop{\rm tanh}\nolimits}
\def\grad{\mathop{\rm grad}\nolimits} \def\del{\nabla}
\def\div{\mathop{\rm div}\nolimits} \def\curl{\mathop{\rm curl}\nolimits}
\def\Lap{\mathop{\Delta}\nolimits} % Laplacian
\def\Scurl{\mathop{\rm Scurl}\nolimits} % symmetrized curl of 2-tensors.
% the relativistic d'Alembertian operator:
\def\dal{\mathop{\rlap{\hbox{$\sqcap$}}\sqcup}\nolimits} \let\square=\dal
\def\flow{\mathop{\rm Flow}\nolimits}
\def\SYM{\mathop{\rm SYM}\nolimits} \def\ALT{\mathop{\rm ALT}\nolimits}
\def\Riemann{\mathop{\rm RIEM}\nolimits} % Riemann tensor
\def\Ricci{\mathop{\rm RICCI}\nolimits} % Ricci tensor
\def\Einstein{\mathop{\rm EIN}\nolimits} % Einstein tensor
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% sub/super scripts:
\def\one{{}^{(1)}\kern-1pt} \def\two{{}^{(2)}\kern-1pt}
\def\three{{}^{(3)}\kern-1pt} \def\four{{}^{(4)}\kern-1pt}
\def\dual{{}^\ast\kern-1.5pt} \def\cov{{}^\flat} \def\con{{}^\sharp}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% BOLDFACE Definitions:
% From the TeXbook, a poor man's boldface in math mode:
\def\pmb#1{\setbox0=\hbox{$#1$}%
\kern-.025em\copy0\kern-\wd0
\kern.05em\copy0\kern-\wd0
\kern-.025em\raise.0433em\box0}
% and reducing by a factor of .7 for \scriptstyle:
\def\pmbs#1{\setbox0=\hbox{$\scriptstyle #1$}%
\kern-.0175em\copy0\kern-\wd0
\kern.035em\copy0\kern-\wd0
\kern-.0175em\raise.0303em\box0}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% selected boldface greek:
\def\bfalpha{\pmb{\alpha}} \def\bfsalpha{\pmbs{\alpha}}
\def\bfbeta{\pmb{\beta}} \def\bfsbeta{\pmbs{\beta}}
\def\bfgamma{\pmb{\gamma}} \def\bfdelta{\pmb{\delta}}
\def\bfkappa{\pmb{\kappa}} \def\bfskappa{\pmbs{\kappa}}
\def\bfomega{\pmb{\omega}} \def\bfrho{\pmb{\rho}}
\def\bfsigma{\pmb{\sigma}} \def\bfpi{\pmb{\pi}}
\def\bfOmega{\pmb{\Omega}} \def\bfTheta{\pmb{\Theta}}
\def\bfnu{\pmb{\nu}} \def\bfphi{\pmb{\phi}}
\def\bflambda{\pmb{\lambda}}\def\bfxi{\pmb{\xi}}
\def\bfpsi{\pmb{\psi}}
\def\bfvartheta{\pmb{\vartheta}}
%
% wolfgang.ratzka@rphs1.physik.uni-regensburg.de "Wolfgang Ratzka" 27-AUG-1992
\font\bgreek=cmmib10 % bold symbols at 10 pt (see p430 of TeXbook for font)
\def\balpha{\hbox{\bgreek\char'013}} % gives a bold alpha, etc.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% miscellaneous boldface (add your own):
\def\bfone{\hbox{\bf 1}} \def\bfsone{\pmbs{1}}
\def\bfA{\hbox{\bf A}} \def\bfB{\hbox{\bf B}}
\def\bfe{\hbox{\bf e}} \def\bfg{\hbox{\bf g}}
\def\bfH{\hbox{\bf H}} \def\bfI{\hbox{\bf I}}
\def\bfK{\hbox{\bf K}} \def\bfk{\hbox{\bf k}}
\def\bfn{\hbox{\bf n}} \def\bfS{\hbox{\bf S}}
\def\bfw{\hbox{\bf w}} \def\bfR{\hbox{\bf R}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Italic Greek Capitals:
\def\Gammait{{\mit\Gamma}}
\def\Deltait{{\mit\Delta}}
\def\Thetait{{\mit\Theta}}
\def\Lambdait{{\mit\Lambda}}
\def\Xiit{{\mit\Xi}}
\def\Piit{{\mit\Pi}}
\def\Sigmait{{\mit\Sigma}}
\def\Upsilonit{{\mit\Upsilon}}
\def\Phiit{{\mit\Phi}}
\def\Psiit{{\mit\Psi}}
\def\Omegait{{\mit\Omega}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Script Capital Macros:
\def\Ascr{{\cal A}} \def\Bscr{{\cal B}} \def\Cscr{{\cal C}} \def\Dscr{{\cal D}}
\def\Escr{{\cal E}} \def\Fscr{{\cal F}} \def\Gscr{{\cal G}} \def\Hscr{{\cal H}}
\def\Iscr{{\cal I}} \def\Jscr{{\cal J}} \def\Kscr{{\cal K}} \def\Lscr{{\cal L}}
\def\Mscr{{\cal M}} \def\Nscr{{\cal N}} \def\Oscr{{\cal O}} \def\Pscr{{\cal P}}
\def\Qscr{{\cal Q}} \def\Rscr{{\cal R}} \def\Sscr{{\cal S}} \def\Tscr{{\cal T}}
\def\Uscr{{\cal U}} \def\Vscr{{\cal V}} \def\Wscr{{\cal W}} \def\Xscr{{\cal X}}
\def\Yscr{{\cal Y}} \def\Zscr{{\cal Z}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Miscellaneous:
%This is the symbol used for the space of vector fields on a manifold:
\def\xc{\hbox{\rlap{\hskip 1.5pt\raise .75pt\hbox{--}}$\Xscr$}}
% These are notsogood slashed symbols for divergences and variational
% derivatives in a frame:
\def\partialslash{\rlap{\hbox{/}}\partial}
\def\deltaslash{\rlap{\hbox{/}}\delta}
\def\ketl{\langle} \def\ketr{\rangle}
\def\larrow{\leftarrow} \def\rarrow{\rightarrow} \def\relv{\bigm|}
\def\Lie{\hbox{\it\char'44}} \def\Lied#1{\Lie_{\hbox{$#1$}}\,}
\def\sterling{\hbox{\it\char'44}}
\def\twov#1#2{\pmatrix{#1\cr#2\cr}} %\pmatrix is in lplain.tex
\def\threev#1#2#3{\pmatrix{#1\cr#2\cr#3\cr}}
%\newcommand{\twov}[2]{\left(\begin{array}{c} #1 \\ #2 \end{array}\right)}
%\newcommand{\threev}[3]{\left(\begin{array}{c} #1 \\ #2 \\
% #3\end{array}\right)}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% some journal abbreviations (mostly physics related):
\def\journalfont{\it} % this allows redefinition of the font later
\def\jou#1{{\journalfont #1\ }}
\def\joudef#1#2{\def #1{\jou{\ignorespaces #2}}}
\joudef{\aaa}{ Astron.\ Astrophys.}
\joudef{\aip}{ Adv.\ Phys.}
\joudef{\am}{ Ann.\ Math.}
\joudef{\ap}{ Ann.\ Phys.\ (N.Y.)}
\joudef{\aop}{ Ann.\ Phys.\ (N.Y.)}
\joudef{\apj}{ Astrophys.\ J.}
\joudef{\cjp}{ Can.\ J.\ Phys.}
\joudef{\cmp}{ Commun.\ Math.\ Phys.}
\joudef{\cqg}{ Class.\ Quantum Grav.}
\joudef{\grg}{ Gen.\ Relativ.\ Grav.}
\joudef{\ijtp}{ Int.\ J.\ Theor.\ Phys.}
\joudef{\jmp}{ J.\ Math.\ Phys.}
\joudef{\jpamg}{ J.\ Phys.\ A: Math.\ Gen.}
\joudef{\mnras}{ Mon.\ Not.\ R.\ Ast.\ Soc.}
\joudef{\nat}{ Nature}
\joudef{\ncim}{ Nuovo Cim.}
\joudef{\nucp}{ Nuc.\ Phys.}
\joudef{\ncb}{ Il Nuovo Cimento ``B}
\joudef{\pl}{ Phys.\ Lett.}
\joudef{\pr}{ Phys.\ Rev.}
\joudef{\prep}{ Phys.\ Rep.}
\joudef{\prl}{ Phys.\ Rev.\ Lett.}
\joudef{\ptp}{ Prog.\ Theor.\ Phys.}
\joudef\rmp{ Rev.\ Mod.\ Phys.}
\joudef\spj{ Sov.\ Phys.\ JETP}
%%%%% BETTER TO USE CAPTITAL LETTERS (STANDARD USAGE):
\joudef{\AAA}{ Astron.\ Astrophys.}
\joudef{\AIP}{ Adv.\ Phys.}
\joudef{\AM}{ Ann.\ Math.}
\joudef{\AP}{ Ann.\ Phys.\ (N.Y.)}
\joudef{\AOP}{ Ann.\ Phys.\ (N.Y.)}
\joudef{\APJ}{ Astrophys.\ J.}
\joudef{\CJP}{ Can.\ J.\ Phys.}
\joudef{\CMP}{ Commun.\ Math.\ Phys.}
\joudef{\CQG}{ Class.\ Quantum Grav.}
\joudef{\GRG}{ Gen.\ Relativ.\ Grav.}
\joudef{\IJMP}{ Int.\ J.\ Mod.\ Phys.}
\joudef{\IJTP}{ Int.\ J.\ Theor.\ Phys.}
\joudef{\JKPS}{ J.\ Korean.\ Phys.\ Soc.}
\joudef{\JMP}{ J.\ Math.\ Phys.}
\joudef{\JPAMG}{ J.\ Phys.\ A: Math.\ Gen.}
\joudef{\MNRAS}{ Mon.\ Not.\ R.\ Ast.\ Soc.}
\joudef{\NAT}{ Nature}
\joudef{\NCIM}{ Nuovo Cim.}
\joudef{\NUCP}{ Nuc.\ Phys.}
\joudef{\NCB}{ Il Nuovo Cimento ``B}
\joudef{\PL}{ Phys.\ Lett.}
\joudef{\PR}{ Phys.\ Rev.}
\joudef{\PREP}{ Phys.\ Rep.}
\joudef{\PRL}{ Phys.\ Rev.\ Lett.}
\joudef{\PTP}{ Prog.\ Theor.\ Phys.}
\joudef\RMP{ Rev.\ Mod.\ Phys.}
\joudef\SPJ{ Sov.\ Phys.\ JETP}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\vol#1{{\bf #1}} \def\book#1{{\it #1\/}} \def\art#1{{\it #1\/}}
\def\journal#1{{\it #1\/}} \def\pub(#1){(#1)}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\begincomment#1\endcomment{} % for short comments; long ones use up memory
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% for inputting style files not in the inputs subdirectory:
\def\inputstyle#1{\typeout{Loading the style file #1.}
\makeatletter\input{#1}\makeatother}