lib/me/eqn.me fix

[stewart at psuvax.UUCP]

There seems to be a bug in the me macro package.
If an equation falls at the bottom of a page
and does not fit on the page, it is migrated
to the next page (as it should), but the equation
number is generally in the wrong font or the
wrong point size. Also if you are printing
a heading at the top of each page, the troff
run will abort with a fatal error at the
top of the next page (environments are messed up).
The macro @q in the macro package seems to have a
bug. A corrected copy of the macro is listed
below. Note that two "need" statements were
moved higher in the macro.

	       William W. Hager

.de @q
.nr _Q \\n(dnu
.ev
.sp \\n(esu
.if !"\\n(.z"" \!.ne \\n(_Qu
.ne \\n(_Qu+\n(.Vu
. at C 2
.ie \\n(_d=1 \
.	in (\\n(.lu+\\n($iu-\\n(dlu)/2u
.el .ie \\n(_d=2 \
.	in \\n($iu
.el .ie \\n(_d=3 \
.	in \\n(biu+\\n($iu
.el .if \\n(_d=4 \
.	in 0
.mk _q
.if !"\\*(|p"" \
\{\
.	rs
.	sp (\\n(_Qu-\\n(.vu)/2u
.	tl """\\*(|p"
.	rt \\n(_qu
.\}
.|e
.sp |\\n(_qu+\\n(_Qu
.sp \\n(esu+\\n(.Lv-1v
.rr _q
.rr _Q
..