% \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}
