trunk/openmdDocs/aip.bst

%% #define AIP 1                % Fri Jun 15 10:51:17 1990
%% #include "TEX$ROOT:[BIBTEX]PHYSICS.BTX"
        % Please notify Charles Karney (Karney@Princeton.EDU)
        % of any bugs, improvements, etc.

        % For American Institute of Physics Journals

        % version 0.99b for BibTeX versions 0.99a or later, LaTeX version 2.09.
        % Copyright (C) 1985, 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, and abbrv.bst.
        % This restriction helps ensure that all standard styles are identical.
        % The file btxbst.doc has the documentation for this style.

ENTRY
  { address
    author
    booktitle
    chapter
    edition
    editor
    howpublished
    institution
    journal
    key
    month
    note
    number
    organization
    pages
    publisher
    school
    series
    title
    type
    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 =
        { "," * 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 {output.bibitem}
{ newline$
  "\bibitem{" write$
  cite$ write$
  "}" write$
  newline$
  ""
  before.all 'output.state :=
}

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

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

FUNCTION {new.sentence}
{ skip$
}

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$ "" }
    { "{\em " swap$ * "}" * }
  if$
}

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

FUNCTION {paren}
{ duplicate$ empty$
    { pop$ "" }
    { "(" swap$ * ")" * }
  if$
}

INTEGERS { nameptr namesleft numnames }

INTEGERS { etal }

FUNCTION {format.names}
{ 's :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames #5 >
  s numnames "{ll}" format.name$ "others" = numnames #1 > and
  or 'etal :=
  etal
    { #1 #1 + 'namesleft := }
    { numnames 'namesleft := }
  if$
    { namesleft #0 > }
    { s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't :=
      nameptr #1 >
        { namesleft #1 >
            { ", " * t * }
            { nameptr #2 >
                { "," * }
                'skip$
              if$
              t "others" =
              etal or
                { " et~al." * }
                { " and " * t * }
              if$
            }
          if$
        }
        't
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
    }
  while$
}

FUNCTION {format.authors}
{ author empty$
    { "" }
    { author format.names }
  if$
}

FUNCTION {format.editors}
{ editor empty$
    { "" }
    { editor format.names
      editor num.names$ #1 >
        { ", editors" * }
        { ", editor" * }
      if$
    }
  if$
}

FUNCTION {format.edited}
{ editor empty$
    { "" }
    { "edited by " editor format.names * }
  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 {first.page}
{ 't :=
  ""
    {  t empty$ not t #1 #1 substring$ "-" = not and }
    { t #1 #1 substring$ *
      t #2 global.max$ substring$ 't :=
    }
  while$
}

FUNCTION {format.date}
{ year empty$
    { "" }
    'year
  if$
}

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$
    { "" }
    { "volume" 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 * }
          if$
        }
      if$
    }
    { "" }
  if$
}

FUNCTION {format.edition}
{ edition empty$
    { "" }
    { output.state mid.sentence =
        { edition "l" change.case$ " edition" * }
        { edition "t" change.case$ " edition" * }
      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" pages n.dashify tie.or.space.connect }
        { "page" pages tie.or.space.connect }
      if$
    }
  if$
}

FUNCTION {format.pages.a}
{ pages empty$
    { "" }
    { "page" pages first.page tie.or.space.connect }
  if$
}

FUNCTION {format.vol.num.pages}
{ volume field.or.null embolden
  " " swap$ * *
  pages empty$
    'skip$
    { duplicate$ empty$
        { pop$ format.pages.a }
        { ", " * pages first.page * }
      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$
        { "in " booktitle emphasize * }
        { "in " booktitle emphasize * ", " * format.edited * }
      if$
    }
  if$
}

FUNCTION {empty.misc.check}
{ author empty$ title empty$ howpublished empty$
  month empty$ year empty$ note empty$
  and and and and 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 " journal emphasize * }
      if$
    }
    { "In " key * }
  if$
  " \cite{" * crossref * "}" *
}

FUNCTION {format.crossref.editor}
{ editor #1 "{vv~}{ll}" format.name$
  editor num.names$ duplicate$
  #2 >
    { pop$ " et~al." * }
    { #2 <
        'skip$
        { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
            { " et~al." * }
            { " and " * editor #2 "{vv~}{ll}" format.name$ * }
          if$
        }
      if$
    }
  if$
}

FUNCTION {format.book.crossref}
{ volume empty$
    { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
      "In "
    }
    { "Volume" 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 * "\/}" * }
          if$
        }
        { key * }
      if$
    }
    { format.crossref.editor * }
  if$
  " \cite{" * crossref * "}" *
}

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 * "\/}" * }
          if$
        }
        { "In " key * }
      if$
    }
    { "In " format.crossref.editor * }
  if$
  " \cite{" * crossref * "}" *
}

FUNCTION {article}
{ output.bibitem
  format.authors "author" output.check
  new.block
  crossref missing$
    { journal emphasize field.or.null
      format.vol.num.pages 
      format.date empty$
        'skip$
        { duplicate$ empty$
            { pop$ format.date paren }
            { " " * format.date paren * }
          if$
        }
      if$
      output
    }
    { format.article.crossref output.nonnull
      format.pages output
    }
  if$
  new.block
  note output
  fin.entry
}

FUNCTION {book}
{ output.bibitem
  author empty$
    { format.editors "author and editor" output.check }
    { format.authors output.nonnull
      crossref missing$
        { "author and editor" editor either.or.check }
        'skip$
      if$
    }
  if$
  new.block
  format.btitle "title" output.check
  crossref missing$
    { format.bvolume output
      new.block
      format.number.series output
      new.sentence
      publisher "publisher" output.check
      address output
    }
    { new.block
      format.book.crossref output.nonnull
    }
  if$
  format.edition output
  format.date "year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {booklet}
{ output.bibitem
  format.authors output
  new.block
  format.title "title" output.check
  howpublished address new.block.checkb
  howpublished output
  address output
  format.date output
  new.block
  note output
  fin.entry
}

FUNCTION {inbook}
{ output.bibitem
  author empty$
    { format.editors "author and editor" output.check }
    { format.authors output.nonnull
      crossref missing$
        { "author and editor" editor either.or.check }
        'skip$
      if$
    }
  if$
  new.block
  format.btitle "title" output.check
  crossref missing$
    { format.bvolume output
      format.chapter.pages "chapter and pages" output.check
      new.block
      format.number.series output
      new.sentence
      publisher "publisher" output.check
      address output
    }
    { format.chapter.pages "chapter and pages" output.check
      new.block
      format.book.crossref output.nonnull
    }
  if$
  format.edition output
  format.date "year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {incollection}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  crossref missing$
    { format.in.ed.booktitle "booktitle" output.check
      format.bvolume output
      format.number.series output
      format.chapter.pages output
      new.sentence
      publisher "publisher" output.check
      address output
      format.edition output
      format.date "year" output.check
    }
    { format.incoll.inproc.crossref output.nonnull
      format.chapter.pages output
    }
  if$
  new.block
  note output
  fin.entry
}

FUNCTION {inproceedings}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  crossref missing$
    { format.in.ed.booktitle "booktitle" output.check
      format.bvolume output
      format.number.series output
      format.pages output
      address empty$
        { organization publisher new.sentence.checkb
          organization output
          publisher output
          format.date "year" output.check
        }
        { address output.nonnull
          format.date "year" output.check
          new.sentence
          organization output
          publisher output
        }
      if$
    }
    { format.incoll.inproc.crossref output.nonnull
      format.pages output
    }
  if$
  new.block
  note output
  fin.entry
}

FUNCTION {conference} { inproceedings }

FUNCTION {manual}
{ output.bibitem
  author empty$
    { organization empty$
        'skip$
        { organization output.nonnull
          address output
        }
      if$
    }
    { format.authors output.nonnull }
  if$
  new.block
  format.btitle "title" output.check
  author empty$
    { organization empty$
        { address new.block.checka
          address output
        }
        'skip$
      if$
    }
    { organization address new.block.checkb
      organization output
      address output
    }
  if$
  format.edition output
  format.date output
  new.block
  note output
  fin.entry
}

FUNCTION {mastersthesis}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  "Master's thesis" format.thesis.type output.nonnull
  school "school" output.check
  address output
  format.date "year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {misc}
{ output.bibitem
  format.authors output
  title howpublished new.block.checkb
  format.title output
  howpublished new.block.checka
  howpublished output
  format.date output
  new.block
  note output
  fin.entry
  empty.misc.check
}

FUNCTION {phdthesis}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.btitle "title" output.check
  new.block
  "PhD thesis" format.thesis.type output.nonnull
  school "school" output.check
  address output
  format.date "year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {proceedings}
{ output.bibitem
  editor empty$
    { organization output }
    { format.editors output.nonnull }
  if$
  new.block
  format.btitle "title" output.check
  format.bvolume output
  format.number.series output
  address empty$
    { editor empty$
        { publisher new.sentence.checka }
        { organization publisher new.sentence.checkb
          organization output
        }
      if$
      publisher output
      format.date "year" output.check
    }
    { address output.nonnull
      format.date "year" output.check
      new.sentence
      editor empty$
        'skip$
        { organization output }
      if$
      publisher output
    }
  if$
  new.block
  note output
  fin.entry
}

FUNCTION {techreport}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  format.tr.number output.nonnull
  institution "institution" output.check
  address output
  format.date "year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {unpublished}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  note "note" output.check
  format.date output
  fin.entry
}

FUNCTION {default.type} { misc }

MACRO {jan} {"Jan."}

MACRO {feb} {"Feb."}

MACRO {mar} {"Mar."}

MACRO {apr} {"Apr."}

MACRO {may} {"May"}

MACRO {jun} {"June"}

MACRO {jul} {"July"}

MACRO {aug} {"Aug."}

MACRO {sep} {"Sept."}

MACRO {oct} {"Oct."}

MACRO {nov} {"Nov."}

MACRO {dec} {"Dec."}

MACRO {acmcs} {"ACM Comput. Surv."}

MACRO {acta} {"Acta Inf."}

MACRO {cacm} {"Commun. ACM"}

MACRO {ibmjrd} {"IBM J. Res. Dev."}

MACRO {ibmsj} {"IBM Syst.~J."}

MACRO {ieeese} {"IEEE Trans. Softw. Eng."}

MACRO {ieeetc} {"IEEE Trans. Comput."}

MACRO {ieeetcad}
 {"IEEE Trans. Comput.-Aided Design Integrated Circuits"}

MACRO {ipl} {"Inf. Process. Lett."}

MACRO {jacm} {"J.~ACM"}

MACRO {jcss} {"J.~Comput. Syst. Sci."}

MACRO {scp} {"Sci. Comput. Programming"}

MACRO {sicomp} {"SIAM J. Comput."}

MACRO {tocs} {"ACM Trans. Comput. Syst."}

MACRO {tods} {"ACM Trans. Database Syst."}

MACRO {tog} {"ACM Trans. Gr."}

MACRO {toms} {"ACM Trans. Math. Softw."}

MACRO {toois} {"ACM Trans. Office Inf. Syst."}

MACRO {toplas} {"ACM Trans. Prog. Lang. Syst."}

MACRO {tcs} {"Theoretical Comput. Sci."}

MACRO {advp} {"Adv. Phys."}
MACRO {ajp} {"Am. J. Phys."}
MACRO {ao} {"Appl. Opt."}
MACRO {apl} {"Appl. Phys. Lett."}
MACRO {apj} {"Astrophys. J."}
MACRO {baps} {"Bull. Am. Phys. Soc."}
MACRO {cpc} {"Computer Phys. Comm."}
MACRO {cppcf} {"Comments Plasma Phys. Controlled Fusion"}
MACRO {fed} {"Fusion Eng. Design"}
MACRO {ft} {"Fusion Tech."}
MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
MACRO {ijimw} {"Int. J. Infrared Millimeter Waves"}
MACRO {ip} {"Infrared Phys."}
MACRO {jap} {"J. Appl. Phys."}
MACRO {jcp} {"J. Comput. Phys."}
MACRO {jetp} {"Sov. Phys.-JETP"}
MACRO {jfe} {"J. Fusion Energy"}
MACRO {jfm} {"J. Fluid Mech."}
MACRO {jgr} {"J. Geophys. Res."}
MACRO {jmp} {"J. Math. Phys."}
MACRO {jne} {"J. Nucl. Energy"}
MACRO {jnec} {"J. Nucl. Energy, Part C"}
MACRO {jnm} {"J. Nucl. Mater."}
MACRO {josa} {"J. Opt. Soc. Am."}
MACRO {jpp} {"J. Plasma Phys."}
MACRO {jpsj} {"J. Phys. Soc. Jpn"}
MACRO {jvst} {"J. Vac. Sci. Technol."}
MACRO {nedf} {"Nucl. Eng. Design/Fusion"}
MACRO {nf} {"Nucl. Fusion"}
MACRO {nim} {"Nucl. Instrum. Methods"}
MACRO {nimpr} {"Nucl. Instrum. Methods Phys. Research"}
MACRO {nt/f} {"Nucl. Tech./Fusion"}
MACRO {pf} {"Phys. Fluids"}
MACRO {pfa} {"Phys. Fluids A"}
MACRO {pfb} {"Phys. Fluids B"}
MACRO {pl} {"Phys. Lett."}
MACRO {pla} {"Phys. Lett. A"}
MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
MACRO {pp} {"Plasma Phys."}
MACRO {ppcf} {"Plasma Phys. Controlled Fusion"}
MACRO {prl} {"Phys. Rev. Lett."}
MACRO {pr} {"Phys. Rev."}
MACRO {pra} {"Phys. Rev. A"}
MACRO {ps} {"Physica Scripta"}
MACRO {rmp} {"Rev. Mod. Phys."}
MACRO {rsi} {"Rev. Sci. Instrum."}
MACRO {sjpp} {"Sov. J. Plasma Phys."}
MACRO {spd} {"Sov. Phys.-Dokl."}
MACRO {sptp} {"Sov. Phys.-Tech. Phys."}
MACRO {spu} {"Sov. Phys.-Usp."}

READ

STRINGS { longest.label }

INTEGERS { number.label longest.label.width }

FUNCTION {initialize.longest.label}
{ "" 'longest.label :=
  #1 'number.label :=
  #0 'longest.label.width :=
}

FUNCTION {longest.label.pass}
{ number.label int.to.str$ 'label :=
  number.label #1 + 'number.label :=
  label width$ longest.label.width >
    { label 'longest.label :=
      label width$ 'longest.label.width :=
    }
    'skip$
  if$
}

EXECUTE {initialize.longest.label}

ITERATE {longest.label.pass}

FUNCTION {begin.bib}
{ preamble$ empty$
    'skip$
    { preamble$ write$ newline$ }
  if$
  "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
}

EXECUTE {begin.bib}

EXECUTE {init.state.consts}

ITERATE {call.type$}

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

EXECUTE {end.bib}
Revision:	3794
Committed:	Tue Aug 21 13:32:12 2012 UTC (11 years, 10 months ago) by gezelter
File size:	18992 byte(s)
Log Message:	Added bibliography style file, and did formatting.
#	User	Rev	Content
1	gezelter	3794	%% #define AIP 1 % Fri Jun 15 10:51:17 1990
2			%% #include "TEX$ROOT:[BIBTEX]PHYSICS.BTX"
3			% Please notify Charles Karney (Karney@Princeton.EDU)
4			% of any bugs, improvements, etc.
5
6			% For American Institute of Physics Journals
7
8			% version 0.99b for BibTeX versions 0.99a or later, LaTeX version 2.09.
9			% Copyright (C) 1985, all rights reserved.
10			% Copying of this file is authorized only if either
11			% (1) you make absolutely no changes to your copy, including name, or
12			% (2) if you do make changes, you name it something other than
13			% btxbst.doc, plain.bst, unsrt.bst, alpha.bst, and abbrv.bst.
14			% This restriction helps ensure that all standard styles are identical.
15			% The file btxbst.doc has the documentation for this style.
16
17			ENTRY
18			{ address
19			author
20			booktitle
21			chapter
22			edition
23			editor
24			howpublished
25			institution
26			journal
27			key
28			month
29			note
30			number
31			organization
32			pages
33			publisher
34			school
35			series
36			title
37			type
38			volume
39			year
40			}
41			{}
42			{ label }
43
44			INTEGERS { output.state before.all mid.sentence after.sentence after.block }
45
46			FUNCTION {init.state.consts}
47			{ #0 'before.all :=
48			#1 'mid.sentence :=
49			#2 'after.sentence :=
50			#3 'after.block :=
51			}
52
53			STRINGS { s t }
54
55			FUNCTION {output.nonnull}
56			{ 's :=
57			output.state mid.sentence =
58			{ ", " * write$ }
59			{ output.state after.block =
60			{ "," * write$
61			newline$
62			"\newblock " write$
63			}
64			{ output.state before.all =
65			'write$
66			{ add.period$ " " * write$ }
67			if$
68			}
69			if$
70			mid.sentence 'output.state :=
71			}
72			if$
73			s
74			}
75
76			FUNCTION {output}
77			{ duplicate$ empty$
78			'pop$
79			'output.nonnull
80			if$
81			}
82
83			FUNCTION {output.check}
84			{ 't :=
85			duplicate$ empty$
86			{ pop$ "empty " t * " in " * cite$ * warning$ }
87			'output.nonnull
88			if$
89			}
90
91			FUNCTION {output.bibitem}
92			{ newline$
93			"\bibitem{" write$
94			cite$ write$
95			"}" write$
96			newline$
97			""
98			before.all 'output.state :=
99			}
100
101			FUNCTION {fin.entry}
102			{ add.period$
103			write$
104			newline$
105			}
106
107			FUNCTION {new.block}
108			{ output.state before.all =
109			'skip$
110			{ after.block 'output.state := }
111			if$
112			}
113
114			FUNCTION {new.sentence}
115			{ skip$
116			}
117
118			FUNCTION {not}
119			{ { #0 }
120			{ #1 }
121			if$
122			}
123
124			FUNCTION {and}
125			{ 'skip$
126			{ pop$ #0 }
127			if$
128			}
129
130			FUNCTION {or}
131			{ { pop$ #1 }
132			'skip$
133			if$
134			}
135
136			FUNCTION {new.block.checka}
137			{ empty$
138			'skip$
139			'new.block
140			if$
141			}
142
143			FUNCTION {new.block.checkb}
144			{ empty$
145			swap$ empty$
146			and
147			'skip$
148			'new.block
149			if$
150			}
151
152			FUNCTION {new.sentence.checka}
153			{ empty$
154			'skip$
155			'new.sentence
156			if$
157			}
158
159			FUNCTION {new.sentence.checkb}
160			{ empty$
161			swap$ empty$
162			and
163			'skip$
164			'new.sentence
165			if$
166			}
167
168			FUNCTION {field.or.null}
169			{ duplicate$ empty$
170			{ pop$ "" }
171			'skip$
172			if$
173			}
174
175			FUNCTION {emphasize}
176			{ duplicate$ empty$
177			{ pop$ "" }
178			{ "{\em " swap$ * "}" * }
179			if$
180			}
181
182			FUNCTION {embolden}
183			{ duplicate$ empty$
184			{ pop$ "" }
185			{ "{\bf " swap$ * "}" * }
186			if$
187			}
188
189			FUNCTION {paren}
190			{ duplicate$ empty$
191			{ pop$ "" }
192			{ "(" swap$ * ")" * }
193			if$
194			}
195
196			INTEGERS { nameptr namesleft numnames }
197
198			INTEGERS { etal }
199
200			FUNCTION {format.names}
201			{ 's :=
202			#1 'nameptr :=
203			s num.names$ 'numnames :=
204			numnames #5 >
205			s numnames "{ll}" format.name$ "others" = numnames #1 > and
206			or 'etal :=
207			etal
208			{ #1 #1 + 'namesleft := }
209			{ numnames 'namesleft := }
210			if$
211			{ namesleft #0 > }
212			{ s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't :=
213			nameptr #1 >
214			{ namesleft #1 >
215			{ ", " * t * }
216			{ nameptr #2 >
217			{ "," * }
218			'skip$
219			if$
220			t "others" =
221			etal or
222			{ " et~al." * }
223			{ " and " * t * }
224			if$
225			}
226			if$
227			}
228			't
229			if$
230			nameptr #1 + 'nameptr :=
231			namesleft #1 - 'namesleft :=
232			}
233			while$
234			}
235
236			FUNCTION {format.authors}
237			{ author empty$
238			{ "" }
239			{ author format.names }
240			if$
241			}
242
243			FUNCTION {format.editors}
244			{ editor empty$
245			{ "" }
246			{ editor format.names
247			editor num.names$ #1 >
248			{ ", editors" * }
249			{ ", editor" * }
250			if$
251			}
252			if$
253			}
254
255			FUNCTION {format.edited}
256			{ editor empty$
257			{ "" }
258			{ "edited by " editor format.names * }
259			if$
260			}
261
262			FUNCTION {format.title}
263			{ title empty$
264			{ "" }
265			{ title "t" change.case$ }
266			if$
267			}
268
269			FUNCTION {n.dashify}
270			{ 't :=
271			""
272			{ t empty$ not }
273			{ t #1 #1 substring$ "-" =
274			{ t #1 #2 substring$ "--" = not
275			{ "--" *
276			t #2 global.max$ substring$ 't :=
277			}
278			{ { t #1 #1 substring$ "-" = }
279			{ "-" *
280			t #2 global.max$ substring$ 't :=
281			}
282			while$
283			}
284			if$
285			}
286			{ t #1 #1 substring$ *
287			t #2 global.max$ substring$ 't :=
288			}
289			if$
290			}
291			while$
292			}
293
294			FUNCTION {first.page}
295			{ 't :=
296			""
297			{ t empty$ not t #1 #1 substring$ "-" = not and }
298			{ t #1 #1 substring$ *
299			t #2 global.max$ substring$ 't :=
300			}
301			while$
302			}
303
304			FUNCTION {format.date}
305			{ year empty$
306			{ "" }
307			'year
308			if$
309			}
310
311			FUNCTION {format.btitle}
312			{ title emphasize
313			}
314
315			FUNCTION {tie.or.space.connect}
316			{ duplicate$ text.length$ #3 <
317			{ "~" }
318			{ " " }
319			if$
320			swap$ * *
321			}
322
323			FUNCTION {either.or.check}
324			{ empty$
325			'pop$
326			{ "can't use both " swap$ * " fields in " * cite$ * warning$ }
327			if$
328			}
329
330			FUNCTION {format.bvolume}
331			{ volume empty$
332			{ "" }
333			{ "volume" volume tie.or.space.connect
334			series empty$
335			'skip$
336			{ " of " * series emphasize * }
337			if$
338			"volume and number" number either.or.check
339			}
340			if$
341			}
342
343			FUNCTION {format.number.series}
344			{ volume empty$
345			{ number empty$
346			{ series field.or.null }
347			{ output.state mid.sentence =
348			{ "number" }
349			{ "Number" }
350			if$
351			number tie.or.space.connect
352			series empty$
353			{ "there's a number but no series in " cite$ * warning$ }
354			{ " in " * series * }
355			if$
356			}
357			if$
358			}
359			{ "" }
360			if$
361			}
362
363			FUNCTION {format.edition}
364			{ edition empty$
365			{ "" }
366			{ output.state mid.sentence =
367			{ edition "l" change.case$ " edition" * }
368			{ edition "t" change.case$ " edition" * }
369			if$
370			}
371			if$
372			}
373
374			INTEGERS { multiresult }
375
376			FUNCTION {multi.page.check}
377			{ 't :=
378			#0 'multiresult :=
379			{ multiresult not
380			t empty$ not
381			and
382			}
383			{ t #1 #1 substring$
384			duplicate$ "-" =
385			swap$ duplicate$ "," =
386			swap$ "+" =
387			or or
388			{ #1 'multiresult := }
389			{ t #2 global.max$ substring$ 't := }
390			if$
391			}
392			while$
393			multiresult
394			}
395
396			FUNCTION {format.pages}
397			{ pages empty$
398			{ "" }
399			{ pages multi.page.check
400			{ "pages" pages n.dashify tie.or.space.connect }
401			{ "page" pages tie.or.space.connect }
402			if$
403			}
404			if$
405			}
406
407			FUNCTION {format.pages.a}
408			{ pages empty$
409			{ "" }
410			{ "page" pages first.page tie.or.space.connect }
411			if$
412			}
413
414			FUNCTION {format.vol.num.pages}
415			{ volume field.or.null embolden
416			" " swap$ * *
417			pages empty$
418			'skip$
419			{ duplicate$ empty$
420			{ pop$ format.pages.a }
421			{ ", " * pages first.page * }
422			if$
423			}
424			if$
425			}
426
427			FUNCTION {format.chapter.pages}
428			{ chapter empty$
429			'format.pages
430			{ type empty$
431			{ "chapter" }
432			{ type "l" change.case$ }
433			if$
434			chapter tie.or.space.connect
435			pages empty$
436			'skip$
437			{ ", " * format.pages * }
438			if$
439			}
440			if$
441			}
442
443			FUNCTION {format.in.ed.booktitle}
444			{ booktitle empty$
445			{ "" }
446			{ editor empty$
447			{ "in " booktitle emphasize * }
448			{ "in " booktitle emphasize * ", " * format.edited * }
449			if$
450			}
451			if$
452			}
453
454			FUNCTION {empty.misc.check}
455			{ author empty$ title empty$ howpublished empty$
456			month empty$ year empty$ note empty$
457			and and and and and
458			{ "all relevant fields are empty in " cite$ * warning$ }
459			'skip$
460			if$
461			}
462
463			FUNCTION {format.thesis.type}
464			{ type empty$
465			'skip$
466			{ pop$
467			type "t" change.case$
468			}
469			if$
470			}
471
472			FUNCTION {format.tr.number}
473			{ type empty$
474			{ "Technical Report" }
475			'type
476			if$
477			number empty$
478			{ "t" change.case$ }
479			{ number tie.or.space.connect }
480			if$
481			}
482
483			FUNCTION {format.article.crossref}
484			{ key empty$
485			{ journal empty$
486			{ "need key or journal for " cite$ * " to crossref " * crossref *
487			warning$
488			""
489			}
490			{ "In " journal emphasize * }
491			if$
492			}
493			{ "In " key * }
494			if$
495			" \cite{" * crossref * "}" *
496			}
497
498			FUNCTION {format.crossref.editor}
499			{ editor #1 "{vv~}{ll}" format.name$
500			editor num.names$ duplicate$
501			#2 >
502			{ pop$ " et~al." * }
503			{ #2 <
504			'skip$
505			{ editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
506			{ " et~al." * }
507			{ " and " * editor #2 "{vv~}{ll}" format.name$ * }
508			if$
509			}
510			if$
511			}
512			if$
513			}
514
515			FUNCTION {format.book.crossref}
516			{ volume empty$
517			{ "empty volume in " cite$ * "'s crossref of " * crossref * warning$
518			"In "
519			}
520			{ "Volume" volume tie.or.space.connect
521			" of " *
522			}
523			if$
524			editor empty$
525			editor field.or.null author field.or.null =
526			or
527			{ key empty$
528			{ series empty$
529			{ "need editor, key, or series for " cite$ * " to crossref " *
530			crossref * warning$
531			"" *
532			}
533			{ "{\em " * series * "\/}" * }
534			if$
535			}
536			{ key * }
537			if$
538			}
539			{ format.crossref.editor * }
540			if$
541			" \cite{" * crossref * "}" *
542			}
543
544			FUNCTION {format.incoll.inproc.crossref}
545			{ editor empty$
546			editor field.or.null author field.or.null =
547			or
548			{ key empty$
549			{ booktitle empty$
550			{ "need editor, key, or booktitle for " cite$ * " to crossref " *
551			crossref * warning$
552			""
553			}
554			{ "In {\em " booktitle * "\/}" * }
555			if$
556			}
557			{ "In " key * }
558			if$
559			}
560			{ "In " format.crossref.editor * }
561			if$
562			" \cite{" * crossref * "}" *
563			}
564
565			FUNCTION {article}
566			{ output.bibitem
567			format.authors "author" output.check
568			new.block
569			crossref missing$
570			{ journal emphasize field.or.null
571			format.vol.num.pages
572			format.date empty$
573			'skip$
574			{ duplicate$ empty$
575			{ pop$ format.date paren }
576			{ " " * format.date paren * }
577			if$
578			}
579			if$
580			output
581			}
582			{ format.article.crossref output.nonnull
583			format.pages output
584			}
585			if$
586			new.block
587			note output
588			fin.entry
589			}
590
591			FUNCTION {book}
592			{ output.bibitem
593			author empty$
594			{ format.editors "author and editor" output.check }
595			{ format.authors output.nonnull
596			crossref missing$
597			{ "author and editor" editor either.or.check }
598			'skip$
599			if$
600			}
601			if$
602			new.block
603			format.btitle "title" output.check
604			crossref missing$
605			{ format.bvolume output
606			new.block
607			format.number.series output
608			new.sentence
609			publisher "publisher" output.check
610			address output
611			}
612			{ new.block
613			format.book.crossref output.nonnull
614			}
615			if$
616			format.edition output
617			format.date "year" output.check
618			new.block
619			note output
620			fin.entry
621			}
622
623			FUNCTION {booklet}
624			{ output.bibitem
625			format.authors output
626			new.block
627			format.title "title" output.check
628			howpublished address new.block.checkb
629			howpublished output
630			address output
631			format.date output
632			new.block
633			note output
634			fin.entry
635			}
636
637			FUNCTION {inbook}
638			{ output.bibitem
639			author empty$
640			{ format.editors "author and editor" output.check }
641			{ format.authors output.nonnull
642			crossref missing$
643			{ "author and editor" editor either.or.check }
644			'skip$
645			if$
646			}
647			if$
648			new.block
649			format.btitle "title" output.check
650			crossref missing$
651			{ format.bvolume output
652			format.chapter.pages "chapter and pages" output.check
653			new.block
654			format.number.series output
655			new.sentence
656			publisher "publisher" output.check
657			address output
658			}
659			{ format.chapter.pages "chapter and pages" output.check
660			new.block
661			format.book.crossref output.nonnull
662			}
663			if$
664			format.edition output
665			format.date "year" output.check
666			new.block
667			note output
668			fin.entry
669			}
670
671			FUNCTION {incollection}
672			{ output.bibitem
673			format.authors "author" output.check
674			new.block
675			format.title "title" output.check
676			new.block
677			crossref missing$
678			{ format.in.ed.booktitle "booktitle" output.check
679			format.bvolume output
680			format.number.series output
681			format.chapter.pages output
682			new.sentence
683			publisher "publisher" output.check
684			address output
685			format.edition output
686			format.date "year" output.check
687			}
688			{ format.incoll.inproc.crossref output.nonnull
689			format.chapter.pages output
690			}
691			if$
692			new.block
693			note output
694			fin.entry
695			}
696
697			FUNCTION {inproceedings}
698			{ output.bibitem
699			format.authors "author" output.check
700			new.block
701			format.title "title" output.check
702			new.block
703			crossref missing$
704			{ format.in.ed.booktitle "booktitle" output.check
705			format.bvolume output
706			format.number.series output
707			format.pages output
708			address empty$
709			{ organization publisher new.sentence.checkb
710			organization output
711			publisher output
712			format.date "year" output.check
713			}
714			{ address output.nonnull
715			format.date "year" output.check
716			new.sentence
717			organization output
718			publisher output
719			}
720			if$
721			}
722			{ format.incoll.inproc.crossref output.nonnull
723			format.pages output
724			}
725			if$
726			new.block
727			note output
728			fin.entry
729			}
730
731			FUNCTION {conference} { inproceedings }
732
733			FUNCTION {manual}
734			{ output.bibitem
735			author empty$
736			{ organization empty$
737			'skip$
738			{ organization output.nonnull
739			address output
740			}
741			if$
742			}
743			{ format.authors output.nonnull }
744			if$
745			new.block
746			format.btitle "title" output.check
747			author empty$
748			{ organization empty$
749			{ address new.block.checka
750			address output
751			}
752			'skip$
753			if$
754			}
755			{ organization address new.block.checkb
756			organization output
757			address output
758			}
759			if$
760			format.edition output
761			format.date output
762			new.block
763			note output
764			fin.entry
765			}
766
767			FUNCTION {mastersthesis}
768			{ output.bibitem
769			format.authors "author" output.check
770			new.block
771			format.title "title" output.check
772			new.block
773			"Master's thesis" format.thesis.type output.nonnull
774			school "school" output.check
775			address output
776			format.date "year" output.check
777			new.block
778			note output
779			fin.entry
780			}
781
782			FUNCTION {misc}
783			{ output.bibitem
784			format.authors output
785			title howpublished new.block.checkb
786			format.title output
787			howpublished new.block.checka
788			howpublished output
789			format.date output
790			new.block
791			note output
792			fin.entry
793			empty.misc.check
794			}
795
796			FUNCTION {phdthesis}
797			{ output.bibitem
798			format.authors "author" output.check
799			new.block
800			format.btitle "title" output.check
801			new.block
802			"PhD thesis" format.thesis.type output.nonnull
803			school "school" output.check
804			address output
805			format.date "year" output.check
806			new.block
807			note output
808			fin.entry
809			}
810
811			FUNCTION {proceedings}
812			{ output.bibitem
813			editor empty$
814			{ organization output }
815			{ format.editors output.nonnull }
816			if$
817			new.block
818			format.btitle "title" output.check
819			format.bvolume output
820			format.number.series output
821			address empty$
822			{ editor empty$
823			{ publisher new.sentence.checka }
824			{ organization publisher new.sentence.checkb
825			organization output
826			}
827			if$
828			publisher output
829			format.date "year" output.check
830			}
831			{ address output.nonnull
832			format.date "year" output.check
833			new.sentence
834			editor empty$
835			'skip$
836			{ organization output }
837			if$
838			publisher output
839			}
840			if$
841			new.block
842			note output
843			fin.entry
844			}
845
846			FUNCTION {techreport}
847			{ output.bibitem
848			format.authors "author" output.check
849			new.block
850			format.title "title" output.check
851			new.block
852			format.tr.number output.nonnull
853			institution "institution" output.check
854			address output
855			format.date "year" output.check
856			new.block
857			note output
858			fin.entry
859			}
860
861			FUNCTION {unpublished}
862			{ output.bibitem
863			format.authors "author" output.check
864			new.block
865			format.title "title" output.check
866			new.block
867			note "note" output.check
868			format.date output
869			fin.entry
870			}
871
872			FUNCTION {default.type} { misc }
873
874			MACRO {jan} {"Jan."}
875
876			MACRO {feb} {"Feb."}
877
878			MACRO {mar} {"Mar."}
879
880			MACRO {apr} {"Apr."}
881
882			MACRO {may} {"May"}
883
884			MACRO {jun} {"June"}
885
886			MACRO {jul} {"July"}
887
888			MACRO {aug} {"Aug."}
889
890			MACRO {sep} {"Sept."}
891
892			MACRO {oct} {"Oct."}
893
894			MACRO {nov} {"Nov."}
895
896			MACRO {dec} {"Dec."}
897
898			MACRO {acmcs} {"ACM Comput. Surv."}
899
900			MACRO {acta} {"Acta Inf."}
901
902			MACRO {cacm} {"Commun. ACM"}
903
904			MACRO {ibmjrd} {"IBM J. Res. Dev."}
905
906			MACRO {ibmsj} {"IBM Syst.~J."}
907
908			MACRO {ieeese} {"IEEE Trans. Softw. Eng."}
909
910			MACRO {ieeetc} {"IEEE Trans. Comput."}
911
912			MACRO {ieeetcad}
913			{"IEEE Trans. Comput.-Aided Design Integrated Circuits"}
914
915			MACRO {ipl} {"Inf. Process. Lett."}
916
917			MACRO {jacm} {"J.~ACM"}
918
919			MACRO {jcss} {"J.~Comput. Syst. Sci."}
920
921			MACRO {scp} {"Sci. Comput. Programming"}
922
923			MACRO {sicomp} {"SIAM J. Comput."}
924
925			MACRO {tocs} {"ACM Trans. Comput. Syst."}
926
927			MACRO {tods} {"ACM Trans. Database Syst."}
928
929			MACRO {tog} {"ACM Trans. Gr."}
930
931			MACRO {toms} {"ACM Trans. Math. Softw."}
932
933			MACRO {toois} {"ACM Trans. Office Inf. Syst."}
934
935			MACRO {toplas} {"ACM Trans. Prog. Lang. Syst."}
936
937			MACRO {tcs} {"Theoretical Comput. Sci."}
938
939			MACRO {advp} {"Adv. Phys."}
940			MACRO {ajp} {"Am. J. Phys."}
941			MACRO {ao} {"Appl. Opt."}
942			MACRO {apl} {"Appl. Phys. Lett."}
943			MACRO {apj} {"Astrophys. J."}
944			MACRO {baps} {"Bull. Am. Phys. Soc."}
945			MACRO {cpc} {"Computer Phys. Comm."}
946			MACRO {cppcf} {"Comments Plasma Phys. Controlled Fusion"}
947			MACRO {fed} {"Fusion Eng. Design"}
948			MACRO {ft} {"Fusion Tech."}
949			MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
950			MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
951			MACRO {ijimw} {"Int. J. Infrared Millimeter Waves"}
952			MACRO {ip} {"Infrared Phys."}
953			MACRO {jap} {"J. Appl. Phys."}
954			MACRO {jcp} {"J. Comput. Phys."}
955			MACRO {jetp} {"Sov. Phys.-JETP"}
956			MACRO {jfe} {"J. Fusion Energy"}
957			MACRO {jfm} {"J. Fluid Mech."}
958			MACRO {jgr} {"J. Geophys. Res."}
959			MACRO {jmp} {"J. Math. Phys."}
960			MACRO {jne} {"J. Nucl. Energy"}
961			MACRO {jnec} {"J. Nucl. Energy, Part C"}
962			MACRO {jnm} {"J. Nucl. Mater."}
963			MACRO {josa} {"J. Opt. Soc. Am."}
964			MACRO {jpp} {"J. Plasma Phys."}
965			MACRO {jpsj} {"J. Phys. Soc. Jpn"}
966			MACRO {jvst} {"J. Vac. Sci. Technol."}
967			MACRO {nedf} {"Nucl. Eng. Design/Fusion"}
968			MACRO {nf} {"Nucl. Fusion"}
969			MACRO {nim} {"Nucl. Instrum. Methods"}
970			MACRO {nimpr} {"Nucl. Instrum. Methods Phys. Research"}
971			MACRO {nt/f} {"Nucl. Tech./Fusion"}
972			MACRO {pf} {"Phys. Fluids"}
973			MACRO {pfa} {"Phys. Fluids A"}
974			MACRO {pfb} {"Phys. Fluids B"}
975			MACRO {pl} {"Phys. Lett."}
976			MACRO {pla} {"Phys. Lett. A"}
977			MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
978			MACRO {pp} {"Plasma Phys."}
979			MACRO {ppcf} {"Plasma Phys. Controlled Fusion"}
980			MACRO {prl} {"Phys. Rev. Lett."}
981			MACRO {pr} {"Phys. Rev."}
982			MACRO {pra} {"Phys. Rev. A"}
983			MACRO {ps} {"Physica Scripta"}
984			MACRO {rmp} {"Rev. Mod. Phys."}
985			MACRO {rsi} {"Rev. Sci. Instrum."}
986			MACRO {sjpp} {"Sov. J. Plasma Phys."}
987			MACRO {spd} {"Sov. Phys.-Dokl."}
988			MACRO {sptp} {"Sov. Phys.-Tech. Phys."}
989			MACRO {spu} {"Sov. Phys.-Usp."}
990
991			READ
992
993			STRINGS { longest.label }
994
995			INTEGERS { number.label longest.label.width }
996
997			FUNCTION {initialize.longest.label}
998			{ "" 'longest.label :=
999			#1 'number.label :=
1000			#0 'longest.label.width :=
1001			}
1002
1003			FUNCTION {longest.label.pass}
1004			{ number.label int.to.str$ 'label :=
1005			number.label #1 + 'number.label :=
1006			label width$ longest.label.width >
1007			{ label 'longest.label :=
1008			label width$ 'longest.label.width :=
1009			}
1010			'skip$
1011			if$
1012			}
1013
1014			EXECUTE {initialize.longest.label}
1015
1016			ITERATE {longest.label.pass}
1017
1018			FUNCTION {begin.bib}
1019			{ preamble$ empty$
1020			'skip$
1021			{ preamble$ write$ newline$ }
1022			if$
1023			"\begin{thebibliography}{" longest.label * "}" * write$ newline$
1024			}
1025
1026			EXECUTE {begin.bib}
1027
1028			EXECUTE {init.state.consts}
1029
1030			ITERATE {call.type$}
1031
1032			FUNCTION {end.bib}
1033			{ newline$
1034			"\end{thebibliography}" write$ newline$
1035			}
1036
1037			EXECUTE {end.bib}