% MacrosJM May 16, 2005

\input MacrosMac
\input MacrosBasic


% Abstract alone
\def\idenabs{\ff\vskip-2\baselineskip
      \begingroup\parskip=0pt\fsize{10}\it\frenchspacing\noindent
      Departament d'Estad’stica i I.O., Universitat de Val{\`e}ncia.\par\noindent
      Facultat de Matem{\`a}tiques, 46100--Burjassot, Val{\`e}ncia, Spain.\par\noindent
      Tel. and Fax 34.96.364.3560;
      www.uv.es/$\sim$bernardo
      \vglue3mm\endgroup\pin{1}}
\def\abstract{\nopagenumbers\hsize150mm\hoffset5mm\idenabs}
\def\meeting#1#2{\begingroup\fsize{10}\noindent#1,
     \vskip-4pt\noindent #2.\vskip0pt\noindent Typesetted on ~\today\endgroup}


% Paper title
\def\tit#1{\vglue10mm\ce{\ftit{\ff#1}}\smallskip}
\def\titt#1#2{\vglue10mm\ce{\ftit{\ff#1}}\par\ce{\ftit{\ff#2}}\smallskip}
\def\tittt#1#2#3{\vglue10mm\ce{\ftit{\ff#1}}\par\ce{\ftit{\ff#2}}
                  \par\ce{\ftit{\ff#3}}\smallskip}
\def\rtitt#1#2{\def\rtt{#1.~~{\it#2}}} \def\rtt{}

% Author indentificaion
\def\aut#1{\bigskip\ce{\fsize{12}\tf{#1}}}
\def\and{{\w{\tf and}}}
\def\autt#1#2{\bigskip\ce{\fsize{12}\tf\uppercase{#1}
           \tf ~and~ \uppercase{#2}}}
\def\auttE#1#2{\bigskip\ce{\fsize{12}\tf\uppercase{#1}
           \tf ~y~ \uppercase{#2}}}
\def\loc#1#2{\centerline{\it{#1}}\centerline{{\fsize{11}\tt{#2}}}}


% paper Indentification
\def\amsnum#1#2{\bigskip\nid{\it AMS 1980 subject classifications.\hskip2mm}
              Primary #1;\; Secondary #2.\par}
\def\bas{\bqo\vskip12pt\ce{SUMMARY}\smallskip\nid}
\def\basE{\bqo\vskip12pt\ce{RESUMEN}\smallskip\nid}
\def\eas{\par\ff\smallskip\endgroup}
\def\key#1{\begingroup\ragged\smallskip\hangindent=19mm\hangafter=1
     \nid\hbox to 19mm{{\fsize{10}\it Keywords:}\hfil}\kern0pt
     {\fsize{9}\uppercase{\ignorespaces#1}}.\bigskip\endgroup}
\def\keyE#1{\begingroup\ragged\smallskip\hangindent=19mm\hangafter=1
     \nid\hbox to 25mm{{\fsize{10}\it Palabras Clave:}\hfil}\kern0pt
     {\fsize{9}\uppercase{\ignorespaces#1}}.\bigskip\endgroup}

% Grant
\def\grant#1{\fnote{Josˇ M. Bernardo is Professor of 
     Statistics at the University of Valencia, Spain. This  research  is partially 
     funded with #1.}}
\def\grantonly#1{\fnote{This  research is partially  funded with #1.}}
\def\grantonlyE#1{\fnote{Investigaci—n parcialmente financiada con #1.}}


% Headings
\def\section#1#2\par{\vskip18pt
    \vskip0pt plus.05\vsize\penalty-250\vskip0pt plus-.05\vsize
    \ce{#1 \uppercase{\ignorespaces#2}}
    \nobreak\smallskip\noindent}
\def\ssection#1#2#3#4\par{\vskip18pt
    \vskip0pt plus.05\vsize\penalty-250\vskip0pt plus-.05\vsize
    \ce{#1 \uppercase{\ignorespaces#2}}
			\nobreak\vskip3pt
    \ce{#3 \it\ignorespaces#4}
    \nobreak\smallskip\noindent}
\def\subsection#1#2\par{\vskip15pt
    \vskip0pt plus.05\vsize\penalty-250\vskip0pt plus-.05\vsize
    \ce{#1 \it{\ignorespaces#2}}
    \nobreak\smallskip\noindent}
\def\sub#1{\goodbreak\vskip1mm\vskip0pt plus.05\vsize\penalty-250
      \vskip0pt plus-.05\vsize\noindent{\it #1}~~\ignorespaces}
\def\sep{\medskip\nid}


% References
\def\breE\par{\vskip18pt\vskip0pt plus.05\vsize
   \penalty-250\vskip0pt plus-.05\vsize
   \bgr\parskip=0pt plus3pt minus 1pt
   \ce{REFERENCIAS}\smallskip\frenchspacing\fsize{10}}
\def\breb{\goodbreak\bigskip\smallskip\begingroup\fsize{9}\frenchspacing}
\def\breabs{\bigskip\begingroup\fsize{9}
    \ce{REFERENCES}\frenchspacing}
\def\bre\par{\vskip18pt\vskip0pt plus.05
   \vsize\penalty-250\vskip0pt plus-.05\vsize
   \parskip=0pt plus3pt minus 1pt \ce{REFERENCES}\smallskip
   \begingroup\frenchspacing\fsize{10}}
\def\ere{\vskip2mm\goodbreak\endgroup}
\def\r{\par\vskip1pt plus 1pt
    minus0pt\hangindent=1.5em\hangafter=1\noindent}
\let\rr=\r
\def\brenil{\begingroup\parskip=0pt plus 1pt
    \smallskip\frenchspacing\fsize{10}}
\def\ere{\vskip2mm\goodbreak\endgroup}


% Time and date (E)
\def\hoy{\number\day\space de \ifcase\month\or
   Enero\or Febrero\or Marzo\or Abril\or Mayo\or Junio\or
   Julio\or Agosto\or Septiembre\or Octubre\or Noviembre\or
   Diciembre\fi\space de \number\year}
\def\hora{\num=\time \divide\num by60 \number\num ~horas\
     \multiply\num by 60 \np=\time \advance\np by-\num\number\np ~min}

\def\datedE{\ff\vskip-30mm\nid Compuesto el \hoy, at las \hora\vskip30mm}

% Spanish
\def\spanish{\language1 \let\today=\hoy \let\hour=\hora
    \let\diss=\dissE  \let\appear=\appearE
    \let\appeardiss=\appeardissE \let\reprinted=\reprintedE
    \let\english=\englishE  \let\italian=\italianE
    \let\translatedin=\translatedinE  \let\translatedas=\translatedasE
    \let\second=\secondE  \let\third=\thirdE
    \let\introdby=\introdbyE \let\and=\andE}

% JMB

\def\jmE{\vskip5mm\ce{JOS\'E-MIGUEL BERNARDO}
         \ce{\it Universitat de Val{\`e}ncia, Espa–a}
         \ce{<jose.m.bernardo@uv.es>}}
\def\jm{\vskip5mm\ce{JOS\'E M. BERNARDO}
         \ce{\it Universitat de Val{\`e}ncia, Spain}
         \ce{<jose.m.bernardo@uv.es>}}

\def\jmr{\autt{JOS\'E M. BERNARDO}{RA\'UL RUEDA}
         \loc{Universitat de Val{\`e}ncia, Spain {\tf~and} IIMAS, UNAM, Mexico}}


\def\iden#1{\ff\vskip-2\baselineskip
       \begingroup\parskip=0pt\fsize{10}\it\frenchspacing\nid
       Departament d'Estad’stica i I.O., Universitat de Val{\`e}ncia.\par\nid
       Facultat de Matem{\`a}tiques, 46100--Burjassot, Val{\`e}ncia, Spain.\par\nid
       Tel. +34.96.364.3560 (direct), +34.96.354.4374 (office).\par\nid
       Fax +34.96.364.3560 (direct), +34.96.354.4735 (office).\par\nid
       Internet: jose.m.bernardo@uv.es,
       Web: http://www.uv.es/\~{}bernardo/\par
       \ff\par\nid{\rm Typesetted on~\today\par
       \nid{{\fsize{10}#1}}}\vglue10mm\endgroup\pin{1}}
\def\idenE#1{\ff\vskip-2\baselineskip
       \begingroup\parskip=0pt\fsize{10}\it\frenchspacing\nid
       Departament d'Estad’stica i I.O., Universitat de Val{\`e}ncia.\par\nid
       Facultat de Matem{\`a}tiques, 46100--Burjassot, Val{\`e}ncia, Espa–a.\par\nid
       Tel. +34.96.364.3560 (directo), +34.96.354.4374 (secretar’a)\par\nid
       Fax +34.96.364.3560 (directo), +34.96.354.4735 (secretar’a) \par\nid
       E-mail: jose.m.bernardo@uv.es,
       Web: http://www.uv.es/\~{}bernardo/\par\ff\par\nid{\rm
       Compuesto el~\hoy\par\nid{#1}}\vglue10mm\endgroup\pin{1}}
\def\idenh#1{\ff\vskip-2\baselineskip
       \begingroup\parskip=0pt\fsize{10}\it\frenchspacing\nid
       Departament d'Estad’stica i I.O., Universitat de Val{\`e}ncia.\par\nid
       Facultat de Matem{\`a}tiques, 46100--Burjassot, Val{\`e}ncia, Spain.\par\nid
       Tel. +34.96.364.3560 (direct), +34.96.354.4374 (office).\par\nid
       Fax +34.96.364.3560 (direct), +34.96.354.4735 (office).\par\nid
       Internet: jose.m.bernardo@uv.es,
       Web: http://www.uv.es/\~{}bernardo/\par
       \ff\par\nid{\rm Typesetted on~\today, at \hour\par
       \nid{{\fsize{10}#1}}}\vglue10mm\endgroup\pin{1}}
\def\idennodate{\ff\vskip-2\baselineskip
       \begingroup\parskip=0pt\fsize{10}\it\frenchspacing\nid
       Departament d'Estad’stica i I.O., Universitat de Val{\`e}ncia.\par\nid
       Facultat de Matem{\`a}tiques, 46100--Burjassot, Val{\`e}ncia, Spain.\par\nid
       Tel. +34.96.364.3560 (direct), +34.96.354.4374 (office).\par\nid
       Fax +34.96.364.3560 (direct), +34.96.354.4735 (office).\par\nid
       Internet: jose.m.bernardo@uv.es,
       Web: http://www.uv.es/\~{}bernardo/\par
       \vglue10mm\endgroup\pin{1}}
\def\idendate{\ff\vskip-15mm\nid{\rm Typesetted on~\today, at \hour}\vskip15mm}