%%

%% This is file `gtart.bst',

%% generated with the docstrip utility.

%%

%%

%% The original source files were:

%%

%% merlin.mbs  (with options: `ed-au,nmft,nmft-bf,dt-jnl,yr-par,xmth,yrp-x,tit-it,atit-u,jttl-rm,vnum-x,volp-blk,jdt-vs,pp-last,num-xser,numser,jnm-x,bkpg-x,pre-edn,edpar,edby-par,edbyy,blk-com,in-x,fin-bare,ppx,xedn,and-xcom,xand,eprint,url,url-blk,nfss')

%% ----------------------------------------

%% *** For Geometry and Topology Publications ***

%% 

%% Copyright 1994-1999 Patrick W Daly

%%

%% Modified by Boris Okun 12/2001

%%

 % ===============================================================

 % IMPORTANT NOTICE:

 % This bibliographic style (bst) file has been generated from one or

 % more master bibliographic style (mbs) files, listed above.

 %

 % This generated file can be redistributed and/or modified under the terms

 % of the LaTeX Project Public License Distributed from CTAN

 % archives in directory macros/latex/base/lppl.txt; either

 % version 1 of the License, or any later version.

 % ===============================================================

 % Name and version information of the main mbs file:

 % \ProvidesFile{merlin.mbs}[1999/03/18 3.88 (PWD)]

 %   For use with BibTeX version 0.99a or later

 %-------------------------------------------------------------------

 % This bibliography style file is intended for texts in ENGLISH

 % This is a numerical citation style, and as such is standard LaTeX.

 % It requires no extra package to interface to the main text.

 % The form of the \bibitem entries is

 %   \bibitem{key}...

 % Usage of \cite is as follows:

 %   \cite{key} ==>>          [#]

 %   \cite[chap. 2]{key} ==>> [#, chap. 2]

 % where # is a number determined by the ordering in the reference list.

 % The order in the reference list is alphabetical by authors.

 %---------------------------------------------------------------------

ENTRY

  { address

    author

    booktitle

    chapter

    edition

    editor

    howpublished

    institution

    journal

    key

    month

    note

    number

    organization

    pages

    publisher

    school

    series

    title

    type

    url

    volume

    year

  }

  {}

  { label }

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 }

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 {fin.entry}

{ duplicate$ empty$

    'pop$

    'write$

  if$

  newline$

}

FUNCTION {new.block}

{ output.state before.all =

    'skip$

    { after.block 'output.state := }

  if$

}

FUNCTION {new.sentence}

{ output.state after.block =

    'skip$

    { output.state before.all =

        'skip$

        { after.sentence 'output.state := }

      if$

    }

  if$

}

FUNCTION {add.blank}

{  " " * before.all 'output.state :=

}

FUNCTION {date.block}

{

  add.blank

}

FUNCTION {not}

{   { #0 }

    { #1 }

  if$

}

FUNCTION {and}

{   'skip$

    { pop$ #0 }

  if$

}

FUNCTION {or}

{   { pop$ #1 }

    'skip$

  if$

}

FUNCTION {new.block.checka}

{ empty$

    'skip$

    'new.block

  if$

}

FUNCTION {new.block.checkb}

{ empty$

  swap$ empty$

  and

    'skip$

    'new.block

  if$

}

FUNCTION {new.sentence.checka}

{ empty$

    'skip$

    'new.sentence

  if$

}

FUNCTION {new.sentence.checkb}

{ empty$

  swap$ empty$

  and

    'skip$

    'new.sentence

  if$

}

FUNCTION {field.or.null}

{ duplicate$ empty$

    { pop$ "" }

    'skip$

  if$

}

FUNCTION {emphasize}

{ duplicate$ empty$

    { pop$ "" }

    { "\emph{" swap$ * "}" * }

  if$

}

FUNCTION {bolden}

{ duplicate$ empty$

    { pop$ "" }

    { "\textbf{" swap$ * "}" * }

  if$

}

FUNCTION {quotify}

{ duplicate$ empty$

    { pop$ "" }

    { "``" swap$ * "''" * }

  if$

}

FUNCTION {bib.name.font}

{ bolden }

FUNCTION {bib.fname.font}

{ bib.name.font }

FUNCTION {capitalize}

{ "u" change.case$ "t" change.case$ }

FUNCTION {space.word}

{ " " swap$ * " " * }

 % Here are the language-specific definitions for explicit words.

 % Each function has a name bbl.xxx where xxx is the English word.

 % The language selected here is ENGLISH

FUNCTION {bbl.and}

{ "and"}

FUNCTION {bbl.etal}

{ "et~al." }

FUNCTION {bbl.editors}

{ "editors" }

FUNCTION {bbl.editor}

{ "editor" }

FUNCTION {bbl.edby}

{ "edited by" }

FUNCTION {bbl.edition}

{ "edition" }

FUNCTION {bbl.volume}

{ "volume" }

FUNCTION {bbl.of}

{ "of" }

FUNCTION {bbl.number}

{ "number" }

FUNCTION {bbl.nr}

{ "no." }

FUNCTION {bbl.in}

{ "in" }

FUNCTION {bbl.pages}

{ "" }

FUNCTION {bbl.page}

{ "" }

FUNCTION {bbl.chapter}

{ "chapter" }

FUNCTION {bbl.techrep}

{ "Technical Report" }

FUNCTION {bbl.mthesis}

{ "Master's thesis" }

FUNCTION {bbl.phdthesis}

{ "Ph.D. thesis" }

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"}

FUNCTION {format.url}

{ url empty$

    { "" }

    { "\urlprefix\url{" url * "}" * }

  if$

}

INTEGERS { nameptr namesleft numnames charptr}

STRINGS {i j}

FUNCTION {remove.periods}

{'i :=

 ""

 #1 'charptr :=

 " " 'j := 

 {#1 j "" =  -  } 

    {i charptr #1  substring$

    'j :=

     j "." = 

       {charptr #1 + 'charptr :=

	 i charptr #1  substring$

	 'j :=

	 j "~" =

		{"\," *}

		{j *}

	 if$}

	 {j *} 

     if$

    charptr #1 + 'charptr :=

 }

 while$

}

FUNCTION {format.names}

{ 's :=

  #1 'nameptr :=

  s num.names$ 'numnames :=

  numnames 'namesleft :=

    { namesleft #0 > }

    { s nameptr

      "{ff }{vv~}{ll}{, jj}" format.name$

	remove.periods

      't :=

      nameptr #1 >

        {

          namesleft #1 >

            { ", " * t * }

            {

              "," *

              s nameptr "{ll}" format.name$ duplicate$ "others" =

                { 't := }

                { pop$ }

              if$

              t "others" =

                {

                  " " * bbl.etal *

%                  bib.name.font

                }

                { " " * t * }

              if$

            }

          if$

        }

        't

      if$

      nameptr #1 + 'nameptr :=

      namesleft #1 - 'namesleft :=

    }

  while$

%  t "others" =

%    'skip$

%    { bib.name.font }

%  if$

}

FUNCTION {bformat.names} % Formats names in bold, but keeps punctuation normal

{ 's :=

  #1 'nameptr :=

  s num.names$ 'numnames :=

  numnames 'namesleft :=

    { namesleft #0 > }

    { s nameptr

      "{ff }{vv~}{ll}{, jj}" format.name$

	remove.periods

	bib.name.font

      't :=

      nameptr #1 >

        {

          namesleft #1 >

            { ", " * t * }

            {

              "," *

              s nameptr "{ll}" format.name$ duplicate$ "others" =

                { 't := }

                { pop$ }

              if$

              t "others" =

                {

                  " " * bbl.etal *

%                  bib.name.font

                }

                { " " * t * }

              if$

            }

          if$

        }

        't

      if$

      nameptr #1 + 'nameptr :=

      namesleft #1 - 'namesleft :=

    }

  while$

%  t "others" =

%    'skip$

%    { bib.name.font }

%  if$

}

FUNCTION {format.names.ed}

{ format.names }

FUNCTION {format.authors}

{ author empty$

    { "" }

    { author bformat.names }

%	bib.name.font}

  if$

}

FUNCTION {format.editors}

{ editor empty$

    { "" }

    { editor bformat.names

%	bib.name.font

      editor num.names$ #1 >

        { " (" * bbl.editors * ")" * }

        { " (" * bbl.editor * ")" * }

      if$

    }

  if$

}

FUNCTION {format.in.editors}

{ editor empty$

    { "" }

    { editor format.names.ed

    }

  if$

}

FUNCTION {format.note}

{

 note empty$

    { "" }

    { note #1 #1 substring$

      duplicate$ "{" =

        'skip$

        { output.state mid.sentence =

          { "l" }

          { "u" }

        if$

        change.case$

        }

      if$

      note #2 global.max$ substring$ *

    }

  if$

}

FUNCTION {format.title}

{ title empty$

    { "" }

    { title

      emphasize

    }

  if$

}

FUNCTION {output.bibitem}

{ newline$

  "\bibitem{" write$

  cite$ write$

  "}" write$

  newline$

  ""

  before.all 'output.state :=

}

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$