% This is a LaTeX style file to prepare proposals
% [David Cabezas version] [LAEFF-INTA 3 July 2008]
% Based on IRAM proposal.sty

% Modifications to the standard LaTeX styles
\textheight 290mm
\textwidth 178mm
\oddsidemargin -8mm
\evensidemargin -8mm
\marginparwidth 50pt
\topmargin -22mm
\brokenpenalty=10000
\sloppy
%
% Some commands taken from A&A and elsewhere...
%
\newcommand{\msun}{\mbox{M$_\odot$}}
\newcommand{\sun}{\odot}
\newcommand{\kms}{\mbox{km~s$^{-1}$}}
\newcommand{\micron}{\mbox{$\mu$m}}
\newcommand{\twelveco}{\mbox{$^{12}$CO}} 
\newcommand{\thirteenco}{\mbox{$^{13}$CO}}
\newcommand{\htwo}{\mbox{H$_2$}}
\newcommand{\htwoo}{\mbox{H$_2$O}}
\newcommand{\htwos}{\mbox{H$_2$S}}
\newcommand{\hcoplus}{\mbox{HCO$^+$}}
\newcommand{\sotwo}{\mbox{SO$_2$}}
\newcommand{\etal}{{\it et~al.\/}}
\pagestyle{headings}
%
% Table of contents : redefine box size for numbers (default is too small)
\def\l@subsection{\@dottedtocline{2}{1.5em}{4.3em}}
\def\l@subsubsection{\@dottedtocline{3}{3.8em}{6.2em}}
\def\l@paragraph{\@dottedtocline{4}{7.0em}{8.1em}}
\def\l@subparagraph{\@dottedtocline{5}{10em}{10em}}
%
% \list parameters have been adjusted in the `thebibliography'
% environment to the match A&A layout of References.
\def\thebibliography#1{\section*{References\markboth
 {REFERENCES}{REFERENCES}}\list
% The \arabic{enumi} command has been removed because we don't use
% numbered citations in astronomical journals.
 {}{\setlength\labelwidth{1.4em}\leftmargin\labelwidth
 \setlength\parsep{0pt}\setlength\itemsep{0pt}
 \setlength{\itemindent}{-\leftmargin}
 \usecounter{enumi}}
 \def\newblock{\hskip .11em plus .33em minus -.07em}
 \sloppy
 \sfcode`\.=1000\relax}
\let\endthebibliography=\endlist
%
%\newenvironment{captions}
\def \captions    {\newcounter{fign}\section*{Figure Captions}
	\begin{list}{\bf Fig. \Arabic{fign}.}
	{\usecounter{fign}\setlength{\leftmargin}{0mm}
	\setlength{\itemindent}{0mm}}
	\small}
\def \endcaptions    {\end{list}\normalsize}
%
% Redefine \@cite so no square brackets are output.
% Redefine \@biblabel so the label is not output in the bibliography.
\def\@cite#1#2{{#1\if@tempswa , #2\fi}}
\def\@biblabel#1{}
% \vx reserves a fixed vertical space #1
    \def \vx#1{\rule[-#1]{0mm}{#1}}
% no page headings or numbers whatsoever
    \pagestyle{empty}
%
% Specific commands
%
% \blank will produce the proposal form.
%
\newif\if@noblank\@noblanktrue \def \blank{\@noblankfalse}
%
\def\ful@l{~\raisebox{1mm}{\circle*{3.5}}}
\def\chec@koff{~\raisebox{1mm}{\circle{3.5}}}
\def\chec@kon{\if@noblank\ful@l\else\chec@koff\fi}
\def\chec@k#1{#1\chec@kon\else\chec@koff\fi}
\def\nochec@k#1{#1\chec@koff\else\chec@kon\fi}
\newif\if@pico\@picotrue
\def\picoveleta{\@picotrue}\def\plateaudebure{\@picofalse}
% Proposal Type
\newif\if@typecontinuum \@typecontinuumfalse\def\typecontinuum{\@typecontinuumtrue}
\newif\if@typepolarimetry \@typepolarimetryfalse\def\typepolarimetry{\@typepolarimetrytrue}
\newif\if@typespectroscopy \@typespectroscopyfalse\def\typespectroscopy{\@typespectroscopytrue}
% Antennas
\newif\if@dssfiftyfour \@dssfiftyfourfalse\def\dssfiftyfour{\@dssfiftyfourtrue}
\newif\if@dssfiftyfive \@dssfiftyfivefalse\def\dssfiftyfive{\@dssfiftyfivetrue}
\newif\if@dsssixtythree \@dsssixtythreefalse\def\dsssixtythree{\@dsssixtythreetrue}
% Receivers
\newif\if@kband \@kbandfalse\def\kband{\@kbandtrue}
\newif\if@kaband \@kabandfalse\def\kaband{\@kabandtrue}
\newif\if@qband \@qbandfalse\def\qband{\@qbandtrue}
\newif\if@sband \@sbandfalse\def\sband{\@sbandtrue}
\newif\if@xband \@xbandfalse\def\xband{\@xbandtrue}
\newif\if@lband \@lbandfalse\def\lband{\@lbandtrue}
% Observing mode
\newif\if@modeposition \@modepositionfalse\def\modeposition{\@modepositiontrue}
\newif\if@modefrequency \@modefrequencyfalse\def\modefrequency{\@modefrequencytrue}
\newif\if@modepowerscans \@modepowerscansfalse\def\modepowerscans{\@modepowerscanstrue}

% Backends and bandwidths receiver
\newif\if@spbtwomhz \@spbtwomhzfalse\def\spbtwomhz{\@spbtwomhztrue}
\newif\if@spbfourmhz \@spbfourmhzfalse\def\spbfourmhz{\@spbfourmhztrue}
\newif\if@spbeightmhz \@spbeightmhzfalse\def\spbeightmhz{\@spbeightmhztrue}
\newif\if@spbsixteenmhz \@spbsixteenmhzfalse\def\spbsixteenmhz{\@spbsixteenmhztrue}
\newif\if@seventymhz \@seventymhzfalse\def\seventymhz{\@seventymhztrue}
\newif\if@hundredfiftymhz \@hundredfiftymhzfalse\def\hundredfiftymhz{\@hundredfiftymhztrue}
\newif\if@fivehundredmhz \@fivehundredmhzfalse\def\fivehundredmhz{\@fivehundredmhztrue}
\newif\if@sixtyfourmhz \@sixtyfourmhzfalse\def\sixtyfourmhz{\@sixtyfourmhztrue}
\newif\if@sixteenmhz \@sixteenmhzfalse\def\sixteenmhz{\@sixteenmhztrue}


\def\observingmode#1{\gdef\@observingmode{#1}}
%
% Author and investigators information
%
\newif\if@pifirstname \@pifirstnamefalse
\newif\if@apifirstname \@apifirstnamefalse
\newif\if@pinote \@pinotefalse
\def\pinote#1{\@pinotetrue\gdef\@pinote{#1}}\def\@pinote{}

\def\pifirstname#1{\@pifirstnametrue\gdef\@pifirstname{#1}}
\def\pilastname#1{\gdef\@pilastname{#1}}
\def\piinstitute#1{\gdef\@piinstitute{#1}}
\def\pistreetandnumber#1{\gdef\@pistreetandnumber{#1}}
\def\pizipandcity#1{\gdef\@pizipandcity{#1}}
\def\picountry#1{\gdef\@picountry{#1}}
\def\piphone#1{\gdef\@piphone{#1}}
\def\pifax#1{\gdef\@pifax{#1}}
\def\piemail#1{\gdef\@piemail{#1}}

\def\apifirstname#1{\@apifirstnametrue\gdef\@apifirstname{#1}}
\def\apilastname#1{\gdef\@apilastname{#1}}
\def\apiinstitute#1{\gdef\@apiinstitute{#1}}
\def\apistreetandnumber#1{\gdef\@apistreetandnumber{#1}}
\def\apizipandcity#1{\gdef\@apizipandcity{#1}}
\def\apicountry#1{\gdef\@apicountry{#1}}
\def\apiphone#1{\gdef\@apiphone{#1}}
\def\apifax#1{\gdef\@apifax{#1}}
\def\apiemail#1{\gdef\@apiemail{#1}}

\def\bpifirstname#1{\gdef\@bpifirstname{#1}}
\def\bpilastname#1{\gdef\@bpilastname{#1}}
\def\bpiinstitute#1{\gdef\@bpiinstitute{#1}}
\def\bpistreetandnumber#1{\gdef\@bpistreetandnumber{#1}}
\def\bpizipandcity#1{\gdef\@bpizipandcity{#1}}
\def\bpicountry#1{\gdef\@bpicountry{#1}}
\def\bpiphone#1{\gdef\@bpiphone{#1}}
\def\bpifax#1{\gdef\@bpifax{#1}}
\def\bpiemail#1{\gdef\@bpiemail{#1}}

\def\appdef#1#2{\@ifxundefined#1{\toks@{}}{\toks@\expandafter{#1}}
 \toks@ii{#2}\edef#1{\the\toks@\the\toks@ii}}
\toksdef\toks@ii=\tw@ 
\long\def\@ifxundefined#1{\@ifx{\undefined#1}}
\def\@boolean#1#2{ 
  \long\def#1{#2 \expandafter\boolean@true \else \expandafter\boolean@false \fi }}
\def\@boole@def#1#{\@boolean{#1}} \@boole@def\@ifx#1{\ifx#1}
\long\def\boolean@true#1#2{#1}
\long\def\boolean@false#1#2{#2} 

\global\let\@coauthor\@empty
\global\let\coauthor\relax
\def\coauthor#1#2#3{\appdef\@coauthor{#1 (#2 -- #3); }}
%
% end section "author" -------------------------
%
\def\others#1{\gdef\@others{#1}}
\def\sourcelist#1{\gdef\@sourcelist{#1}}
\def\epoch#1{\gdef\@epoch{#1}}
\def\techsourcelist#1{\gdef\@techsourcelist{#1}}
\def\extendedsourcelist#1{\gdef\@extendedsourcelist{#1}}
\def\abstract#1{\gdef\@abstract{#1}}
\newif\if@resubmit \@resubmitfalse
\def\resubmit#1{\@resubmittrue\gdef\@resubm\typecontinuum
\typepolarimetry
\typespectroscopyitn{#1}}
\newif\if@continue \@continuefalse
\def\continue#1{\@continuetrue\gdef\@continuen{#1}}
%
% Define hours
%
\def\@hours{}
\def\hours#1{\gdef\@hours{#1}}
% Define WVSR number and channels
\def\@numberofsixtyfourmhz{}
\def\numberofsixtyfourmhz#1{\gdef\@numberofsixtyfourmhz{#1}}
\def\@channelsofsixtyfourmhz{}
\def\channelsofsixtyfourmhz#1{\gdef\@channelsofsixtyfourmhz{#1}}

\def\@numberofsixteenmhz{}
\def\numberofsixteenmhz#1{\gdef\@numberofsixteenmhz{#1}}
\def\@channelofsixteenmhz{}
\def\channelofsixteenmhz#1{\gdef\@channelofsixteenmhz{#1}}
%
% Define title and authors format (\frontpage)
%
\def\frontpage{ \if@pico \picofront \else \pdbifront   \fi \normalsize}
\def\warning#1  { \if@pico \mbox{}  \else #1 \fi} 
%
% Pico Veleta first page
%
\def\picofront {
\small
\setlength{\unitlength}{1mm}
\noindent\begin{picture}(185,275)(4,0)
%

\put(0,279){\makebox(0,0)[tl]{\parbox[t]{100mm}
{ 
\huge \bf NASA-JPL
}}} 
\put(0,269){\large\bf Deep Space Network}
\put(0,264){\it http://dsnra.jpl.nasa.gov/}


%
\put(135,279){\makebox(0,0)[tl]{\parbox[t]{100mm}
{ 
\huge \bf LAEFF-INTA
}}} 
\put(135,269){\normalsize\bf Radioastronomy Division}
\put(135,264){\it http://laeff.inta.es/radio/}
%
\put(41,258){\makebox(0,0)[tl]{\parbox[t]{100mm}
{ 
\large\bf Madrid Deep Space Communication Complex
}}} 
%
\put(20,249){\makebox(0,0)[tl]{\parbox[t]{150mm}
{ 
\Large \bf Proposal for Host Country Radioastronomy at MDSCC
}}} 
%
% Title box:
\thicklines\put(0,225){\framebox(183,18){}}
\thinlines
\put(3,238){\bf TITLE} 
\if@noblank
\put(92,235){\makebox(0,0){\parbox[t]{170mm}
{\begin{center}\large\bf\@title\end{center}}}}
\fi
%

% Abstract box:
\thicklines\put(0,176){\framebox(183,47){}}
\thinlines
\put(3,218){\bf ABSTRACT}
\if@noblank
\put(7,216){\makebox(0,0)[tl]{\parbox[t]{170mm}{\@abstract}}}
\fi
% Hours requested
\put(135,163.5){{\bf Hours} requested:}
\thicklines
\if@noblank\put(167,162){\framebox(16,5){\bf \@hours} }
\else\put(26,146){\framebox(16,5){} }
\fi

% Proposal Type
\put(0,170.5)   {\normalsize\bf Proposal type:} 

\put(40,170.5)  {\,\chec@k{\if@typespectroscopy}Spectroscopy}
\put(70,170.5)  {\,\chec@k{\if@typepolarimetry}Polarimetry}
\put(100,170.5)  {\,\chec@k{\if@typecontinuum}Continuum}


% Observing mode
\put(135,170){\normalsize\bf Observing mode:}
%\put(145,170.5)  {\,\chec@k{\if@modefrequency}FSW}
%\put(160,170.5)  {\,\chec@k{\if@modeposition}PSW}
%\put(170,170.5)  {\,\chec@k{\if@modepowerscans}TP}
%\put(0,168){\line(1,0){185}} 

\thicklines
\if@noblank\put(171,169){\framebox(12,5){\bf \@observingmode} }
\else\put(26,146){\framebox(16,5){} }
\fi

%\if@noblank\put(173,173){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@observingmode}}} \fi
 

%\put(0,159){\line(1,0){185}} 
%
% Antennas
%
\put(0,163.5){\normalsize\bf Antenna:}
\put(40,163.5)  {\,\chec@k{\if@dssfiftyfour}DSS-54}
\put(70,163.5)  {\,\chec@k{\if@dssfiftyfive}DSS-55}
\put(100,163.5)  {\,\chec@k{\if@dsssixtythree}DSS-63}

\put(0,160){\line(1,0){185}} 
%
% Bands
%
\put(0,155.5)   {\normalsize\bf Receivers:} 
\put(40,155.5)  {\,\chec@k{\if@kband}K (18 - 26 GHz)}
\put(90,155.5)  {\,\chec@k{\if@kaband}Ka (32.05 GHz)}
\put(145,155.5)  {\,\chec@k{\if@qband}Q (38 - 50 GHz)}
\put(40,148.5)  {\,\chec@k{\if@sband}S (2.2 GHz)}
\put(90,148.5)  {\,\chec@k{\if@xband}X (8.4 GHz)}
\put(145,148.5)  {\,\chec@k{\if@lband}L (1.6 GHz)}

\put(0,145){\line(1,0){185}} 




%
% Backends and bandwidths
%
\put(0,140){\normalsize\bf Backends and bandwidths:}
%
\put(0,134.5){\normalsize\bf VC + SPB500:}
\put(40,134.5)  {\,\chec@k{\if@spbtwomhz}2MHz}
\put(60,134.5)  {\,\chec@k{\if@spbfourmhz}4MHz}
\put(80,134.5)  {\,\chec@k{\if@spbeightmhz}8MHz}
\put(100,134.5)  {\,\chec@k{\if@spbsixteenmhz}16MHz}
%
\put(0,127.5){\normalsize\bf CGM1000 + SPB500:}
\put(0,122.5)  {\,\chec@k{\if@seventymhz}70MHz ( 182.29 kHz channel)}
\put(60,122.5)  {\,\chec@k{\if@hundredfiftymhz}150MHz ( 146.48 kHz channel)}
\put(120,122.5)  {\,\chec@k{\if@fivehundredmhz}500MHz ( 488.28 kHz channel)}
%
\put(0,113.5){\normalsize\bf WVSR:}
\put(40,114.5)  {\,\chec@k{\if@sixtyfourmhz}64MHz \ \ \ \ How many (1 or 2)?:}
\put(103,114.5){\normalsize Number of channels:}

\if@noblank\put(95,113.5){\framebox(5,4.7){\bf \@numberofsixtyfourmhz} }
\else\put(95,113.5){\framebox(5,4.7){} }
\fi

\if@noblank\put(140,113.5){\framebox(10,4.7){\bf \@channelsofsixtyfourmhz} }
\else\put(140,113.5){\framebox(10,4.7){} }
\fi


\put(40,109.5)  {\,\chec@k{\if@sixteenmhz}16MHz \ \ \ \ How many (1 to 4)?:}

\if@noblank\put(95,108.5){\framebox(5,4.7){\bf \@numberofsixteenmhz} }
\else\put(95,108.5){\framebox(5,4.7){} }
\fi

\put(103,109.5){\normalsize Number of channels:}

\if@noblank\put(140,108.5){\framebox(10,4.7){\bf \@channelofsixteenmhz} }
\else\put(140,108.5){\framebox(10,4.7){} }
\fi

%
% Source list
\thicklines
\put(0,6){\framebox(185,101) { } }
\thinlines
\put(92,6){\line(0,1){101}}
\put(2,99){{\normalsize \bf List of Objects} (give most common names)}
\put(2,95){with equatorial coordinates}
%\put(2,12){(continue on next page, if needed)}
\put(2,14){( for additional sources which do not fit here  }
\put(2,10){~~use the {\tt $\backslash$extendedsourcelist }  macro~)}
%no more%\put(2,8){please send also be e-mail if list is long)} 
\put(29,91){Epoch:}
\if@noblank\put(44,91){\@epoch}\fi
\put(5,87){Source}
\put(32,87){RA}
\put(54,87){Dec}
\put(76,87){V$_{\rm LSR}$} 
\put(1,85){\line(1,0){90}}
\put(1,18){\line(1,0){90}}
\put(23,85){\line(0,-1){66}}
\put(47,85){\line(0,-1){66}}
\put(70,85){\line(0,-1){66}}
\if@noblank\put(0,84){\makebox(0,0)[tl]{\parbox[t]{86mm}{
\begin{tabular}{p{20mm}p{20mm}p{20mm}p{20mm}}\@sourcelist \end{tabular}} } }\fi
%
%
% Investigators
\put(94,103) {{\bf Principal Investigator:}} 
\put(94,99) {(name, institute, address, tel., e-mail)}

\if@pifirstname
 \if@noblank\put(94,96){\makebox(0,0)[tl]{\parbox[t]{85mm}{\bf \@pifirstname\ \@pilastname}}} \fi 
 \if@noblank\put(94,92){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@piinstitute}}} \fi
 \if@noblank\put(94,88){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@pistreetandnumber}}} \fi
 \if@noblank\put(94,84){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@pizipandcity\ \ ({\sc \@picountry})}}} \fi
 \if@noblank\put(94,80){\makebox(0,0)[tl]{\parbox[t]{85mm}{Tel:\ \@piphone}}} \fi
 \if@noblank\put(94,76){\makebox(0,0)[tl]{\parbox[t]{85mm}{Email:\ \@piemail}}} \fi  
 \put(94,62){{\bf Other Investigators} (name, institution):} 
 \put(94,54){\parbox[t]{85mm}{\@coauthor}} \fi

\if@apifirstname
 \if@noblank\put(94,99){\makebox(0,0)[tl]{\parbox[t]{85mm}{{\bf Co-PI:\ \@apifirstname\ \@apilastname}\ \ (\@apiemail)}}} \fi
 \if@noblank\put(94,95){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@apiinstitute}}} \fi
 \if@noblank\put(94,91){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@apistreetandnumber}}} \fi
 \if@noblank\put(94,87){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@apizipandcity\ \ ({\sc \@apicountry})}}} \fi
 \if@noblank\put(94,83){\makebox(0,0)[tl]{\parbox[t]{85mm}{Tel:\ \@apiphone}}} \fi

 \if@noblank\put(94,78){\makebox(0,0)[tl]{\parbox[t]{85mm}{{\bf Co-PI:\ \@bpifirstname\ \@bpilastname}\ \ (\@bpiemail)}}} \fi 
 \if@noblank\put(94,74){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@bpiinstitute}}} \fi
 \if@noblank\put(94,70){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@bpistreetandnumber}}} \fi
 \if@noblank\put(94,66){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@bpizipandcity\ \ ({\sc \@bpicountry})}}} \fi
 \if@noblank\put(94,62){\makebox(0,0)[tl]{\parbox[t]{85mm}{Tel:\ \@bpiphone\ \ \ \ \ Fax:\ \@bpifax}}} \fi 
 \put(94,52){{\bf Other Investigators} (name, institution):} 
 \put(94,46){\parbox[t]{85mm}{\@coauthor}} \fi

%
\put(0,1){\em Join to this form: Scientific aims, figures, tables and list of related publications}
%\put(165,1){\em $^*$imperatively}
\end{picture}
\textheight 270mm
\newpage
}
%
%Plateau de Bure first page
\def\pdbifront {
\small
\setlength{\unitlength}{1mm}
\noindent\begin{picture}(185,275)(4,0)
%
%

%
% Remote, service observing and bolometer sessions
%
\put(0,134){\line(1,0){185}}
%\put(0,134){  Special requirements {\em(dates, etc...)}:}
%\if@noblank\put(60,134){\@specials}\fi
%\put(0,131){\line(1,0){185}}
%
\put(0,126){\normalsize\bf Configurations:
%
%~~~New   \chec@k{\if@confnew}
%~~~~SD    \chec@k{\if@recsd}
%~~~~A     \chec@k{\if@confa}
%~~~~B     \chec@k{\if@confb} 
~~~~C     \chec@k{\if@confc} 
~~~~D     \chec@k{\if@confd} 
~~~~Any   \chec@k{\if@confany}
~~~~30M {\rm zero spacing} \chec@k{\if@zerospacing}
}
%
% Source list
\thicklines
\put(0,6){\framebox(185,101) { } }
\thinlines
\put(92,6){\line(0,1){101}}
\put(2,99){{\normalsize \bf List of Objects} (give most common names)}
\put(2,95){with equatorial coordinates in J2000 (accurate }
\put(2,91){to 2$''$) and LSR velocities}
\put(2,12){(continue on next page, if needed)}

\put(5,87){Source}
\put(32,87){$\alpha_{J2000}$}
\put(54,87){$\delta_{J2000}$}
\put(76,87){V$_{\rm LSR}$}
\put(1,85){\line(1,0){90}}
\put(1,18){\line(1,0){90}}
\put(23,85){\line(0,-1){66}}
\put(47,85){\line(0,-1){66}}
\put(70,85){\line(0,-1){66}}
\if@noblank\put(0,84){\makebox(0,0)[tl]{\parbox[t]{86mm}{
\begin{tabular}{p{20mm}p{20mm}p{20mm}p{20mm}}\@sourcelist \end{tabular}} } }\fi
%%
%
% Investigators
\put(94,103) {{\bf Principal Investigator:}} 
% \put(94,99) {name, institution, address, tel., fax, e-mail:}

\if@pifirstname
 \if@noblank\put(94,96){\makebox(0,0)[tl]{\parbox[t]{85mm}{\bf \@pifirstname\ \@pilastname}}} \fi 
 \if@noblank\put(94,92){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@piinstitute}}} \fi
 \if@noblank\put(94,88){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@pistreetandnumber}}} \fi
 \if@noblank\put(94,84){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@pizipandcity\ \ ({\sc \@picountry})}}} \fi
 \if@noblank\put(94,80){\makebox(0,0)[tl]{\parbox[t]{85mm}{Tel:\ \@piphone}}} \fi
 \if@noblank\put(94,76){\makebox(0,0)[tl]{\parbox[t]{85mm}{Email:\ \@piemail}}} \fi  
 \put(94,62){{\bf Other Investigators} (name, institution):} 
 \if@noblank\put(94,54){\parbox[t]{85mm}{\@coauthor}}\fi \fi

\if@apifirstname
 \if@noblank\put(94,99){\makebox(0,0)[tl]{\parbox[t]{85mm}{{\bf Co-PI:\ \@apifirstname\ \@apilastname}\ \ (\@apiemail)}}} \fi
 \if@noblank\put(94,95){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@apiinstitute}}} \fi
 \if@noblank\put(94,91){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@apistreetandnumber}}} \fi
 \if@noblank\put(94,87){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@apizipandcity\ \ ({\sc \@apicountry})}}} \fi
 \if@noblank\put(94,83){\makebox(0,0)[tl]{\parbox[t]{85mm}{Tel:\ \@apiphone}}} \fi

 \if@noblank\put(94,78){\makebox(0,0)[tl]{\parbox[t]{85mm}{{\bf Co-PI:\ \@bpifirstname\ \@bpilastname}\ \ (\@bpiemail)}}} \fi 
 \if@noblank\put(94,74){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@bpiinstitute}}} \fi
 \if@noblank\put(94,70){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@bpistreetandnumber}}} \fi
 \if@noblank\put(94,66){\makebox(0,0)[tl]{\parbox[t]{85mm}{\@bpizipandcity\ \ ({\sc \@bpicountry})}}} \fi
 \if@noblank\put(94,62){\makebox(0,0)[tl]{\parbox[t]{85mm}{Tel:\ \@bpiphone\ \ \ \ \ Fax:\ \@bpifax}}} \fi 
 \put(94,52){{\bf Other Investigators} (name, institution):} 
 \if@noblank\put(94,46){\parbox[t]{85mm}{\@coauthor}}\fi \fi 

\if@noblank\put(94,12){{\bf who will reduce data:} \@reducer}
\else\put(94,12){\bf who will reduce data}\fi

\put(0,1){\em join to this form: scientific aims $\leq 2$ typed pages
and $\leq 2$ pages Figs., Tables and list of related publications}
\end{picture}
\textheight 275mm
\newpage
}

%
% Define Technical sheet for Plateau de Bure
\def\techsheet{
\if@pico
\else
\newpage
{\small
\item {\it Preferred observing frequency:}
\if@noblank \@continuumfreq \fi
\item {\it Expected Line contamination at observing frequency:}
\if@noblank \@contamination \fi
\item {\it Frequencies to avoid:}
\if@noblank \@avoidfreq \fi
\end{itemize}
\item {\bf For line projects: }{\it (add sketch of frequency setup)}


\item {\bf Phase Calibrators (2 or more):}
\if@noblank \@phasecalibrators \fi
%\item {\bf Amplitude Calibrator:}
%\if@noblank \@ampcalibrator \fi
\item {\bf Required accuracy of bandpass calibration:}
\if@noblank \@bandpass \fi
\item {\bf Special requirements:}
\if@noblank \@specials \fi
\end{itemize}}
\fi}
%
\def\maketitle{
\textheight 270mm
\newpage
\if@noblank
\begin{center}{\Large\bf\@title\if@pinote\footnote{\@pinote}\fi}\end{center}
\fi}
%
\def\proposaltext{\vskip 5mm {\bf  Proposal history:\hskip 5mm}}
\def\proposalhistory#1{
     \if@continue \proposaltext #1 \vskip 2mm \mbox{}\\ 
        \else \if@resubmit \proposaltext #1 \vskip 2mm \mbox{}\\  \else \mbox{} \fi
          \mbox{} \fi} 
%
\def\zerospacingtext{\vskip 5mm {\bf \noindent Request for 30M zero spacing:\hskip 5mm}}
\def\zerospacingparagraph#1{
     \if@zerospacing \zerospacingtext #1 \fi}
%
\def\extsourcelist{\vskip5mm\parindent0pt{\bf Extended source list 
     (cont'd from cover page)}\hfill\hfill\\[1ex]} 
\def\extendedsourcelist#1{
     \if@pico  \extsourcelist  
\small 
\begin{tabular}{lrrc}
\hline
Source    &\makebox[6em][c]{RA} &\makebox[6em][c]{Dec} & LSR Velocity \\
&\makebox[6em][c]{(\if@noblank\@epoch\fi)} 
&\makebox[6em][c]{(\if@noblank\@epoch\fi)} 
& (km/s)\\[0.5ex]
\hline
#1
\hline
\end{tabular}
                    \else \mbox{} \fi }
