% BibTeX standard bibliography style `unsrt'
	% version 0.99a 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
    conference
    caddress
    cnumber
    csubtitle
    ctitle
    cyear
    day
    edition
    editor
    howpublished
    institution
    internetaddress
    journal
    key
    month
    note
    number
    organization
    pages
    publisher
    school
    series
    subtitle
    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 =
	{ 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 {check}
{ 't :=
  empty$
    { "empty " t * " in " * cite$ * warning$ }
    'skip$
  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}
{ output.state after.block =
    'skip$
    { output.state before.all =
	'skip$
	{ after.sentence 'output.state := }
      if$
    }
  if$
}

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 {vol.field.or.null}
{ duplicate$ empty$
    { pop$ "" }
    { "v. " swap$ *}
  if$
}

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

INTEGERS { nameptr namesleft numnames }

FUNCTION {format.names}
{ 's :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames 'namesleft :=
  { namesleft #0 > }
      { s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't :=
      t "u" change.case$ 't :=
         nameptr #1 >
	    { namesleft #1 >
	        { ", " * t * }
	        { t "OTHERS" =
		   { " et~al." * }
		   { ", " * 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 >
	{ " (Eds.)" * }
	{ " (Ed.)" * }
      if$
    }
  if$
}

FUNCTION {format.ceditors}
{ editor empty$
    { "there is no editor in " cite$ * warning$
      "" }
    { editor format.names 't :=
      editor num.names$ #1 >
	{ "Editors " t * }
	{ "Editor " t * }
      if$
    }
  if$
}

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

FUNCTION {format.cnumber}
{ cnumber empty$
    { "there is no cnumber in " cite$ * warning$
      "" }
    { cnumber "." * }
  if$
}

INTEGERS { a b ab }

FUNCTION {int.mult}
{ #0 'ab :=
  'b :=
  'a :=
  { a }
  { b ab + 'ab :=
    a #1 - 'a := }
  while$
  ab
}
  
INTEGERS { year_numb }

% converts the year field to an integer
FUNCTION {convert}
{ year text.length$ #4 =
    { year #1 #1 substring$ "1" =
	{ #1000 'year_numb := }
	{ #2000 'year_numb := }
      if$
      year #2 #1 substring$ chr.to.int$ #48 -
      #100
      int.mult year_numb + 'year_numb :=
      year #3 #1 substring$ chr.to.int$ #48 -
      #10
      int.mult year_numb + 'year_numb :=
      year #4 #1 substring$ chr.to.int$ #48 -
      #1
      int.mult year_numb + 'year_numb :=
      year_numb
     }
    { "the year in " cite$ * " doesn't have 4 digits" * warning$ }
  if$
}

FUNCTION {format.address_a}
{     journal "Acta Physica Polonica A" =
        { pop$ "Krakow" }
        { skip$ }
      if$
      journal "Advances in Physics" =
        { pop$ "London" }
        { skip$ }
      if$
      journal "Advances in Theoretical and Mathematical Physics" =
        { pop$ "Cambridge" }
        { skip$ }
      if$
      journal "American Journal of Physics" =
        { convert #1984 <
	   { pop$ "New York" }
	   { pop$ "Woodbury" }
	  if$
	}
        { skip$ }
      if$
}

FUNCTION {format.address_b}
{     journal "Annals of Physics" =
        { pop$ "New York" }
        { skip$ }
      if$
%      journal "Applied Optics" =
%        { convert #1984 <
%	   { pop$ "New York" }
%	   { pop$ "Woodbury" }
%	  if$
%	}
%        { skip$ }
%      if$
%      journal "Applied Physics Letters" =
%        { convert #1984 <
%	   { pop$ "New York" }
%	   { pop$ "Woodbury" }
%	  if$
%	}
%        { skip$ }
%      if$
      journal "Astronomical Journal" =
        { pop$ "Chicago" }
        { skip$ }
      if$
      journal "Astronomy and Astrophysics" =
        { pop$ "Berlin" }
        { skip$ }
      if$
      journal "Astronomy and Astrophysics Supplement Series" =
        { pop$ "Orsay" }
        { skip$ }
      if$
      journal "Astrophysical and Space Science" =
        { pop$ "Dordrecht" }
        { skip$ }
      if$
      journal "Astrophysical Journal" =
        { pop$ "Chicago" }
        { skip$ }
      if$
}

FUNCTION {format.address_c}
{     journal "Astrophysical Journal Supplement Series" =
        { pop$ "Chicago" }
        { skip$ }
      if$
      journal "Brazilian Journal of Physics" =
        { pop$ "São Paulo" }
        { skip$ }
      if$
      journal "Ciência Hoje" =
        { pop$ "Rio de Janeiro" }
        { skip$ }
      if$
}

FUNCTION {format.address_e}
{     journal "European Journal of Physics" =
        { pop$ "Bristol" }
        { skip$ }
      if$
      journal "Europhysics Letters" =
        { pop$ "Les Ulis" }
        { skip$ }
      if$
}

FUNCTION {format.address_f}
{     journal "International Journal of Modern Physics A" =
        { pop$ "Singapore" }
        { skip$ }
      if$
}

FUNCTION {format.address_g}
{     journal "Journal of Applied Physics" =
        { convert #1984 <
	   { pop$ "New York" }
	   { pop$ "Woodbury" }
	  if$
	}
        { skip$ }
      if$
}

FUNCTION {format.address_h}
{     journal "Journal of Mathematical Physics" =
        { convert #1984 <
	   { pop$ "New York" }
	   { pop$ "Woodbury" }
	  if$
	}
        { skip$ }
      if$
}

FUNCTION {format.address_i}
{     journal "Journal of Physics A" =
        { pop$ "Bristol" }
        { skip$ }
      if$
      journal "Journal of Physics B" =
        { pop$ "Bristol" }
        { skip$ }
      if$
      journal "Journal of Physics D" =
        { pop$ "Bristol" }
        { skip$ }
      if$
      journal "Journal of Physics G" =
        { pop$ "Bristol" }
        { skip$ }
      if$
}

FUNCTION {format.address_l}
{     journal "Modern Physics Letters A" =
        { pop$ "Singapore" }
        { skip$ }
      if$
}

FUNCTION {format.address_m}
{     journal "Monthly Notices of the Royal Astronomical Society" =
        { pop$ "London" }
        { skip$ }
      if$
      journal "Nature" =
        { pop$ "London" }
        { skip$ }
      if$
     journal "Nuclear Physics A" =
        { pop$ "Amsterdam" }
        { skip$ }
      if$
      journal "Nuclear Physics B" =
        { pop$ "Amsterdam" }
        { skip$ }
      if$
      journal "Nuclear Physics B: Proceedings Supplement" =
        { pop$ "Amsterdam" }
        { skip$ }
      if$
}

FUNCTION {format.address_n}
{     journal "Nuovo Cimento D" =
        { pop$ "Bologna" }
        { skip$ }
      if$
      journal "Philosophical Magazine A" =
        { pop$ "London" }
        { skip$ }
      if$
      journal "Physica A" =
        { pop$ "Amsterdam" }
        { skip$ }
      if$
      journal "Physica B" =
        { pop$ "Amsterdam" }
        { skip$ }
      if$
      journal "Physica C" =
        { pop$ "Amsterdam" }
        { skip$ }
      if$
      journal "Physica D" =
        { pop$ "Amsterdam" }
        { skip$ }
      if$
      journal "Physica E" =
        { pop$ "Amsterdam" }
        { skip$ }
      if$
      journal "Physica Scripta" =
        { pop$ "Stockholm" }
        { skip$ }
      if$
}

FUNCTION {format.address_o}
{     journal "Physical Review" =
        { pop$ "New York" }
        { skip$ }
      if$
      journal "Physical Review A" =
        { convert #1984 <
	   { pop$ "New York" }
	   { pop$ "Woodbury" }
	  if$
	}
        { skip$ }
      if$
      journal "Physical Review Letters" =
        { convert #1984 <
	   { pop$ "New York" }
	   { pop$ "Woodbury" }
	  if$
	}
        { skip$ }
      if$
      journal "Physics Letters A" =
        { pop$ "Amsterdam" }
        { skip$ }
      if$
      journal "Physics Letters B" =
        { pop$ "Amsterdam" }
        { skip$ }
      if$
      journal "Physics of Plasmas" =
        { convert #1984 <
	   { pop$ "New York" }
	   { pop$ "Woodbury" }
	  if$
	}
        { skip$ }
      if$
}

FUNCTION {format.address_p}
{     journal "Progress of Theoretical Physics" =
        { pop$ "Kyoto" }
        { skip$ }
      if$
}

FUNCTION {format.address_r}
{     journal "Science" =
        { pop$ "Washington" }
        { skip$ }
      if$
}

FUNCTION {format.address_s}
{     journal "Soviet Journal of Nuclear Physics" =
        { pop$ "New York" }
        { skip$ }
      if$
      journal "Surveys High Energy Physics" =
        { pop$ "Chur" }
        { skip$ }
      if$
      journal "The European Physical Journal A" =
        { pop$ "Les Ulis" }
        { skip$ }
      if$
      journal "The European Physical Journal B" =
        { pop$ "Les Ulis" }
        { skip$ }
      if$
      journal "The European Physical Journal C" =
        { pop$ "Les Ulis" }
        { skip$ }
      if$
}

FUNCTION {format.address_t}
{     journal "The Physics Teacher" =
        { pop$ "Stony Brook" }
        { skip$ }
      if$
      journal "Theoretical Mathematical Physics" =
        { pop$ "New York" }
        { skip$ }
      if$
%      journal "Zeitschrift f{\"u}r Physik A" =
%        { pop$ "Berlin" }
%        { skip$ }
%      if$
%      journal "Zeitschrift f{\"u}r Physik B" =
%        { pop$ "Berlin" }
%        { skip$ }
%      if$
%      journal "Zeitschrift f{\"u}r Physik C" =
%        { pop$ "Berlin" }
%        { skip$ }
%      if$
}

FUNCTION {format.address}
{ address empty$
    { ""
      format.address_a
      format.address_b
      format.address_c
      format.address_e
      format.address_f
      format.address_g
      format.address_h
      format.address_i
      format.address_l
      format.address_m
      format.address_n
      format.address_o
      format.address_p
      format.address_r
      format.address_s
      format.address_t
    }
    { address }
  if$
}

FUNCTION {format.address.publisher}
{ address empty$
    { "there is no address in " cite$ * warning$
      "" }
    { address ": " * }
  if$
  publisher empty$
    { "there is no publisher in " cite$ * warning$
      "" * }
    { publisher * }
  if$
}

FUNCTION {format.address.school}
{ address empty$
    { "" }
    { address ", " * }
  if$
  school empty$
    { "" * }
    { school * }
  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.date}
{ year empty$
    { month empty$
	{ "" }
	{ "there's a month but no year in " cite$ * warning$
	  month
	}
      if$
    }
    { month empty$
	'year
	{ month " " * year * }
      if$
    }
  if$
}

FUNCTION {format.cdate}
{ year empty$
    { "there is no year in " cite$ * warning$
      "" }
    { "c" year * }
  if$
}

FUNCTION {format.html.date}
{ ""
  day empty$
    { "there's no day in " cite$ * warning$
      month empty$
        { "there's no month in " cite$ * warning$
          year empty$
            { "there's no year in " cite$ * warning$ }
            { pop$ year }
          if$
        }
        { pop$ month
          year empty$
            { "there's no year in " cite$ * warning$ }
            { " " * year * }
          if$
        }
      if$
    }
    { pop$ day
      month empty$
        { "there's no month in " cite$ * warning$
          year empty$
            { "there's no year in " cite$ * warning$ }
            { " " * year * }
          if$
        }
        { " " * month *
          year empty$
            { "there's no year in " cite$ * warning$ }
            { " " * year * }
          if$
        }
      if$
    }
  if$ %stack$
}

FUNCTION {format.btitle}
{ title empty$
    { "" }
    { title "t" change.case$ emphasize }
  if$
  subtitle empty$
    { "" * }
    { ": " * subtitle "l" change.case$ * }
  if$
}

FUNCTION {format.ctitle}
{ ctitle empty$
    { "there is no ctitle in " cite$ * warning$
      "" }
    { ctitle "t" change.case$ emphasize }
  if$
  csubtitle empty$
    { "" * }
    { ": " * csubtitle "l" change.case$ * }
  if$
}

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$
    { "" }
    { "v. " 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$ ". ed." * }
	{ edition "t" change.case$ ". ed." * }
      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
	{ "p." pages n.dashify tie.or.space.connect }
	{ "p." pages tie.or.space.connect }
      if$
    }
  if$
}

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

FUNCTION {format.chapter.pages}
{ chapter empty$
    'format.pages
    { type empty$
	{ "Cap. " }
	{ 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 *
          subtitle empty$
            { "" * }
            { ": " * subtitle "t" change.case$ * }
          if$
        }
	{ "In: " format.editors * " " * booktitle emphasize *
          subtitle empty$
            { "" * }
            { ": " * subtitle "t" change.case$ * }
          if$
        }
      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_original}
{ type empty$
    { school empty$
        { skip$ }
        { " -- " * school * }
      if$
    }
    { pop$
      type "t" change.case$ " -- " *
      school empty$
        { skip$ }
        { " -- " * school * }
      if$
    }
  if$
}

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

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


FUNCTION {article}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  journal emphasize "journal" output.check
  format.address "address" output.check
  format.vol.num.pages output
  format.date "month and year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {book}
{ output.bibitem
  author empty$
    { format.editors "author and editor" output.check }
    { format.authors output.nonnull
      "author and editor" editor either.or.check
    }
  if$
  new.block
  format.btitle "title" output.check
  new.block
  format.edition output
  format.number.series output
  new.sentence
  format.address.publisher "address and publisher" output.check
  format.date "year" output.check
  new.block
  format.bvolume output
  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 {internet}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  internetaddress "internetaddress" output.check
  new.block
  format.html.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
      "author and editor" editor either.or.check
    }
  if$
  new.block
  format.btitle "title" output.check
  new.block
  format.edition output
  format.number.series output
  new.sentence
  format.address.publisher "address and publisher" output.check
  format.date "year" output.check
  new.block
  format.bvolume output
  format.chapter.pages "chapter and pages" 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
  format.in.ed.booktitle "booktitle" output.check
  format.number.series output
  new.sentence
  address ": " * publisher * output
  format.edition output
  format.date "year" output.check
  new.sentence
  format.bvolume output
  format.chapter.pages output
  new.block
  note output
  fin.entry
}

FUNCTION {inproceedings}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  conference empty$
    { "In: " output.nonnull
      conference "conference" output.check
    }
    { "In: " conference * output.nonnull}
  if$
  format.cnumber output
  cyear "cyear" output.check
  caddress "caddress" output.check
  new.block
  format.ctitle output
  new.block
  format.ceditors output
  new.block
  format.edition output
  format.number.series output
  new.sentence
  format.address.publisher "address and publisher" output.check
  format.cdate output
  new.block
  format.bvolume output
  new.block
  format.pages output
  note output
  fin.entry
}

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.btitle "title" output.check
  format.date "year" output.check
  new.block
  "Diss. mestrado" "type" output.check
  address "address" output.check
  school "school" 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
  format.date "year" output.check
  new.block
  "Tese de doutorado" "type" output.check
  address "address" output.check
  school "school" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {proceedings}
{ output.bibitem
  conference "conference" output.check
  format.cnumber output
  cyear "cyear" output.check
  caddress "caddress" output.check
  new.block
  format.ctitle output
  new.block
  format.ceditors output
  new.block
  format.edition output
  format.number.series output
  new.sentence
  format.address.publisher "address and publisher" output.check
  format.cdate output
  new.block
  format.bvolume output
  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 {actapola} {"Acta Physica Polonica A"}

MACRO {actapolb} {"Acta Physica Polonica B"}

MACRO {advnuclp} {"Advances in Nuclear Physics"}

MACRO {amjp} {"American Journal of Physics"}

MACRO {annphys} {"Annals of Physics"}

MACRO {arnps} {"Annual Review of Nuclear and Particle Science"}

MACRO {canjphys} {"Canadian Journal of Physics"}

MACRO {commnuclp} {"Comments on Nuclear and Particle Physics"}

MACRO {npa} {"Nuclear Physics A"}

MACRO {npb} {"Nuclear Physics B"}

MACRO {npc} {"Nuclear Physics C"}

MACRO {npd} {"Nuclear Physics D"}

MACRO {pla} {"Physics Letters A"}

MACRO {plb} {"Physics Letters B"}

MACRO {physrep} {"Physics Reports"}

MACRO {physrepc} {"Physics Reports C"}

MACRO {pr} {"Physical Review"}

MACRO {pra} {"Physical Review A"}

MACRO {prb} {"Physical Review B"}

MACRO {prc} {"Physical Review C"}

MACRO {prd} {"Physical Review D"}

MACRO {pre} {"Physical Review E"}

MACRO {progtheophys} {"Progress of Theoretical Physics"}

%MACRO {zfpa} {"Zeitschrift f{\"{u}}r Physik A"}

%MACRO {zfpb} {"Zeitschrift f{\"u}r Physik B"}

%MACRO {zfpc} {"Zeitschrift f{\"u}r Physik C"}


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$
  "\advance\leftskip by 1.5em" write$ newline$
  "\advance\itemindent by -1.5em" write$ newline$
}

EXECUTE {begin.bib}

EXECUTE {init.state.consts}

ITERATE {call.type$}

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

EXECUTE {end.bib}






