.	\" \** - automatically numbered footnote
.nr * 0 1
.ds * \\*([.\\n+*\\*(.]
.	\" FJ - replaces FS after cover sheet
.de FJ
'ce 0
.di
.ev 1
.ll \\n(FLu
.da FF
.br
.if \\n(IF>0 .tm Footnote within footnote is illegal
.nr IF 1
.if !\\n+(XX-1 .FA
.if \\n(MF=0 .if \\n(.$=0 .if \\n*>0 .FP \\*([.\\n*\\*(.]
.if \\n(MF=0 .if \\n(.$>0 .FP \\$1
.
.	\" FK - replaces FE after cover sheet
.de FK
.br
.in 0
.nr IF 0
.di
.ev
.if !\\n(XX-1 .nr dn +\\n(.v
.nr YY -\\n(dn
.if \\n(NX=0 .nr WF 1
.if \\n(dl>\\n(CW .nr WF 1
.if (\\n(nl+\\n(.v)<=(\\n(.p+\\n(YY) .ch FO \\n(YYu
.if (\\n(nl+\\n(.v)>(\\n(.p+\\n(YY) \{\
.	if \\n(nl>(\\n(HM+1.5v) .ch FO \\n(nlu+\\n(.vu
.	if \\n(nl+\\n(FM+1v>\\n(.p .ch FX \\n(.pu-\\n(FMu+2v
.	if \\n(nl<=(\\n(HM+1.5v) .ch FO \\n(HMu+(4u*\\n(.vu)
.\}
.
.	\" FS - begin footnote (on cover)
.de FS
.ev 1
.br
.ll \\n(FLu
.da FG
.if \\n(.$=0 .if \\n*>0 .FP \\*([.\\n*\\*(.]
.if \\n(.$>0 .FP \\$1
.
.	\" FE - end footnote (on cover)
.de FE
.br
.di
.nr FP \\n(dn
.if \\n(1T=0 .nr KG 1
.ev
.
.	\" FA - print line before footnotes
.de FA
.in 0
.if n _________________________
.if t \l'1i'
.br
.
.	\" FP - paragraph for numbered footnotes
.de FP
.sp \\n(PDu/2u
.ti \\n(PIu/2u
\\$1\0\c
.
.	\" FV - call back leftover footnote from previous page
.de FV
.FS
.nf
.ls 1
.FY
.ls
.fi
.FE
.
.	\" FX - divert leftover footnote for next page
.de FX
.if \\n(XX>0 .di FY
.if \\n(XX>0 .ns
.
.	\" XF - actually print footnote
.de XF
.if \\n(nlu+1v>(\\n(.pu-\\n(FMu) .ch FX \\n(nlu+1.9v
.ev 1
.nf
.ls 1
.FF
.rm FF
.nr XX 0 1
.br
.ls
.di
.fi
.ev
.
