posic/thesis/thesis.bst

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