% $Header: /u/levy/texts/geomsty/RCS/geomeqns.sty,v 1.6 95/07/01 02:23:17 levy Exp Locker: levy $

% format equation numbers like subsection numbers

\def\@eqnnum{\hbox{\normalshape\bf \theequation.}}

% set equations on left side

\def\equation{$$ % $$ BRACE MATCHING HACK
  \def\object@type{equation}\refstepcounter{equation}}
\def\endequation{\leqno \@eqnnum % $$ BRACE MATCHING HACK
  $$\global\@ignoretrue}

\def\eqnarray{\def\object@type{equation}\stepcounter{equation}%
  \edef\@currentlabel{\theequation}
  \global\@eqnswtrue\global\@eqcnt\z@\tabskip\@centering\let\\=\@eqncr
  $$\halign to\displaywidth\bgroup\@eqnsel\hskip\@centering % $$BRACE MATCHING
    $\displaystyle\tabskip\z@{##}$&\global\@eqcnt\@ne\hfil${}##{}$\hfil
    &\global\@eqcnt\tw@ $\displaystyle\tabskip\z@{##}$\hfil 
     \tabskip\@centering&\llap{##}\tabskip\z@\cr}
\def\endeqnarray{\@@eqncr\egroup
      \global\advance\c@equation\m@ne$$\global\@ignoretrue}
\def\@@eqncr{\let\@tempa\relax 
    \ifcase\@eqcnt \def\@tempa{& & &}\or \def\@tempa{& &} 
      \else \def\@tempa{&}\fi 
     \@tempa 
     \if@eqnsw\hbox to .01pt{}\rlap{\rm \hskip -\displaywidth\@eqnnum}%
     \stepcounter{equation}\fi
     \global\@eqnswtrue\global\@eqcnt\z@\cr}
\def\@eqncr{{\ifnum0=`}\fi\@ifstar{\global\@eqpen\@M
    \@yeqncr}{\global\@eqpen\interdisplaylinepenalty \@yeqncr}%
    \edef\@currentlabel{\theequation }}

% $Log:	geomeqns.sty,v $
%Revision 1.6  95/07/01  02:23:17  levy
%fixed currentlabel inside eqnarray
%
%Revision 1.5  92/07/13  21:54:29  levy
%further cleaned up the environments
%
%Revision 1.4  92/07/13  08:46:04  levy
%theoremSt -> Theorem
%
%Revision 1.3  92/04/02  09:08:39  levy
%*** empty log message ***
%
%Revision 1.2  1992/03/20  19:17:42  levy
%*** empty log message ***
%