%\input fop

\rm

\let\fntaxes=\teni
\let\fntpoint=\teni
\let\fntsmall=\sevenrm
%\def\fntvector{\fam\vefam\tenve}
\let\fntvector=\bf

\let\fv=\fntvector
\let\fp=\fntpoint

\def\vpic#1{{\fv #1}}		%% vectors
\let\vec=\vpic
\def\opic#1{{\fntaxes #1}}	%% axes
\def\tpic#1{{\rm #1}}		%% ordinary text labels
\def\cpic#1{{\rm #1}}		%% chemical labels
\def\ppic#1{{\fp #1}}		%% points

\let\myepsilon=\varepsilon
\let\mypi=\pi
\let\myrho=\varrho
\let\myphi=\varphi
\let\mykappa=\varkappa

\def\subfig#1{#1)}

\def\frc#1#2{%
  \mathchoice{%
    {\textstyle\mathstrut#1\over\textstyle\mathstrut#2}}%
    {{\textstyle\mathstrut#1\over\textstyle\mathstrut#2}}%
    {{\scriptstyle\mathstrut#1\over\scriptstyle\mathstrut#2}}%
    {{\mathstrut#1\over\mathstrut#2}%
  }%
}

