%%
%% This is file `cop_abs.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% cop_abs.doc  (with options: `code')
%% 
%% This is a decommented version of the original source file
%% which is NOT distributed to the public.
%% 
%% *********************************************
%% *    COPERNICUS SOCIETY
%% *     LaTeX Package for producing
%% *     abstracts for various meetings,
%% *     such as EGS, COSPAR, ...
%% *********************************************
%% *  Copyright (c) 1995,1997,1998 Copernicus Society
%% *  Max-Planck-Str. 13
%% *  D-37191 Katlenburg-Lindau, Germany
%% *********************************************
%% *  Author: Patrick W. Daly
%% *          daly@linmpi.mpg.de
%% *********************************************
%%
\def\vers@copabs{1998/01/02 1.5a (PWD)}
%%
% This package works for both the old LaTeX 2.09 and LaTeX2e
\newif\if@TwoE
\@ifundefined{documentclass}{\@TwoEfalse}{\@TwoEtrue}

\if@TwoE\else
  \def\ProvidesPackage#1[#2]{\relax}
  \def\textbf#1{{\bf #1}}
  \def\texttt#1{{\tt #1}}
\fi

\ProvidesPackage{cop_abs}[\vers@copabs]

\newlength{\@abswidth}
\setlength{\@abswidth}{12cm}

\def\@absht{10.5}
\newlength{\@absheight}
\setlength{\@absheight}{\@absht cm}

\setlength{\textwidth}{16cm}
\setlength{\textheight}{22cm}
\setlength{\headheight}{0pt}
\setlength{\headsep}{0pt}
\setlength{\topmargin}{0pt}
\setlength{\oddsidemargin}{0pt}
\newlength{\@gap}
\setlength{\@gap}{\z@}

\newlength{\@semiwidth}
\setlength{\@semiwidth}{\textwidth}
\addtolength{\@semiwidth}{-\@gap}
\setlength{\@semiwidth}{0.5\@semiwidth}


\setlength{\parindent}{0pt}


\pagestyle{empty} \let\pagestyle=\@gobble


\newif\if@absgerman
\def\german{\@absgermantrue}


\if@TwoE
  \AtBeginDocument{\@ifpackageloaded{german}{\german}{}}
\fi


\def\meeting#1{\xdef\@meeting{\expandafter{\uppercase{#1}}}}

\def\meetingplace#1{\gdef\@place{#1}}
\def\@place{(where ??)}

\def\meetingdate#1{\gdef\@mdate{#1}}
\def\@mdate{(when ??)}

\newif\if@general
\newif\if@khb
\newif\if@cospar
\newif\if@egs

\meeting{EGS}\let\@egs@name\@meeting
\meeting{COSPAR}\let\@cospar@name\@meeting
\meeting{U.R.S.I}\let\@ursi@name\@meeting
\meeting{URSI}\let\@ursi@@name\@meeting
\def\@meeting{}


\def\@office{Copernicus Gesellschaft (PASP)}
\def\@tel{91376}
\def\@email{COP@Copernicus.org}
\def\@www{www.copernicus.org/}
\def\@sendinfo{Abstracts to be submitted before the deadline to}

\def\@egs@office{EGS Office}
\def\@egs@tel{1440}
\def\@egs@www{www.copernicus.org/EGS/EGS.html}
\def\@egs@email{EGS@Copernicus.org}
\def\@egs@date{December 15, 1997}

\def\@cospar@office{Copernicus Gesellschaft}
\def\@cospar@tel{91376}
\def\@cospar@www{www.copernicus.org/COSPAR/COSPAR.html}
\def\@cospar@email{COSPAR@Copernicus.org}
\def\@cospar@date{January 9, 1998}

\def\@ursi@office{Copernicus Gesellschaft}
\def\@ursi@tel{91099}
\def\@ursi@www{www.copernicus.org/URSI/URSI.html}
\def\@ursi@email{URSI@Copernicus.org}
\def\@ursi@date{15.\ Mai 1998}


\def\title#1{\gdef\@title{#1}}
\def\@title{(Title missing!)}


\newif\if@mainauthor
\def\mainauthor{\@mainauthortrue\@author}
\def\author{\@mainauthorfalse\@author}
\def\@mainfont#1{\textbf{#1}}
\def\@authfont#1{#1}
\newcounter{authors}
\newcounter{affil}
\newif\ifnewaffil \newaffiltrue
\newif\if@multiaffil \@multiaffilfalse
\def\@authnote#1{\if@multiaffil~(#1)\fi}
\def\@affilnote#1{\if@multiaffil(#1)~\fi}
\def\@authsep{, }
\def\@authand{and}
\def\@affilsep{}
\def\@affilsepx{, }
\def\@authlist{}
\def\@affillist{}
\def\@author{\@ifnextchar [{\@@author}{\@@author[]}}
\def\@@author[#1]#2{\ifnewaffil\addtocounter{affil}{1}%
      \ifnum\value{affil}>1\global\@multiaffiltrue\fi
      \xdef\@thenote{\arabic{affil}}\fi
      \if\relax#1\relax\def\@note{\@thenote}\else\def\@note{#1}%
         \global\@multiaffiltrue\fi
      \newaffilfalse
      \expandafter\def\csname @sep\number\c@authors\endcsname{\@authsep}%
      \addtocounter{authors}{1}%
      \@temptokena=\expandafter{\@authlist}%
      \xdef\@authlist{\the\@temptokena
        \noexpand\csname @sep\number\c@authors\endcsname
        \if@mainauthor\noexpand\@mainfont{#2}\else
           \noexpand\@authfont{#2}\fi\noexpand\@authnote{\@note}}%
      \expandafter\def\csname @sep\number\c@authors\endcsname{ \@authand\ }}
\def\address{\@ifnextchar [{\@address}{\@address[]}}
\def\@address[#1]#2{\newaffiltrue
      \if\relax#1\relax\def\@note{\@thenote}\else\def\@note{#1}
      \global\@multiaffiltrue\fi
      \@temptokena=\expandafter{\@affillist}%
      \xdef\@affillist{\the\@temptokena \@affilsep
       \noexpand\@affilnote{\@note}#2}%
       \def\@affilsep{\@affilsepx}
}
\def\email#1{\gdef\@auth@email{#1}}
\def\fax#1{\gdef\@auth@fax{#1}}
\def\@auth@email{}
\def\@auth@fax{}
\def\@contact{Contact}
\def\@contactline{\if\relax\@auth@email\@auth@fax\relax\else
   \\\if\relax\@auth@email\relax\else\texttt{\@auth@email}%
   \if\relax\@auth@fax\relax\else /\fi\fi
   \if\relax\@auth@fax\relax\else Fax:~\@auth@fax\fi\fi}

\def\corresname#1{\gdef\@corres{#1}}
\def\@corres{}

\def\corresaddress#1{\gdef\@coradd{#1}}
\def\@coradd{}

\def\corresphone#1{\gdef\@corphone{#1}}
\def\@corphone{}

\def\corresfax#1{\gdef\@corfax{#1}}
\def\@corfax{}

\def\correstelex#1{\gdef\@cortlx{#1}}
\def\@cortlx{}

\def\corresemail#1{\gdef\@coremail{#1}}
\def\@coremail{}


\def\event#1{\gdef\@event{#1}}
\def\@event{}


\def\organizer#1{\gdef\@organizer{#1}}
\def\@organizer{}
\let\organiser=\organizer



\def\equipment#1{\gdef\@equip{#1}}
\def\@equip{\if@absgerman keins\else none\fi}


\def\@oralonly{Oral presentation strongly preferred}
\def\@oralposter{Oral or poster presentation, no preference}
\def\@posteronly{Poster presentation strongly preferred}
\def\@video{Video/PC presentation preferred}

\newcounter{prestype}
\def\oralonly{\setcounter{prestype}{0}}
\def\oralposter{\setcounter{prestype}{1}}
\def\posteronly{\setcounter{prestype}{2}}
\def\video{\setcounter{prestype}{3}}


\def\presentation#1{\setcounter{prestype}{99}\gdef\@pres{#1}}
\oralposter

\def\support#1{\gdef\@support{#1}} \def\@support{}

\if@TwoE\else
  \newcommand\AtBeginDocument[1]{\let\@oridocument=\document
      \gdef\document{\@oridocument#1}}
  \newcommand\AtEndDocument[1]{\let\@orienddoc=\enddocument
      \gdef\enddocument{#1\@orienddoc}}
\fi

\newbox\@absbox

\AtBeginDocument{%
\expandafter\def\csname @sep1\endcsname{}
\@generaltrue
\ifx\@meeting\@ursi@name\@khbtrue\@generalfalse\fi
\ifx\@meeting\@ursi@@name\@khbtrue\@generalfalse\fi
\ifx\@meeting\@egs@name\@egstrue\@generalfalse\fi
\ifx\@meeting\@cospar@name\@cospartrue\@generalfalse\fi
\if@khb \@absgermantrue
  \def\@sendinfo{Kurzfassungen sind bis sp\"atestens \@ursi@date\ zu richten an}
  \let\@office\@ursi@office
  \let\@tel\@ursi@tel
  \let\@email\@ursi@email
  \let\@www\@ursi@www
\fi
\if@absgerman
  \def\@authand{und}
  \def\@abstoolong{Kurzfassung ist zu lang:
            maximale H\"ohe ist \@absht\space cm}
  \def\@abstext{Kurzfassung f\"ur}
  \def\@subinfo{Zusatzinformationen}
  \def\@oralonly{m\"undlicher Vortrag gew\"unscht}
  \def\@oralposter{m\"undlich oder Poster m\"oglich}
  \def\@posteronly{Poster Vortrag gew\"unscht}
  \def\@video{Video/PC Vortrag gew\"unscht}
\if@khb\else
  \def\@sendinfo{Kurzfassungen sind zu richten an}
\fi
  \def\@contact{Kontakt}
\fi
\if@cospar
  \def\@sendinfo{Abstracts to be submitted on or before \@cospar@date\ to
      Copernicus Office with copy to appropriate Main Scientific Organizer:}
  \let\@office\@cospar@office
  \let\@tel\@cospar@tel
  \let\@email\@cospar@email
  \let\@www\@cospar@www
\fi
\if@egs
  \def\@sendinfo{Abstracts to be submitted on or before \@egs@date\ to}
  \let\@office\@egs@office
  \let\@tel\@egs@tel
  \let\@email\@egs@email
  \let\@www\@egs@www
\fi
\setbox\@absbox\vbox \bgroup\hsize\@abswidth
\textbf{\boldmath\uppercase\expandafter{\@title}}\\[1ex]
\ifnum\value{authors}=1\let\@authfont=\@mainfont\fi
\@authlist\\\@affillist.\@contactline\vspace{1ex}\para
}

\let\para=\par


\AtEndDocument{\egroup
\if\relax\@meeting\relax
  \typeout{***************************************}
  \typeout{* THE NAME OF THE MEETING IS MISSING!}
  \typeout{* There will be no processing}
  \typeout{***************************************}
\else
\ifdim\ht\@absbox>\@absheight
   \typeout{******************************************}
   \typeout{* \@abstoolong}
   \typeout{******************************************}
   \@tempswatrue
\else \@tempswafalse \fi
\begin{center}
  {\LARGE \textbf{\@meeting\ \@abstext\\ \@place, \@mdate}\\}\vspace{1cm}
   \mbox{\box\@absbox}%
 \if@tempswa
   \\[1em]\fbox{\Large\textbf{\@abstoolong}}\fi
\end{center}\vspace{2em}\@submittal
\fi}


\def\@abstoolong{Abstract is too long: \@absht\space cm max height}
\def\@abstext{Abstract for}

\setlength{\fboxrule}{3pt}\setlength{\fboxsep}{5pt}


\def\@subinfo{Submittal Information}
\long\def\@submittal{%
\textbf{\@subinfo}\\[\medskipamount]
\setcounter{section}{0}
\begin{minipage}[t]{\@semiwidth}
  \begin{submittal}
   \item\@corres
      \if\relax\@coradd\relax\else \\\@coradd\fi
      \if\relax\@corphone\relax\else \\Tel.: \@corphone\fi
      \if\relax\@corfax\relax\else \\Fax.: \@corfax\fi
      \if\relax\@cortlx\relax\else \\Telex: \@cortlx\fi
      \if\relax\@coremail\relax\else \\E-mail: {\tt \@coremail}\fi
  \end{submittal}
\end{minipage}\hfill%\hspace{\@gap}
\begin{minipage}[t]{\@semiwidth}
  \begin{submittal}
\if@general
   \if\relax\@event\relax\else \item\@event\fi
   \if\relax\@organizer\relax\else \item\@organizer\fi
\else
   \item\@event
\if@khb\else
   \item\@organizer
\fi
\fi
   \item\@equip
   \item\ifcase\value{prestype}\@oralonly\or
                                   \@oralposter\or
                                   \@posteronly\or
                                   \@video\else
                                   \@pres\fi
\if@absgerman\else
   \if\relax\@support\relax\else \item\@support\fi
\fi
  \end{submittal}
\end{minipage}
\par\vspace{5mm}%
\textbf{\@sendinfo}\\[\medskipamount]
\begin{minipage}[t]{\@semiwidth}
 \@office\\
 Max-Planck-Str. 13\\
 37191 Katlenburg-Lindau\\
 Germany
\end{minipage}\hfill
\begin{minipage}[t]{\@semiwidth}\flushright
 Tel.: [+49] 5556-\@tel\\
 Fax.: [+49] 5556-4709\\
 Email: \texttt{\@email}\\
 \texttt{http://\@www}
\end{minipage}}



\newenvironment{submittal}%
  {\begin{list}{\stepcounter{section}\arabic{section}.}%
    {\setlength{\labelwidth}{1.5em}
     \setlength{\labelsep}{0pt}
     \setlength{\itemsep}{1pt}
     \setlength{\parsep}{1pt}
     \setlength{\leftmargin}{\labelwidth}
     \renewcommand{\makelabel}[1]{##1\hfill}
     \raggedright
    }%
  }%
  {\end{list}}


\sloppy \frenchspacing

\endinput
%%
%% End of file `cop_abs.sty'.
