11638Srgrimes.nr _0 \n(c.
21638Srgrimes.\" Copyright (c) 1988, 1993
31638Srgrimes.\"	The Regents of the University of California.  All rights reserved.
41638Srgrimes.\"
51638Srgrimes.\" Redistribution and use in source and binary forms, with or without
61638Srgrimes.\" modification, are permitted provided that the following conditions
71638Srgrimes.\" are met:
81638Srgrimes.\" 1. Redistributions of source code must retain the above copyright
91638Srgrimes.\"    notice, this list of conditions and the following disclaimer.
101638Srgrimes.\" 2. Redistributions in binary form must reproduce the above copyright
111638Srgrimes.\"    notice, this list of conditions and the following disclaimer in the
121638Srgrimes.\"    documentation and/or other materials provided with the distribution.
131638Srgrimes.\" 3. All advertising materials mentioning features or use of this software
141638Srgrimes.\"    must display the following acknowledgement:
151638Srgrimes.\"	This product includes software developed by the University of
161638Srgrimes.\"	California, Berkeley and its contributors.
171638Srgrimes.\" 4. Neither the name of the University nor the names of its contributors
181638Srgrimes.\"    may be used to endorse or promote products derived from this software
191638Srgrimes.\"    without specific prior written permission.
201638Srgrimes.\"
211638Srgrimes.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
221638Srgrimes.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
231638Srgrimes.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
241638Srgrimes.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
251638Srgrimes.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
261638Srgrimes.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
271638Srgrimes.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
281638Srgrimes.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
291638Srgrimes.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
301638Srgrimes.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
311638Srgrimes.\" SUCH DAMAGE.
321638Srgrimes.\"
331638Srgrimes.\"	@(#)footnote.me	8.1 (Berkeley) 6/5/93
341638Srgrimes.\"
351638Srgrimes.\"	%beginstrip%
361638Srgrimes.\"
371638Srgrimes.de (f			\" *** begin footnote
381638Srgrimes.ec
391638Srgrimes.if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
401638Srgrimes.ie "\\n(.z"" \
411638Srgrimes\{\
421638Srgrimes.	nr _D \\n(dn
431638Srgrimes.	nr _0 1v+\\n(nlu
441638Srgrimes.	ev 2
451638Srgrimes.	da |f
461638Srgrimes.	in 0
471638Srgrimes.	xl \\n($lu-\\n(fuu
481638Srgrimes.	@F \\n(ff
491638Srgrimes.	sz \\n(fp
501638Srgrimes.	vs \\n(.su*\\n($Ru
511638Srgrimes.	if !\\n(?f \
521638Srgrimes\{\
531638Srgrimes.		nr _b +1v	\" allow space for $s
541638Srgrimes.		$s
551638Srgrimes.	\}
561638Srgrimes.	br
571638Srgrimes.	if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
581638Srgrimes\{\
591638Srgrimes.		da\"		\" won't fit on page at all
601638Srgrimes.		bc
611638Srgrimes.		if !\\n(?f \
621638Srgrimes.			rm |f
631638Srgrimes.		da |f
641638Srgrimes.\" next five lines could be dropped if headers had their own environment
651638Srgrimes.		in 0		\" reset everything from .bc
661638Srgrimes.		xl \\n($lu-\\n(fuu
671638Srgrimes.		@F \\n(ff
681638Srgrimes.		sz \\n(fp
691638Srgrimes.		vs \\n(.su*\\n($Ru
701638Srgrimes.		if !\\n(?f \
711638Srgrimes.			$s
721638Srgrimes.		br
731638Srgrimes.	\}
741638Srgrimes.	rr _0
751638Srgrimes.	sp \\n(fsu
761638Srgrimes.	nr ?f 1
771638Srgrimes.	fi
781638Srgrimes.	if !"\\$1"_" \
791638Srgrimes.		ti \\n(fiu
801638Srgrimes.	if \n@>2 .tm	<< (f $f=\\n($f
811638Srgrimes.\}
821638Srgrimes.el \
831638Srgrimes\{\
841638Srgrimes.	ev 2
851638Srgrimes\!.(f \\$1
861638Srgrimes.\}
871638Srgrimes..
881638Srgrimes.de )f			\" *** end footnote
891638Srgrimes.ie "\\n(.z"|f" \
901638Srgrimes\{\
911638Srgrimes.	if \\n* \
921638Srgrimes.		nr $f +1
931638Srgrimes.	ds * \\*[\\n($f\\*]\k*
941638Srgrimes.	rr *
951638Srgrimes.	in 0
961638Srgrimes.	da
971638Srgrimes.	ev
981638Srgrimes.	if \\n(_w<\\n(dl \
991638Srgrimes.		nr _w \\n(dl	\" compute maximum fn width
1001638Srgrimes.	nr _b +\\n(dn
1011638Srgrimes.	ch @f -\\n(_bu
1021638Srgrimes.	if \\n(.p-\\n(_b<=\\n(nl \
1031638Srgrimes.		ch @f \\n(nlu+\n(.Vu
1041638Srgrimes.	nr dn _D
1051638Srgrimes.	rr _D
1061638Srgrimes.\}
1071638Srgrimes.el \
1081638Srgrimes\{\
1091638Srgrimes.	br
1101638Srgrimes\!.)f
1111638Srgrimes.	ev
1121638Srgrimes.\}
1131638Srgrimes..
1141638Srgrimes.if \n(ff<=0 \
1151638Srgrimes.	nr ff 1			\" footnote font: Times Roman
1161638Srgrimes.if \n(fp<=0 \
1171638Srgrimes.	nr fp 8			\" footnote pointsize
1181638Srgrimes.nr c. \n(_0
119