%   JPH Tex macros
%		\ss --> \ssq	for german text
%		\' deleted	for french text
%		\^ deleted	ditto
%		\parskip 6pt --> \parskip 6pt plus 1pt	
%
%	the additions are all at the end, except for some extra letterheads.
%	some additional fonts have been defined
%	\SSI, \SSB, \nineptcms, \nineptssq, \sq, \kindabig,
%	\eighteenptbold 
%	\cms is \cm scaled 1000 instead of 1200
%
%\hoffset=1.25in \voffset=1.25in     % for everywhere else
\hoffset=0.30in \voffset=0.25in     % for Zwicky  now !!!
\vbadness=10000
%
% The following statements redefine the basic fonts 
% to be magnified by a factor 1.2
%
\font\bg=cmr10 scaled 1920
\font\SS=cmss10 scaled 1200
\font\SSI=cmssi10 scaled 1200
\font\SSB=cmssbx10 scaled 1200
\font\sixteenptSSMC= cmss17 scaled 1440
\font\cm=cmssqi8 scaled 1200
\font\cms=cmssqi8 scaled 1000
\font\nineptcms=cmssqi8 scaled 1095
\font\ssq=cmssq8 scaled 1000
\font\sq=cmssq8 scaled 1200
\font\nineptssq = cmssq8 scaled 1095
\font\bf=cmbx10 scaled 1200
\font\bb=cmbx10 scaled 1550
\font\eighteenptbold=cmbx10 scaled 1752
\font\tt=cmtt10 scaled 1200
\font\rs=cmr8 scaled 1200
\font\it=cmti10 scaled 1200
\font\sl=cmsl10 scaled 1200
\font\sc=cmcsc10 scaled 1200
\font\superbig=cmss17 scaled 2986
\font\kindabig=cmss17 scaled 1727
\font\tenrm=cmr10 scaled 1200
\font\sevenrm=cmr7 scaled 1200
\font\fiverm=cmr5 scaled 1200
\font\teni=cmmi10 scaled 1200
\font\seveni=cmmi7 scaled 1200
\font\fivei=cmmi5 scaled 1200
\font\tensy=cmsy10 scaled 1200
\font\sevensy=cmsy7 scaled 1200
\font\fivesy=cmsy5 scaled 1200
\font\tenx=cmex10 scaled 1200
\font\tenbf=cmbx10 scaled 1200
\font\sevenbf=cmbx7 scaled 1200
\font\fivebf=cmbx5 scaled 1200
\font\tensl=cmsl10 scaled 1200
\font\tentt=cmtt10 scaled 1200
\font\tenit=cmti10 scaled 1200
\catcode`\@=11
\textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
\def\rm{\fam\z@\tenrm}
\def\dotfill{\cleaders\hbox{$\m@th \mkern1.5mu .\mkern1.5mu$}\hfil}
\def\leaderfill{\leaders\hbox to 1em{\hss. \hss}\hfill}
\textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
\def\mit{\fam\@ne} \def\oldstyle{\fam\@ne\teni}
\textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
\def\cal{\fam\tw@}
\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
\newfam\itfam \def\it{\fam\itfam\tenit} % \it is family 4
\textfont\itfam=\tenit
\newfam\slfam \def\sl{\fam\slfam\tensl} % \sl is family 5
\textfont\slfam=\tensl
\newfam\bffam \def\bf{\fam\bffam\tenbf} % \bf is family 6
\textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf
\scriptscriptfont\bffam=\fivebf
\newfam\ttfam \def\tt{\fam\ttfam\tentt} % \tt is family 7
\textfont\ttfam=\tentt
\catcode`\@=12
%\def\BIG{curfont R}
%
% This ends font redefinitions
%
\rm
\hfuzz=10pt \overfullrule=0pt
\vsize 8.75in
\hsize 6in
\baselineskip=14pt
\def\doublespace{\baselineskip=28pt}
\def\oneandhalfspace{\baselineskip=21pt}
\def\singlespace{\baselineskip=14pt}
\parindent 20pt \parskip 6pt plus 1pt
\def\ni{\noindent}
\def\ctrline#1{\centerline{#1}}
\def\linebreak{\hfil\break}
\def\blankline{\par\vskip \baselineskip}
\def\twocol#1{\halign{##\quad\hfil &##\hfil\cr #1}}
\def\subreak{\blankline}
\def\nl{\hfil\linebreak}
\def\
{\hfil\linebreak}

\newskip\smallskipamount
  \smallskipamount=3pt plus1pt minus1pt
\newskip\medskipamount
   \medskipamount=6pt plus2pt minus2pt
\newskip\bigskipamount
   \bigskipamount=12pt plus4pt minus4pt

\def\ast{\mathchar"2203} \mathcode`*="002A
\def\rslash{\backslash}
\def\oforder{\sim}
\def\larrow{\leftarrow}
\def\rarrow{\rightarrow}
\def\darrow{\Longleftrightarrow}
\def\defeq{\equiv}
\def\lteq{\leq}
\def\gteq{\geq}
\def\neq{\not=}
\def\<={\leq}
\def\>={\geq}
\def\lsls{\ll}
\def\grgr{\gg}
\def\all{\forall}
\def\lub{\sqcup}
\def\relv{\vert}
\def\leftv{\left|} \def\rightv{\right|}
\def\sqr#1#2{{\vcenter{\hrule height.#2pt
   \hbox{\vrule width.#2pt height#1pt \kern#1pt
       \vrule width.#2pt}
   \hrule height.#2pt}}}
\def\square{\mathchoice\sqr34\sqr34\sqr{2.1}3\sqr{1.5}3}
%
%	next two lines screw up french accent marks
%\def\'{\char'177{}}
%\def\^{\char'017{}}
\def\%{\char'045{}}
\def\_{\vrule height 0.8pt depth 0pt width 1em}
\def\leftbrace{\left\{}
\def\rightbrace{\right\}}
\def\sectsign{\S}
\let\Mdollar=\$
\def\${\ifmmode\Mdollar\else$\Mdollar$\fi}
\def\prop{\propto}
% Next 4 lines don't work. ??
%\def\simless{\mathbin{\lower 1pt\hbox
%   {$\spose{\raise 5pt\hbox{$\char'074$}}\char'430$}}}
%\def\simgreat{\mathbin{\lower 1pt\hbox
%   {$\spose{\raise 5pt\hbox{$\char'076$}}\char'430$}}}
% Next 5 lines define \lapprox and \gapprox: "less than or approximately
% equal to" and "greater than or approximately equal to".
\newbox\grsign \setbox\grsign=\hbox{$>$} \newdimen\grdimen \grdimen=\ht\grsign
\newbox\simlessbox \newbox\simgreatbox
\setbox\simgreatbox=\hbox{\raise.5ex\hbox{$>$}\llap
     {\lower.5ex\hbox{$\sim$}}}\ht1=\grdimen\dp1=0pt
\setbox\simlessbox=\hbox{\raise.5ex\hbox{$<$}\llap
     {\lower.5ex\hbox{$\sim$}}}\ht2=\grdimen\dp2=0pt
\def\simgreat{\mathrel{\copy\simgreatbox}}
\def\simless{\mathrel{\copy\simlessbox}}
\def\spose{\rlap}
\def\caret#1{\widehat #1}
\def\hat#1{\widehat #1}
\def\tilde#1{\widetilde #1}
\def\limitswitch{\limits}
\def\dispstyle{\displaystyle}
\def\dot#1{\vbox{\baselineskip=-1pt\lineskip=1pt
     \halign{\hfil ##\hfil\cr.\cr $#1$\cr}}}
\def\ddot#1{\vbox{\baselineskip=-1pt\lineskip=1pt
     \halign{\hfil##\hfil\cr..\cr $#1$\cr}}}

\def\abf{\hbox{\bf a}}\def\bbf{\hbox{\bf b}}\def\cbf{\hbox{\bf c}}
\def\dbf{\hbox{\bf d}}\def\ebf{\hbox{\bf e}}\def\fbf{\hbox{\bf f}}
\def\gbf{\hbox{\bf g}}\def\hbf{\hbox{\bf h}}\def\ibf{\hbox{\bf i}}
\def\jbf{\hbox{\bf j}}\def\kbf{\hbox{\bf k}}\def\lbf{\hbox{\bf l}}
\def\mbf{\hbox{\bf m}}\def\nbf{\hbox{\bf n}}\def\obf{\hbox{\bf o}}
\def\pbf{\hbox{\bf p}}\def\qbf{\hbox{\bf q}}\def\rbf{\hbox{\bf r}}
\def\sbf{\hbox{\bf s}}\def\tbf{\hbox{\bf t}}\def\ubf{\hbox{\bf u}}
\def\vbf{\hbox{\bf v}}\def\wbf{\hbox{\bf w}}\def\xbf{\hbox{\bf x}}
\def\ybf{\hbox{\bf y}}\def\zbf{\hbox{\bf z}}\def\Abf{\hbox{\bf A}}
\def\Bbf{\hbox{\bf B}}\def\Cbf{\hbox{\bf C}}\def\Dbf{\hbox{\bf D}}
\def\Ebf{\hbox{\bf E}}\def\Fbf{\hbox{\bf F}}\def\Gbf{\hbox{\bf G}}
\def\Hbf{\hbox{\bf H}}\def\Ibf{\hbox{\bf I}}\def\Jbf{\hbox{\bf J}}
\def\Kbf{\hbox{\bf K}}\def\Lbf{\hbox{\bf L}}\def\Mbf{\hbox{\bf M}}
\def\Nbf{\hbox{\bf N}}\def\Obf{\hbox{\bf O}}\def\Pbf{\hbox{\bf P}}
\def\Qbf{\hbox{\bf Q}}\def\Rbf{\hbox{\bf R}}\def\Sbf{\hbox{\bf S}}
\def\Tbf{\hbox{\bf T}}\def\Ubf{\hbox{\bf U}}\def\Vbf{\hbox{\bf V}}
\def\Wbf{\hbox{\bf W}}\def\Xbf{\hbox{\bf X}}\def\Ybf{\hbox{\bf Y}}
\def\Zbf{\hbox{\bf Z}} \def\bfone{\hbox{\bf 1}}
\def\unit{\hbox{\bf 1}}
\def\today{\number\day\space \ifcase\month\or
	January\or February\or March\or April\or May\or June\or
	July\or August\or September\or October\or November\or December\fi
	\space\number\year}
\def\draft{\headline={\hbox{\jobname.TEX;} \hfill DRAFT: \today}}
\def\astrolh{\par\vfil\eject \vskip -12pt \vbox{
     \ctrline{\ssq DEPARTMENT OF ASTRONOMY}
     \ctrline{\ssq HARVARD UNIVERSITY}
     \ctrline{\ssq 60 GARDEN STREET}
     \ctrline{\ssq CAMBRIDGE, MASSACHUSETTS 02138}}\par\blankline}

\def\cfalh{\par\vfil\eject \vskip -12pt \moveleft 0.2in\vbox{
     \twocol{{\sixteenptSSMC Center for Astrophysics}\hbox to 1.5in{} &\cr
     {\nineptssq 60 Garden Street} & {\nineptssq Harvard College Observatory} \cr
     {\nineptssq Cambridge, Massachusetts 02138} & {\nineptssq Smithsonian
          Astrophysical Observatory}\cr}}\par\blankline}

\def\boxit#1{\vbox{\hrule\hbox{\vrule\hskip 3pt \vbox{\vskip 3pt \hbox{#1}
     \vskip 3pt}\hskip 3pt\vrule}\hrule}}
\def\listitem{\par \hangindent=50pt\hangafter=1
     $\ $\hbox to 20pt{\hfil $\bullet$ \hfil}}
\def\date#1{\par\hbox to \hsize{\hfil #1\qquad}\par}
\def\heading#1{\par \parindent=0pt \parskip=0pt \par\noindent{${}$#1}
     \vskip 14pt plus 50pt\parindent=20pt\parskip=6pt plus 14pt\par}
\def\header#1{\heading#1}
\def\closing#1{\par \blankline {\parindent=0pt \parskip=0pt #1} \par}
\def\e#1{\eqno{(#1)}}
\def\title#1\endtitle{\par\vfil\eject
     \par\vbox to 1.5in {}{\bf #1}\par\vskip 1.5in\nobreak}
\def\author#1\endauthor{\par{\sc #1}\par\blankline}
\def\institution#1\endinstitution{{\rs #1}}
\def\AND{\par\ctrline{\sc and}\blankline}
%\def\section#1\endsection{\par\vfil\eject{\bf #1}\par\vskip 12pt\nobreak\rm}
\def\subsection#1\endsubsection{\vskip 14pt plus 50pt {\rm #1}\par
     \nobreak\blankline\nobreak\rm}
\def\Received{\par\vskip 36 pt
	\ctrline{\it Received 1987 \vrule height -1 pt width 2.5 in
	depth 1.8 pt .}\par\blankline}
\def\ABSTRACT{\par\vfil\eject\vbox to 1in{} \ctrline{\bf ABSTRACT }
	\par\vskip .5in \rm}

%
%  References
%
\def\REFERENCES{\par\vfil\eject\vbox to 0.5in{}
\ctrline{\bf REFERENCES}\par\vskip .5in \rm}
\def\PUBLICATIONS{\par\vfil\eject\vbox to 1in{}
\ctrline{\bf PUBLICATIONS}\par\vskip .5in \rm}
\def\refitem{\par\noindent\hangindent 20pt}
\def\ref{\par\noindent\hangindent 20pt}
%\def\ref#1{$^{#1}$}
%     To generate reference  Bidule, M. 2000, Ap. J., 200, 20. write
%     \apj{Bidule, M. 2000}{200}{20}
\def\apj#1#2#3{\refitem#1,\ {\it Ap. J.},\ {\bf #2},\ #3.}
\def\apjl#1#2#3{\refitem#1,\ {\it Ap. J. (Letters)},\ {\bf #2},\ #3.}
\def\apjs#1#2#3{\refitem#1,\ {\it Ap. J. Suppl.},\ {\bf #2},\ #3.}
\def\mn#1#2#3{\refitem#1,\ {\it M. N. R. A. S.},\ {\bf #2},\ #3.}
\def\aj#1#2#3{\refitem#1,\ {\it Astr. J.},\ {\bf #2},\ #3.}
\def\aa#1#2#3{\refitem#1,\ {\it Astr. Ap.},\ {\bf #2},\ #3.}
\def\nat#1#2#3{\refitem#1,\ {\it Nature},\ {\bf #2},\ #3.}
\def\refp#1#2#3#4{\refitem#1,\ {\it #2},\ {\bf #3},\ #4.}
\def\refb#1#2#3{\refitem#1,\ {\it #2},\ #3.}

%
%  Figures
%
%\def\FIGURES{\par\vfil\eject
%             \doublespace\section{\ctrline{\bf FIGURE CAPTIONS}}\endsection}
\def\figitem{\par\noindent\hangindent 25pt}
\def\fig#1#2{\figitem \hbox to 25pt{\bf #1.}\hskip0pt{#2}\smallskip}

%
%  Tables
%
\def\sk{\vskip 14pt}
%\def\TABLE#1#2{\par\vfil\eject
%               \doublespace\section{\ctrline{\bf TABLE #1}
%                                    \ctrline{\bf #2}}\endsection
%               \hrule\vskip 1.5pt\hrule\sk\singlespace}
\def\trule{\sk\hrule\sk}
\def\tabend{\trule\smallskip}

%
%  Footnotes
%
%\def\ref#1{$^{#1}$}
\def\fnote#1#2{\baselineskip=20pt\par\noindent\hangindent 10pt
               \hbox to 10pt{\ref#1}\hskip0pt{#2}\smallskip}

%
%  Units
%
\def\inv{$^{-1}$}
\def\hmpc{\rm{\it h}\inv~Mpc}
\def\hmpcc{$h^{-3}$~Mpc$^3$}
\def\mpcic{~Mpc$^{-3}$}
\def\mpcc{~Mpc$^3$}
\def\kms{\rm ~km~s\inv}
\def\min{$^\prime$}
\def\asec{^{\prime\prime}}
%
%  Miscellaneous
%
\def\bull{\vrule height 0.9ex width 0.8ex depth -.1ex }  % square bullet
\def\fois{$\times$\ }
\def\env{$\sim$}
\def\ie{{\it i{.}~e{.}\ }}
\def\hr{$^h$}
\def\mn{$^m$}
\def\etal{{\it et~al{.}\ }}
% \def\deg{$^\circ$}        not used because of conflicts in math mode
\def\dg{^\circ}
\def\no{n\deg\ }
\def\nos{n$^{\rm os\ }$}
\def\fg{Figure\ }
\def\fgs{Figures\ }
\def\leaderfill{\leaders\hbox to 1em{\hss. \hss}\hfill}
\def\rms{r.m.s{.}\ }
\def\inv{$^{-1}$}
\def\bii{b^{\rm II}}
\def\lii{l^{\rm II}}
\def\rp{{\rm)\ }}
\def\pa{paragraph\ }
\def\pg{\rm p{.}\ }
\def\pgs{\rm pp{.}\ }
\def\fp{\rm Fig{.}\ }
\def\fps{\rm Figs{.}\ }
\def\Ho{H$_0$ = 100 {\it h} km s$^{-1}$ Mpc$^{-1}$}
%
%	for memos, folio suppresses pagenumbers
%
\def\folio{\ifnum\pageno=1\nopagenumbers\else\number\pageno\fi}
\def\to#1{To: #1\par}
\def\from#1{From: #1\par}
\def\subject#1{Subject: #1\par \vskip 20pt}
\def\body{\vskip 20pt}
%\def\item#1{\par\vskip 6pt \line{\bf#1\hss}\par}
%
%	Roger Hauck's memo header
%
\def\cfamemo{
   \vskip 30pt
   \line{
    \vbox{
     \vfill
     \hbox{\bf Center for Astrophysics}
     \vfill}
    \hfill
    \vbox{
     \hbox{\ssq Harvard College Observatory}
     \hbox{\ssq Smithsonian Astrophysical Observatory}
     }
    }
   
   \vskip 30pt
   \centerline{\tenrm MEMORANDUM}
   \vskip 12pt}
%
%	image processing lab memohead
%
\def\iplmemo{
   \vskip 30pt
   \line{
    \vbox{
     \vfill
     \hbox{\bb Center for Astrophysics}
     \hbox{   }
     \vfill}
    \hfill
    \vbox{
     \hbox{\ssq Harvard College Observatory}
     \hbox{\ssq Smithsonian Astrophysical Observatory}
     \hbox{\cms Image Processing Laboratory}
     }
    }
   
   \vskip 30pt
   \centerline{\tenrm MEMORANDUM}
   \vskip 12pt}

\def\date#1{\line{\hfil#1}\blankline}
\def\dest{\parindent 0pt\parskip 0pt}
\def\psrm#1{\vskip 1.in\par\noindent\hangindent 25pt 
          \hbox to 25pt{PS: }\hskip0pt{#1}}
\def\vbp5{\vbox to 0.5in{}}

\def\sinc{\par\noindent\hskip4.in{Sincerely,}\blankline\blankline
\par\noindent\hskip4.in{John Huchra}}

%
%     Typewriter style
%
\def\lettertt{\tt\parindent 40pt\parskip 14pt
              \headline={\hfil}\footline={\hfil}}
\def\pstt#1{\vskip 1.in\par\noindent\hangindent 30pt 
          \hbox to 30pt{PS: }\hskip0pt{#1}}
\def\letterrm{\rm\parindent 20pt\parskip 14pt
              \headline={\hfil}\footline={\hfil}}
