bittar/test44/spphys.bst

   1 %%
   2 %% This is file `spphys.bst',
   3 %% generated with the docstrip utility.
   4 %%
   5 %% The original source files were:
   6 %%
   7 %% merlin.mbs  (with options: `seq-no,vonx,nm-init,ed-au,yr-par,xmth,jtit-x,jttl-rm,thtit-a,vol-bf,volp-com,jpg-1,pgsep-c,num-xser,ser-vol,ser-ed,jnm-x,pub-date,pre-pub,doi,edpar,edby,fin-bare,pp,ed,abr,ord,jabr,xand,url,url-blk,nfss,')
   8 %% ----------------------------------------
   9 %%********************************************************************************%%
  10 %%                                                                                %%
  11 %% For Springer physics publications. Based on the APS reference style.           %%
  12 %% Report bugs and improvements to: Joylene Vette-Guillaume or Frank Holzwarth    %%
  13 %%                                              Springer-Verlag 2004/10/15        %%
  14 %%                                                                                %%
  15 %%********************************************************************************%%
  16 %%
  17 %% Copyright 1994-2004 Patrick W Daly
  18  % ===============================================================
  19  % IMPORTANT NOTICE:
  20  % This bibliographic style (bst) file has been generated from one or
  21  % more master bibliographic style (mbs) files, listed above.
  22  %
  23  % This generated file can be redistributed and/or modified under the terms
  24  % of the LaTeX Project Public License Distributed from CTAN
  25  % archives in directory macros/latex/base/lppl.txt; either
  26  % version 1 of the License, or any later version.
  27  % ===============================================================
  28  % Name and version information of the main mbs file:
  29  % \ProvidesFile{merlin.mbs}[2004/02/09 4.13 (PWD, AO, DPC)]
  30  %   For use with BibTeX version 0.99a or later
  31  %-------------------------------------------------------------------
  32  % This bibliography style file is intended for texts in ENGLISH
  33  % This is a numerical citation style, and as such is standard LaTeX.
  34  % It requires no extra package to interface to the main text.
  35  % The form of the \bibitem entries is
  36  %   \bibitem{key}...
  37  % Usage of \cite is as follows:
  38  %   \cite{key} ==>>          [#]
  39  %   \cite[chap. 2]{key} ==>> [#, chap. 2]
  40  % where # is a number determined by the ordering in the reference list.
  41  % The order in the reference list is that by which the works were originally
  42  %   cited in the text, or that in the database.
  43  %---------------------------------------------------------------------
  44
  45 ENTRY
  46   { address
  47     author
  48     booktitle
  49     chapter
  50     doi
  51     edition
  52     editor
  53     eid
  54     howpublished
  55     institution
  56     journal
  57     key
  58     month
  59     note
  60     number
  61     organization
  62     pages
  63     publisher
  64     school
  65     series
  66     title
  67     type
  68     url
  69     volume
  70     year
  71   }
  72   {}
  73   { label }
  74 INTEGERS { output.state before.all mid.sentence after.sentence after.block }
  75 FUNCTION {init.state.consts}
  76 { #0 'before.all :=
  77   #1 'mid.sentence :=
  78   #2 'after.sentence :=
  79   #3 'after.block :=
  80 }
  81 STRINGS { s t}
  82 FUNCTION {output.nonnull}
  83 { 's :=
  84   output.state mid.sentence =
  85     { ", " * write$ }
  86     { output.state after.block =
  87         { add.period$ write$
  88           newline$
  89           "\newblock " write$
  90         }
  91         { output.state before.all =
  92             'write$
  93             { add.period$ " " * write$ }
  94           if$
  95         }
  96       if$
  97       mid.sentence 'output.state :=
  98     }
  99   if$
 100   s
 101 }
 102 FUNCTION {output}
 103 { duplicate$ empty$
 104     'pop$
 105     'output.nonnull
 106   if$
 107 }
 108 FUNCTION {output.check}
 109 { 't :=
 110   duplicate$ empty$
 111     { pop$ "empty " t * " in " * cite$ * warning$ }
 112     'output.nonnull
 113   if$
 114 }
 115 FUNCTION {fin.entry}
 116 { duplicate$ empty$
 117     'pop$
 118     'write$
 119   if$
 120   newline$
 121 }
 122
 123 FUNCTION {new.block}
 124 { output.state before.all =
 125     'skip$
 126     { after.block 'output.state := }
 127   if$
 128 }
 129 FUNCTION {new.sentence}
 130 { output.state after.block =
 131     'skip$
 132     { output.state before.all =
 133         'skip$
 134         { after.sentence 'output.state := }
 135       if$
 136     }
 137   if$
 138 }
 139 FUNCTION {add.blank}
 140 {  " " * before.all 'output.state :=
 141 }
 142
 143 FUNCTION {add.comma}
 144 { duplicate$ empty$
 145     'skip$
 146     { "," * add.blank }
 147   if$
 148 }
 149
 150 FUNCTION {date.block}
 151 {
 152   new.block
 153 }
 154
 155 FUNCTION {not}
 156 {   { #0 }
 157     { #1 }
 158   if$
 159 }
 160 FUNCTION {and}
 161 {   'skip$
 162     { pop$ #0 }
 163   if$
 164 }
 165 FUNCTION {or}
 166 {   { pop$ #1 }
 167     'skip$
 168   if$
 169 }
 170 FUNCTION {new.block.checka}
 171 { empty$
 172     'skip$
 173     'new.block
 174   if$
 175 }
 176 FUNCTION {new.block.checkb}
 177 { empty$
 178   swap$ empty$
 179   and
 180     'skip$
 181     'new.block
 182   if$
 183 }
 184 FUNCTION {new.sentence.checka}
 185 { empty$
 186     'skip$
 187     'new.sentence
 188   if$
 189 }
 190 FUNCTION {new.sentence.checkb}
 191 { empty$
 192   swap$ empty$
 193   and
 194     'skip$
 195     'new.sentence
 196   if$
 197 }
 198 FUNCTION {field.or.null}
 199 { duplicate$ empty$
 200     { pop$ "" }
 201     'skip$
 202   if$
 203 }
 204 FUNCTION {emphasize}
 205 { duplicate$ empty$
 206     { pop$ "" }
 207     { "\emph{" swap$ * "}" * }
 208   if$
 209 }
 210 FUNCTION {bolden}
 211 { duplicate$ empty$
 212     { pop$ "" }
 213     { "\textbf{" swap$ * "}" * }
 214   if$
 215 }
 216 FUNCTION {tie.or.space.prefix}
 217 { duplicate$ text.length$ #3 <
 218     { "~" }
 219     { " " }
 220   if$
 221   swap$
 222 }
 223
 224 FUNCTION {capitalize}
 225 { "u" change.case$ "t" change.case$ }
 226
 227 FUNCTION {space.word}
 228 { " " swap$ * " " * }
 229  % Here are the language-specific definitions for explicit words.
 230  % Each function has a name bbl.xxx where xxx is the English word.
 231  % The language selected here is ENGLISH
 232 FUNCTION {bbl.and}
 233 { "and"}
 234
 235 FUNCTION {bbl.etal}
 236 { "et~al." }
 237
 238 FUNCTION {bbl.editors}
 239 { "eds." }
 240
 241 FUNCTION {bbl.editor}
 242 { "ed." }
 243
 244 FUNCTION {bbl.edby}
 245 { "ed. by" }
 246
 247 FUNCTION {bbl.edition}
 248 { "edn." }
 249
 250 FUNCTION {bbl.volume}
 251 { "vol." }
 252
 253 FUNCTION {bbl.of}
 254 { "of" }
 255
 256 FUNCTION {bbl.number}
 257 { "no." }
 258
 259 FUNCTION {bbl.nr}
 260 { "no." }
 261
 262 FUNCTION {bbl.in}
 263 { "in" }
 264
 265 FUNCTION {bbl.pages}
 266 { "pp." }
 267
 268 FUNCTION {bbl.page}
 269 { "p." }
 270
 271 FUNCTION {bbl.chapter}
 272 { "chap." }
 273
 274 FUNCTION {bbl.techrep}
 275 { "Tech. Rep." }
 276
 277 FUNCTION {bbl.mthesis}
 278 { "Master's thesis" }
 279
 280 FUNCTION {bbl.phdthesis}
 281 { "Ph.D. thesis" }
 282
 283 FUNCTION {bbl.first}
 284 { "1st" }
 285
 286 FUNCTION {bbl.second}
 287 { "2nd" }
 288
 289 FUNCTION {bbl.third}
 290 { "3rd" }
 291
 292 FUNCTION {bbl.fourth}
 293 { "4th" }
 294
 295 FUNCTION {bbl.fifth}
 296 { "5th" }
 297
 298 FUNCTION {bbl.st}
 299 { "st" }
 300
 301 FUNCTION {bbl.nd}
 302 { "nd" }
 303
 304 FUNCTION {bbl.rd}
 305 { "rd" }
 306
 307 FUNCTION {bbl.th}
 308 { "th" }
 309
 310 MACRO {jan} {"Jan."}
 311
 312 MACRO {feb} {"Feb."}
 313
 314 MACRO {mar} {"Mar."}
 315
 316 MACRO {apr} {"Apr."}
 317
 318 MACRO {may} {"May"}
 319
 320 MACRO {jun} {"Jun."}
 321
 322 MACRO {jul} {"Jul."}
 323
 324 MACRO {aug} {"Aug."}
 325
 326 MACRO {sep} {"Sep."}
 327
 328 MACRO {oct} {"Oct."}
 329
 330 MACRO {nov} {"Nov."}
 331
 332 MACRO {dec} {"Dec."}
 333
 334 FUNCTION {eng.ord}
 335 { duplicate$ "1" swap$ *
 336   #-2 #1 substring$ "1" =
 337      { bbl.th * }
 338      { duplicate$ #-1 #1 substring$
 339        duplicate$ "1" =
 340          { pop$ bbl.st * }
 341          { duplicate$ "2" =
 342              { pop$ bbl.nd * }
 343              { "3" =
 344                  { bbl.rd * }
 345                  { bbl.th * }
 346                if$
 347              }
 348            if$
 349           }
 350        if$
 351      }
 352    if$
 353 }
 354
 355 MACRO {acmcs} {"ACM Comput. Surv."}
 356
 357 MACRO {acta} {"Acta Inf."}
 358
 359 MACRO {cacm} {"Commun. ACM"}
 360
 361 MACRO {ibmjrd} {"IBM J. Res. Dev."}
 362
 363 MACRO {ibmsj} {"IBM Syst.~J."}
 364
 365 MACRO {ieeese} {"IEEE Trans. Software Eng."}
 366
 367 MACRO {ieeetc} {"IEEE Trans. Comput."}
 368
 369 MACRO {ieeetcad}
 370  {"IEEE Trans. Comput. Aid. Des."}
 371
 372 MACRO {ipl} {"Inf. Process. Lett."}
 373
 374 MACRO {jacm} {"J.~ACM"}
 375
 376 MACRO {jcss} {"J.~Comput. Syst. Sci."}
 377
 378 MACRO {scp} {"Sci. Comput. Program."}
 379
 380 MACRO {sicomp} {"SIAM J. Comput."}
 381
 382 MACRO {tocs} {"ACM Trans. Comput. Syst."}
 383
 384 MACRO {tods} {"ACM Trans. Database Syst."}
 385
 386 MACRO {tog} {"ACM Trans. Graphic."}
 387
 388 MACRO {toms} {"ACM Trans. Math. Software"}
 389
 390 MACRO {toois} {"ACM Trans. Office Inf. Syst."}
 391
 392 MACRO {toplas} {"ACM Trans. Progr. Lang. Syst."}
 393
 394 MACRO {tcs} {"Theor. Comput. Sci."}
 395
 396 FUNCTION {bibinfo.check}
 397 { swap$
 398   duplicate$ missing$
 399     {
 400       pop$ pop$
 401       ""
 402     }
 403     { duplicate$ empty$
 404         {
 405           swap$ pop$
 406         }
 407         { swap$
 408           pop$
 409         }
 410       if$
 411     }
 412   if$
 413 }
 414 FUNCTION {bibinfo.warn}
 415 { swap$
 416   duplicate$ missing$
 417     {
 418       swap$ "missing " swap$ * " in " * cite$ * warning$ pop$
 419       ""
 420     }
 421     { duplicate$ empty$
 422         {
 423           swap$ "empty " swap$ * " in " * cite$ * warning$
 424         }
 425         { swap$
 426           pop$
 427         }
 428       if$
 429     }
 430   if$
 431 }
 432 FUNCTION {format.url}
 433 { url empty$
 434     { "" }
 435     { "\urlprefix\url{" url * "}" * }
 436   if$
 437 }
 438
 439 STRINGS  { bibinfo}
 440 INTEGERS { nameptr namesleft numnames }
 441
 442 FUNCTION {format.names}
 443 { 'bibinfo :=
 444   duplicate$ empty$ 'skip$ {
 445   's :=
 446   "" 't :=
 447   #1 'nameptr :=
 448   s num.names$ 'numnames :=
 449   numnames 'namesleft :=
 450     { namesleft #0 > }
 451     { s nameptr
 452       "{f{.}.~}{vv~}{ll}{, jj}"
 453       format.name$
 454       bibinfo bibinfo.check
 455       't :=
 456       nameptr #1 >
 457         {
 458           namesleft #1 >
 459             { ", " * t * }
 460             {
 461               "," *
 462               s nameptr "{ll}" format.name$ duplicate$ "others" =
 463                 { 't := }
 464                 { pop$ }
 465               if$
 466               t "others" =
 467                 {
 468                   " " * bbl.etal *
 469                 }
 470                 { " " * t * }
 471               if$
 472             }
 473           if$
 474         }
 475         't
 476       if$
 477       nameptr #1 + 'nameptr :=
 478       namesleft #1 - 'namesleft :=
 479     }
 480   while$
 481   } if$
 482 }
 483 FUNCTION {format.names.ed}
 484 {
 485   format.names
 486 }
 487 FUNCTION {format.authors}
 488 { author "author" format.names
 489 }
 490 FUNCTION {get.bbl.editor}
 491 { editor num.names$ #1 > 'bbl.editors 'bbl.editor if$ }
 492
 493 FUNCTION {format.editors}
 494 { editor "editor" format.names duplicate$ empty$ 'skip$
 495     {
 496       " " *
 497       get.bbl.editor
 498    "(" swap$ * ")" *
 499       *
 500     }
 501   if$
 502 }
 503 FUNCTION {format.doi}
 504 { doi "doi" bibinfo.check
 505   duplicate$ empty$ 'skip$
 506     {
 507       new.block
 508       "\doi{" swap$ * "}" *
 509     }
 510   if$
 511 }
 512 FUNCTION {format.note}
 513 {
 514  note empty$
 515     { "" }
 516     { note #1 #1 substring$
 517       duplicate$ "{" =
 518         'skip$
 519         { output.state mid.sentence =
 520           { "l" }
 521           { "u" }
 522         if$
 523         change.case$
 524         }
 525       if$
 526       note #2 global.max$ substring$ * "note" bibinfo.check
 527     }
 528   if$
 529 }
 530
 531 FUNCTION {format.title}
 532 { title
 533   duplicate$ empty$ 'skip$
 534     { "t" change.case$ }
 535   if$
 536   "title" bibinfo.check
 537 }
 538 FUNCTION {output.bibitem}
 539 { newline$
 540   "\bibitem{" write$
 541   cite$ write$
 542   "}" write$
 543   newline$
 544   ""
 545   before.all 'output.state :=
 546 }
 547
 548 FUNCTION {if.digit}
 549 { duplicate$ "0" =
 550   swap$ duplicate$ "1" =
 551   swap$ duplicate$ "2" =
 552   swap$ duplicate$ "3" =
 553   swap$ duplicate$ "4" =
 554   swap$ duplicate$ "5" =
 555   swap$ duplicate$ "6" =
 556   swap$ duplicate$ "7" =
 557   swap$ duplicate$ "8" =
 558   swap$ "9" = or or or or or or or or or
 559 }
 560 FUNCTION {n.separate}
 561 { 't :=
 562   ""
 563   #0 'numnames :=
 564   { t empty$ not }
 565   { t #-1 #1 substring$ if.digit
 566       { numnames #1 + 'numnames := }
 567       { #0 'numnames := }
 568     if$
 569     t #-1 #1 substring$ swap$ *
 570     t #-2 global.max$ substring$ 't :=
 571     numnames #5 =
 572       { duplicate$ #1 #2 substring$ swap$
 573         #3 global.max$ substring$
 574         "," swap$ * *
 575       }
 576       'skip$
 577     if$
 578   }
 579   while$
 580 }
 581 FUNCTION {n.dashify}
 582 {
 583   n.separate
 584   't :=
 585   ""
 586     { t empty$ not }
 587     { t #1 #1 substring$ "-" =
 588         { t #1 #2 substring$ "--" = not
 589             { "--" *
 590               t #2 global.max$ substring$ 't :=
 591             }
 592             {   { t #1 #1 substring$ "-" = }
 593                 { "-" *
 594                   t #2 global.max$ substring$ 't :=
 595                 }
 596               while$
 597             }
 598           if$
 599         }
 600         { t #1 #1 substring$ *
 601           t #2 global.max$ substring$ 't :=
 602         }
 603       if$
 604     }
 605   while$
 606 }
 607
 608 FUNCTION {word.in}
 609 { bbl.in
 610   " " * }
 611
 612 FUNCTION {format.date}
 613 {
 614   ""
 615   duplicate$ empty$
 616   year  "year"  bibinfo.check duplicate$ empty$
 617     { swap$ 'skip$
 618         { "there's a month but no year in " cite$ * warning$ }
 619       if$
 620       *
 621     }
 622     { swap$ 'skip$
 623         {
 624           swap$
 625           " " * swap$
 626         }
 627       if$
 628       *
 629     }
 630   if$
 631   duplicate$ empty$
 632     'skip$
 633     {
 634       before.all 'output.state :=
 635     " (" swap$ * ")" *
 636     }
 637   if$
 638 }
 639 FUNCTION {format.btitle}
 640 { title "title" bibinfo.check
 641   duplicate$ empty$ 'skip$
 642     {
 643       emphasize
 644     }
 645   if$
 646 }
 647 FUNCTION {either.or.check}
 648 { empty$
 649     'pop$
 650     { "can't use both " swap$ * " fields in " * cite$ * warning$ }
 651   if$
 652 }
 653 FUNCTION {format.bvolume}
 654 { volume empty$
 655     { "" }
 656     { bbl.volume volume tie.or.space.prefix
 657       "volume" bibinfo.check * *
 658       series "series" bibinfo.check
 659       duplicate$ empty$ 'pop$
 660         { emphasize ", " * swap$ * }
 661       if$
 662       "volume and number" number either.or.check
 663     }
 664   if$
 665 }
 666 FUNCTION {format.number.series}
 667 { volume empty$
 668     { number empty$
 669         { series field.or.null }
 670         { series empty$
 671             { number "number" bibinfo.check }
 672             { output.state mid.sentence =
 673                 { bbl.number }
 674                 { bbl.number capitalize }
 675               if$
 676               number tie.or.space.prefix "number" bibinfo.check * *
 677               bbl.in space.word *
 678               series "series" bibinfo.check *
 679             }
 680           if$
 681         }
 682       if$
 683     }
 684     { "" }
 685   if$
 686 }
 687 FUNCTION {is.num}
 688 { chr.to.int$
 689   duplicate$ "0" chr.to.int$ < not
 690   swap$ "9" chr.to.int$ > not and
 691 }
 692
 693 FUNCTION {extract.num}
 694 { duplicate$ 't :=
 695   "" 's :=
 696   { t empty$ not }
 697   { t #1 #1 substring$
 698     t #2 global.max$ substring$ 't :=
 699     duplicate$ is.num
 700       { s swap$ * 's := }
 701       { pop$ "" 't := }
 702     if$
 703   }
 704   while$
 705   s empty$
 706     'skip$
 707     { pop$ s }
 708   if$
 709 }
 710
 711 FUNCTION {convert.edition}
 712 { extract.num "l" change.case$ 's :=
 713   s "first" = s "1" = or
 714     { bbl.first 't := }
 715     { s "second" = s "2" = or
 716         { bbl.second 't := }
 717         { s "third" = s "3" = or
 718             { bbl.third 't := }
 719             { s "fourth" = s "4" = or
 720                 { bbl.fourth 't := }
 721                 { s "fifth" = s "5" = or
 722                     { bbl.fifth 't := }
 723                     { s #1 #1 substring$ is.num
 724                         { s eng.ord 't := }
 725                         { edition 't := }
 726                       if$
 727                     }
 728                   if$
 729                 }
 730               if$
 731             }
 732           if$
 733         }
 734       if$
 735     }
 736   if$
 737   t
 738 }
 739
 740 FUNCTION {format.edition}
 741 { edition duplicate$ empty$ 'skip$
 742     {
 743       convert.edition
 744       output.state mid.sentence =
 745         { "l" }
 746         { "t" }
 747       if$ change.case$
 748       "edition" bibinfo.check
 749       " " * bbl.edition *
 750     }
 751   if$
 752 }
 753 INTEGERS { multiresult }
 754 FUNCTION {multi.page.check}
 755 { 't :=
 756   #0 'multiresult :=
 757     { multiresult not
 758       t empty$ not
 759       and
 760     }
 761     { t #1 #1 substring$
 762       duplicate$ "-" =
 763       swap$ duplicate$ "," =
 764       swap$ "+" =
 765       or or
 766         { #1 'multiresult := }
 767         { t #2 global.max$ substring$ 't := }
 768       if$
 769     }
 770   while$
 771   multiresult
 772 }
 773 FUNCTION {format.pages}
 774 { pages duplicate$ empty$ 'skip$
 775     { duplicate$ multi.page.check
 776         {
 777           bbl.pages swap$
 778           n.dashify
 779         }
 780         {
 781           bbl.page swap$
 782         }
 783       if$
 784       tie.or.space.prefix
 785       "pages" bibinfo.check
 786       * *
 787     }
 788   if$
 789 }
 790 FUNCTION {first.page}
 791 { 't :=
 792   ""
 793     {  t empty$ not t #1 #1 substring$ "-" = not and }
 794     { t #1 #1 substring$ *
 795       t #2 global.max$ substring$ 't :=
 796     }
 797   while$
 798 }
 799
 800 FUNCTION {format.journal.pages}
 801 { pages duplicate$ empty$ 'pop$
 802     { swap$ duplicate$ empty$
 803         { pop$ pop$ format.pages }
 804         {
 805           ", " *
 806           swap$
 807           first.page
 808           "pages" bibinfo.check
 809           *
 810         }
 811       if$
 812     }
 813   if$
 814 }
 815 FUNCTION {format.journal.eid}
 816 { eid "eid" bibinfo.check
 817   duplicate$ empty$ 'pop$
 818     { swap$ duplicate$ empty$ 'skip$
 819       {
 820           ", " *
 821       }
 822       if$
 823       swap$ *
 824     }
 825   if$
 826 }
 827 FUNCTION {format.vol.num.pages}
 828 { volume field.or.null
 829   duplicate$ empty$ 'skip$
 830     {
 831       "volume" bibinfo.check
 832     }
 833   if$
 834   bolden
 835   number "number" bibinfo.check duplicate$ empty$ 'skip$
 836     {
 837       swap$ duplicate$ empty$
 838         { "there's a number but no volume in " cite$ * warning$ }
 839         'skip$
 840       if$
 841       swap$
 842       "(" swap$ * ")" *
 843     }
 844   if$ *
 845   eid empty$
 846     { format.journal.pages }
 847     { format.journal.eid }
 848   if$
 849 }
 850
 851 FUNCTION {format.chapter.pages}
 852 { chapter empty$
 853     'format.pages
 854     { type empty$
 855         { bbl.chapter }
 856         { type "l" change.case$
 857           "type" bibinfo.check
 858         }
 859       if$
 860       chapter tie.or.space.prefix
 861       "chapter" bibinfo.check
 862       * *
 863       pages empty$
 864         'skip$
 865         { ", " * format.pages * }
 866       if$
 867     }
 868   if$
 869 }
 870
 871 FUNCTION {format.booktitle}
 872 {
 873   booktitle "booktitle" bibinfo.check
 874   emphasize
 875 }
 876 FUNCTION {format.in.ed.booktitle}
 877 { format.booktitle duplicate$ empty$ 'skip$
 878     {
 879       format.bvolume duplicate$ empty$ 'pop$
 880         { ", " swap$ * * }
 881       if$
 882       editor "editor" format.names.ed duplicate$ empty$ 'pop$
 883         {
 884           bbl.edby
 885           " " * swap$ *
 886           swap$
 887           "," *
 888           " " * swap$
 889           * }
 890       if$
 891       word.in swap$ *
 892     }
 893   if$
 894 }
 895 FUNCTION {empty.misc.check}
 896 { author empty$ title empty$ howpublished empty$
 897   month empty$ year empty$ note empty$
 898   and and and and and
 899     { "all relevant fields are empty in " cite$ * warning$ }
 900     'skip$
 901   if$
 902 }
 903 FUNCTION {format.thesis.type}
 904 { type duplicate$ empty$
 905     'pop$
 906     { swap$ pop$
 907       "t" change.case$ "type" bibinfo.check
 908     }
 909   if$
 910 }
 911 FUNCTION {format.tr.number}
 912 { number "number" bibinfo.check
 913   type duplicate$ empty$
 914     { pop$ bbl.techrep }
 915     'skip$
 916   if$
 917   "type" bibinfo.check
 918   swap$ duplicate$ empty$
 919     { pop$ "t" change.case$ }
 920     { tie.or.space.prefix * * }
 921   if$
 922 }
 923 FUNCTION {format.article.crossref}
 924 {
 925   key duplicate$ empty$
 926     { pop$
 927       journal duplicate$ empty$
 928         { "need key or journal for " cite$ * " to crossref " * crossref * warning$ }
 929         { "journal" bibinfo.check emphasize word.in swap$ * }
 930       if$
 931     }
 932     { word.in swap$ * " " *}
 933   if$
 934   " \cite{" * crossref * "}" *
 935 }
 936 FUNCTION {format.crossref.editor}
 937 { editor #1 "{vv~}{ll}" format.name$
 938   "editor" bibinfo.check
 939   editor num.names$ duplicate$
 940   #2 >
 941     { pop$
 942       "editor" bibinfo.check
 943       " " * bbl.etal
 944       *
 945     }
 946     { #2 <
 947         'skip$
 948         { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
 949             {
 950               "editor" bibinfo.check
 951               " " * bbl.etal
 952               *
 953             }
 954             {
 955              bbl.and space.word
 956               * editor #2 "{vv~}{ll}" format.name$
 957               "editor" bibinfo.check
 958               *
 959             }
 960           if$
 961         }
 962       if$
 963     }
 964   if$
 965 }
 966 FUNCTION {format.book.crossref}
 967 { volume duplicate$ empty$
 968     { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
 969       pop$ word.in
 970     }
 971     { bbl.volume
 972       capitalize
 973       swap$ tie.or.space.prefix "volume" bibinfo.check * * bbl.of space.word *
 974     }
 975   if$
 976   editor empty$
 977   editor field.or.null author field.or.null =
 978   or
 979     { key empty$
 980         { series empty$
 981             { "need editor, key, or series for " cite$ * " to crossref " *
 982               crossref * warning$
 983               "" *
 984             }
 985             { series emphasize * }
 986           if$
 987         }
 988         { key * }
 989       if$
 990     }
 991     { format.crossref.editor * }
 992   if$
 993   " \cite{" * crossref * "}" *
 994 }
 995 FUNCTION {format.incoll.inproc.crossref}
 996 {
 997   editor empty$
 998   editor field.or.null author field.or.null =
 999   or
1000     { key empty$
1001         { format.booktitle duplicate$ empty$
1002             { "need editor, key, or booktitle for " cite$ * " to crossref " *
1003               crossref * warning$
1004             }
1005             { word.in swap$ * }
1006           if$
1007         }
1008         { word.in key * " " *}
1009       if$
1010     }
1011     { word.in format.crossref.editor * " " *}
1012   if$
1013   " \cite{" * crossref * "}" *
1014 }
1015 FUNCTION {format.org.or.pub}
1016 { 't :=
1017   ""
1018   year empty$
1019     { "empty year in " cite$ * warning$ }
1020     'skip$
1021   if$
1022   address empty$ t empty$ and
1023   year empty$ and
1024     'skip$
1025     {
1026       add.blank "(" *
1027       t empty$
1028         { address "address" bibinfo.check *
1029         }
1030         { t *
1031           address empty$
1032             'skip$
1033             { ", " * address "address" bibinfo.check * }
1034           if$
1035         }
1036       if$
1037       year empty$
1038         'skip$
1039         { t empty$ address empty$ and
1040             'skip$
1041             { ", " * }
1042           if$
1043           year "year" bibinfo.check
1044           *
1045         }
1046       if$
1047       ")" *
1048     }
1049   if$
1050 }
1051 FUNCTION {format.publisher.address}
1052 { publisher "publisher" bibinfo.warn format.org.or.pub
1053 }
1054
1055 FUNCTION {format.organization.address}
1056 { organization "organization" bibinfo.check format.org.or.pub
1057 }
1058
1059 FUNCTION {article}
1060 { output.bibitem
1061   format.authors "author" output.check
1062   add.comma
1063   crossref missing$
1064     {
1065       journal
1066       "journal" bibinfo.check
1067       "journal" output.check
1068       add.blank
1069       format.vol.num.pages output
1070       format.date "year" output.check
1071     }
1072     { format.article.crossref output.nonnull
1073       format.pages output
1074     }
1075   if$
1076   format.doi output
1077   new.block
1078   format.url output
1079   new.block
1080   format.note output
1081   fin.entry
1082 }
1083 FUNCTION {book}
1084 { output.bibitem
1085   author empty$
1086     { format.editors "author and editor" output.check
1087     }
1088     { format.authors output.nonnull
1089       crossref missing$
1090         { "author and editor" editor either.or.check }
1091         'skip$
1092       if$
1093     }
1094   if$
1095   add.comma
1096   format.btitle "title" output.check
1097   crossref missing$
1098     { format.bvolume output
1099       format.edition output
1100       new.block
1101       format.number.series output
1102       new.sentence
1103       format.publisher.address output
1104     }
1105     {
1106       new.block
1107       format.book.crossref output.nonnull
1108       format.date "year" output.check
1109     }
1110   if$
1111   format.doi output
1112   new.block
1113   format.url output
1114   new.block
1115   format.note output
1116   fin.entry
1117 }
1118 FUNCTION {booklet}
1119 { output.bibitem
1120   format.authors output
1121   add.comma
1122   format.title "title" output.check
1123   new.block
1124   howpublished "howpublished" bibinfo.check output
1125   address "address" bibinfo.check output
1126   format.date output
1127   format.doi output
1128   new.block
1129   format.url output
1130   new.block
1131   format.note output
1132   fin.entry
1133 }
1134
1135 FUNCTION {inbook}
1136 { output.bibitem
1137   author empty$
1138     { format.editors "author and editor" output.check
1139     }
1140     { format.authors output.nonnull
1141       crossref missing$
1142         { "author and editor" editor either.or.check }
1143         'skip$
1144       if$
1145     }
1146   if$
1147   add.comma
1148   format.btitle "title" output.check
1149   crossref missing$
1150     {
1151       format.publisher.address output
1152       format.bvolume output
1153       format.edition output
1154       format.chapter.pages "chapter and pages" output.check
1155       new.block
1156       format.number.series output
1157       new.sentence
1158     }
1159     {
1160       format.chapter.pages "chapter and pages" output.check
1161       new.block
1162       format.book.crossref output.nonnull
1163       format.date "year" output.check
1164     }
1165   if$
1166   format.doi output
1167   new.block
1168   format.url output
1169   new.block
1170   format.note output
1171   fin.entry
1172 }
1173
1174 FUNCTION {incollection}
1175 { output.bibitem
1176   format.authors "author" output.check
1177   add.comma
1178   crossref missing$
1179     { format.in.ed.booktitle "booktitle" output.check
1180       format.edition output
1181       format.number.series output
1182       format.publisher.address output
1183       format.chapter.pages output
1184       new.sentence
1185     }
1186     { format.incoll.inproc.crossref output.nonnull
1187       format.chapter.pages output
1188     }
1189   if$
1190   format.doi output
1191   new.block
1192   format.url output
1193   new.block
1194   format.note output
1195   fin.entry
1196 }
1197 FUNCTION {inproceedings}
1198 { output.bibitem
1199   format.authors "author" output.check
1200   add.comma
1201   crossref missing$
1202     { format.in.ed.booktitle "booktitle" output.check
1203       new.sentence
1204       publisher empty$
1205         { format.organization.address output }
1206         { organization "organization" bibinfo.check output
1207           format.publisher.address output
1208         }
1209       if$
1210       format.bvolume output
1211       format.number.series output
1212       format.pages output
1213     }
1214     { format.incoll.inproc.crossref output.nonnull
1215       format.pages output
1216     }
1217   if$
1218   format.doi output
1219   new.block
1220   format.url output
1221   new.block
1222   format.note output
1223   fin.entry
1224 }
1225 FUNCTION {conference} { inproceedings }
1226 FUNCTION {manual}
1227 { output.bibitem
1228   author empty$
1229     { organization "organization" bibinfo.check
1230       duplicate$ empty$ 'pop$
1231         { output
1232           address "address" bibinfo.check output
1233         }
1234       if$
1235     }
1236     { format.authors output.nonnull }
1237   if$
1238   add.comma
1239   format.btitle "title" output.check
1240   author empty$
1241     { organization empty$
1242         {
1243           address new.block.checka
1244           address "address" bibinfo.check output
1245         }
1246         'skip$
1247       if$
1248     }
1249     {
1250       organization address new.block.checkb
1251       organization "organization" bibinfo.check output
1252       address "address" bibinfo.check output
1253     }
1254   if$
1255   format.edition output
1256   format.date output
1257   format.doi output
1258   new.block
1259   format.url output
1260   new.block
1261   format.note output
1262   fin.entry
1263 }
1264
1265 FUNCTION {mastersthesis}
1266 { output.bibitem
1267   format.authors "author" output.check
1268   add.comma
1269   format.title
1270   "title" output.check
1271   new.block
1272   bbl.mthesis format.thesis.type output.nonnull
1273   school "school" bibinfo.warn output
1274   address "address" bibinfo.check output
1275   format.date "year" output.check
1276   format.doi output
1277   new.block
1278   format.url output
1279   new.block
1280   format.note output
1281   fin.entry
1282 }
1283
1284 FUNCTION {misc}
1285 { output.bibitem
1286   format.authors output
1287   title howpublished new.block.checkb
1288   format.title output
1289   howpublished new.block.checka
1290   howpublished "howpublished" bibinfo.check output
1291   format.date output
1292   format.doi output
1293   new.block
1294   format.url output
1295   new.block
1296   format.note output
1297   fin.entry
1298   empty.misc.check
1299 }
1300 FUNCTION {phdthesis}
1301 { output.bibitem
1302   format.authors "author" output.check
1303   add.comma
1304   format.title
1305   "title" output.check
1306   new.block
1307   bbl.phdthesis format.thesis.type output.nonnull
1308   school "school" bibinfo.warn output
1309   address "address" bibinfo.check output
1310   format.date "year" output.check
1311   format.doi output
1312   new.block
1313   format.url output
1314   new.block
1315   format.note output
1316   fin.entry
1317 }
1318
1319 FUNCTION {proceedings}
1320 { output.bibitem
1321   editor empty$
1322     { organization "organization" bibinfo.check output
1323     }
1324     { format.editors output.nonnull }
1325   if$
1326   new.block
1327   format.btitle "title" output.check
1328   format.bvolume output
1329   format.number.series output
1330   editor empty$
1331     { publisher empty$
1332         'skip$
1333         {
1334           new.sentence
1335           format.publisher.address output
1336         }
1337       if$
1338     }
1339     { publisher empty$
1340         {
1341           new.sentence
1342           format.organization.address output }
1343         {
1344           new.sentence
1345           organization "organization" bibinfo.check output
1346           format.publisher.address output
1347         }
1348       if$
1349      }
1350   if$
1351   format.doi output
1352   new.block
1353   format.url output
1354   new.block
1355   format.note output
1356   fin.entry
1357 }
1358
1359 FUNCTION {techreport}
1360 { output.bibitem
1361   format.authors "author" output.check
1362   add.comma
1363   format.title
1364   "title" output.check
1365   new.block
1366   format.tr.number output.nonnull
1367   institution "institution" bibinfo.warn output
1368   address "address" bibinfo.check output
1369   format.date "year" output.check
1370   format.doi output
1371   new.block
1372   format.url output
1373   new.block
1374   format.note output
1375   fin.entry
1376 }
1377
1378 FUNCTION {unpublished}
1379 { output.bibitem
1380   format.authors "author" output.check
1381   add.comma
1382   format.title "title" output.check
1383   format.date output
1384   format.doi output
1385   new.block
1386   format.url output
1387   new.block
1388   format.note "note" output.check
1389   fin.entry
1390 }
1391
1392 FUNCTION {default.type} { misc }
1393 READ
1394 STRINGS { longest.label }
1395 INTEGERS { number.label longest.label.width }
1396 FUNCTION {initialize.longest.label}
1397 { "" 'longest.label :=
1398   #1 'number.label :=
1399   #0 'longest.label.width :=
1400 }
1401 FUNCTION {longest.label.pass}
1402 { number.label int.to.str$ 'label :=
1403   number.label #1 + 'number.label :=
1404   label width$ longest.label.width >
1405     { label 'longest.label :=
1406       label width$ 'longest.label.width :=
1407     }
1408     'skip$
1409   if$
1410 }
1411 EXECUTE {initialize.longest.label}
1412 ITERATE {longest.label.pass}
1413 FUNCTION {begin.bib}
1414 { preamble$ empty$
1415     'skip$
1416     { preamble$ write$ newline$ }
1417   if$
1418   "\begin{thebibliography}{"  longest.label  * "}" *
1419   write$ newline$
1420   "\providecommand{\url}[1]{{#1}}"
1421   write$ newline$
1422   "\providecommand{\urlprefix}{URL }"
1423   write$ newline$
1424   "\expandafter\ifx\csname urlstyle\endcsname\relax"
1425   write$ newline$
1426   "  \providecommand{\doi}[1]{DOI \discretionary{}{}{}#1}\else"
1427   write$ newline$
1428   "  \providecommand{\doi}{DOI \discretionary{}{}{}\begingroup \urlstyle{rm}\Url}\fi"
1429   write$ newline$
1430 }
1431 EXECUTE {begin.bib}
1432 EXECUTE {init.state.consts}
1433 ITERATE {call.type$}
1434 FUNCTION {end.bib}
1435 { newline$
1436   "\end{thebibliography}" write$ newline$
1437 }
1438 EXECUTE {end.bib}
1439 %% End of customized bst file
1440 %%
1441 %% End of file `spphys.bst'.
1442