Ocean and Coastal Research (OCR)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% OCR.cls, v1.0.2, 24/Jan/2023
% it started  with OCR.cls, v0.1, 5/Nov/2021
% Based on Overleaf's  GigaScience Template
% Modified by Paulo S. Polito & Olga T. Sato for
% Ocean and Coastal Research
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% 
\ProvidesClass{OCR}[9/7/2021, v0.1]
\RequirePackage{ifdraft}
\ifdraft{
  \LoadClass[oneside,onecolumn,11pt]{article}}{
  \LoadClass[twoside,twocolumn,11pt]{article}}
\ifdraft{\RequirePackage[mathlines]{lineno}}{}
\RequirePackage[T1]{fontenc}
\RequirePackage[utf8]{inputenc}
\RequirePackage{microtype}
\RequirePackage{tgheros}
\RequirePackage{amsmath}
\RequirePackage{amssymb}
%\RequirePackage[mathbf,mathcal,text-hat-accent]{euler}
\RequirePackage{cmbright}
% Math font
\renewcommand{\rmdefault}{phv}
\renewcommand{\sfdefault}{phv}
\RequirePackage{relsize}
%\RequirePackage{siunitx}
%\sisetup{
%  separate-uncertainty = true,
%  mode = text
%}
\RequirePackage{ragged2e}
\RequirePackage{xcolor}
\RequirePackage{colortbl}
% \RequirePackage[italic]{mathastext}
\RequirePackage{graphicx}
\RequirePackage{etoolbox,xpatch}
\RequirePackage{environ}
\RequirePackage{lastpage}
\RequirePackage{rotating}
\RequirePackage{lscape}
\RequirePackage{afterpage}
\RequirePackage[absolute]{textpos}
\RequirePackage{url}
\RequirePackage{newfloat}
\RequirePackage{mdframed}
\RequirePackage{titlesec}
\RequirePackage{scrextend}
\RequirePackage{lipsum}
% Font definition for the main text
\renewcommand*\familydefault{\sfdefault}
%\fontfamily{qhv}\selectfont
%\renewcommand{\normalfont}{\usefont{T1}{qhv}{n}{m}\selectfont}
\ifdraft{\changefontsizes[19pt]{9.5pt}}{\changefontsizes[13pt]{9.5pt}}
\ifdraft{\renewcommand\linenumberfont{\footnotesize}}{}
\RequirePackage{calc}
\RequirePackage{geometry}
\geometry{includefoot,
  paperheight=260mm,
  paperwidth=195mm,
  hmargin=19mm,
  bottom=10mm,
  top=20mm,
  headsep=5.4mm,
  headheight=5.6mm,
  footnotesep=1pc+6pt,
  columnsep=8.5mm}
\setlength{\parindent}{12pt}
\urlstyle{sf}

\definecolor{jcolor}{RGB}{5.0,47.0,79.0}
\definecolor{jcolor1}{RGB}{0.0,91.4,125.0}
\definecolor{jcolor2}{RGB}{22.3,201.6,155.8}
\definecolor{jcolor3}{RGB}{170.5,206.6,224.5}


\ifdraft{
  \renewcommand\thelinenumber{\color{jcolor2}\arabic{linenumber}}
}{}

\RequirePackage[noblocks]{authblk}
\renewcommand\Authfont{\centering}

% Journal name and visual identity
\def\@jname{Ocean and Coastal Research}
\def\@jnick{OCR}
\def\@jlogo{ocr.png}
\def\@cclogo{cc.png}
\newcommand{\jname}[1]{\def\@jname{#1}}
\newcommand{\jnick}[1]{\def\@jnick{#1}}
\newcommand{\jlogo}[1]{\def\@jlogo{#1}}
\newcommand{\cclogo}[1]{\def\@cclogo{#1}}

% Article bibliographic info ### for editors to fill ###
\def\@jyear{20xx}
\def\@jvolume{0}
\def\@jnumber{0}
\def\@jstartpage{1}
\def\@jpapercat{}
\def\@jspecial{}
\def\@jissn{}
\def\@jdoi{}
\def\@jeditor{}
\def\@jaeditor{}
\def\@jsubmitted{}
\def\@japproved{}
\newcommand{\jyear}[1]{\def\@jyear{#1}}
\newcommand{\jvolume}[1]{\def\@jvolume{#1}}
\newcommand{\jnumber}[1]{\def\@jnumber{#1}}
\newcommand{\jstartpage}[1]{\def\@jstartpage{#1}}
\newcommand{\jpapercat}[1]{\def\@jpapercat{#1}}
\newcommand{\jspecial}[1]{\def\@jspecial{#1}}
\newcommand{\jissn}[1]{\def\@jissn{#1}}
\newcommand{\jdoi}[1]{\def\@jdoi{#1}}
\newcommand{\jeditor}[1]{\def\@jeditor{Editor: #1}}
\newcommand{\jaeditor}[1]{\def\@jaeditor{Associate Editor: #1}}
\newcommand{\jsubmitted}[1]{\def\@jsubmitted{#1}}
\newcommand{\japproved}[1]{\def\@japproved{#1}}

% These are for the authors to fill
\def\@runningauthor{}
\def\@runningtitle{}
\def\@corraddress{}
\def\@authnotes{}
\def\@corrauths{}
\newcommand{\runningauthor}[1]{\def\@runningauthor{#1}}
\newcommand{\runningtitle}[1]{\def\@runningtitle{#1}}
\newcommand{\corraddress}[1]{\def\@corraddress{#1}}
\newcommand{\authnote}[1]{\appto{\@authnotes}{#1\par}}
\newcommand{\corrauth}[1]{\appto{\@corrauths}{#1\par}}

% Headers and footers
% \newcommand{\footfont}{\fontfamily{qhv}\fontsize{7.5pt}{10pt}\selectfont}
\newcommand{\footfont}{\fontfamily{qhv}\footnotesize\selectfont}
\RequirePackage[flushmargin,bottom,norule]{footmisc}
\appto{\footnotelayout}{\footfont}

\RequirePackage{fancyhdr}
\fancyhf{}
\renewcommand{\footrule}{\color{jcolor1}\rule{\textwidth}{0.2pt}}
\renewcommand{\headrule}{}
% this makes the boxed page numbers
\newcommand\boxpage{
  \raisebox{3.6pt}[0pt][0pt]{
    \color{lightgray}\rule[-0.4ex]{4.5ex}{2.3ex}
    \hspace*{-3.2ex}%%
    \makebox[3pt]{\textcolor{jcolor}{\thepage}}%%
    \hspace*{1ex}
  }
}
\fancyfoot[R]{%
  \hspace*{12pt}%
  % \fontfamily{qhv}\fontsize{7.8pt}{10pt}\selectfont%
  \fontfamily{qhv}\footnotesize\selectfont
  \color{black}%
  \hspace{1em}\raisebox{3pt}{
    \@jname\, \@jyear,\, v\@jvolume:e\@jnumber
  }
  \textbf{\boxpage}%
}
\fancyhead[R]{%
  \fontfamily{qhv}\footnotesize\selectfont%
  \color{gray}%
  \@runningtitle%
  \hspace*{12pt}%
}
\fancyhead[L]{%
  \fontfamily{qhv}\footnotesize\selectfont%
  \color{gray}%
  \@runningauthor%
  \hspace*{12pt}%
}

\fancypagestyle{plain}{%
  \fancyhf{}
  \renewcommand{\headrule}{}
  % footer for the 1st page
  \fancyfoot[R]{%
    \fontfamily{qhv}\footnotesize\selectfont%
    \color{black}%
    \hspace{1em}\raisebox{3pt}{
    \@jname\, \@jyear,\, v\@jvolume:e\@jnumber
  }
  \textbf{\boxpage}%
  }
}
%%% Makes orcid links for authors
%%%-------- Note: this was copied from package orcidlink.sty ----------
\RequirePackage{tikz}
\ProcessOptions\relax
\usetikzlibrary{svg.path}
\definecolor{orcidlogocol}{HTML}{A6CE39}
\tikzset{
  orcidlogo/.pic={
    \fill[orcidlogocol] svg{M256,128c0,70.7-57.3,128-128,128C57.3,256,0,198.7,0,128C0,57.3,57.3,0,128,0C198.7,0,256,57.3,256,128z};
    \fill[white] svg{M86.3,186.2H70.9V79.1h15.4v48.4V186.2z}
                 svg{M108.9,79.1h41.6c39.6,0,57,28.3,57,53.6c0,27.5-21.5,53.6-56.8,53.6h-41.8V79.1z M124.3,172.4h24.5c34.9,0,42.9-26.5,42.9-39.7c0-21.5-13.7-39.7-43.7-39.7h-23.7V172.4z}
                 svg{M88.7,56.8c0,5.5-4.5,10.1-10.1,10.1c-5.6,0-10.1-4.6-10.1-10.1c0-5.6,4.5-10.1,10.1-10.1C84.2,46.7,88.7,51.3,88.7,56.8z};
  }
}
\newcommand{\@OrigHeightRecip}{0.003}
\newlength{\@curXheight}
\DeclareRobustCommand\orcidlink[1]{%
\texorpdfstring{%
\setlength{\@curXheight}{\fontcharht\font`X}%
\href{https://orcid.org/#1}{\XeTeXLinkBox{\mbox{%
\begin{tikzpicture}[baseline={(0,-0.3)}, yscale=-\@OrigHeightRecip*\@curXheight,
xscale=\@OrigHeightRecip*\@curXheight,transform shape]
\pic{orcidlogo};
\end{tikzpicture}%
}}}}{}}
%%%-------------------------------------------------------
\pagestyle{fancy}

\AtBeginDocument{%
  \newsavebox{\@gscitedetails}
  \newlength{\@gscitedetailsheight}
  \savebox{\@gscitedetails}{
    \parbox{\textwidth-89.5mm}{
      \begin{flushright}
        \ifthenelse {\equal{\@jspecial}{no}} {
          \vspace{0.5mm}
          \usefont{T1}{qhv}{b}{sc}\fontsize{13pt}{15pt}\selectfont
          \textcolor{jcolor1}\@jpapercat\par
          \vspace{6.5mm}
        } {
          \vspace{-4mm}
          \usefont{T1}{qhv}{b}{sc}\fontsize{13pt}{15pt}\selectfont
          \textcolor{jcolor1}\@jpapercat\par
          \vspace{1mm}
          \usefont{T1}{qhv}{m}{n}\fontsize{8.5pt}{8pt}\selectfont
          \textcolor{jcolor1}
          \@jspecial\par
          \vspace{1mm}
        } 
        \usefont{T1}{qhv}{m}{n}\fontsize{7.5pt}{8.5pt}\selectfont
        \@jdoi\par
        \vspace{2mm}
        \textcolor{jcolor1}\@jissn\par
        \vspace{\dimexpr 8pt-1em\relax}
      \end{flushright}
    }}%
  \settototalheight{\@gscitedetailsheight}{\usebox{\@gscitedetails}}
  %%%% 
  \normalfont
}
% This is related to the corresponding authors
\RequirePackage{alphalph}
\newalphalph{\fnsymbolmult}[mult]{\@fnsymbol}{5}
\newcounter{caut}
\setcounter{caut}{1}
\newcommand{\cauthfn}[1]{\fnsymbolmult{#1}}

% This is related to the authors and affiliation lists
\renewcommand\Authands{ and }
\renewcommand\AB@affilsepx{,\par}
%\renewcommand{\Affilfont}{\fontfamily{qhv}\fontsize{8.5pt}{11pt}\selectfont}
\renewcommand{\Affilfont}{\footnotesize\raggedright}
\setlength{\affilsep}{21pt-9pt}

\AtBeginDocument{
  \renewcommand{\@maketitle}{%
     \textblockorigin{20mm}{12.7mm}
    % This is the main logo at the top of the first page, left side
    \begin{textblock*}{21pc}(0pt,0pt)      
      \includegraphics[height=22mm, draft=false]{\@jlogo}
    \end{textblock*}
    % This is the text block with issn, doi and category at the top of
    % the first page, right side
    %\begin{textblock*}{\textwidth-21pc}(21pc,0pt)
    \ifdraft{\begin{textblock*}{0.51\textwidth}(84mm,-2mm)
      \usebox{\@gscitedetails}
    \end{textblock*}}%
    {\begin{textblock*}{0.5\textwidth}(88.5mm,0pt)
      \usebox{\@gscitedetails}
    \end{textblock*}}
  % This is the text block with the title and authors
    % from package authblk
    % \ifdraft{\,\vspace{16mm}}{\,\vspace{16mm}}
  \,\vspace{16mm}
    \setlength{\affilsep}{5.5mm}
    \begin{center}
      \linespread{0.75}
      {\fontfamily{qhv}\fontsize{16pt}{27pt}\mdseries\@title\par}
      \vspace{3.3mm}
    \end{center}
      \@author\par
    \ifdraft{
      \renewcommand{\cauthfn}[1]{\protect{\normalcolor\textsuperscript{\fnsymbolmult{##1}}Corresponding author:}}}{
      \renewcommand{\cauthfn}[1]{\protect{\normalcolor\textsuperscript{\fnsymbolmult{##1}}Corresponding author:}}
    }    
      {\fontfamily{qhv}\footnotesize\selectfont{\textcolor{jcolor1}\@corrauths}\normalcolor\par}%
    \vspace{2.58mm}
  }
}

\RequirePackage[style]{abstract}
\setlength{\absleftindent}{0pt}
\setlength{\absrightindent}{0pt}
\setlength{\absparindent}{12pt}
\setlength{\absparsep}{0pt}
\setlength{\abstitleskip}{16pt-8pt-\baselineskip}
\renewcommand{\abstractnamefont}{\usefont{T1}{qhv}{b}{sc}\fontsize{14pt}{16.5pt}\selectfont\color{jcolor}}
\renewcommand{\abstitlestyle}[1]{{\abstractnamefont #1}}
\ifdraft{
  \renewcommand{\abstracttextfont}{\fontfamily{qhv}\fontsize{9.5pt}{20pt}\selectfont}
}{
  \renewcommand{\abstracttextfont}{\fontfamily{qhv}\fontsize{9.5pt}{11pt}\selectfont}
}
\preto{\abstract}{%
  {\noindent\rule{\hsize}{0.2pt}}\par
   \vspace*{4.5mm}
}
\appto\abstract{\noindent\justifying\ignorespaces  \ifdraft{\linenumbers}{}}
\preto\endabstract{\par}

\ifdraft{
  \newenvironment{keywords}
  {\vspace*{\dimexpr 19pt-8pt-\baselineskip\relax}%
    \noindent\fontfamily{qhv}\fontsize{10pt}{20pt}\selectfont\textbf{\color{jcolor}Keywords\normalcolor}: \ignorespaces}%
  {\par}
}{
  \newenvironment{keywords}
  {\vspace*{\dimexpr 19pt-8pt-\baselineskip\relax}%
    \noindent\fontfamily{qhv}\fontsize{9.5pt}{12pt}\selectfont\textbf{\color{jcolor}Keywords\normalcolor}: \ignorespaces}%
  {\par}  
  }

%-----------------------------------------------------------------------------
  \ifdraft{
  \NewEnviron{frontmatter}{%   
    \BODY%
    \vspace*{\dimexpr 16pt-3pt-1em\relax}
        {\noindent\rule{\hsize}{0.2pt}}\par
        \vspace*{\dimexpr 23pt-1em\relax}%
        % Not actually a figure, but a container float that goes to the bottom of page 1
    \begin{figure*}[b!]
      \fontfamily{qhv}\footnotesize\selectfont%
      \rule{0.25\textwidth}{0.2pt}\par%
      Submitted: \@jsubmitted\par
      \ifthenelse {\equal{\@jeditor}{Editor: }} {\@jaeditor\par} {\@jeditor\par} 
      \ifthenelse {\equal{\@jaeditor}{Associate Editor: }} {\@jeditor\par} {\@jaeditor\par} 
      \color{jcolor2}
      \fontfamily{qhv}\Large\selectfont%
      \vspace{5pt} Confidential Manuscript Under Review, Do Not Distribute.\normalcolor 
    \end{figure*} 
  }
}{
  \NewEnviron{frontmatter}
  {\twocolumn[%
    \BODY
    % space after abstract 
    \vspace*{3mm}
    % this is the rule below the abstract
    {\noindent\rule{\hsize}{0.2pt}}\par
    % space before first section title
    \vspace*{6.7mm}
    ]
    \begin{figure}[b!]
      \fontfamily{qhv}\fontsize{7.5pt}{10.5pt}\selectfont%
      \rule{\dimexpr 0.25\textwidth-9pt\relax}{0.2pt}\par%
      Submitted: \@jsubmitted\par
      Approved: \@japproved\par
      \ifthenelse {\equal{\@jeditor}{Editor: }} {\@jaeditor\par} {\@jeditor\par} 
      \ifthenelse {\equal{\@jaeditor}{Associate Editor: }} {\@jeditor\par} {\@jaeditor\par} 

      \vspace{5pt}\parbox{0.09\textwidth}{\includegraphics[width=0.08\textwidth]{\@cclogo}}\parbox{0.39\textwidth}{\fontfamily{qhv}\fontsize{6.5pt}{8.5pt}\selectfont
        © \@jyear\, The authors. This is an open access
        article distributed under the terms of the Creative Commons
        license.}\vspace{-2em}
    \end{figure}
  }
}
\setcounter{secnumdepth}{0}

% \titleformat{\section}[block]{\usefont{T1}{qhv}{b}{sc}\fontsize{12pt}{14pt}\selectfont\color{jcolor}}{}{0em}{\MakeUppercase}
\titleformat{\section}[block]{\usefont{T1}{qhv}{b}{sc}\fontsize{12pt}{14pt}\selectfont\color{jcolor}}{}{0em}{\MakeUppercase}
\titlespacing*{\section}{0pt}{26.5pt-1em}{16pt-1em}

\titleformat*{\subsection}{\usefont{T1}{qhv}{b}{sc}\fontsize{10pt}{12pt}\selectfont\color{jcolor}}
\titlespacing*{\subsection}{0pt}{2pc-1em}{17pt-1em}

\titleformat*{\subsubsection}{\usefont{T1}{qhv}{b}{it}\selectfont}
\titlespacing*{\subsubsection}{0pt}{\baselineskip}{0pt}

\titleformat{\paragraph}[runin]{\normalsize\itshape}{\theparagraph}{0pt}{}[.\enspace]
\titlespacing*{\paragraph}{0pt}{\baselineskip}{0pt}

\titleformat{\subparagraph}[runin]{\relsize{-1}\uppercase}{\thesubparagraph}{0pt}{}[.\enspace]
\titlespacing*{\subparagraph}{0pt}{\baselineskip}{0pt}

\RequirePackage{enumitem}
\setlist{noitemsep}
\setlist[itemize]{leftmargin=13pt,topsep=16pt-1em}
\setlist[enumerate]
{itemindent=17pt,topsep=16.8pt-1em,
  label={\roman*.},labelsep=7pt,
  labelwidth=*,leftmargin=8pt,align=right}
\setlist[description]{itemindent=-17pt,labelsep=7pt,topsep=16pt-1em}

\ifdraft{\linenumbers}{}

% quotes and epigraphs
\RequirePackage{quoting}
\newcommand{\quotefont}{\fontfamily{qhv}\fontsize{8.5pt}{10pt}\selectfont}
\quotingsetup{vskip=16pt-1em,indentfirst=false,font={quotefont},leftmargin=4mm,rightmargin=4mm}

\renewenvironment{quote}{\begin{quoting}}{\end{quoting}}
\renewenvironment{quotation}{\begin{quoting}}{\end{quoting}}
\newenvironment{epigraph}[1]
{\begin{quoting}[font={itshape,fontsize{8.5pt}{10pt}},vskip=15pt-1em,leftmargin=2mm,rightmargin=2mm]%
    \def\@quotesource{#1}}
  {\par\vspace{\dimexpr 15pt-1em\relax}{\upshape---\@quotesource}\end{quoting}}

% Space above/below equations
\g@addto@macro\normalsize{%
  \setlength\abovedisplayskip{0.5\baselineskip}%
  \setlength\belowdisplayskip{0.5\baselineskip}%
  \setlength\abovedisplayshortskip{0.25\baselineskip}%
  \setlength\belowdisplayshortskip{0.25\baselineskip}%
}

\RequirePackage{stfloats}
\RequirePackage{booktabs}
\RequirePackage{tabularx}
% Left-, right- and center-aligned auto-wrapping column types
\newcolumntype{L}{>{\raggedright\arraybackslash}X}
\newcolumntype{R}{>{\raggedleft\arraybackslash}X}
\newcolumntype{C}{>{\centering\arraybackslash}X}

\AtBeginEnvironment{tabularx}{%
  \fontfamily{qhv}\fontsize{8.5pt}{10pt}\selectfont
}
\AtBeginEnvironment{tabular}{%
  \fontfamily{qhv}\fontsize{8.5pt}{10pt}\selectfont
}

\setlength{\aboverulesep}{11pt-1em}
\setlength{\belowrulesep}{11pt-1em}
\setlength{\heavyrulewidth}{0.5pt}
\setlength{\lightrulewidth}{0.5pt}
\arrayrulecolor{jcolor}


\newcommand{\tnote}[1]{\textsuperscript{\textit{#1}}}
\newlist{tablenotes}{itemize}{1}
\setlist[tablenotes]{label={},labelsep=0pt,leftmargin=0pt,topsep={\dimexpr 12pt-1em\relax}}
\appto{\tablenotes}{\fontfamily{qhv}\fontsize{6.5pt}{8pt}\selectfont}


\RequirePackage[tableposition=top]{caption}
\DeclareCaptionFont{figcaptionfont}{\small}
\DeclareCaptionFont{tabcaptionfont}{\small}
\captionsetup{justification=justified,singlelinecheck=false,labelfont={bf},labelsep=period}
\captionsetup*[figure]{font=figcaptionfont,skip=10pt}
\captionsetup*[table]{font=tabcaptionfont,skip=10pt-1em}

% Skips for floats
\setlength{\floatsep}{1pc+6pt}
\setlength{\intextsep}{1pc+6pt}
\setlength{\textfloatsep}{1pc+6pt}


\makeatletter
\newenvironment{tablehere}
  {\captionsetup{type=table}}{}
\newenvironment{figurehere}
  {\captionsetup{type=figure}}{}
\newenvironment{tablehere*}
  {\captionsetup{type=table*}}{} 
\newenvironment{figurehere*}
  {\captionsetup{type=figure*}}{}
\makeatother 

\RequirePackage[colorlinks,allcolors=black,urlcolor=jcolor1,draft=false]{hyperref}

% References
\RequirePackage{harvard}
\bibliographystyle{ocr}
\newcommand{\HARVARDAND}{\harvardand}
\citationmode{abbr}

% Bibtex bibliography style completely derived from Harvard 'dcu' with the
% modification to incorporate CAPITAL LETTERS for the author's last name
% in the citation list but not in the call-out. Modified: 2021, Nov 12th.

% BibTeX standard bibliography style `dcu' (one of the harvard family)
	% version 0.99a for BibTeX versions 0.99a or later, LaTeX version 2.09.
	% Copyright (C) 1991, all rights reserved.
	% Copying of this file is authorized only if either
	% (1) you make absolutely no changes to your copy, including name, or
	% (2) if you do make changes, you name it something other than
	% btxbst.doc, plain.bst, unsrt.bst, alpha.bst, abbrv.bst, agsm.bst,
        % dcu.bst or kluwer.bst.
	% This restriction helps ensure that all standard styles are identical.
	% The file harvard.tex has the documentation for this style.

% ACKNOWLEDGEMENT:
%   This document is a modified version of alpha.bst to which it owes much of
%   its functionality.

% AUTHOR
%   Peter Williams, Key Centre for Design Quality, Sydney University
%   e-mail: [email protected]

ENTRY
  { address
    author
    booktitle
    chapter
    edition
    editor
    howpublished
    institution
    journal
    key
    month
    note
    number
    organization
    pages
    publisher
    school
    series
    title
    type
    URL
    volume
    year
  }
  { field.used etal.allowed etal.required }
  { extra.label sort.label list.year }

INTEGERS { output.state before.all mid.sentence after.sentence after.block }

FUNCTION {init.state.consts}
{ #0 'before.all :=
  #1 'mid.sentence :=
  #2 'after.sentence :=
  #3 'after.block :=
}

STRINGS { s t f }

FUNCTION {output.nonnull}
{ 's :=
  output.state mid.sentence =
    { ", " * write$ }
    { output.state after.block =
	{ add.period$ write$
	  newline$
	  "\newblock " write$
	}
	{ output.state before.all =
	    'write$
	    { add.period$ " " * write$ }
	  if$
	}
      if$
      mid.sentence 'output.state :=
    }
  if$
  s
}

FUNCTION {output}
{ duplicate$ empty$
    'pop$
    'output.nonnull
  if$
}

FUNCTION {output.check}
{ 't :=
  duplicate$ empty$
    { pop$ "empty " t * " in " * cite$ * warning$ }
    'output.nonnull
  if$
}

FUNCTION {item.check}
{ 't :=
  empty$
    { "empty " t * " in " * cite$ * warning$ }
    { skip$ }
  if$
}

FUNCTION {fin.entry}
{ add.period$
  write$
  newline$
}

FUNCTION {new.block}
{ output.state before.all =
    'skip$
    { after.block 'output.state := }
  if$
}

FUNCTION {not}
{   { #0 }
    { #1 }
  if$
}

FUNCTION {and}
{   'skip$
    { pop$ #0 }
  if$
}

FUNCTION {or}
{   { pop$ #1 }
    'skip$
  if$
}

FUNCTION {field.or.null}
{ duplicate$ empty$
    { pop$ "" }
    'skip$
  if$
}

FUNCTION {emphasize}
{ duplicate$ empty$
    { pop$ "" }
    { "{\em " swap$ * "}" * }
  if$
}

FUNCTION {embolden}
{ duplicate$ empty$
    { pop$ "" }
    { "{\bf " swap$ * "}" * }
  if$
}

FUNCTION {quote}
{ duplicate$ empty$
    { pop$ "" }
    { "`" swap$ * "'" * }
  if$
}

FUNCTION {write.url}
{ URL empty$
    { skip$ }
    { "\newline\harvardurl{" URL * "}" * write$ newline$ }
  if$
}

INTEGERS { nameptr namesleft numnames }

FUNCTION {format.names}
{ 's :=
  'f :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames 'namesleft :=
    { namesleft #0 > }
    { s nameptr f format.name$ 't :=
      nameptr #1 >
	{ namesleft #1 >
	    { ", " * t * }
	    { t "others" =
		{ " et~al." * }
		{ " \harvardand\ " * t * }
	      if$
	    }
	  if$
	}
	't
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
    }
  while$
}

FUNCTION {format.authors}
{ author empty$
    { "" }
    { "{vv~}{ll}{, jj}{, f.}" author format.names "u" change.case$ }
  if$
}


FUNCTION {format.editors}
{ editor empty$
    { "" }
    { "{vv~}{ll}{, jj}{, f.}" editor format.names
      editor num.names$ #1 >
	{ " (eds)" * }
	{ " (ed.)" * }
      if$
    }
  if$
}

FUNCTION {format.editors.reverse}
{ editor empty$
    { "" }
    { "{f.~}{vv~}{ll}{, jj}" editor format.names
      editor num.names$ #1 >
	{ " (eds)" * }
	{ " (ed.)" * }
      if$
    }
  if$
}

FUNCTION {format.title}
{ title empty$
    { "" }
    { title "t" change.case$ }
  if$
}

FUNCTION {n.dashify}
{ 't :=
  ""
    { t empty$ not }
    { t #1 #1 substring$ "-" =
	{ t #1 #2 substring$ "--" = not
	    { "--" *
	      t #2 global.max$ substring$ 't :=
	    }
	    {   { t #1 #1 substring$ "-" = }
		{ "-" *
		  t #2 global.max$ substring$ 't :=
		}
	      while$
	    }
	  if$
	}
	{ t #1 #1 substring$ *
	  t #2 global.max$ substring$ 't :=
	}
      if$
    }
  while$
}

FUNCTION {format.btitle}
{ title emphasize
}

FUNCTION {tie.or.space.connect}
{ duplicate$ text.length$ #3 <
    { "~" }
    { " " }
  if$
  swap$ * *
}

FUNCTION {either.or.check}
{ empty$
    'pop$
    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  if$
}

FUNCTION {format.bvolume}
{ volume empty$
    { "" }
    { "Vol." volume tie.or.space.connect
      series empty$
	'skip$
	{ " of " * series emphasize * }
      if$
      "volume and number" number either.or.check
    }
  if$
}

FUNCTION {format.number.series}
{ volume empty$
    { number empty$
	{ series field.or.null }
	{ output.state mid.sentence =
	    { "number" }
	    { "Number" }
	  if$
	  number tie.or.space.connect
	  series empty$
	    { "there's a number but no series in " cite$ * warning$ }
	    { " in " * series emphasize * }
	  if$
	}
      if$
    }
    { "" }
  if$
}

FUNCTION {format.edition}
{ edition empty$
    { "" }
    { output.state mid.sentence =
	{ edition "l" change.case$ " edn" * }
	{ edition "t" change.case$ " edn" * }
      if$
    }
  if$
}

INTEGERS { multiresult }

FUNCTION {multi.page.check}
{ 't :=
  #0 'multiresult :=
    { multiresult not
      t empty$ not
      and
    }
    { t #1 #1 substring$
      duplicate$ "-" =
      swap$ duplicate$ "," =
      swap$ "+" =
      or or
	{ #1 'multiresult := }
	{ t #2 global.max$ substring$ 't := }
      if$
    }
  while$
  multiresult
}

FUNCTION {format.pages}
{ pages empty$
    { "" }
    { pages multi.page.check
	{ "~" pages n.dashify * }
	{ "~" pages * }
      if$
    }
  if$
}

FUNCTION {format.vol.num.pages}
{ volume field.or.null
  number empty$
    'skip$
    { "(" number * ")" * *
      volume empty$
	{ "there's a number but no volume in " cite$ * warning$ }
	'skip$
      if$
    }
  if$
  pages empty$
    'skip$
    { duplicate$ empty$
	{ pop$ format.pages }
	{ ",~" * pages n.dashify * }
      if$
    }
  if$
}

FUNCTION {format.chapter.pages}
{ chapter empty$
    'format.pages
    { type empty$
	{ "chapter" }
	{ type "l" change.case$ }
      if$
      chapter tie.or.space.connect
      pages empty$
	'skip$
	{ ", " * format.pages * }
      if$
    }
  if$
}

FUNCTION {format.in.ed.booktitle}
{ booktitle empty$
    { "" }
    { editor empty$
	{ booktitle emphasize }
	{ "{\em in} " format.editors.reverse * ", " * booktitle emphasize * }
      if$
    }
  if$
}

FUNCTION {empty.misc.check}
{ author empty$ title empty$ howpublished empty$
  month empty$ year empty$ note empty$
  and and and and and
  key empty$ not and
    { "all relevant fields are empty in " cite$ * warning$ }
    'skip$
  if$
}

FUNCTION {format.thesis.type}
{ type empty$
    'skip$
    { pop$
      type "t" change.case$
    }
  if$
}

FUNCTION {format.tr.number}
{ type empty$
    { "Technical Report" }
    'type
  if$
  number empty$
    { "t" change.case$ }
    { number tie.or.space.connect }
  if$
}

FUNCTION {format.article.crossref}
{ key empty$
    { journal empty$
	{ "need key or journal for " cite$ * " to crossref " * crossref *
	  warning$
	  ""
	}
	{ "in {\em " journal * "\/}" * " \cite{" * crossref * "}" *
        }
      if$
    }
    { " {\em in} \citeasnoun{" crossref * "}" * }
  if$
}

FUNCTION {format.book.crossref}
{ volume empty$
    { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
      "in "
    }
    { "Vol." volume tie.or.space.connect
      " of " *
    }
  if$
  editor empty$
  editor field.or.null author field.or.null =
  or
    { key empty$
	{ series empty$
	    { "need editor, key, or series for " cite$ * " to crossref " *
	      crossref * warning$
	      "" *
	    }
	    { "{\em " * series * "\/}" * " \cite{" * crossref * "}" *}
	  if$
	}
	{ " \citeasnoun{" * crossref * "}" * }
      if$
    }
    { " \citeasnoun{" * crossref * "}" * }
  if$
}

FUNCTION {format.incoll.inproc.crossref}
{ editor empty$
  editor field.or.null author field.or.null =
  or
    {
      key empty$
	{ booktitle empty$
	    { "need editor, key, or booktitle for " cite$ * " to crossref " *
	      crossref * warning$
	      ""
	    }
	    { "in {\em " booktitle * "\/}" * " \cite{" * crossref * "}" *}
	  if$
	}
	{ " {\em in} \citeasnoun{" crossref * "}" * }
      if$
    }
    {  " {\em in} \citeasnoun{" crossref * "}" * }
  if$
 
}

INTEGERS { len }

FUNCTION {chop.word}
{ 's :=
  'len :=
  s #1 len substring$ =
    { s len #1 + global.max$ substring$ }
    's
  if$
}

INTEGERS { ind tsslen }

STRINGS { tss ret rss istr }

FUNCTION {replace.substring}{
  'rss :=
  'tss :=
  'istr :=
  "" 'ret :=
  tss text.length$ 'tsslen :=
  #1 'ind :=
    { istr ind tsslen substring$ "" = not }
    { istr ind tsslen substring$ tss =
        { ret rss * 'ret :=
          ind tsslen + 'ind :=
        }
        { ret istr ind #1 substring$ * 'ret :=
          ind #1 + 'ind :=
        }
      if$
    }
  while$
  ret
}

FUNCTION {format.lab.names.abbr}
{ 's :=
  s num.names$ 'numnames :=
  numnames #1 >
    { numnames #2 >
	{ s #1 "{vv~}{ll}" format.name$ " et~al." * }
	{ s #2 "{ff }{vv }{ll}{ jj}" format.name$ "u" change.case$ "others" =
            { s #1 "{vv~}{ll}" format.name$ "u" change.case$ " et~al." * }
	    { s #1 "{vv~}{ll}" format.name$ " \harvardand\ " *
              s #2 "{vv~}{ll}" format.name$ "u" change.case$ * 
            }
          if$
        }
      if$
    }
    { s #1 "{vv~}{ll}" format.name$ "u" change.case$ }
  if$
}

FUNCTION {format.lab.names.full}
{ 's :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames 'namesleft :=
    { namesleft #0 > }
    { s nameptr "{vv~}{ll}" format.name$ 't :=
      nameptr #1 >
	{ namesleft #1 >
	    { ", " * t * }
	    { t "others" =
		{ " et~al." * }
		{ " \harvardand\ " * t * }
	      if$
	    }
	  if$
	}
	't
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
    }
  while$
}

INTEGERS { author.field editor.field organization.field title.field key.field }

FUNCTION {init.field.constants}
{ #0 'author.field :=
  #1 'editor.field :=
  #2 'organization.field :=
  #3 'title.field :=
  #4 'key.field :=
}

FUNCTION {make.list.label}
{ author.field field.used =
    { format.authors }
    { editor.field field.used =
        { format.editors }
        { organization.field field.used =
            { "The " #4 organization chop.word #3 text.prefix$ }
            { title.field field.used =
                { format.btitle }
                { key.field field.used =
                    { key #3 text.prefix$ }
                    { "Internal error :001 on " cite$ * " label" * warning$ }
                  if$
                }
              if$
            }
          if$
        }
      if$
    }
  if$
}

FUNCTION {make.full.label}
{ author.field field.used =
    { author format.lab.names.full }
    { editor.field field.used =
        { editor format.lab.names.full }
        { organization.field field.used =
            { "The " #4 organization chop.word #3 text.prefix$ }
            { title.field field.used =
                { format.btitle }
                { key.field field.used =
                    { key #3 text.prefix$ }
                    { "Internal error :001 on " cite$ * " label" * warning$ }
                  if$
                }
              if$
            }
          if$
        }
      if$
    }
  if$
}

FUNCTION {make.abbr.label}
{ etal.allowed
    { author.field field.used =
        { author format.lab.names.abbr }
        { editor.field field.used =
            { editor format.lab.names.abbr }
            { organization.field field.used =
                { "The " #4 organization chop.word #3 text.prefix$ }
                { title.field field.used =
                    { format.btitle }
                    { key.field field.used =
                        { key #3 text.prefix$ }
                        { "Internal error :001 on " cite$ * " label" * warning$}
                      if$
                    }
                  if$
                }
              if$
            }
          if$
        }
      if$
    }
    { make.full.label }
  if$
}

FUNCTION {output.bibitem}
{ newline$
  etal.allowed        %%%XXX change
  etal.required
  and
    {
      "\harvarditem[" write$
      make.abbr.label write$
      "]{" write$
    }
    {
      "\harvarditem{" write$
    }
  if$
  make.full.label  write$
  "}{" write$
  list.year write$
  "}{" write$
  cite$ write$
  "}" write$
  newline$
  ""
  before.all 'output.state :=
}


FUNCTION {list.label.output}
{ make.list.label " " * write$
}

FUNCTION {article}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  author "author" item.check
  title.field field.used =
    { skip$ }
    { format.title "title" output.check }
  if$
  crossref missing$
    { journal emphasize "journal" duplicate$ item.check
      " " * format.vol.num.pages * output
    }
    { format.article.crossref output.nonnull
      format.pages output
    }
  if$
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {book}
{ output.bibitem
  list.label.output
  " " list.year * "" * output.nonnull
  new.block
  author empty$
    { editor "author and editor" item.check }
    { crossref missing$
	{ "author and editor" editor either.or.check }
	'skip$
      if$
    }
  if$
  title.field field.used =
    { skip$ }
    { format.btitle "title" output.check }
  if$
  crossref missing$
    { format.bvolume output
      format.number.series output
      format.edition output
      publisher "publisher" output.check
      address output
    }
    { format.book.crossref output.nonnull
      format.edition output
    }
  if$
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {booklet}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  title.field field.used =
    { skip$ }
    { format.title "title" output.check }
  if$
  howpublished output
  address output
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {inbook}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  author empty$
    { editor "author and editor" item.check }
    { crossref missing$
	{ "author and editor" editor either.or.check }
	'skip$
      if$
    }
  if$
  title.field field.used =
    { skip$ }
    { format.btitle "title" output.check }
  if$
  crossref missing$
    { format.bvolume output
      format.number.series output
      format.edition output
      publisher "publisher" output.check
      address output
    }
    { format.book.crossref output.nonnull
      format.edition output
    }
  if$
  format.chapter.pages "chapter and pages" output.check
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {incollection}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  title.field field.used =
    { skip$ }
    { format.title "title" output.check }
  if$
  author "author" item.check
  crossref missing$
    { format.in.ed.booktitle "booktitle" output.check
      format.edition output
      format.bvolume output
      format.number.series output
      publisher "publisher" output.check
      address output
    }
    { format.incoll.inproc.crossref output.nonnull
    }
  if$
  format.chapter.pages output
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {inproceedings}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  title.field field.used =
    { skip$ }
    { format.title "title" output.check }
  if$
  author "author" item.check
  crossref missing$
    { format.in.ed.booktitle "booktitle" output.check
      format.bvolume output
      format.number.series output
      address empty$
	{ organization output
	  publisher output
	}
	{ organization output
	  publisher output
	  address output.nonnull
	}
      if$
    }
    { format.incoll.inproc.crossref output.nonnull
    }
  if$
  format.pages output
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {conference} { inproceedings }

FUNCTION {manual}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  title.field field.used =
    { skip$ }
    { format.btitle "title" output.check }
  if$
  format.edition output
  author empty$
    { organization empty$
	{ address output
	}
	'skip$
      if$
    }
    { organization output
      address output
    }
  if$
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {mastersthesis}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  author "author" item.check
  title.field field.used =
    { skip$ }
    { format.title emphasize "title" output.check }
  if$
  "Master's thesis" format.thesis.type output.nonnull
  school "school" output.check
  address output
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {misc}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  title.field field.used =
    { skip$ }
    { format.title output }
  if$
  howpublished output
  new.block
  note output
  fin.entry
  write.url
  empty.misc.check
}

FUNCTION {phdthesis}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  author "author" item.check
  title.field field.used =
    { skip$ }
    { format.btitle "title" output.check }
  if$
  "PhD thesis" format.thesis.type output.nonnull
  school "school" output.check
  address output
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {proceedings}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  title.field field.used =
    { skip$ }
    { format.btitle "title" output.check }
  if$
  format.bvolume output
  format.number.series output
  address empty$
    { editor empty$
	{ skip$ }
	{ organization output
	}
      if$
      publisher output
    }
    { editor empty$
	'skip$
	{ organization output }
      if$
      publisher output
      address output.nonnull
    }
  if$
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {techreport}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  author "author" item.check
  title.field field.used =
    { skip$ }
    { format.title "title" output.check }
  if$
  format.tr.number emphasize output.nonnull
  institution "institution" output.check
  address output
  new.block
  note output
  fin.entry
  write.url
}

FUNCTION {unpublished}
{ output.bibitem
  list.label.output
  "" list.year * "" * output.nonnull
  new.block
  author "author" item.check
  title.field field.used =
    { skip$ }
    { format.title "title" output.check }
  if$
  new.block
  note "note" output.check
  fin.entry
  write.url
}

FUNCTION {default.type} { misc }

MACRO {jan} {"January"}

MACRO {feb} {"February"}

MACRO {mar} {"March"}

MACRO {apr} {"April"}

MACRO {may} {"May"}

MACRO {jun} {"June"}

MACRO {jul} {"July"}

MACRO {aug} {"August"}

MACRO {sep} {"September"}

MACRO {oct} {"October"}

MACRO {nov} {"November"}

MACRO {dec} {"December"}

MACRO {acmcs} {"ACM Computing Surveys"}

MACRO {acta} {"Acta Informatica"}

MACRO {cacm} {"Communications of the ACM"}

MACRO {ibmjrd} {"IBM Journal of Research and Development"}

MACRO {ibmsj} {"IBM Systems Journal"}

MACRO {ieeese} {"IEEE Transactions on Software Engineering"}

MACRO {ieeetc} {"IEEE Transactions on Computers"}

MACRO {ieeetcad}
 {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}

MACRO {ipl} {"Information Processing Letters"}

MACRO {jacm} {"Journal of the ACM"}

MACRO {jcss} {"Journal of Computer and System Sciences"}

MACRO {scp} {"Science of Computer Programming"}

MACRO {sicomp} {"SIAM Journal on Computing"}

MACRO {tocs} {"ACM Transactions on Computer Systems"}

MACRO {tods} {"ACM Transactions on Database Systems"}

MACRO {tog} {"ACM Transactions on Graphics"}

MACRO {toms} {"ACM Transactions on Mathematical Software"}

MACRO {toois} {"ACM Transactions on Office Information Systems"}

MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}

MACRO {tcs} {"Theoretical Computer Science"}

READ

EXECUTE {init.field.constants}

FUNCTION {sortify}
{ purify$
  "l" change.case$
}

FUNCTION {sortify.names}
{ " \harvardand\ " " " replace.substring
  " et~al." " zzz" replace.substring
  sortify
}

FUNCTION {author.key.label}
{ author empty$
    { key empty$
	{ title.field 'field.used := }
	{ key.field 'field.used := }
      if$
    }
    { author.field 'field.used := }
  if$
}

FUNCTION {author.editor.key.label}
{ author empty$
    { editor empty$
	{ key empty$
	    { title.field 'field.used := }
	    { key.field 'field.used := }
	  if$
  	}
	{ editor.field 'field.used := }
      if$
    }
    { author.field 'field.used := }
  if$
}

FUNCTION {author.key.organization.label}
{ author empty$
    { key empty$
	{ organization empty$
	    { title.field 'field.used := }
	    { organization.field 'field.used := }
	  if$
	}
	{ key.field 'field.used := }
      if$
    }
    { author.field 'field.used := }
  if$
}

FUNCTION {editor.key.organization.label}
{ editor empty$
    { key empty$
	{ organization empty$
	    { title.field 'field.used := }
	    { organization.field 'field.used := }
	  if$
	}
	{ key.field 'field.used := }
      if$
    }
    { editor.field 'field.used := }
  if$
}

FUNCTION {sort.format.title}
{ 't :=
  "A " #2
    "An " #3
      "The " #4 t chop.word
    chop.word
  chop.word
  sortify
  #1 global.max$ substring$
}

FUNCTION {calc.label}
{ make.abbr.label
  title.field field.used =
    { sort.format.title }
    { sortify.names }
  if$
  year field.or.null purify$ #-1 #4 substring$ sortify
  *
  'sort.label :=
}

FUNCTION {preliminaries} %%%XXX change
{ type$ "book" =
  type$ "inbook" =
  or
    'author.editor.key.label
    { type$ "proceedings" =
	'editor.key.organization.label
	{ type$ "manual" =
	    'author.key.organization.label
	    'author.key.label
	  if$
	}
      if$
    }
  if$
  author.field field.used = %%%XXX change
    {
      author num.names$ #2 >
        { #1 }
        { #0 }
      if$
      'etal.required :=
    }
    {
      editor.field field.used = 
        {
          editor num.names$ #2 >
            { #1 }
            { #0 }
          if$
        }
        { #0 }
      if$
      'etal.required :=
    }
  if$
  #1 'etal.allowed :=
}

FUNCTION {first.presort}
{ calc.label
  sort.label
  title.field field.used =
    { skip$ }
    { "    "
      *
      make.list.label sortify.names
      *
      "    "
      *
      title field.or.null
      sort.format.title
      *
    }
  if$
  #1 entry.max$ substring$
  'sort.key$ :=
}

ITERATE {preliminaries}

ITERATE {first.presort}

SORT

STRINGS { last.sort.label next.extra last.full.label }

INTEGERS { last.extra.num last.etal.allowed }

FUNCTION {initialize.confusion}
{ #0 int.to.chr$ 'last.sort.label :=
  #0 int.to.chr$ 'last.full.label :=
  #1 'last.etal.allowed :=
}

FUNCTION {confusion.pass}
{ last.sort.label sort.label =
    { last.etal.allowed 
        { last.full.label make.full.label sortify.names =
            { skip$ }
            { #0 'etal.allowed :=
              #0 'last.etal.allowed :=
            }
          if$
        }
        { #0 'etal.allowed := }
      if$
    }
    { sort.label 'last.sort.label :=
      make.full.label sortify.names 'last.full.label :=
      #1 'last.etal.allowed :=
    }
  if$
}

EXECUTE {initialize.confusion}

ITERATE {confusion.pass}

EXECUTE {initialize.confusion}

REVERSE {confusion.pass}

FUNCTION {initialize.last.extra.num}
{ #0 int.to.chr$ 'last.sort.label :=
  "" 'next.extra :=
  #0 'last.extra.num :=
}

FUNCTION {forward.pass}
{ last.sort.label sort.label =
    { last.extra.num #1 + 'last.extra.num :=
      last.extra.num int.to.chr$ 'extra.label :=
    }
    { "a" chr.to.int$ 'last.extra.num :=
      "" 'extra.label :=
      sort.label 'last.sort.label :=
    }
  if$
}

FUNCTION {reverse.pass}
{ next.extra "b" =
    { "a" 'extra.label := }
    'skip$
  if$
  year empty$
    { "n.d." extra.label * 'list.year := }
    { year extra.label * 'list.year := }
  if$
  extra.label 'next.extra :=
}

ITERATE {first.presort}

SORT

EXECUTE {initialize.last.extra.num}

ITERATE {forward.pass}

REVERSE {reverse.pass}

FUNCTION {second.presort}
{ make.list.label
  title.field field.used =
    { sort.format.title }
    { sortify.names }
  if$
  "    "
  *
  list.year field.or.null sortify
  *
  "    "
  *
  title.field field.used =
    { skip$ }
    { title field.or.null
      sort.format.title
      *
    }
  if$
  #1 entry.max$ substring$
  'sort.key$ :=
}

ITERATE {second.presort}

SORT

FUNCTION {begin.bib}
{ preamble$ empty$
    'skip$
    { "\harvardpreambledefs{%" write$ newline$
      preamble$ write$ "}" write$ newline$
      "\harvardpreambletext{%" write$ newline$
      preamble$ write$ "}" write$ newline$ }
  if$
  "\begin{thebibliography}{xx}" write$ newline$
}

EXECUTE {begin.bib}

EXECUTE {init.state.consts}

ITERATE {call.type$}

FUNCTION {end.bib}
{ newline$
  "\end{thebibliography}" write$ newline$
}

EXECUTE {end.bib}

@Book{Anderberg83,
   author =   {Anderberg, M. R.},
   title =    {Cluster Analysis for Applications},
   publisher =    {New York: Academic Press},
   year =     {1983},
 }

  @Manual{R:2010,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {Vienna, Austria: R Foundation for Statistical Computing},
    address = {},
    year = {2012},
    note = {{ISBN} 3-900051-07-0, http://www.R-project.org},
    url = {http://www.R-project.org},
  }

  @Manual{R:2008,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2008},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
  }

  @Article{Arabie80,
   author =   {Arabie, P. and Carroll, J. D.},
   title =    {MAPCLUS: A mathematical programming approach to fitting the ADCLUS models},
   journal =      {Psychometrika},
   year =     {1980 },
   volume =   {445},
   pages =    {211-35},
 }


@book{Tufte:1990,
	Address = {Cheshire, Connecticut},
	Author = {E. R. Tufte},
	Publisher = {Graphics Press},
	Title = {{Envisioning Information}},
	Year = {1990}}


@book{Tufte:1983,
	Address = {Cheshire},
	Author = {E. R. Tufte},
	Publisher = {Graphics Press},
	Title = {{The Visual Display of Quantitative Information}},
	Year = {1983}}

@book{Cleveland:1994,
	Address = {Summit},
	Author = {W. S. Cleveland},
	Edition = {Revised},
	Publisher = {Hobart Press},
	Title = {{The Elements of Graphing Data}},
	Year = {1994}}

@book{Cleveland:1993,
	Address = {Summit},
	Author = {W. S. Cleveland},
	Publisher = {Hobart Press},
	Title = {{Vizualizing Data}},
	Year = {1993}}

 @TECHREPORT{Ball65 ,
   AUTHOR =       {Ball, G. H. and Hall, D. J. },
   TITLE =        {A novel method of data analysis and pattern classification },
   INSTITUTION =  {Stanford Research Institute, California },
   YEAR =         {1965 },
 }

 @Article{Banfield93,
   author =   {Banfield, J. D. and Raftery, A. E.},
   title =    {Model-Based Gaussian and Non-Gaussian Clustering },
   journal =      {Biometrics },
   year =     {1993 },
   volume =   {49},
   pages =    {803--21},
 }

 @Article{Beale69,
   author =   {Beale, E. M. L.},
   title =    {Euclidean cluster analysis },
   journal =      {Bulletin of the International Statistical Institute },
   year =     {1969 },
   volume =   {43},
   pages =    {92-94},
 }

 @Article{Bensmail,
   author =   {Bensmail, H. },
   title =    {Model-based Clustering with Noise: Bayesian inference and estimation },
 }

@Article{Bezdek74,
   author =   {Bezdek, J. C.},
   title =    {Numerical taxonomy with fuzzy sets},
   journal =      {Journal of Methematical Biology},
   year =     {1974},
   volume =   {1},
   pages =    {57-71},
 }

@article{Cox:1972,
	Author = {D. R. Cox},
	Journal = {J. R. Statist. Soc. {\rm B}},
	Pages = {187--220},
	Title = {{Regression models and life tables (with Discussion)}},
	Volume = {34},
	Year = {1972}}

@article{Hear:Holm:Step:quan:2006,
	Author = {Heard, Nicholas A. and Holmes, Christopher C. and Stephens, David A.},
	Journal = {J. Am. Statist. Assoc.},
	Keywords = {bayesian hierarchical clustering; gene expression profiles; Microarrays},
	Pages = {18--29},
	Title = {A Quantitative Study of Gene Regulation Involved in the Immune Response of {A}nopheline Mosquitoes: {A}n Application of {B}ayesian Hierarchical Clustering of Curves},
	Volume = {101},
	Year = {2006}}

@article{Fan:2004,
	Author = {Fan, J. and Peng, H.},
	Journal = {Ann. Statist.},
	Pages = {928--61},
	Title = {{Nonconcave penalized likelihood with a diverging number of parameters}},
	Volume = {32},
	Year = {2004}}

\documentclass[draft]{OCR}
% \documentclass[final]{OCR}

%% -------------------------------------------------------------------
%% -------------------------------------------------------------------
%%% Try not include any additional package in this template. However...
%% -------------------------------------------------------------------
%% -------------------------------------------------------------------
%%% Siunitx: You can add this package if would like to express the
%%% units in the SI system correctly. Of course, you can always do it
%%% manually.
%\usepackage{siunitx}
%% -------------------------------------------------------------------
%% -------------------------------------------------------------------
%%% Flushend: You can add this package to automatically balance the
%%% final page, but if things go awry (e.g. section contents appearing
%%% out-of-order or entire blocks or paragraphs are coloured), remove
%%% it!
% \usepackage{flushend}

\title{Your paper}
\runningtitle{OCR Template}

%%% Use the \authfn to add symbols for additional footnotes, if any. 1
%%% is reserved for correspondence emails; then continuing with 2 etc
%%% for contribtions.
\author[1]{Firstname Lastname~\orcidlink{0000-0009-2217-3853}}
\author[2 \cauthfn{1}]{Secondname Lastname}
\author[2]{Thirdname Namelast~\orcidlink{0000-0009-2217-9999}}
\author[3]{Fourthname Namelast}

%%% "Short" author for running page header
\runningauthor{Lastname et al.}

%%% Corresponding Author 
\corrauth{\cauthfn{1} [email protected]}

\affil[1]{University 1, Third Av. 104, Sector Z,
  Building B, 3º P, Sala 2222, Country C, ZIP 01452-997}
\affil[2]{University 2 of 6, Province VII, Country X, ZIP 99-66555/4.}
\affil[3]{The Third Institute, Somecountry, etc.}

%%% ----------------------------------------------------------------------------
%%% This block should only be set by an editor
%%% ----------------------------------------------------------------------------
%%% Paper category
\jpapercat{Manuscript Template}
%%% Is this a special issue? answer is {no} or {name of the special issue}
%%% If it is not a special issue, just say no:
% \jspecial{no}
%%% Otherwise do it like this:
\jspecial{Advances in Physical Oceanography \linebreak honoring Prof. Affonso Mascarenhas}
\jissn{ISSN 2675-2824}
\jdoi{http://dx.doi.org/10.1590/FOR PEER REVIEW}
\jvolume{9}
\jnumber{00000}
\jyear{2022}
\jeditor{Rubens Mendes Lopes}
\jaeditor{Ronaldo Balofelli}
\jsubmitted{29-October-2022}
\japproved{18-December-2022}
%%% ----------------------------------------------------------------------------

\begin{document}

\begin{frontmatter}
\maketitle
\begin{abstract}
  Abstract should be limited to up to 300 words and it should give a complete understanding of the
  manuscript, including the main objective(s) or hypothesis/hypotheses, summarized methods, key
  results and final or concluding remarks. Do not use subheadings in the abstract body (such as
  ``objective'' or ``results''). Do not cite references.
% \textbf{Conclusions}
\end{abstract}

\begin{keywords}
Keyword1, keyword 2, keyword 3 (Limit to 5 keywords representing the main content of the article).
\end{keywords}
\end{frontmatter}

\section{Using this Template}

This \LaTeX{} template is a general guideline of the complete Instructions for Authors of the Ocean
and Coastal Research (OCR) journal. The manuscript sections below are given for Original
Articles. Other manuscript formats such as Review Articles may have a more flexible structure. In
the case of Brief Communications, all sections below should appear in sequence, without subsections
and subsubsections. For details, please refer to our webpage (Instruction for Authors) or contact
the editorial office at ocr\[email protected].

\textbf{Please note that whilst this template provides a preview of the typeset manuscript for
  submission, it will not necessarily be exactly the final publication layout.}

\section{Introduction}

The introduction should be concise and place the manuscript in broader context. The text should
present the current state of the knowledge in the topic related to the research, sharing the
baseline information and citing key and relevant publications.  The introduction should outline the
significance and purpose of the work and clearly describe specific hypotheses being tested, in the
last paragraph(s). Authors are free to describe their objective(s) as one or more hypothesis to be
tested, or as a question to be answered, or even as an interesting/important environmental
feature/phenomenon to be described.

The Introduction must be straight to the point, and preferably
without subheadings. Authors should keep in mind that the introduction must be comprehensible to
scientists from other research areas unrelated to the topic of the manuscript.  Lines should be
numbered in the document, starting from the first paragraph of the Introduction, as shown in this
template.

\section{Methods}

This section should be described with sufficient detail to allow others to replicate and build on
published results. New methods and protocols should be described in detail while well-established
methods can be briefly described and appropriately cited. We strongly recommend that authors
reference the study/survey in time and space, if applicable. Authors should describe the main
characteristics of the surveyed area and/or the experimental design. The description of data
analyses is strongly recommended. The name and version of any relevant software or computer code
relevant to the study should be cited or made available. Include any pre-registration
codes. Research permits should be placed in this section whenever necessary.

\section{Results}

This section must address the main results gathered from the sampling procedures, survey design
and/or experimental work described in the Methods section.

\subsection{Subheadings}

Authors are free to use specific subheadings to better share the most important results that support
or reject their research hypothesis or that better describe the oceanographic features being treated
in the manuscript.

The information in the Results section should follow the same logical presentation provided in the
Methods section. Tables and figures can be used to summarize or illustrate the results. Additional
data (large tables, extra figures, images, videos, etc.) can be shared as Supplementary Material in
case the manuscript is accepted. Please correctly identify such material upon submission.

You can use \verb|\section{...}|, \verb|\subsection{...}| commands to add more sections and
subsections to your manuscript. Further sectional levels are provided by \verb|\subsubsection|,
\verb|\paragraph| and \verb|\subparagraph|.

\subsection{Equations}

Equations are one of the main points of using \LaTeX. Here are some nonsense examples:

Let $X_1, X_2, \ldots, X_n$ be a sequence of independent and identically distributed random
variables with $\text{E}[X_i] = \mu$ and $\text{Var}[X_i] = \sigma^2 < \infty$, and let
%

\begin{equation}\label{eq:LeBron}
S_n = \frac{X_1 + X_2 + \cdots + X_n}{n}
      = \frac{1}{n}\sum_{i}^{n} X_i
\end{equation}
%
denote their mean. Then as $n$ approaches infinity, the random variables $\sqrt{n}(S_n - \mu)$
converge in distribution to a normal $\mathcal{N}(0, \sigma^2)$.

\begin{eqnarray}
  S_n = & \frac{X_1 + X_2 + \cdots + X_n}{n}
  \frac{X_1 + X_2 + \cdots + X_n}{n}
  \frac{X_1 + X_2 + \cdots + X_n}{n} \nonumber\\
  & \frac{X_1 + X_2 + \cdots + X_n}{n}
  \frac{X_1 + X_2 + \cdots + X_n}{n}
    \frac{X_1 + X_2 + \cdots + X_n}{n}\nonumber\\
        & \hspace{10.5em}\frac{X_1 + X_2 + \cdots + X_n}{n}
\end{eqnarray}
Here, have some more math:
\[ \vec{\nabla}\int_0^\infty\vec{P_i}\underbrace{(\kappa,\sigma,\varsigma, \zeta)}_{\text{true
      dimens.}}dt = \oint_0^\infty
  e^{\textstyle-\frac{2\pi}{\lambda}}\vec{\nabla}\left(\frac{\partial^2\psi}{\partial
      t^2}\right)dr_\perp\]
This last unnumbered formula has nothing to do with Formula~\ref{eq:LeBron} by Reynaud LeBron.

\subsection{Preparing Figures and Tables}

Figures and graphics at a sufficiently high resolution (minimum 1000 pixels width/height, or a
resolution of 300 dpi) can be uploaded in a proper field in the submission platform. Make
sure figures have sufficient pixel definition before submission. Common formats are accepted;
however, PNG, JPEG and EPS are preferred.  Authors are encouraged to prepare figures in color (RGB
at 8-bits per channel).

The text within the figures and graphics must be in a font size large enough to be perfectly legible
even after a figure is reduced to fit the journal’s page format. Ocean and Coastal Research can
publish multimedia files in articles or as supplementary materials. Please contact the editorial
office for further information.

All Figures and Tables should have a self-explanatory caption. All table columns should have an
explanatory heading. Further direction on Figures and Tables are detailed below .


In \LaTeX, figures and tables can be added with the usual \verb|figure| and \verb|table| environments, e.g.:
~Figure \ref{fig:example} and Table \ref{tab:example}. Use \verb|figure*| and \verb|table*| if you
need a two-column wide figure or table, as in Figure \ref{fig:example:wide} and Table
\ref{tab:example:wide}. {\bfseries We do not recommend}, but you can force a figure or table to appear at a
specific text location with \verb|figurehere| and \verb|tablehere| as in this example (see Figure~\ref{fig:example_here}).

\begin{figure}[bt!] %% preferably at bottom or top of column
\centering
\includegraphics[width=\linewidth, draft=false]{example-image}
\caption{An example figure}\label{fig:example}
\end{figure}

\begin{figurehere}
\centering
\includegraphics[width=0.3\linewidth, draft=false]{example-image}
\captionsetup{font=figcaptionfont}
\caption{An example figurehere.}\label{fig:example_here}
\end{figurehere}

\begin{table}[bt!]
\caption{An example table.}\label{tab:example}
\begin{tabular}{l r l}
\toprule
Item & Quantity & Notes\\
\midrule
Widgets & 42 & Over-supplied\textsuperscript{*} \\
Gadgets & 13 & Under-supplied \\
\bottomrule
\end{tabular}
\begin{tablenotes}
\item This is a table note.
\item \textsuperscript{*}Another note.
\end{tablenotes}
\end{table}

\section{Discussion}

The Discussion must start with a statement of main findings, preferably in one sentence, without
repeating the results.

The authors must then indicate the strengths and weaknesses of their results, in perspective with
other studies, and address the meaning of their findings without entering into speculative or
circular reasoning. Unanswered questions and future research directions may also be mentioned.

Quote tables and figures only when it is essential to draw the reader's attention to one or more
important results. 

\subsection{Subheadings}

Authors are free to use specific and useful subheadings according to their manuscript requirements
to better discuss the results.

\section{Conclusion}

This section is not mandatory but can be added to stress the main findings and future directions of
the research, usually within one or two paragraphs. This section must have a strong link to the main
objectives, questions or hypotheses. Avoid sentences such as "in conclusion ..." or "in
summary...". Use the section to highlight the value of your research and position your findings
within a large context.

\section{Acknowledgments}

Acknowledgments must be brief, straight to the point. Funding agencies and other funding sources
must be disclosed, with their respective grant number(s) if necessary. Keep the original names and
acronyms of the native language of institutions and sponsors.

\section{Author Contribution}


{\bfseries Ocean and Coastal Research} follows the {\bfseries CRediT} criteria for authorship role
designation. All co-authors must have at least (1) actively participated in the discussion of
results, and (2) reviewed and approved the final version of the manuscript. Please select the
role(s) for each author as expressed on the CRediT website at https://casrai.org/credit/ and inform
them in this section, using author initials, followed by the respective role(s).  For example:

\begin{description}
\item[F.L.]: Conceptualization; Investigation; Writing – original draft; Writing – review \&
  editing;
\item[S.L.]: Methodology; Software; Formal Analysis; Investigation; Writing – review \&
  editing;
\item[T.N.]: Data Curation; Software; Writing initial draft. 
\item[F.N.]: Supervision; Resources; Project Administration; Funding Acquisition; Writing – review
  \& editing.
\end{description}

\subsection{Citations and References}

Ocean and Coastal Research follows the Harvard style of literature referencing. For speeding up the
reviewing and the publishing processes, we strongly suggest the authors to use the ‘Ocean and
Coastal Research’ BiB\TeX\/ style (\texttt{ocr.bst}) available for download.

It is the responsibility of the authors to double check the list of references and their quotations
in the main text. Preparing the references using appropriate software will assist in avoiding typing
mistakes, duplicated references and formatting issues. Citations and References in Supplementary
files are permitted provided that they also appear in the main text and in the reference
list. Citations in the main text must include the author's names and year of publication, following
the ‘Ocean and Coastal Research’ style. References to thesis, dissertations and reports are allowed
as long as a valid and active URL pointing to the full text is included, along with the date of
access.


Use the \verb|\cite| command for parenthetical citations, and \verb|\citeasnoun| command for text
citations (when using \verb|alpha-refs|).  This is a citation: \cite{Fan:2004} and here are two more
\cite{Cox:1972,Hear:Holm:Step:quan:2006}.  This is a citation: \cite*{Fan:2004} and here is another
one: \citeasnoun{Hear:Holm:Step:quan:2006}. The resulting bibliography is as follows (and in the real case should be moved to the endo of the \texttt{.tex} file:

\section{\LaTeX-specific examples}

\begin{quote}
This is a quote, if you ever want to use one. 
\end{quote}

\begin{itemize}
\item This is a bullet list.
\item Another point.
\item A third point.
\end{itemize}

\begin{enumerate}
\item This is a numbered list.
\item Another point.
\item A third point.
\end{enumerate}

This\footnote{This is the footnote text. } is a footnote.

\subsection{This is a 2nd level heading}

\subsubsection{This is a 3rd level heading}

Use \verb|\subsubsection| to get a 3rd level heading.

\paragraph{This is a 4th level heading}

Use \verb|\paragraph| to get a 4th level heading.

\subparagraph{This is a 5th level heading}

Use \verb|\subparagraph| to get a 5th level heading.

\begin{figure*}%[b!]  %% Add a [b!] if you prefer the wide image to be at the bottm of the page
\centering
\includegraphics[width=.7\textwidth, draft=false]{example-image}
\caption{An example of a wide figure. 
}\label{fig:example:wide}
\end{figure*}

\begin{table*}[bt!]
\caption{Example of a wide table with notes. Automobile land speed records (GR 5-10)}\label{tab:example:wide}
% Use "S" column identifier (from siunitx) to align on decimal point.
% Use "L", "R" or "C" column identifier for auto-wrapping columns with tabularx.
\begin{tabularx}{\linewidth}{L l l l r L}
\toprule
{Speed (mph)} & {Driver} & {Car} & {Engine} & {Date} & {Extra comments}\\
\midrule
407.447     & Craig Breedlove & Spirit of America          & GE J47    & 8/5/63  & (Just to demo a full-width table with auto-wrapping long lines) \\
413.199     & Tom Green       & Wingfoot Express           & WE J46    & 10/2/64  \\
434.22      & Art Arfons      & Green Monster              & GE J79    & 10/5/64  \\
468.719     & Craig Breedlove & Spirit of America          & GE J79    & 10/13/64 \\
526.277     & Craig Breedlove & Spirit of America          & GE J79    & 10/15/65 \\
536.712     & Art Arfons      & Green Monster              & GE J79    & 10/27/65 \\
555.127     & Craig Breedlove & Spirit of America, Sonic 1 & GE J79    & 11/2/65  \\
576.553     & Art Arfons      & Green Monster              & GE J79    & 11/7/65  \\
600.601     & Craig Breedlove & Spirit of America, Sonic 1 & GE J79    & 11/15/65 \\
622.407     & Gary Gabelich   & Blue Flame                 & Rocket    & 10/23/70 \\
633.468     & Richard Noble   & Thrust 2                   & RR RG 146 & 10/4/83  \\
763.035     & Andy Green      & Thrust SSC                 & RR Spey   & 10/15/97\\
\bottomrule
\end{tabularx}

\begin{tablenotes}
\item Source is from this website: \url{https://www.sedl.org/afterschool/toolkits/science/pdf/ast_sci_data_tables_sample.pdf}
\end{tablenotes}
\end{table*}

%% Our template requires BiBTEX.
%% You don't need to specify the bibliography style as it is set by the \documentclass{OCR}.
%% Specify your .bib file name here, without the extension. My file is named paper-refs.bib.
\bibliography{paper-refs}

\end{document}