%% %% This is file `apsrev4-1-etal.bst', %% generated with the docstrip utility %%% and modified by adding lines (starting with %%%MODIFIED-ETAL-START and ending with %%%MODIFIED-ETAL-END [around the line 1564]) %%% to enable et al. enforcement when author list gets too long. %%% written by Stefan Pabst (Feb. 2013) %%% This file was modified to include article titles. Modified code includes the atitle function and the code between the tags %%%MODIFIED-ATITLE-START and %%%MODIFIED-ATITLE-END. %%% written by Cassi Hunt (Feb. 2015) %% %% The original source files were: %% %% merlin.mbs (with options: `head,ay,nat,lang,pres,pres-bf,seq-no,vonx,nm-init,ed-au,jnrlst,nmft,nmft-def,fnm-def,nmfted,nmand-rm,lab,lab-def,and-rm,keyxyr,blkyear,yr-par,dtrev,date-nil-x,tit-qq,inproceedings-chapter,jtit-x,inproceedings-chapter,article-booktitle,article-series,jttl-rm,journal-address,book-bt,thesis-title-o,trtit-b,techreport-institution-par,vol-bf,vnum-x,volp-com,jpg-1,book-editor-booktitle,inbook-editor-booktitle,bookaddress,num-xser,number-cap,chapter-cap,series-number,numser-booktitle,ser-vol,ser-rm,volume-cap,ser-ed,jnm-x,pg-bk,book-chapter-pages,pub-date,ay-empty-pub-parens-x,pre-pub,pre-edn,doi-link,doi,edby,blk-com,fin-endbibitem,pp,ed,abr,ednx,ord,jabr,etal-it,revdata,eprint,url,url-blk,translation,SLACcitation,numpages-x,url,url-prefix-x,bibinfo,bibfield,nfss,,{}') %% physjour.mbs (with options: `ay,nat,lang,pres,pres-bf,seq-no,vonx,nm-init,ed-au,jnrlst,nmft,nmft-def,fnm-def,nmfted,nmand-rm,lab,lab-def,and-rm,keyxyr,blkyear,yr-par,dtrev,date-nil-x,tit-qq,inproceedings-chapter,jtit-x,inproceedings-chapter,article-booktitle,article-series,jttl-rm,journal-address,book-bt,thesis-title-o,trtit-b,techreport-institution-par,vol-bf,vnum-x,volp-com,jpg-1,book-editor-booktitle,inbook-editor-booktitle,bookaddress,num-xser,number-cap,chapter-cap,series-number,numser-booktitle,ser-vol,ser-rm,volume-cap,ser-ed,jnm-x,pg-bk,book-chapter-pages,pub-date,ay-empty-pub-parens-x,pre-pub,pre-edn,doi-link,doi,edby,blk-com,fin-endbibitem,pp,ed,abr,ednx,ord,jabr,etal-it,revdata,eprint,url,url-blk,translation,SLACcitation,numpages-x,url,url-prefix-x,bibinfo,bibfield,nfss,,{}') %% geojour.mbs (with options: `ay,nat,lang,pres,pres-bf,seq-no,vonx,nm-init,ed-au,jnrlst,nmft,nmft-def,fnm-def,nmfted,nmand-rm,lab,lab-def,and-rm,keyxyr,blkyear,yr-par,dtrev,date-nil-x,tit-qq,inproceedings-chapter,jtit-x,inproceedings-chapter,article-booktitle,article-series,jttl-rm,journal-address,book-bt,thesis-title-o,trtit-b,techreport-institution-par,vol-bf,vnum-x,volp-com,jpg-1,book-editor-booktitle,inbook-editor-booktitle,bookaddress,num-xser,number-cap,chapter-cap,series-number,numser-booktitle,ser-vol,ser-rm,volume-cap,ser-ed,jnm-x,pg-bk,book-chapter-pages,pub-date,ay-empty-pub-parens-x,pre-pub,pre-edn,doi-link,doi,edby,blk-com,fin-endbibitem,pp,ed,abr,ednx,ord,jabr,etal-it,revdata,eprint,url,url-blk,translation,SLACcitation,numpages-x,url,url-prefix-x,bibinfo,bibfield,nfss,,{}') %% photjour.mbs (with options: `ay,nat,lang,pres,pres-bf,seq-no,vonx,nm-init,ed-au,jnrlst,nmft,nmft-def,fnm-def,nmfted,nmand-rm,lab,lab-def,and-rm,keyxyr,blkyear,yr-par,dtrev,date-nil-x,tit-qq,inproceedings-chapter,jtit-x,inproceedings-chapter,article-booktitle,article-series,jttl-rm,journal-address,book-bt,thesis-title-o,trtit-b,techreport-institution-par,vol-bf,vnum-x,volp-com,jpg-1,book-editor-booktitle,inbook-editor-booktitle,bookaddress,num-xser,number-cap,chapter-cap,series-number,numser-booktitle,ser-vol,ser-rm,volume-cap,ser-ed,jnm-x,pg-bk,book-chapter-pages,pub-date,ay-empty-pub-parens-x,pre-pub,pre-edn,doi-link,doi,edby,blk-com,fin-endbibitem,pp,ed,abr,ednx,ord,jabr,etal-it,revdata,eprint,url,url-blk,translation,SLACcitation,numpages-x,url,url-prefix-x,bibinfo,bibfield,nfss,,{}') %% merlin.mbs (with options: `tail,ay,nat,lang,pres,pres-bf,seq-no,vonx,nm-init,ed-au,jnrlst,nmft,nmft-def,fnm-def,nmfted,nmand-rm,lab,lab-def,and-rm,keyxyr,blkyear,yr-par,dtrev,date-nil-x,tit-qq,inproceedings-chapter,jtit-x,inproceedings-chapter,article-booktitle,article-series,jttl-rm,journal-address,book-bt,thesis-title-o,trtit-b,techreport-institution-par,vol-bf,vnum-x,volp-com,jpg-1,book-editor-booktitle,inbook-editor-booktitle,bookaddress,num-xser,number-cap,chapter-cap,series-number,numser-booktitle,ser-vol,ser-rm,volume-cap,ser-ed,jnm-x,pg-bk,book-chapter-pages,pub-date,ay-empty-pub-parens-x,pre-pub,pre-edn,doi-link,doi,edby,blk-com,fin-endbibitem,pp,ed,abr,ednx,ord,jabr,etal-it,revdata,eprint,url,url-blk,translation,SLACcitation,numpages-x,url,url-prefix-x,bibinfo,bibfield,nfss,,{}') %% ---------------------------------------- %% *** REVTeX-compatible Phys Rev 2010-07-25 *** %% %% Copyright 1994-2007 Patrick W Daly % =============================================================== % IMPORTANT NOTICE: % This bibliographic style (bst) file has been generated from one or % more master bibliographic style (mbs) files, listed above. % % This generated file can be redistributed and/or modified under the terms % of the LaTeX Project Public License Distributed from CTAN % archives in directory macros/latex/base/lppl.txt; either % version 1 of the License, or any later version. % =============================================================== % Name and version information of the main mbs file: % For use with BibTeX version 0.99a or later %------------------------------------------------------------------- % This bibliography style file is intended for texts in ENGLISH % This is an author-year citation style bibliography. As such, it is % non-standard LaTeX, and requires a special package file to function properly. % Such a package is natbib.sty by Patrick W. Daly % The form of the \bibitem entries is % \bibitem[Jones et al.(1990)]{key}... % \bibitem[Jones et al.(1990)Jones, Baker, and Smith]{key}... % The essential feature is that the label (the part in brackets) consists % of the author names, as they should appear in the citation, with the year % in parentheses following. There must be no space before the opening % parenthesis! % With natbib v5.3, a full list of authors may also follow the year. % In natbib.sty, it is possible to define the type of enclosures that is % really wanted (brackets or parentheses), but in either case, there must % be parentheses in the label. % The \cite command functions as follows: % \citet{key} ==>> Jones et al. (1990) % \citet*{key} ==>> Jones, Baker, and Smith (1990) % \citep{key} ==>> (Jones et al., 1990) % \citep*{key} ==>> (Jones, Baker, and Smith, 1990) % \citep[chap. 2]{key} ==>> (Jones et al., 1990, chap. 2) % \citep[e.g.][]{key} ==>> (e.g. Jones et al., 1990) % \citep[e.g.][p. 32]{key} ==>> (e.g. Jones et al., p. 32) % \citeauthor{key} ==>> Jones et al. % \citeauthor*{key} ==>> Jones, Baker, and Smith % \citeyear{key} ==>> 1990 %--------------------------------------------------------------------- FUNCTION {id.bst} {"merlin.mbs apsrev4-1.bst 2010-07-25 4.21a (PWD, AO, DPC) hacked"} ENTRY { address archive archivePrefix author bookaddress booktitle chapter collaboration doi edition editor eid eprint howpublished institution isbn issn journal key language month note number organization pages primaryClass publisher school SLACcitation series title translation type url volume year }{ }{ label extra.label sort.label short.list } INTEGERS { output.state before.all after.word after.punctuation after.sentence after.block } INTEGERS { punctuation.state punctuation.no punctuation.space punctuation.yes } STRINGS { bibfield output.bibfield } FUNCTION {not} { { #0 } { #1 } if$ } FUNCTION {and} { 'skip$ { pop$ #0 } if$ } FUNCTION {or} { { pop$ #1 } 'skip$ if$ } FUNCTION {non.stop} { duplicate$ "}" * add.period$ #-1 #1 substring$ "." = } INTEGERS { arith.mulitplier arith.multiplicand } FUNCTION {multiply} { 'arith.multiplicand := 'arith.mulitplier := #0 { arith.mulitplier #0 > } { arith.multiplicand + arith.mulitplier #1 - 'arith.mulitplier := } while$ } FUNCTION {chr.to.hex} { chr.to.int$ duplicate$ "0" chr.to.int$ - duplicate$ duplicate$ #0 < swap$ #9 > or not { swap$ pop$ } { pop$ duplicate$ "A" chr.to.int$ - duplicate$ duplicate$ #0 < swap$ #5 > or not { swap$ pop$ #10 + } { pop$ duplicate$ "a" chr.to.int$ - duplicate$ duplicate$ #0 < swap$ #5 > or not { swap$ pop$ #10 + } { pop$ pop$ #-1 } if$ } if$ } if$ } INTEGERS { arith.accumulator } FUNCTION {str.to.hex} { #0 'arith.accumulator := { duplicate$ empty$ not } { duplicate$ #1 #1 substring$ chr.to.hex duplicate$ #0 < { pop$ pop$ "" } { arith.accumulator #16 multiply + 'arith.accumulator := #2 global.max$ substring$ } if$ } while$ pop$ arith.accumulator } FUNCTION {diagn.cmntlog} { duplicate$ top$ "%" swap$ * write$ newline$ } INTEGERS { control.key control.author control.editor control.title control.pages control.eprint control.year } INTEGERS { control.author.jnrlst control.author.dotless control.author.nospace control.author.initials control.author.nocomma control.author.first control.author.reversed } FUNCTION { control.init } { #0 'control.key := #0 #8 + #64 + 'control.author := #1 'control.author.jnrlst := #0 'control.author.dotless := #0 'control.author.nospace := #1 'control.author.initials := #0 'control.author.nocomma := #0 'control.author.first := #0 'control.author.reversed := #1 'control.editor := #-1 'control.title := #0 'control.pages := #0 'control.eprint := #1 'control.year := } FUNCTION {warning.dependency} { " (dependency: " * swap$ * ") set " * swap$ int.to.str$ * warning$ } FUNCTION {control.check} { control.editor { "editor formatted same as author" control.author.reversed { duplicate$ #0 swap$ "reversed" warning.dependency #0 'control.author.reversed := } 'skip$ if$ control.author.first { duplicate$ #0 swap$ "first" warning.dependency #0 'control.author.first := } 'skip$ if$ control.author.nocomma { duplicate$ #0 swap$ "nocomma" warning.dependency #0 'control.author.nocomma := } 'skip$ if$ pop$ } 'skip$ if$ control.author.reversed 'skip$ { "not reversed" control.author.nospace { duplicate$ #0 swap$ "nospace" warning.dependency #0 'control.author.nospace := } 'skip$ if$ control.author.jnrlst 'skip$ { duplicate$ #1 swap$ "jnrlst" warning.dependency #1 'control.author.jnrlst := } if$ control.author.initials { duplicate$ ", initials" * control.author.dotless { duplicate$ #0 swap$ "dotless" warning.dependency #0 'control.author.dotless := } 'skip$ if$ pop$ } 'skip$ if$ pop$ } if$ control.author.initials 'skip$ { "not initials" control.author.nocomma { duplicate$ #0 swap$ "nocomma" warning.dependency #0 'control.author.nocomma := } 'skip$ if$ control.author.nospace { duplicate$ #0 swap$ "nospace" warning.dependency #0 'control.author.nospace := } 'skip$ if$ control.author.dotless 'skip$ { duplicate$ #1 swap$ "dotless" warning.dependency #1 'control.author.dotless := } if$ pop$ } if$ } FUNCTION {control.parse} { duplicate$ duplicate$ missing$ { pop$ pop$ pop$ } { empty$ { pop$ #-1 }{ str.to.hex } if$ swap$ := } if$ } FUNCTION {control.dump} { duplicate$ missing$ { pop$ "N/A" } 'skip$ if$ "{" swap$ * "}, " * * } INTEGERS { decode.threshold } FUNCTION {control.decode} { - duplicate$ #0 < { skip$ pop$ swap$ #0 } { swap$ pop$ swap$ #1 } if$ swap$ := } FUNCTION {control.author.decode} { control.author duplicate$ duplicate$ #0 < swap$ #128 < not or { int.to.str$ "(" swap$ * ")" * "Control cannot interpret author " swap$ * warning$ }{ 'control.author.jnrlst swap$ duplicate$ #64 control.decode 'control.author.dotless swap$ duplicate$ #32 control.decode 'control.author.nospace swap$ duplicate$ #16 control.decode 'control.author.initials swap$ duplicate$ #8 control.decode 'control.author.nocomma swap$ duplicate$ #4 control.decode 'control.author.first swap$ duplicate$ #2 control.decode 'control.author.reversed swap$ duplicate$ #1 control.decode duplicate$ #0 = 'skip$ { "Control: residue of author" "(" swap$ * ")" * * warning$ } if$ pop$ } if$ } FUNCTION {control.setup} { type$ cite$ "{" swap$ * "}, " * * "control.key" key control.dump * "control.author" author control.dump * "control.editor" editor control.dump * "control.title" title control.dump * "control.pages" pages control.dump * "control.year" year control.dump * "control.eprint" eprint control.dump * top$ 'control.key key control.parse 'control.author author control.parse 'control.editor editor control.parse 'control.title title control.parse 'control.pages pages control.parse 'control.year year control.parse 'control.eprint eprint control.parse control.author.decode } FUNCTION {control.pass} { type$ "control" = 'control.setup 'skip$ if$ } FUNCTION {control.presort} { } FUNCTION {control.forward} { } FUNCTION {control.reverse} { } FUNCTION {control.sort} { } FUNCTION {control.longest.label} { } FUNCTION {control.key.bib} { "Control: key " control.key duplicate$ "(" swap$ int.to.str$ * ") " * swap$ pop$ * diagn.cmntlog } FUNCTION {control.author.bib} { "Control: author " control.author "(" swap$ int.to.str$ * ")" * * control.author.reversed { " reversed" * }{} if$ control.author.first { " first" * }{} if$ control.author.nocomma { " nocomma" * }{} if$ control.author.initials { " initials" * }{} if$ control.author.nospace { " nospace" * }{} if$ control.author.dotless { " dotless" * }{} if$ control.author.jnrlst { " jnrlst" * }{} if$ diagn.cmntlog } FUNCTION {control.editor.bib} { "Control: editor formatted " control.editor duplicate$ "(" swap$ int.to.str$ * ") " * swap$ duplicate$ #0 < { pop$ "disabled!" } { #0 > { "identically to author" } { "differently from author" } if$ } if$ * * diagn.cmntlog } FUNCTION {control.title.bib} { "Control: production of article title " control.title duplicate$ "(" swap$ int.to.str$ * ") " * swap$ duplicate$ #0 < { pop$ "disabled" } { #0 > { "required" } { "allowed" } if$ } if$ * * diagn.cmntlog } FUNCTION {control.pages.bib} { "Control: page " control.pages duplicate$ "(" swap$ int.to.str$ * ") " * swap$ duplicate$ #0 < { pop$ "none" } { #0 > { "range" } { "single" } if$ } if$ * * diagn.cmntlog } FUNCTION {control.year.bib} { "Control: year " control.year duplicate$ "(" swap$ int.to.str$ * ") " * swap$ duplicate$ #0 < { pop$ "disabled!" } { #0 > { "truncated" } { "verbatim" } if$ } if$ * * diagn.cmntlog } FUNCTION {control.eprint.bib} { "Control: production of eprint " control.eprint duplicate$ "(" swap$ int.to.str$ * ") " * swap$ #0 < { "disabled" } { "enabled" } if$ * * diagn.cmntlog } FUNCTION {control.bib} { control.key.bib control.author.bib control.editor.bib control.title.bib control.pages.bib control.year.bib control.eprint.bib } FUNCTION {init.state.consts} { #0 'before.all := #1 'after.word := #2 'after.punctuation := #3 'after.sentence := #4 'after.block := #0 'punctuation.no := #1 'punctuation.space := #2 'punctuation.yes := "" 'bibfield := "" 'output.bibfield := } STRINGS { s t} FUNCTION {block.punctuation} { "" "," * } FUNCTION {word.space} { "\ " } FUNCTION {show.stackstring.one}{ "(" * output.state int.to.str$ * "," * punctuation.state int.to.str$ * ")" * top$ duplicate$ "1(" swap$ * ")" * top$ } FUNCTION {show.stackstring.two}{ "(" * output.state int.to.str$ * "," * punctuation.state int.to.str$ * ")" * top$ swap$ duplicate$ "1(" swap$ * ")" * top$ swap$ duplicate$ "2(" swap$ * ")" * top$ } FUNCTION {bibfield.command}{ "\bibfield "} FUNCTION {output.nonnull} { swap$ output.state after.word = { block.punctuation * word.space * } { output.state after.punctuation = { word.space * } { output.state after.block = output.state after.sentence = or { add.period$ "\EOS\ " * }{ } if$ } if$ } if$ output.bibfield duplicate$ empty$ 'pop$ { bibfield.command " {" * swap$ * "} {" * swap$ * "}" * } if$ write$ bibfield 'output.bibfield := "" 'bibfield := output.state after.block = { newline$ "\newblock " write$ } 'skip$ if$ punctuation.state duplicate$ punctuation.yes 'punctuation.state := punctuation.no = { pop$ before.all } { punctuation.yes = { after.word }{ after.punctuation } if$ } if$ 'output.state := } FUNCTION {output} { duplicate$ empty$ { pop$ "" 'bibfield := } 'output.nonnull if$ } FUNCTION {output.nopunct} { punctuation.no 'punctuation.state := output.nonnull } FUNCTION {output.check} { swap$ duplicate$ empty$ { pop$ "empty " swap$ * " in " * cite$ * warning$ } { swap$ pop$ output.nonnull } if$ } FUNCTION {bbl.open} { "\BibitemOpen " } FUNCTION {bbl.shut} { "\BibitemShut " } FUNCTION {bibitem.shut.stop} { bbl.shut "{Stop}%" * } FUNCTION {bibitem.shut.nostop} { bbl.shut "{NoStop}%" * } FUNCTION {bibitem.shut} { non.stop { bibitem.shut.nostop * }{ bibitem.shut.stop * } if$ } FUNCTION {html.itag} { "p" } FUNCTION {html.ltag} { "" } FUNCTION {output.SLACcitation} { SLACcitation empty$ 'skip$ { newline$ SLACcitation write$ } if$ } FUNCTION {fin.entry} { bibitem.shut write$ output.SLACcitation } FUNCTION {new.block} { output.state before.all = 'skip$ { after.block 'output.state := } if$ } FUNCTION {new.block.comma} { } FUNCTION {new.sentence} { output.state after.block = output.state before.all = or 'skip$ { after.sentence 'output.state := } if$ } FUNCTION {new.sentence.comma} { } FUNCTION {sentence.or.colon} { new.sentence } FUNCTION {add.blank} { word.space * before.all 'output.state := } FUNCTION {no.blank.or.punct} { "\hspace {0pt}" * before.all 'output.state := } FUNCTION {date.block} { new.block.comma skip$ } STRINGS {z} FUNCTION {remove.dots} { control.author.dotless { 'z := "" { z empty$ not } { z #1 #1 substring$ z #2 global.max$ substring$ 'z := duplicate$ "." = 'pop$ { * } if$ } while$ } 'skip$ if$ } FUNCTION {new.block.checkb} { empty$ swap$ empty$ and 'skip$ 'new.block if$ } FUNCTION {field.or.null} { duplicate$ empty$ { pop$ "" } 'skip$ if$ } FUNCTION {emphasize} { duplicate$ empty$ { pop$ "" } { "\emph {" swap$ * "}" * } if$ } FUNCTION {bolden} { duplicate$ empty$ { pop$ "" } { "\textbf {" swap$ * "}" * } if$ } FUNCTION {bib.name.font} { duplicate$ empty$ { pop$ "" } { "\bibnamefont {" swap$ * "}" * } if$ } FUNCTION {bib.fname.font} { duplicate$ empty$ { pop$ "" } { "\bibfnamefont {" swap$ * "}" * } if$ } FUNCTION {cite.name.font} { duplicate$ empty$ { pop$ "" } { "\citenamefont {" swap$ * "}" * } if$ } FUNCTION {tie.or.space.prefix} { duplicate$ text.length$ #3 < { "~" } { word.space } if$ swap$ } FUNCTION {capitalize} { "u" change.case$ "t" change.case$ } FUNCTION {space.word} { word.space swap$ * word.space * } % Here are the language-specific definitions for explicit words. % Each function has a name bbl.xxx where xxx is the English word. % The language selected here is ENGLISH FUNCTION {bbl.and} { "and" } FUNCTION {bbl.etal} { "et~al." } FUNCTION {bbl.editors} { "eds." } FUNCTION {bbl.editor} { "ed." } FUNCTION {bbl.edby} { "edited by" } FUNCTION {bbl.edition} { "ed." } FUNCTION {bbl.volume} { "vol." } FUNCTION {bbl.of} { "of" } FUNCTION {bbl.number} { "no." } FUNCTION {bbl.nr} { "no." } FUNCTION {bbl.in} { "in" } FUNCTION {bbl.pages} { "pp." } FUNCTION {bbl.page} { "p." } FUNCTION {bbl.eidpp} { "pages" } FUNCTION {bbl.chapter} { "chap." } FUNCTION {bbl.techrep} { "Tech. Rep." } FUNCTION {bbl.mthesis} { "Master's thesis" } FUNCTION {bbl.phdthesis} { "Ph.D. thesis" } FUNCTION {bbl.first} { "1st" } FUNCTION {bbl.second} { "2nd" } FUNCTION {bbl.third} { "3rd" } FUNCTION {bbl.fourth} { "4th" } FUNCTION {bbl.fifth} { "5th" } FUNCTION {bbl.st} { "st" } FUNCTION {bbl.nd} { "nd" } FUNCTION {bbl.rd} { "rd" } FUNCTION {bbl.th} { "th" } MACRO {jan} {"Jan."} 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."} FUNCTION {bbl.url.prefix} { "\urlprefix " } FUNCTION {eng.ord} { duplicate$ "1" swap$ * #-2 #1 substring$ "1" = { bbl.th * } { duplicate$ #-1 #1 substring$ duplicate$ "1" = { pop$ bbl.st * } { duplicate$ "2" = { pop$ bbl.nd * } { "3" = { bbl.rd * } { bbl.th * } if$ } if$ } if$ } if$ } %------------------------------------------------------------------- % Begin module: % \ProvidesFile{physjour.mbs}[2002/01/14 2.2 (PWD)] MACRO {aa}{"Astron. \& Astrophys."} MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."} MACRO {aj} {"Astron. J."} MACRO {aph} {"Acta Phys."} MACRO {advp} {"Adv. Phys."} MACRO {ajp} {"Amer. J. Phys."} MACRO {ajm} {"Amer. J. Math."} MACRO {amsci} {"Amer. Sci."} MACRO {anofd} {"Ann. Fluid Dyn."} MACRO {am} {"Ann. Math."} MACRO {ap} {"Ann. Phys. (NY)"} MACRO {adp} {"Ann. Phys. (Leipzig)"} MACRO {ao} {"Appl. Opt."} MACRO {apl} {"Appl. Phys. Lett."} MACRO {app} {"Astroparticle Phys."} MACRO {apj} {"Astrophys. J."} MACRO {apjsup} {"Astrophys. J. Suppl."} MACRO {apss} {"Astrophys. Space Sci."} MACRO {araa} {"Ann. Rev. Astron. Astrophys."} MACRO {baas} {"Bull. Amer. Astron. Soc."} MACRO {baps} {"Bull. Amer. Phys. Soc."} MACRO {cmp} {"Comm. Math. Phys."} MACRO {cpam} {"Commun. Pure Appl. Math."} MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"} MACRO {cpc} {"Comp. Phys. Comm."} MACRO {cqg} {"Class. Quant. Grav."} MACRO {cra} {"C. R. Acad. Sci. A"} MACRO {fed} {"Fusion Eng. \& Design"} MACRO {ft} {"Fusion Tech."} MACRO {grg} {"Gen. Relativ. Gravit."} MACRO {ieeens} {"IEEE Trans. Nucl. Sci."} MACRO {ieeeps} {"IEEE Trans. Plasma Sci."} MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"} MACRO {ip} {"Infrared Phys."} MACRO {irp} {"Infrared Phys."} MACRO {jap} {"J. Appl. Phys."} MACRO {jasa} {"J. Acoust. Soc. America"} MACRO {jcp} {"J. Comp. Phys."} MACRO {jetp} {"Sov. Phys.--JETP"} MACRO {jfe} {"J. Fusion Energy"} MACRO {jfm} {"J. Fluid Mech."} MACRO {jmp} {"J. Math. Phys."} MACRO {jne} {"J. Nucl. Energy"} MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."} MACRO {jnm} {"J. Nucl. Mat."} MACRO {jpc} {"J. Phys. Chem."} MACRO {jpp} {"J. Plasma Phys."} MACRO {jpsj} {"J. Phys. Soc. Japan"} MACRO {jsi} {"J. Sci. Instrum."} MACRO {jvst} {"J. Vac. Sci. \& Tech."} MACRO {nat} {"Nature"} MACRO {nature} {"Nature"} MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"} MACRO {nf} {"Nucl. Fusion"} MACRO {nim} {"Nucl. Inst. \& Meth."} MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."} MACRO {np} {"Nucl. Phys."} MACRO {npb} {"Nucl. Phys. B"} MACRO {nt/f} {"Nucl. Tech./Fusion"} MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"} MACRO {inc} {"Nuovo Cimento"} MACRO {nc} {"Nuovo Cimento"} MACRO {pf} {"Phys. Fluids"} MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."} MACRO {pfb} {"Phys. Fluids B: Plasma Phys."} MACRO {pl} {"Phys. Lett."} MACRO {pla} {"Phys. Lett. A"} MACRO {plb} {"Phys. Lett. B"} MACRO {prep} {"Phys. Rep."} MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"} MACRO {pp} {"Phys. Plasmas"} MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"} MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"} MACRO {prl} {"Phys. Rev. Lett."} MACRO {pr} {"Phys. Rev."} MACRO {physrev} {"Phys. Rev."} MACRO {pra} {"Phys. Rev. A"} MACRO {prb} {"Phys. Rev. B"} MACRO {prc} {"Phys. Rev. C"} MACRO {prd} {"Phys. Rev. D"} MACRO {pre} {"Phys. Rev. E"} MACRO {ps} {"Phys. Scripta"} MACRO {procrsl} {"Proc. Roy. Soc. London"} MACRO {rmp} {"Rev. Mod. Phys."} MACRO {rsi} {"Rev. Sci. Inst."} MACRO {science} {"Science"} MACRO {sciam} {"Sci. Am."} MACRO {sam} {"Stud. Appl. Math."} MACRO {sjpp} {"Sov. J. Plasma Phys."} MACRO {spd} {"Sov. Phys.--Doklady"} MACRO {sptp} {"Sov. Phys.--Tech. Phys."} MACRO {spu} {"Sov. Phys.--Uspeki"} MACRO {st} {"Sky and Telesc."} % End module: physjour.mbs %------------------------------------------------------------------- % Begin module: % \ProvidesFile{geojour.mbs}[2002/07/10 2.0h (PWD)] MACRO {aisr} {"Adv. Space Res."} MACRO {ag} {"Ann. Geophys."} MACRO {anigeo} {"Ann. Geofis."} MACRO {angl} {"Ann. Glaciol."} MACRO {andmet} {"Ann. d. Meteor."} MACRO {andgeo} {"Ann. d. Geophys."} MACRO {andphy} {"Ann. Phys.-Paris"} MACRO {afmgb} {"Arch. Meteor. Geophys. Bioklimatol."} MACRO {atph} {"Atm\'osphera"} MACRO {aao} {"Atmos. Ocean"} MACRO {ass}{"Astrophys. Space Sci."} MACRO {atenv} {"Atmos. Environ."} MACRO {aujag} {"Aust. J. Agr. Res."} MACRO {aumet} {"Aust. Meteorol. Mag."} MACRO {blmet} {"Bound.-Lay. Meteorol."} MACRO {bams} {"Bull. Amer. Meteorol. Soc."} MACRO {cch} {"Clim. Change"} MACRO {cdyn} {"Clim. Dynam."} MACRO {cbul} {"Climatol. Bull."} MACRO {cap} {"Contrib. Atmos. Phys."} MACRO {dsr} {"Deep-Sea Res."} MACRO {dhz} {"Dtsch. Hydrogr. Z."} MACRO {dao} {"Dynam. Atmos. Oceans"} MACRO {eco} {"Ecology"} MACRO {empl}{"Earth, Moon and Planets"} MACRO {envres} {"Environ. Res."} MACRO {envst} {"Environ. Sci. Technol."} MACRO {ecms} {"Estuarine Coastal Mar. Sci."} MACRO {expa}{"Exper. Astron."} MACRO {geoint} {"Geofis. Int."} MACRO {geopub} {"Geofys. Publ."} MACRO {geogeo} {"Geol. Geofiz."} MACRO {gafd} {"Geophys. Astrophys. Fluid Dyn."} MACRO {gfd} {"Geophys. Fluid Dyn."} MACRO {geomag} {"Geophys. Mag."} MACRO {georl} {"Geophys. Res. Lett."} MACRO {grl} {"Geophys. Res. Lett."} MACRO {ga} {"Geophysica"} MACRO {gs} {"Geophysics"} MACRO {ieeetap} {"IEEE Trans. Antenn. Propag."} MACRO {ijawp} {"Int. J. Air Water Pollut."} MACRO {ijc} {"Int. J. Climatol."} MACRO {ijrs} {"Int. J. Remote Sens."} MACRO {jam} {"J. Appl. Meteorol."} MACRO {jaot} {"J. Atmos. Ocean. Technol."} MACRO {jatp} {"J. Atmos. Terr. Phys."} MACRO {jastp} {"J. Atmos. Solar-Terr. Phys."} MACRO {jce} {"J. Climate"} MACRO {jcam} {"J. Climate Appl. Meteor."} MACRO {jcm} {"J. Climate Meteor."} MACRO {jcy} {"J. Climatol."} MACRO {jgr} {"J. Geophys. Res."} MACRO {jga} {"J. Glaciol."} MACRO {jh} {"J. Hydrol."} MACRO {jmr} {"J. Mar. Res."} MACRO {jmrj} {"J. Meteor. Res. Japan"} MACRO {jm} {"J. Meteor."} MACRO {jpo} {"J. Phys. Oceanogr."} MACRO {jra} {"J. Rech. Atmos."} MACRO {jaes} {"J. Aeronaut. Sci."} MACRO {japca} {"J. Air Pollut. Control Assoc."} MACRO {jas} {"J. Atmos. Sci."} MACRO {jmts} {"J. Mar. Technol. Soc."} MACRO {jmsj} {"J. Meteorol. Soc. Japan"} MACRO {josj} {"J. Oceanogr. Soc. Japan"} MACRO {jwm} {"J. Wea. Mod."} MACRO {lao} {"Limnol. Oceanogr."} MACRO {mwl} {"Mar. Wea. Log"} MACRO {mau} {"Mausam"} MACRO {meteor} {"``Meteor'' Forschungsergeb."} MACRO {map} {"Meteorol. Atmos. Phys."} MACRO {metmag} {"Meteor. Mag."} MACRO {metmon} {"Meteor. Monogr."} MACRO {metrun} {"Meteor. Rundsch."} MACRO {metzeit} {"Meteor. Z."} MACRO {metgid} {"Meteor. Gidrol."} MACRO {mwr} {"Mon. Weather Rev."} MACRO {nwd} {"Natl. Weather Dig."} MACRO {nzjmfr} {"New Zeal. J. Mar. Freshwater Res."} MACRO {npg} {"Nonlin. Proc. Geophys."} MACRO {om} {"Oceanogr. Meteorol."} MACRO {ocac} {"Oceanol. Acta"} MACRO {oceanus} {"Oceanus"} MACRO {paleoc} {"Paleoceanography"} MACRO {pce} {"Phys. Chem. Earth"} MACRO {pmg} {"Pap. Meteor. Geophys."} MACRO {ppom} {"Pap. Phys. Oceanogr. Meteor."} MACRO {physzeit} {"Phys. Z."} MACRO {pps} {"Planet. Space Sci."} MACRO {pss} {"Planet. Space Sci."} MACRO {pag} {"Pure Appl. Geophys."} MACRO {qjrms} {"Quart. J. Roy. Meteorol. Soc."} MACRO {quatres} {"Quat. Res."} MACRO {rsci} {"Radio Sci."} MACRO {rse} {"Remote Sens. Environ."} MACRO {rgeo} {"Rev. Geophys."} MACRO {rgsp} {"Rev. Geophys. Space Phys."} MACRO {rdgeo} {"Rev. Geofis."} MACRO {revmeta} {"Rev. Meteorol."} MACRO {sgp}{"Surveys in Geophys."} MACRO {sp} {"Solar Phys."} MACRO {ssr} {"Space Sci. Rev."} MACRO {tellus} {"Tellus"} MACRO {tac} {"Theor. Appl. Climatol."} MACRO {tagu} {"Trans. Am. Geophys. Union (EOS)"} MACRO {wrr} {"Water Resour. Res."} MACRO {weather} {"Weather"} MACRO {wafc} {"Weather Forecast."} MACRO {ww} {"Weatherwise"} MACRO {wmob} {"WMO Bull."} MACRO {zeitmet} {"Z. Meteorol."} % End module: geojour.mbs %------------------------------------------------------------------- % Begin module: % \ProvidesFile{photjour.mbs}[1999/02/24 2.0b (PWD)] MACRO {appopt} {"Appl. Opt."} MACRO {bell} {"Bell Syst. Tech. J."} MACRO {ell} {"Electron. Lett."} MACRO {jasp} {"J. Appl. Spectr."} MACRO {jqe} {"IEEE J. Quantum Electron."} MACRO {jlwt} {"J. Lightwave Technol."} MACRO {jmo} {"J. Mod. Opt."} MACRO {josa} {"J. Opt. Soc. America"} MACRO {josaa} {"J. Opt. Soc. Amer.~A"} MACRO {josab} {"J. Opt. Soc. Amer.~B"} MACRO {jdp} {"J. Phys. (Paris)"} MACRO {oc} {"Opt. Commun."} MACRO {ol} {"Opt. Lett."} MACRO {phtl} {"IEEE Photon. Technol. Lett."} MACRO {pspie} {"Proc. Soc. Photo-Opt. Instrum. Eng."} MACRO {sse} {"Solid-State Electron."} MACRO {sjot} {"Sov. J. Opt. Technol."} MACRO {sjqe} {"Sov. J. Quantum Electron."} MACRO {sleb} {"Sov. Phys.--Leb. Inst. Rep."} MACRO {stph} {"Sov. Phys.--Techn. Phys."} MACRO {stphl} {"Sov. Techn. Phys. Lett."} MACRO {vr} {"Vision Res."} MACRO {zph} {"Z. f. Physik"} MACRO {zphb} {"Z. f. Physik~B"} MACRO {zphd} {"Z. f. Physik~D"} MACRO {CLEO} {"CLEO"} MACRO {ASSL} {"Adv. Sol.-State Lasers"} MACRO {OSA} {"OSA"} % End module: photjour.mbs %% Copyright 1994-2007 Patrick W Daly 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. Software Eng."} MACRO {ieeetc} {"IEEE Trans. Comput."} MACRO {ieeetcad} {"IEEE Trans. Comput. Aid. Des."} MACRO {ipl} {"Inf. Process. Lett."} MACRO {jacm} {"J.~ACM"} MACRO {jcss} {"J.~Comput. Syst. Sci."} MACRO {scp} {"Sci. Comput. Program."} MACRO {sicomp} {"SIAM J. Comput."} MACRO {tocs} {"ACM Trans. Comput. Syst."} MACRO {tods} {"ACM Trans. Database Syst."} MACRO {tog} {"ACM Trans. Graphic."} MACRO {toms} {"ACM Trans. Math. Software"} MACRO {toois} {"ACM Trans. Office Inf. Syst."} MACRO {toplas} {"ACM Trans. Progr. Lang. Syst."} MACRO {tcs} {"Theor. Comput. Sci."} FUNCTION {bibinfo.command} { "\bibinfo " } FUNCTION {bibinfo.check} { swap$ duplicate$ missing$ { pop$ pop$ "" }{ duplicate$ empty$ { swap$ pop$ }{ swap$ bibinfo.command "{" * swap$ * "} {" * swap$ * "}" * } if$ } if$ } FUNCTION {bibinfo.warn} { swap$ duplicate$ missing$ { swap$ "missing " swap$ * " in " * cite$ * warning$ pop$ "" }{ duplicate$ empty$ { swap$ "empty " swap$ * " in " * cite$ * warning$ }{ swap$ bibinfo.command " {" * swap$ * "} {" * swap$ * "}" * } if$ } if$ } FUNCTION {archiv.base} { "http://arxiv.org/abs" } FUNCTION {archiv.prefix.base} { "arXiv" } FUNCTION {eprint.command} { "\Eprint " } FUNCTION {format.eprint} { eprint duplicate$ empty$ control.eprint #0 < or { pop$ "" } { duplicate$ "" archive duplicate$ empty$ { pop$ archiv.base } 'skip$ if$ * "/" * swap$ * "{" swap$ * "} " * swap$ "" archivePrefix duplicate$ empty$ { pop$ "" } { ":" * } if$ * swap$ * primaryClass duplicate$ empty$ { pop$ "" } { " [" swap$ * "]" * } if$ * "{" swap$ * "} " * * eprint.command swap$ * } if$ } FUNCTION {format.translation} { translation duplicate$ empty$ 'skip$ { "" "\translation{" * swap$ * "}" * punctuation.space 'punctuation.state := } if$ } FUNCTION {format.url} { url duplicate$ empty$ { pop$ "" } { "\url " "{" * swap$ * "}" * } if$ } INTEGERS { nameptr namesleft numnames } FUNCTION {check.speaker} { key empty$ 'skip$ { key nameptr int.to.str$ = { bolden } 'skip$ if$ } if$ } STRINGS { bibinfo} FUNCTION {format.names.fname} { control.author.initials { control.author.dotless { control.author.nospace { "f{}" } { "f{~}" } if$ } { control.author.nospace { "f{.}." } { "f." } if$ } if$ } { "ff" } if$ } FUNCTION {bracify} { "{" swap$ * "}" * } FUNCTION {name.comma} { control.author.nocomma 'skip$ { "," swap$ * } if$ } FUNCTION {format.names.format.onefont} { "{vv~}{ll}" nameptr #1 > control.author.first and control.author.reversed not or { control.author.initials { "f" control.author.dotless 'skip$ { "." * } if$ "~" * } { "ff" } if$ bracify swap$ } { format.names.fname " " swap$ * name.comma bracify } if$ "jj" " " swap$ * name.comma bracify control.author.jnrlst 'skip$ 'swap$ if$ * * } FUNCTION {format.names.onefont} { s nameptr format.names.format.onefont format.name$ remove.dots bib.name.font } FUNCTION {format.names.morfont} { s nameptr "{vv~}{ll}" format.name$ bib.name.font nameptr #1 > control.author.first and control.author.reversed not or { s nameptr control.author.initials { "f" % default: name + surname + comma junior } { "ff" } if$ control.author.dotless 'skip$ { "." * % nm-init % Initials. + surname (J. F. Smith) control.author.initials } if$ bracify format.name$ duplicate$ empty$ 'skip$ { tie.or.space.prefix bib.fname.font swap$ * } if$ swap$ * s nameptr "{jj}" format.name$ duplicate$ empty$ 'skip$ { bib.fname.font ", " swap$ * } if$ } { "," * s nameptr format.names.fname "jj" " " name.comma control.author.jnrlst { swap$ * skip$ } { skip$ * swap$ } if$ bracify swap$ bracify swap$ * format.name$ remove.dots duplicate$ empty$ 'skip$ { bib.fname.font " " swap$ * } if$ } if$ * } FUNCTION {names.punctuate} { "," * " " * } FUNCTION {format.names} { 'bibinfo := duplicate$ empty$ { pop$ "" } { duplicate$ num.names$ duplicate$ 'numnames := 'namesleft := 's := #1 'nameptr := "" { namesleft #0 > } { format.names.morfont bibinfo bibinfo.check type$ "presentation" = 'check.speaker 'skip$ if$ 't := nameptr #1 > not { t * } { %%%MODIFIED-ETAL-START nameptr #0 #4 + %%%INFO: max. of authors shown when "et al." is enforced #1 + = numnames #0 #7 + %%%INFO: max. of authors shown (without enforcing et al.) > and { "others" 't := #1 'namesleft := } 'skip$ if$ %%%MODIFIED-ETAL-END namesleft #1 > { names.punctuate t * } { s nameptr "{ll}" format.name$ duplicate$ "others" = { 't := } { pop$ } if$ numnames #2 > 'names.punctuate 'skip$ if$ t "others" = { " " * bbl.etal emphasize * } { bbl.and space.word * t * } if$ } if$ } if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := } while$ } if$ } FUNCTION {format.names.ed.onefont} { s nameptr control.author.initials { control.author.dotless { control.author.nospace { "{f{}~}{vv~}{ll}{ jj}" % nm-rvx|nm-rvcx } { "{f{~}~}{vv~}{ll}{ jj}" % nm-rv } if$ } { control.author.nospace { "{f{.}.~}{vv~}{ll}{ jj}" % nm-rvv|nm-rvvc }{ "{f.~}{vv~}{ll}{, jj}" % nm-init|nm-rev|nm-rev1 } if$ } if$ } { "{ff~}{vv~}{ll}{, jj}" } if$ format.name$ remove.dots bib.name.font } FUNCTION {format.names.ed.morfont} { control.author.reversed { % control.author.initials { % control.author.dotless { % s nameptr control.author.nospace { % nm-rvx nm-rvcx "{f{}}" } { % nm-rv "{f{~}}" } if$ format.name$ duplicate$ empty$ 'skip$ { tie.or.space.prefix bib.fname.font swap$ * } if$ s nameptr "{vv~}{ll}" format.name$ bib.name.font * s nameptr "{jj}" format.name$ remove.dots duplicate$ empty$ 'skip$ { bib.fname.font " " swap$ * } if$ } { % !control.author.dotless s nameptr control.author.nospace { % nm-rvv "{ff}" } { % nm-rev nm-rev1 "{f.}" } if$ format.name$ duplicate$ empty$ 'skip$ { tie.or.space.prefix bib.fname.font swap$ * } if$ s nameptr "{vv~}{ll}" format.name$ bib.name.font * s nameptr "{jj}" format.name$ duplicate$ empty$ 'skip$ { bib.fname.font ", " swap$ * } if$ } if$ } { % Full names !control.author.initials nm-revf nm-revv1 s nameptr "{ff}" format.name$ duplicate$ empty$ 'skip$ { tie.or.space.prefix bib.fname.font swap$ * } if$ s nameptr "{vv~}{ll}" format.name$ bib.name.font * s nameptr "{jj}" format.name$ duplicate$ empty$ 'skip$ { bib.fname.font ", " swap$ * } if$ } if$ } { % !control.author.reversed nm-init s nameptr "{f.}" format.name$ duplicate$ empty$ 'skip$ { tie.or.space.prefix bib.fname.font swap$ * } if$ s nameptr "{vv~}{ll}" format.name$ bib.name.font * s nameptr "{jj}" format.name$ duplicate$ empty$ 'skip$ { bib.fname.font ", " swap$ * } if$ } if$ * } FUNCTION {format.names.ed} { control.editor #0 > { format.names } { 'bibinfo := duplicate$ empty$ 'skip$ { 's := "" 't := #1 'nameptr := s num.names$ 'numnames := numnames 'namesleft := { namesleft #0 > } { format.names.ed.morfont bibinfo bibinfo.check 't := nameptr #1 > { namesleft #1 > { names.punctuate t * }{ s nameptr "{ll}" format.name$ duplicate$ "others" = { 't := } { pop$ } if$ numnames #2 > 'names.punctuate 'skip$ if$ t "others" = { " " * bbl.etal emphasize * }{ bbl.and space.word * t * } if$ } if$ } 't if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := } while$ } if$ } if$ } FUNCTION {format.key} { empty$ { key field.or.null } { "" } if$ } FUNCTION {format.authors} { author "author" format.names duplicate$ empty$ 'skip$ { collaboration "collaboration" bibinfo.check duplicate$ empty$ 'skip$ { " (" swap$ * ")" * } if$ * } if$ "author" 'bibfield := } FUNCTION {get.bbl.editor} { editor num.names$ #1 > 'bbl.editors 'bbl.editor if$ } FUNCTION {format.editors} { editor "editor" format.names duplicate$ empty$ 'skip$ { "," * word.space * get.bbl.editor * } if$ } FUNCTION {format.isbn.output} { } FUNCTION {format.issn.output} { } FUNCTION {doi.base} { "http://dx.doi.org/" } FUNCTION {doi.base.command} { "\doibase " } FUNCTION {noop.command} { "\href@noop " } FUNCTION {href.command} { "\href" } FUNCTION {link.tag.open} { doi duplicate$ empty$ { pop$ url duplicate$ empty$ { pop$ "" noop.command }{ href.command } if$ } { doi.base.command swap$ * href.command } if$ "{" * swap$ * "} {" * } FUNCTION {link.tag.shut} { "}" } FUNCTION {link.open} { link.tag.open output.nopunct } FUNCTION {link.shut} { link.tag.shut * } FUNCTION {add.doi} { link.tag.open swap$ * link.tag.shut * } FUNCTION {select.language} { duplicate$ empty$ 'pop$ { language empty$ 'skip$ { "{\selectlanguage {" language * "}" * swap$ * "}" * } if$ } if$ } FUNCTION {format.note} { note empty$ { "" } { note #1 #1 substring$ duplicate$ "{" = 'skip$ { output.state after.word = output.state after.punctuation = or { "l" } { "u" } if$ change.case$ } if$ note #2 global.max$ substring$ * "note" bibinfo.check } if$ } FUNCTION {bbl.enquote} { "\enquote " } FUNCTION {string.enquote} { punctuation.no 'punctuation.state := non.stop { block.punctuation } { "" } if$ swap$ pop$ * bbl.enquote "{" * swap$ * "}" * word.space * } FUNCTION {format.title} { title duplicate$ empty$ 'skip$ { "t" change.case$ } if$ duplicate$ "title" bibinfo.check swap$ duplicate$ empty$ 'pop$ { punctuation.yes 'punctuation.state := string.enquote select.language } if$ } FUNCTION {end.quote.title} { title empty$ 'skip$ { before.all 'output.state := } if$ } FUNCTION {format.name.apply} { s nameptr "{vv~}{ll}" format.name$ cite.name.font } FUNCTION {format.full.names} { 's := "" 't := #1 'nameptr := s num.names$ 'numnames := numnames 'namesleft := { namesleft #0 > } { format.name.apply 't := nameptr #1 > { namesleft #1 > { ", " * t * } { s nameptr "{ll}" format.name$ duplicate$ "others" = { 't := } 'pop$ if$ t "others" = { " " * bbl.etal emphasize * }{ numnames #2 > { "," * }{ skip$ } if$ bbl.and space.word * t * } if$ } if$ } 't if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := } while$ } FUNCTION {make.full.names} { key editor author type$ "proceedings" = type$ "book" = type$ "inbook" = or { pop$ }{ { pop$ "" }{ swap$ pop$ "" swap$ } if$ } if$ duplicate$ empty$ { pop$ duplicate$ empty$ { pop$ duplicate$ empty$ { pop$ cite$ #1 #3 substring$ }{ skip$ } if$ } { swap$ pop$ format.full.names } if$ } { swap$ pop$ swap$ pop$ format.full.names } if$ } FUNCTION {year.bibitem} { year duplicate$ empty$ { pop$ "" }{ skip$ } if$ extra.label * } FUNCTION {output.bibitem} { newline$ "" label * ")" * make.full.names duplicate$ short.list = { pop$ }{ * } if$ bracify "[" swap$ * "]" * cite$ bracify "%" * * "\bibitem " swap$ * write$ newline$ " " duplicate$ bbl.open * write$ newline$ before.all 'output.state := punctuation.yes 'punctuation.state := } FUNCTION {n.dashify} { 't := "" { t empty$ not } { t #1 #1 substring$ "-" = { t #1 #2 substring$ "--" = not { "--" * t #2 global.max$ substring$ 't := }{ { t #1 #1 substring$ "-" = } { "-" * t #2 global.max$ substring$ 't := } while$ } if$ }{ t #1 #1 substring$ * t #2 global.max$ substring$ 't := } if$ } while$ } FUNCTION {word.in} { bbl.in word.space * } FUNCTION {date.encapsulate} { duplicate$ empty$ 'skip$ { before.all 'output.state := " (" swap$ * ")" * } if$ } FUNCTION {format.date} { year "year" bibinfo.check duplicate$ empty$ { } 'skip$ if$ extra.label * date.encapsulate } FUNCTION {format.date.output.check} { format.date "year" output.check } FUNCTION {format.date.output} { format.date.output.check } FUNCTION {format.btitle} { booktitle duplicate$ empty$ { pop$ title } 'skip$ if$ "title" bibinfo.check duplicate$ empty$ 'skip$ { emphasize select.language } if$ } FUNCTION {format.atitle} { title duplicate$ "title" bibinfo.check swap$ duplicate$ empty$ 'pop$ { punctuation.yes 'punctuation.state := string.enquote select.language } if$ } FUNCTION {either.or.check} { empty$ 'pop$ { "can't use both " swap$ * " fields in " * cite$ * warning$ } if$ } FUNCTION {editor.check.book} { editor empty$ 'skip$ { "can't use both author and editor fields in " cite$ * ": try using @inbook instead" * warning$ } if$ } FUNCTION {format.bvolume} { volume duplicate$ empty$ { pop$ "" } { "volume and number" number either.or.check bbl.volume capitalize swap$ tie.or.space.prefix "volume" bibinfo.check * * series "series" bibinfo.check duplicate$ empty$ 'pop$ { ", " * swap$ * } if$ } if$ } FUNCTION {format.number} { bbl.number output.state after.word = output.state after.punctuation = or #1 or #0 and 'skip$ { capitalize } if$ number tie.or.space.prefix "number" bibinfo.check * * } FUNCTION {format.number.series} { volume empty$ { number empty$ { series field.or.null } { series empty$ { number "number" bibinfo.check }{ format.number series "series" bibinfo.check word.space * swap$ * } if$ } if$ } { "" } if$ } FUNCTION {is.num} { chr.to.int$ duplicate$ "0" chr.to.int$ < not swap$ "9" chr.to.int$ > not and } FUNCTION {extract.num} { duplicate$ 't := "" 's := { t empty$ not } { t #1 #1 substring$ t #2 global.max$ substring$ 't := duplicate$ is.num { s swap$ * 's := } { pop$ "" 't := } if$ } while$ s empty$ 'skip$ { pop$ s } if$ } FUNCTION {convert.edition} { extract.num "l" change.case$ 's := s "first" = s "1" = or { bbl.first 't := } { s "second" = s "2" = or { bbl.second 't := } { s "third" = s "3" = or { bbl.third 't := } { s "fourth" = s "4" = or { bbl.fourth 't := } { s "fifth" = s "5" = or { bbl.fifth 't := } { s #1 #1 substring$ is.num { s eng.ord 't := } { edition 't := } if$ } if$ } if$ } if$ } if$ } if$ t } FUNCTION {format.edition} { edition duplicate$ empty$ 'skip$ { convert.edition output.state after.word = output.state after.punctuation = or { "l" } { "t" } if$ change.case$ "edition" bibinfo.check word.space * bbl.edition * } 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 duplicate$ empty$ 'skip$ { duplicate$ multi.page.check { bbl.pages swap$ n.dashify }{ bbl.page swap$ } if$ tie.or.space.prefix "pages" bibinfo.check * * } if$ } 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.book.pages} { pages duplicate$ empty$ 'skip$ { "pages" bibinfo.check word.space bbl.pages * * } if$ } FUNCTION {volnum.punct} { "," word.space * } FUNCTION {format.journal.pages} { pages duplicate$ empty$ 'pop$ { swap$ duplicate$ empty$ { pop$ pop$ format.pages } { volnum.punct * swap$ control.pages duplicate$ #0 < { pop$ pop$ }{ #0 > { n.dashify }{ first.page } if$ } if$ "pages" bibinfo.check * } if$ } if$ } FUNCTION {format.journal.eid} { eid "eid" bibinfo.check duplicate$ empty$ 'pop$ { swap$ duplicate$ empty$ 'skip$ { volnum.punct * } if$ swap$ * } if$ } FUNCTION {eid.or.pages} { eid empty$ { format.journal.pages } { format.journal.eid } if$ } FUNCTION {format.ser.vol.num} { series "series" bibinfo.check output volume field.or.null duplicate$ empty$ 'skip$ { "volume" bibinfo.check } if$ bolden } FUNCTION {format.chapter.pages} { chapter empty$ { format.pages } { type empty$ { bbl.chapter capitalize }{ type capitalize "type" bibinfo.check } if$ chapter tie.or.space.prefix "chapter" bibinfo.check * * pages empty$ 'skip$ { ", " * format.pages * } if$ } if$ } FUNCTION {format.booktitle} { booktitle duplicate$ "booktitle" bibinfo.check swap$ duplicate$ empty$ 'pop$ { punctuation.yes 'punctuation.state := pop$ emphasize select.language } if$ } FUNCTION {format.editor.in} { editor "editor" format.names.ed duplicate$ empty$ 'skip$ { bbl.edby word.space * swap$ * } if$ } FUNCTION {output.article.booktitle} { format.booktitle "booktitle" 'bibfield := output bookaddress "address" bibinfo.check duplicate$ empty$ 'pop$ { "address" 'bibfield := output.nonnull after.punctuation 'output.state := } if$ } FUNCTION {format.in.ed.booktitle} { format.booktitle duplicate$ empty$ 'pop$ { add.doi word.in swap$ * output.nonnull bookaddress "address" bibinfo.check output format.number.series "series and number" bibinfo.check output format.bvolume output format.editor.in "editor" bibinfo.check output } if$ } FUNCTION {format.in.ed.booktitle.inbook} { format.booktitle duplicate$ empty$ 'pop$ { add.doi word.in swap$ * output.nonnull bookaddress "address" bibinfo.check output format.number.series "series and number" bibinfo.check output format.bvolume output author empty$ 'skip$ { format.editor.in "editor" bibinfo.check output } if$ } if$ } FUNCTION {format.thesis.type} { type duplicate$ empty$ 'pop$ { swap$ pop$ "t" change.case$ "type" bibinfo.check } if$ } FUNCTION {format.tr.number} { number "number" bibinfo.check type duplicate$ empty$ { pop$ bbl.techrep } 'skip$ if$ "type" bibinfo.check swap$ duplicate$ empty$ { pop$ "t" change.case$ } { tie.or.space.prefix * * } if$ } FUNCTION {format.article.crossref} { word.in " \cite{" * crossref * "}" * } FUNCTION {format.book.crossref} { volume duplicate$ empty$ { "empty volume in " cite$ * "'s crossref of " * crossref * warning$ pop$ word.in } { bbl.volume swap$ tie.or.space.prefix "volume" bibinfo.check * * bbl.of space.word * } if$ " \cite{" * crossref * "}" * } FUNCTION {format.incoll.inproc.crossref} { word.in " \cite{" * crossref * "}" * } FUNCTION {format.org.or.pub} { 't := "" address "address" bibinfo.check duplicate$ empty$ { pop$ t } { t duplicate$ empty$ { pop$ } { "," word.space * * swap$ * } if$ } if$ * year duplicate$ empty$ { "empty year in " cite$ * warning$ pop$ "" } 'skip$ if$ duplicate$ empty$ { pop$ } { "year" bibinfo.check swap$ duplicate$ empty$ { pop$ } { "," * word.space * swap$ * } if$ } if$ duplicate$ empty$ 'skip$ { "" "(" * swap$ * ")" * after.punctuation 'output.state := punctuation.space 'punctuation.state := } if$ } FUNCTION {format.publisher.address} { publisher "publisher" bibinfo.warn format.org.or.pub } FUNCTION {format.organization.address} { organization "organization" bibinfo.check format.org.or.pub } FUNCTION {format.organization.publisher.address} { publisher empty$ { format.organization.address } { organization "organization" bibinfo.check output format.publisher.address } if$ } FUNCTION {format.school.address.output} { school "school" bibinfo.warn address "address" bibinfo.check duplicate$ empty$ 'skip$ { swap$ duplicate$ empty$ 'skip$ { ", " * } if$ swap$ } if$ * output } FUNCTION {article.title.produce} { control.title duplicate$ #0 < { pop$ }{ format.title "title" 'bibfield := swap$ #0 > { "title" output.check }{ output } if$ new.block.comma } if$ } FUNCTION {control} { } FUNCTION {article} { output.bibitem format.authors booktitle empty$ { "author" output.check }{ output } if$ author format.key output new.block.comma article.title.produce %%%MODIFIED-ATITLE-START new.block.comma format.atitle %%%MODIFIED-ATITLE-END "title" output.check output.article.booktitle crossref missing$ { link.open journal "journal" bibinfo.warn "journal" 'bibfield := output add.blank format.ser.vol.num output eid.or.pages format.date.output.check pages empty$ { doi output } 'skip$ if$ link.shut }{ format.article.crossref output.nonnull format.pages output } if$ format.issn.output new.block.comma new.sentence.comma format.note output format.eprint output format.translation output fin.entry } FUNCTION {book} { output.bibitem author empty$ { format.editors "author and editor" output.check editor format.key output }{ format.authors output.nonnull % crossref missing$ { editor.check.book } 'skip$ if$ } if$ new.block.comma link.open format.btitle "title" output.check link.shut format.edition output author empty$ { } { format.editor.in output editor format.key output } if$ format.number.series output crossref missing$ { format.bvolume output new.block.comma format.publisher.address output }{ new.block.comma format.book.crossref output.nonnull format.date.output.check } if$ format.isbn.output format.chapter.pages output new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {booklet} { output.bibitem format.authors output author format.key output new.block.comma link.open format.title "title" output.check link.shut new.block.comma howpublished "howpublished" bibinfo.check output address "address" bibinfo.check output format.date.output format.isbn.output format.book.pages output new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {footnote} { output.bibitem format.note output fin.entry } FUNCTION {inbook} { output.bibitem author empty$ { format.editors "editor" output.check editor format.key output }{ format.authors output.nonnull author format.key output } if$ new.block.comma format.title output new.block.comma crossref missing$ { format.in.ed.booktitle.inbook format.publisher.address output format.chapter.pages "chapter and pages" output.check new.block.comma format.edition output new.block.comma }{ format.chapter.pages "chapter and pages" output.check new.block.comma format.book.crossref output.nonnull format.date.output.check } if$ crossref missing$ { format.isbn.output } 'skip$ if$ new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {incollection} { output.bibitem format.authors "author" output.check author format.key output new.block.comma article.title.produce crossref missing$ { format.in.ed.booktitle format.publisher.address output format.edition output format.chapter.pages output format.isbn.output }{ format.incoll.inproc.crossref output.nonnull format.chapter.pages output } if$ new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {inproceedings} { output.bibitem format.authors "author" output.check author format.key output new.block.comma article.title.produce crossref missing$ { format.in.ed.booktitle format.organization.publisher.address output format.chapter.pages output format.isbn.output format.issn.output }{ format.incoll.inproc.crossref output.nonnull format.chapter.pages output } if$ new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {conference} { inproceedings } FUNCTION {manual} { output.bibitem format.authors output author format.key output new.block.comma link.open format.btitle "title" output.check link.shut organization "organization" bibinfo.check output address "address" bibinfo.check output format.edition output format.date.output new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {mastersthesis} { output.bibitem format.authors "author" output.check author format.key output new.block.comma format.btitle output new.block.comma link.open bbl.mthesis format.thesis.type output.nonnull link.shut format.school.address.output format.date.output.check new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {misc} { output.bibitem format.authors output author format.key output new.block.comma link.open format.title output link.shut new.block.comma howpublished "howpublished" bibinfo.check output format.date.output new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {phdthesis} { output.bibitem format.authors "author" output.check author format.key output new.block.comma format.btitle output new.block.comma link.open bbl.phdthesis format.thesis.type output.nonnull link.shut format.school.address.output format.date.output.check new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {presentation} { output.bibitem format.authors output author format.key output new.block.comma link.open format.title output link.shut new.block.comma format.organization.address "organization and address" output.check month "month" output.check year "year" output.check new.block.comma new.sentence.comma format.note output new.sentence type missing$ 'skip$ {"(" type capitalize * ")" * output} if$ fin.entry } FUNCTION {proceedings} { output.bibitem format.editors output editor format.key output new.block.comma link.open format.btitle "title" output.check link.shut bookaddress "address" bibinfo.check output format.number.series output format.bvolume output format.organization.publisher.address output format.isbn.output format.issn.output new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {techreport} { output.bibitem format.authors "author" output.check author format.key output new.block.comma link.open format.btitle "title" output.check link.shut new.block.comma format.tr.number output.nonnull institution "institution" bibinfo.warn format.org.or.pub output new.block.comma new.sentence.comma format.note output format.eprint output fin.entry } FUNCTION {unpublished} { output.bibitem format.authors "author" output.check author format.key output new.block.comma link.open format.title "title" output.check link.shut format.date.output new.block.comma new.sentence.comma format.note "note" output.check format.eprint output fin.entry } FUNCTION {default.type} { misc } READ EXECUTE {control.init} ITERATE {control.pass} EXECUTE {control.check} 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 {cite.name.font.apply} { word.space * bbl.etal emphasize * } FUNCTION {format.lab.names} { 's := "" 't := #1 'nameptr := format.name.apply s num.names$ duplicate$ #2 > { pop$ cite.name.font.apply }{ #2 < 'skip$ { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" = { cite.name.font.apply }{ bbl.and space.word * s #2 "{vv~}{ll}" format.name$ cite.name.font * } if$ } if$ } if$ } FUNCTION {author.key.label} { author empty$ { key empty$ { cite$ #1 #3 substring$ } 'key if$ } { author format.lab.names } if$ } FUNCTION {author.editor.key.label} { author empty$ { editor empty$ { key empty$ { cite$ #1 #3 substring$ } 'key if$ } { editor format.lab.names } if$ } { author format.lab.names } if$ } FUNCTION {editor.key.label} { editor empty$ { key empty$ { cite$ #1 #3 substring$ } 'key if$ } { editor format.lab.names } if$ } FUNCTION {calc.short.authors} { type$ "book" = type$ "inbook" = or 'author.editor.key.label { type$ "proceedings" = 'editor.key.label 'author.key.label if$ } if$ 'short.list := } FUNCTION {calc.label} { calc.short.authors short.list year duplicate$ empty$ short.list key field.or.null = or { pop$ "" }{ control.year #0 > { purify$ #-1 #4 substring$ } 'skip$ if$ } if$ "(" swap$ * * 'label := } FUNCTION {sort.format.names} { 's := #1 'nameptr := "" s num.names$ 'numnames := numnames 'namesleft := { namesleft #0 > } { s nameptr "{ll{ }}" control.author.initials { "{ f{ }}" * }{ "{ ff{ }}" * } if$ "{ jj{ }}" * format.name$ 't := nameptr #1 > { " " * namesleft #1 = t "others" = and { "zzzzz" * } { t sortify * } if$ } { 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 {year.sort.key} { year } FUNCTION {editor.sort} { editor empty$ { key empty$ { "to sort, need editor or key in " cite$ * warning$ "" } { key sortify } if$ } { editor sort.format.names } if$ } INTEGERS { seq.num } FUNCTION {init.seq} { #0 'seq.num :=} EXECUTE {init.seq} FUNCTION {int.to.fix} { "000000000" swap$ int.to.str$ * #-1 #10 substring$ } FUNCTION {label.presort} { calc.label label sortify " " * seq.num #1 + 'seq.num := seq.num int.to.fix 'sort.label := sort.label * " " * title field.or.null sort.format.title * #1 entry.max$ substring$ 'sort.key$ := } FUNCTION {presort.pass} { type$ "control" = 'control.presort 'label.presort if$ } ITERATE {presort.pass} SORT STRINGS { last.label next.extra } INTEGERS { last.extra.num number.label } FUNCTION {initialize.extra.label.stuff} { #0 int.to.chr$ 'last.label := "" 'next.extra := #0 'last.extra.num := #0 'number.label := } FUNCTION {label.forward} { last.label label = { last.extra.num #1 + 'last.extra.num := last.extra.num int.to.chr$ 'extra.label := } { "a" chr.to.int$ 'last.extra.num := "" 'extra.label := label 'last.label := } if$ number.label #1 + 'number.label := } FUNCTION {label.reverse} { next.extra "b" = { "a" 'extra.label := } 'skip$ if$ extra.label 'next.extra := extra.label duplicate$ empty$ 'skip$ { "{\natexlab{" swap$ * "}}" * } if$ 'extra.label := label extra.label * 'label := } EXECUTE {initialize.extra.label.stuff} FUNCTION {forward.pass} { type$ "control" = 'control.forward 'label.forward if$ } ITERATE {forward.pass} FUNCTION {reverse.pass} { type$ "control" = 'control.reverse 'label.reverse if$ } REVERSE {reverse.pass} FUNCTION {sortkey.sort} { sort.label " " * year.sort.key field.or.null sortify * " " * title field.or.null sort.format.title * #1 entry.max$ substring$ 'sort.key$ := } FUNCTION {bib.sort.pass} { type$ "control" = 'control.sort 'sortkey.sort if$ } ITERATE {bib.sort.pass} SORT FUNCTION {init.bib.eprint} { "\texttt {" pop$ "\providecommand \url [0]{\begingroup\@sanitize@url \@url }%" write$ newline$ "\providecommand \@url [1]{\endgroup\@href {#1}{" "}}%" bbl.url.prefix swap$ * * write$ newline$ "\providecommand " " [0]{URL }%" bbl.url.prefix swap$ * * write$ newline$ eprint.command "\providecommand " swap$ * "[0]{\href }%" * write$ newline$ } FUNCTION {init.bib.doi} { "\providecommand \doibase [0]{" doi.base "}%" * * write$ newline$ } FUNCTION {init.bib.hypertex} { "\providecommand " noop.command "[0]{\@secondoftwo}%" * * write$ newline$ "\providecommand " href.command "[0]{\begingroup \@sanitize@url \@href}%" * * write$ newline$ "\providecommand \@href[1]{\@@startlink{#1}\@@href}%" write$ newline$ "\providecommand \@@href[1]{\endgroup#1\@@endlink}%" write$ newline$ "\providecommand \@sanitize@url [0]{\catcode `\\12\catcode `\$12\catcode `\&12\catcode `\#12\catcode `\^12\catcode `\_12\catcode `\%12\relax}%" write$ newline$ "\providecommand \@@startlink[1]{}%" write$ newline$ "\providecommand \@@endlink[0]{}%" write$ newline$ } FUNCTION {init.bib.namefont} { "\providecommand \bibnamefont [1]{#1}%" write$ newline$ "\providecommand \bibfnamefont [1]{#1}%" write$ newline$ "\providecommand \citenamefont [1]{#1}%" write$ newline$ } FUNCTION {init.bib.quote} { "\providecommand " bbl.enquote * " [1]{" * "``" "''" "#1" swap$ "}%" * * * * write$ newline$ } FUNCTION {init.bib.ay} { "\providecommand \natexlab [1]{#1}%" write$ newline$ } FUNCTION {init.bib.bibinfo} { bibinfo.command "\providecommand " swap$ * " [0]{\@secondoftwo}%" * write$ newline$ bibfield.command "\providecommand " swap$ * " [0]{\@secondoftwo}%" * write$ newline$ } FUNCTION {init.bib.lang} { "\providecommand \selectlanguage [0]{\@gobble}%" write$ newline$ } FUNCTION {init.bib.endbibitem} { "\providecommand " bbl.open * "[0]{}%" * write$ newline$ "\providecommand \bibitemStop [0]{}%" write$ newline$ "\providecommand \bibitemNoStop [0]{.\EOS\space}%" write$ newline$ "\providecommand \EOS [0]{\spacefactor3000\relax}%" write$ newline$ } FUNCTION {init.bib.translation} { "\providecommand \translation [1]{[#1]}%" write$ newline$ } FUNCTION {warn.bib} { } FUNCTION {init.bib} { warn.bib "\makeatletter" write$ newline$ "\providecommand \@ifxundefined [1]{%" write$ newline$ " \@ifx{#1\undefined}" write$ newline$ "}%" write$ newline$ "\providecommand \@ifnum [1]{%" write$ newline$ " \ifnum #1\expandafter \@firstoftwo" write$ newline$ " \else \expandafter \@secondoftwo" write$ newline$ " \fi" write$ newline$ "}%" write$ newline$ "\providecommand \@ifx [1]{%" write$ newline$ " \ifx #1\expandafter \@firstoftwo" write$ newline$ " \else \expandafter \@secondoftwo" write$ newline$ " \fi" write$ newline$ "}%" write$ newline$ init.bib.ay init.bib.quote init.bib.namefont init.bib.hypertex init.bib.eprint init.bib.doi init.bib.lang init.bib.bibinfo init.bib.translation init.bib.endbibitem "\providecommand " bbl.shut * " [1]{\csname bibitem#1\endcsname}%" * write$ newline$ "\let\auto@bib@innerbib\@empty" write$ newline$ "%" write$ } FUNCTION {begin.bib} { id.bst diagn.cmntlog control.bib preamble$ empty$ 'skip$ { preamble$ write$ newline$ } if$ "\begin{thebibliography}{" number.label int.to.str$ * "}%" * write$ newline$ init.bib } EXECUTE {begin.bib} EXECUTE {init.state.consts} ITERATE {call.type$} FUNCTION {end.bib} { newline$ "\end{thebibliography}%" write$ newline$ } EXECUTE {end.bib} %% End of customized bst file %% %% End of file `apsrev4-1.bst'.