% BibTeX bibliography style `plainml'
       % 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(ml).bst, unsrt.bst, alpha.bst, and abbrv.bst.
       % This restriction helps ensure that all standard styles are identical.

ENTRY
 { address
   author
   booktitle
   chapter
   edition
   editor
   howpublished
   institution
   isbn
   journal
   key
   language
   month
   note
   number
   organization
   pages
   publisher
   abstract
   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 =
     { 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 {output.bibitem}
{newline$
 language empty$
 {"\bibitem{" write$
 cite$ write$
 "}" write$}
 {"\bibitem{" write$
 cite$ write$
 "}" write$
 language write$}
 if$
 newline$
 ""
 before.all 'output.state :=
}

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

FUNCTION {abstract.entry}
{ add.period$
 write$
 newline$
 "\makeabstract{" write$
 abstract write$
 "}" 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 {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 "{ff~}{vv~}{ll}{, jj}" format.name$ 't :=
     nameptr #1 >
       { namesleft #1 >
           { ", " * t * }
           { numnames #2 >
               { "," * }
               'skip$
             if$
             t "others" =
               { " 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.title}
{ title empty$
   { "" }
   { title "t" change.case$ }
 if$
}

FUNCTION {format.isbn}
{ isbn empty$
  { "" }
  { "{\sc isbn}~" isbn * }
if$
}

FUNCTION {format.conference}
{ organization empty$
  { "\conference\atplace " address  * }
  { "\conference\Of " organization * " \atplace " address * * }
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.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       % <---------- ff.
     series empty$
       'skip$% { ", \volume"  }                           %
       { " \of " * series emphasize * }%{ ", "  series emphasize * ", \volume" * } %
     if$
     "volume and number" number either.or.check% volume tie.or.space.connect     %
   }
 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 * } % \In ?
         if$
       }
     if$
   }
   { "" }
 if$
}

FUNCTION {format.edition}
{ edition empty$
   { "" }
   { edition "1" =
       { "\first" }                          % Tweede
       { edition "2" =
           { "\second" }
           { edition "3" =
               { "\third" }
                 { "\higherthenthird" edition * }
                 if$
           }
           if$
       }
       if$
     % output.state mid.sentence =
     % { "l" change.case$ " \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.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$
       { "\chaptername" } % <----------
       { 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$
       { "\from " booktitle emphasize * }                         % <---------- Uit !
       { "\from " format.editors * ", " * 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$
   { "\technicalreport" } % <----------
   '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$
         ""
       }
       { "\from {\em " journal * "\/}" * } % <---------- In !
     if$
   }
   { "\from " key * }               % <---------- In !
 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$
     "\from " % <---------- 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$
             ""
           }
           { "\from {\em " booktitle * "\/}" * } % <----------
         if$
       }
       { "\from " key * }                        % <----------
     if$
   }
   { "\from " format.crossref.editor * }  % <----------
 if$
 " \cite{" * crossref * "}" *
}

FUNCTION {article}
{ output.bibitem
 format.authors "author" output.check
 new.block
 format.title "title" output.check
 new.block
 crossref missing$
   { journal emphasize "journal" output.check
     format.vol.num.pages output
     format.date "year" output.check
   }
   { format.article.crossref output.nonnull
     format.pages output
   }
 if$
 new.block
 note output
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

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
 format.isbn "isbn" output.check
 new.block
 note output
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

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
 format.isbn "isbn" output.check
 new.block
 note output
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

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
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

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
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

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
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

FUNCTION {conference}
{ 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
       }
       { format.conference "conference" output.check
         format.date "year" output.check
         new.sentence
         publisher output
       }
     if$
   }
   { format.incoll.inproc.crossref output.nonnull
     format.pages output
   }
 if$
 new.block
 note output
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

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
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

FUNCTION {mastersthesis}
{ output.bibitem
 format.authors "author" output.check
 new.block
 format.title "title" output.check
 new.block
 "\masters" format.thesis.type output.nonnull % <----------
 school "school" output.check
 address output
 format.date "year" output.check
 new.block
 note output
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

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
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
 empty.misc.check
}

FUNCTION {phdthesis}
{ output.bibitem
 format.authors "author" output.check
 new.block
 format.btitle "title" output.check
 new.block
 "\phdthesis" format.thesis.type output.nonnull % <----------
 school "school" output.check
 address output
 format.date "year" output.check
 format.isbn "isbn" output.check
 new.block
 note output
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

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
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

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
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

FUNCTION {unpublished}
{ output.bibitem
 format.authors "author" output.check
 new.block
 format.title "title" output.check
 new.block
 note "note" output.check
 address output  %% ! %%
 format.date output
 abstract empty$      %%
  { fin.entry }       %%
  { abstract.entry }  %%
 if$                  %%
}

FUNCTION {default.type} { misc }

MACRO {jan} {"\jan"} % <---------- ff.
MACRO {feb} {"\feb"}
MACRO {mar} {"\mar"}
MACRO {apr} {"\apr"}
MACRO {may} {"\may"}
MACRO {jun} {"\jun"}
MACRO {jul} {"\jul"}
MACRO {aug} {"\aug"}
MACRO {sep} {"\sep"}
MACRO {oct} {"\oct"}
MACRO {nov} {"\nov"}
MACRO {dec} {"\dec"}

MACRO {acmcs} {"{\sc Acm} Computing Surveys"}
MACRO {acta} {"Acta Informatica"}
MACRO {cacm} {"Communications of the {\sc Acm}"}
MACRO {ibmjrd} {"{\sc Ibm} Journal of Research and Development"}
MACRO {ibmsj} {"{\sc Ibm} Systems Journal"}
MACRO {ieeese} {"{\sc Ieee} Transactions on Software Engineering"}
MACRO {ieeetc} {"{\sc Ieee} Transactions on Computers"}
MACRO {ieeetcad}
{"{\sc Ieee} Transactions on Computer-Aided Design of Integrated Circuits"}
MACRO {ipl} {"Information Processing Letters"}
MACRO {jacm} {"Journal of the {\sc Acm}"}
MACRO {jcss} {"Journal of Computer and System Sciences"}
MACRO {scp} {"Science of Computer Programming"}
MACRO {sicomp} {"{\sc Siam} Journal on Computing"}
MACRO {tocs} {"{\sc Acm} Transactions on Computer Systems"}
MACRO {tods} {"{\sc Acm} Transactions on Database Systems"}
MACRO {tog} {"{\sc Acm} Transactions on Graphics"}
MACRO {toms} {"{\sc Acm} Transactions on Mathematical Software"}
MACRO {toois} {"{\sc Acm} Transactions on Office Information Systems"}
MACRO {poplas} {"{\sc Acm} Transactions on Programming Languages and Systems"}
MACRO {tcs} {"Theoretical Computer Science"}
MACRO {Dokl}   {"{\cyr Doklady Akademij Nauk SSSR}"}
MACRO {Usp}    {"{\cyr Uspe\ch i Akademij Nauk SSSR}"}
MACRO {FizElJa}
  {"{\cyr Fizika {\E}lementarni\ch\ {\Cz}astic i Atomnogo {\Ja}dra}"}
MACRO {PiZETF} {"{\cyr Pis{\mz}ma v {\Z}\E TF}"}
MACRO {ZETF}
  {"{\cyr {\Z}urnal \Eksperimental{\mz}noj i Teoreti{\cz}eskoj Fiziki}"}

MACRO {AcP}    {"Acta Physica"}
MACRO {AcPA}   {"Acta Physica Austriaca"}
MACRO {AcPP}   {"Acta Physica Polonica"}
MACRO {AdP}    {"Advances in Physics"}
MACRO {AdNP}   {"Advances in Nuclear Physics"}
MACRO {AmJP}   {"American Journal of Physics"}
MACRO {ANA}    {"Apostolate to the Nomads of {\sc Amecea}"}
MACRO {AnPDu}  {"Annalen der Physik (Leipzig)"}
MACRO {AnPFr}  {"Annales de Physique (\paris)"}
MACRO {AnPNY}  {"Annals of Physics (\ny)"}
MACRO {ARevNS} {"Annual Review of Nuclear Science"}
MACRO {ADNDT}  {"Atomic Data and Nuclear Data Tables"}
MACRO {AusJP}  {"Australian Journal of Physics"}
MACRO {CanJP}  {"Canadian Journal Physics"}
MACRO {CPC}    {"Computer Physics Communications"}
MACRO {EJP}    {"European Journal of Physics"}
MACRO {EPL}    {"Europhysics Letters"}
MACRO {FBS}    {"Few Body Systems"}
MACRO {FBSSup} {"Few Body Systems Supplement"}
MACRO {FortP}  {"Fortschritte der Physik"}
MACRO {HePA}   {"Helvetica Physica Acta"}
MACRO {IEEE}   {"{\sc Ieee} Transactions"}
MACRO {IJMP}   {"International Journal of Modern Physics"}
MACRO {JETP}   {"{\sc Jetp}"}
MACRO {JETPL}  {"{\sc Jetp} Letters"}
MACRO {JaFi}   {"{\cyr {\Ja}derna\ja Fizika}"}
MACRO {JPFr}   {"Journal de Physique (Paris)"}
MACRO {JP}     {"Journal of Physics"}
MACRO {JPSJ}   {"Journal of the Physical Society of Japan"}
MACRO {JPSJSup}{"Journal of the Physical Society of Japan Supplement"}
MACRO {MPL}    {"Modern Physics Letters"}
MACRO {NCim}   {"Il Nuovo Cimento"}
MACRO {NDS}    {"Nuclear Data Sheets"}
MACRO {NP}     {"Nuclear Physics"}
MACRO {PL}     {"Physics Letters"}
MACRO {PRSLon} {"Proceedings of the Royal Society of London"}
MACRO {PR}     {"Physical Review"}
MACRO {PRL}    {"Physical Review Letters"}
MACRO {PRep}   {"Physics Reports"}
MACRO {PScr}   {"Physica Scripta"}
MACRO {PToday} {"Physics Today"}
MACRO {PTP}    {"Progress of Theoretical Physics"}
MACRO {RMP}    {"Reviews of Modern Physics"}
MACRO {ScAm}   {"Scientific American"}
MACRO {SSin}   {"Scienta Sinica"}
MACRO {SovJNP} {"Soviet Journal of Nuclear Physics"}
MACRO {SovJPN} {"Soviet Journal of Particles and Nuclei"}
MACRO {SovPDo} {"Soviet Physics Doklady"}
MACRO {SovPUs} {"Soviet Physics Uspekhi"}
MACRO {STS}    {"Bulletin of Science, Technology and Social Affairs"}
MACRO {ZfN}    {"Zeitschrift f{\H{u}}r Naturforschung"}
MACRO {ZfP}    {"Zeitschrift f{\H{u}}r Physik"}

MACRO {KUN} {"Katholieke Universiteit Nij\-me\-gen"}
MACRO {RUU} {"Rijksuniversiteit te Utrecht"}
MACRO {UvA} {"Universiteit van Amsterdam"}
MACRO {RUG} {"Rijksuniversiteit te Groningen"}
MACRO {RUL} {"Rijksuniversiteit te Leiden"}
MACRO {VU}  {"Vrije Universiteit"}
MACRO {TUD} {"Technische Universiteit Delft"}

MACRO {revised2} {"\secondrevised"}
MACRO {revised3} {"\thirdrevised"}
MACRO {revised4} {"\fourthrevised"}
MACRO {revised5} {"\fifthrevised"}
MACRO {revised6} {"\sixhrevised"}
MACRO {revised7} {"\seventhrevised"}
MACRO {revised8} {"\eightthrevised"}
MACRO {revised9} {"\ninthrevised"}

MACRO {tbp} {"\tbp"} % <----------
MACRO {own} {"\ownedition"}

READ

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

INTEGERS { len }

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

FUNCTION {sort.format.names}
{ 's :=
 #1 'nameptr :=
 ""
% s num.names$ 'numnames :=
% numnames 'namesleft :=
%   { namesleft #0 > }
%   { nameptr #1 >
%       { "   " * }
%       'skip$
%     if$
  s nameptr "{ll{ } }{vv{ }}{  f{ }}{  jj{ }}" format.name$ 't :=    %  s nameptr "{vv{ } }{ll{ }}{  ff{ }}{  jj{ }}" format.name$ 't :=
%     nameptr numnames = t "others" = and
%       { "et al" * }
%       {
t sortify * %}
%     if$
%     nameptr #1 + 'nameptr :=
%     namesleft #1 - 'namesleft :=
%   }
% while$
}

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

FUNCTION {author.sort}
{ author empty$
   { key empty$
       { "to sort, need author or key in " cite$ * warning$
         ""
       }
       { key sortify }
     if$
   }
   { author sort.format.names }
 if$
}

FUNCTION {author.editor.sort}
{ author empty$
   { editor empty$
       { key empty$
           { "to sort, need author, editor, or key in " cite$ * warning$
             ""
           }
           { key sortify }
         if$
       }
       { editor sort.format.names }
     if$
   }
   { author sort.format.names }
 if$
}

FUNCTION {author.organization.sort}
{ author empty$
   { organization empty$
       { key empty$
           { "to sort, need author, organization, or key in " cite$ * warning$
             ""
           }
           { key sortify }
         if$
       }
       { "The " #4 organization chop.word sortify }
     if$
   }
   { author sort.format.names }
 if$
}

FUNCTION {editor.organization.sort}
{ editor empty$
   { organization empty$
       { key empty$
           { "to sort, need editor, organization, or key in " cite$ * warning$
             ""
           }
           { key sortify }
         if$
       }
       { "The " #4 organization chop.word sortify }
     if$
   }
   { editor sort.format.names }
 if$
}

FUNCTION {presort}
{ type$ "book" =
 type$ "inbook" =
 or
   'author.editor.sort
   { type$ "proceedings" =
       'editor.organization.sort
       { type$ "manual" =
           'author.organization.sort
           'author.sort
         if$
       }
     if$
   }
 if$
 "    "
 *
 year field.or.null sortify
 *
 "    "
 *
 title field.or.null
 sort.format.title
 *
 #1 entry.max$ substring$
 'sort.key$ :=
}

ITERATE {presort}

SORT

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$
 "\addcontentsline{toc}{chapter}{\bibname}" write$ newline$
 "\def\makeabstract#1{\openin1{#1}\ifeof1 \relax" write$ newline$
 "\else\closein1 \relax\input{#1}\fi}"  write$ newline$
}

EXECUTE {begin.bib}

EXECUTE {init.state.consts}

ITERATE {call.type$}

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

EXECUTE {end.bib}

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.