]> www.hackdaworld.org Git - lectures/latex.git/blob - bibdb/apsrev-title-nourl.bst
added fft literature
[lectures/latex.git] / bibdb / apsrev-title-nourl.bst
1 %%
2 %% This is file `apsrev.bst',
3 %% generated with the docstrip utility.
4 %%
5 %% The original source files were:
6 %%
7 %% merlin.mbs  (with options: `head,ay,nat,seq-no,nm-init,ed-au,nmlm,x10,x0,m10,m0,nmft,nmft-def,fnm-def,nmfted,lab,lab-def,keyxyr,yr-par,note-yr,tit-it,jtit-x,jttl-rm,thtit-x,trtit-x,vol-bf,vnum-x,volp-com,jpg-1,num-xser,jnm-x,pub-date,pre-pub,isbn,issn,edby,blk-com,pp,ed,abr,ednx,ord,jabr,revdata,eprint,url,url-blk,misc-simple,bibinfo,nfss,{}')
8 %% physjour.mbs  (with options: `ay,nat,seq-no,nm-init,ed-au,nmlm,x10,x0,m10,m0,nmft,nmft-def,fnm-def,nmfted,lab,lab-def,keyxyr,yr-par,note-yr,tit-it,jtit-x,jttl-rm,thtit-x,trtit-x,vol-bf,vnum-x,volp-com,jpg-1,num-xser,jnm-x,pub-date,pre-pub,isbn,issn,edby,blk-com,pp,ed,abr,ednx,ord,jabr,revdata,eprint,url,url-blk,misc-simple,bibinfo,nfss,{}')
9 %% geojour.mbs  (with options: `ay,nat,seq-no,nm-init,ed-au,nmlm,x10,x0,m10,m0,nmft,nmft-def,fnm-def,nmfted,lab,lab-def,keyxyr,yr-par,note-yr,tit-it,jtit-x,jttl-rm,thtit-x,trtit-x,vol-bf,vnum-x,volp-com,jpg-1,num-xser,jnm-x,pub-date,pre-pub,isbn,issn,edby,blk-com,pp,ed,abr,ednx,ord,jabr,revdata,eprint,url,url-blk,misc-simple,bibinfo,nfss,{}')
10 %% photjour.mbs  (with options: `ay,nat,seq-no,nm-init,ed-au,nmlm,x10,x0,m10,m0,nmft,nmft-def,fnm-def,nmfted,lab,lab-def,keyxyr,yr-par,note-yr,tit-it,jtit-x,jttl-rm,thtit-x,trtit-x,vol-bf,vnum-x,volp-com,jpg-1,num-xser,jnm-x,pub-date,pre-pub,isbn,issn,edby,blk-com,pp,ed,abr,ednx,ord,jabr,revdata,eprint,url,url-blk,misc-simple,bibinfo,nfss,{}')
11 %% merlin.mbs  (with options: `tail,ay,nat,seq-no,nm-init,ed-au,nmlm,x10,x0,m10,m0,nmft,nmft-def,fnm-def,nmfted,lab,lab-def,keyxyr,yr-par,note-yr,tit-it,jtit-x,jttl-rm,thtit-x,trtit-x,vol-bf,vnum-x,volp-com,jpg-1,num-xser,jnm-x,pub-date,pre-pub,isbn,issn,edby,blk-com,pp,ed,abr,ednx,ord,jabr,revdata,eprint,url,url-blk,misc-simple,bibinfo,nfss,{}')
12 %% ----------------------------------------
13 %% *** REVTeX-compatible apsrev.bst 1702 ***
14 %% 
15 %% Copyright 1994-2000 Patrick W Daly
16  % ===============================================================
17  % IMPORTANT NOTICE:
18  % This bibliographic style (bst) file has been generated from one or
19  % more master bibliographic style (mbs) files, listed above.
20  %
21  % This generated file can be redistributed and/or modified under the terms
22  % of the LaTeX Project Public License Distributed from CTAN
23  % archives in directory macros/latex/base/lppl.txt; either
24  % version 1 of the License, or any later version.
25  % ===============================================================
26  % Name and version information of the main mbs file:
27  % \ProvidesFile{merlin.mbs}[2000/05/04 4.01 (PWD, AO, DPC)]
28  %   For use with BibTeX version 0.99a or later
29  %-------------------------------------------------------------------
30  % This bibliography style file is intended for texts in ENGLISH
31  % This is an author-year citation style bibliography. As such, it is
32  % non-standard LaTeX, and requires a special package file to function properly.
33  % Such a package is    natbib.sty   by Patrick W. Daly
34  % The form of the \bibitem entries is
35  %   \bibitem[Jones et al.(1990)]{key}...
36  %   \bibitem[Jones et al.(1990)Jones, Baker, and Smith]{key}...
37  % The essential feature is that the label (the part in brackets) consists
38  % of the author names, as they should appear in the citation, with the year
39  % in parentheses following. There must be no space before the opening
40  % parenthesis!
41  % With natbib v5.3, a full list of authors may also follow the year.
42  % In natbib.sty, it is possible to define the type of enclosures that is
43  % really wanted (brackets or parentheses), but in either case, there must
44  % be parentheses in the label.
45  % The \cite command functions as follows:
46  %   \citet{key} ==>>                Jones et al. (1990)
47  %   \citet*{key} ==>>               Jones, Baker, and Smith (1990)
48  %   \citep{key} ==>>                (Jones et al., 1990)
49  %   \citep*{key} ==>>               (Jones, Baker, and Smith, 1990)
50  %   \citep[chap. 2]{key} ==>>       (Jones et al., 1990, chap. 2)
51  %   \citep[e.g.][]{key} ==>>        (e.g. Jones et al., 1990)
52  %   \citep[e.g.][p. 32]{key} ==>>   (e.g. Jones et al., p. 32)
53  %   \citeauthor{key} ==>>           Jones et al.
54  %   \citeauthor*{key} ==>>          Jones, Baker, and Smith
55  %   \citeyear{key} ==>>             1990
56  %---------------------------------------------------------------------
57
58 ENTRY
59   { address
60     archive
61     author
62     booktitle
63     chapter
64     collaboration
65     edition
66     editor
67     eid
68     eprint
69     howpublished
70     institution
71     isbn
72     issn
73     journal
74     key
75     month
76     note
77     number
78     numpages
79     organization
80     pages
81     publisher
82     school
83     series
84     title
85     type
86     url
87     volume
88     year
89   }
90   {}
91   { label extra.label sort.label short.list }
92 INTEGERS { output.state before.all mid.sentence after.sentence after.block }
93 FUNCTION {init.state.consts}
94 { #0 'before.all :=
95   #1 'mid.sentence :=
96   #2 'after.sentence :=
97   #3 'after.block :=
98 }
99 STRINGS { s t}
100 FUNCTION {output.nonnull}
101 { 's :=
102   output.state mid.sentence =
103     { ", " * write$ }
104     { output.state after.block =
105         { add.period$ write$
106           newline$
107           "\newblock " write$
108         }
109         { output.state before.all =
110             'write$
111             { add.period$ " " * write$ }
112           if$
113         }
114       if$
115       mid.sentence 'output.state :=
116     }
117   if$
118   s
119 }
120 FUNCTION {output}
121 { duplicate$ empty$
122     'pop$
123     'output.nonnull
124   if$
125 }
126 FUNCTION {output.check}
127 { 't :=
128   duplicate$ empty$
129     { pop$ "empty " t * " in " * cite$ * warning$ }
130     'output.nonnull
131   if$
132 }
133 FUNCTION {fin.entry}
134 { add.period$
135   write$
136   newline$
137 }
138
139 FUNCTION {new.block}
140 { output.state before.all =
141     'skip$
142     { after.block 'output.state := }
143   if$
144 }
145 FUNCTION {new.sentence}
146 { output.state after.block =
147     'skip$
148     { output.state before.all =
149         'skip$
150         { after.sentence 'output.state := }
151       if$
152     }
153   if$
154 }
155 FUNCTION {add.blank}
156 {  " " * before.all 'output.state :=
157 }
158
159 FUNCTION {date.block}
160 {
161   skip$
162 }
163
164 FUNCTION {not}
165 {   { #0 }
166     { #1 }
167   if$
168 }
169 FUNCTION {and}
170 {   'skip$
171     { pop$ #0 }
172   if$
173 }
174 FUNCTION {or}
175 {   { pop$ #1 }
176     'skip$
177   if$
178 }
179 FUNCTION {new.block.checkb}
180 { empty$
181   swap$ empty$
182   and
183     'skip$
184     'new.block
185   if$
186 }
187 FUNCTION {field.or.null}
188 { duplicate$ empty$
189     { pop$ "" }
190     'skip$
191   if$
192 }
193 FUNCTION {emphasize}
194 { duplicate$ empty$
195     { pop$ "" }
196     { "\emph{" swap$ * "}" * }
197   if$
198 }
199 FUNCTION {bolden}
200 { duplicate$ empty$
201     { pop$ "" }
202     { "\textbf{" swap$ * "}" * }
203   if$
204 }
205 FUNCTION {bib.name.font}
206 { duplicate$ empty$
207   { pop$ "" }
208   { "\bibnamefont{" swap$ * "}" * }
209   if$
210 }
211 FUNCTION {bib.fname.font}
212 { duplicate$ empty$
213   { pop$ "" }
214   { "\bibfnamefont{" swap$ * "}" * }
215   if$
216 }
217 FUNCTION {cite.name.font}
218 { duplicate$ empty$
219   { pop$ "" }
220   { "\citenamefont{" swap$ * "}" * }
221   if$
222 }
223 FUNCTION {tie.or.space.prefix}
224 { duplicate$ text.length$ #3 <
225     { "~" }
226     { " " }
227   if$
228   swap$
229 }
230
231 FUNCTION {capitalize}
232 { "u" change.case$ "t" change.case$ }
233
234 FUNCTION {space.word}
235 { " " swap$ * " " * }
236  % Here are the language-specific definitions for explicit words.
237  % Each function has a name bbl.xxx where xxx is the English word.
238  % The language selected here is ENGLISH
239 FUNCTION {bbl.and}
240 { "and"}
241
242 FUNCTION {bbl.etal}
243 { "et~al." }
244
245 FUNCTION {bbl.editors}
246 { "eds." }
247
248 FUNCTION {bbl.editor}
249 { "ed." }
250
251 FUNCTION {bbl.edby}
252 { "edited by" }
253
254 FUNCTION {bbl.edition}
255 { "ed." }
256
257 FUNCTION {bbl.volume}
258 { "vol." }
259
260 FUNCTION {bbl.of}
261 { "of" }
262
263 FUNCTION {bbl.number}
264 { "no." }
265
266 FUNCTION {bbl.nr}
267 { "no." }
268
269 FUNCTION {bbl.in}
270 { "in" }
271
272 FUNCTION {bbl.pages}
273 { "pp." }
274
275 FUNCTION {bbl.page}
276 { "p." }
277
278 FUNCTION {bbl.eidpp}
279 { "pages" }
280
281 FUNCTION {bbl.chapter}
282 { "chap." }
283
284 FUNCTION {bbl.techrep}
285 { "Tech. Rep." }
286
287 FUNCTION {bbl.mthesis}
288 { "Master's thesis" }
289
290 FUNCTION {bbl.phdthesis}
291 { "Ph.D. thesis" }
292
293 FUNCTION {bbl.first}
294 { "1st" }
295
296 FUNCTION {bbl.second}
297 { "2nd" }
298
299 FUNCTION {bbl.third}
300 { "3rd" }
301
302 FUNCTION {bbl.fourth}
303 { "4th" }
304
305 FUNCTION {bbl.fifth}
306 { "5th" }
307
308 FUNCTION {bbl.st}
309 { "st" }
310
311 FUNCTION {bbl.nd}
312 { "nd" }
313
314 FUNCTION {bbl.rd}
315 { "rd" }
316
317 FUNCTION {bbl.th}
318 { "th" }
319
320 MACRO {jan} {"Jan."}
321
322 MACRO {feb} {"Feb."}
323
324 MACRO {mar} {"Mar."}
325
326 MACRO {apr} {"Apr."}
327
328 MACRO {may} {"May"}
329
330 MACRO {jun} {"Jun."}
331
332 MACRO {jul} {"Jul."}
333
334 MACRO {aug} {"Aug."}
335
336 MACRO {sep} {"Sep."}
337
338 MACRO {oct} {"Oct."}
339
340 MACRO {nov} {"Nov."}
341
342 MACRO {dec} {"Dec."}
343
344 FUNCTION {eng.ord}
345 { duplicate$ "1" swap$ *
346   #-2 #1 substring$ "1" =
347      { bbl.th * }
348      { duplicate$ #-1 #1 substring$
349        duplicate$ "1" =
350          { pop$ bbl.st * }
351          { duplicate$ "2" =
352              { pop$ bbl.nd * }
353              { "3" =
354                  { bbl.rd * }
355                  { bbl.th * }
356                if$
357              }
358            if$
359           }
360        if$
361      }
362    if$
363 }
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390  %-------------------------------------------------------------------
391
392  % Begin module:
393
394
395  % \ProvidesFile{physjour.mbs}[1999/10/05 2.1 (PWD)]
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531 MACRO {aa}{"Astron. \& Astrophys."}
532
533
534 MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
535
536
537 MACRO {aj} {"Astron. J."}
538
539
540 MACRO {aph} {"Acta Phys."}
541
542 MACRO {advp} {"Adv. Phys."}
543
544 MACRO {ajp} {"Amer. J. Phys."}
545
546 MACRO {ajm} {"Amer. J. Math."}
547
548 MACRO {amsci} {"Amer. Sci."}
549
550 MACRO {anofd} {"Ann. Fluid Dyn."}
551
552 MACRO {am} {"Ann. Math."}
553
554 MACRO {ap} {"Ann. Phys. (NY)"}
555
556 MACRO {adp} {"Ann. Phys. (Leipzig)"}
557
558 MACRO {ao} {"Appl. Opt."}
559
560 MACRO {apl} {"Appl. Phys. Lett."}
561
562 MACRO {app} {"Astroparticle Phys."}
563
564 MACRO {apj} {"Astrophys. J."}
565
566
567 MACRO {apjsup} {"Astrophys. J. Suppl."}
568
569
570 MACRO {apss} {"Astrophys. Space Sci."}
571
572
573 MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
574
575
576 MACRO {baas} {"Bull. Amer. Astron. Soc."}
577
578
579 MACRO {baps} {"Bull. Amer. Phys. Soc."}
580
581 MACRO {cmp} {"Comm. Math. Phys."}
582
583 MACRO {cpam} {"Commun. Pure Appl. Math."}
584
585 MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
586
587 MACRO {cpc} {"Comp. Phys. Comm."}
588
589 MACRO {cqg} {"Class. Quant. Grav."}
590
591 MACRO {cra} {"C. R. Acad. Sci. A"}
592
593 MACRO {fed} {"Fusion Eng. \& Design"}
594
595 MACRO {ft} {"Fusion Tech."}
596
597 MACRO {grg} {"Gen. Relativ. Gravit."}
598
599 MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
600
601 MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
602
603 MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
604
605 MACRO {ip} {"Infrared Phys."}
606
607 MACRO {irp} {"Infrared Phys."}
608
609 MACRO {jap} {"J. Appl. Phys."}
610
611 MACRO {jasa} {"J. Acoust. Soc. America"}
612
613 MACRO {jcp} {"J. Comp. Phys."}
614
615 MACRO {jetp} {"Sov. Phys.--JETP"}
616
617 MACRO {jfe} {"J. Fusion Energy"}
618
619 MACRO {jfm} {"J. Fluid Mech."}
620
621 MACRO {jmp} {"J. Math. Phys."}
622
623 MACRO {jne} {"J. Nucl. Energy"}
624
625 MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
626
627 MACRO {jnm} {"J. Nucl. Mat."}
628
629 MACRO {jpc} {"J. Phys. Chem."}
630
631 MACRO {jpp} {"J. Plasma Phys."}
632
633 MACRO {jpsj} {"J. Phys. Soc. Japan"}
634
635 MACRO {jsi} {"J. Sci. Instrum."}
636
637 MACRO {jvst} {"J. Vac. Sci. \& Tech."}
638
639 MACRO {nat} {"Nature"}
640
641 MACRO {nature} {"Nature"}
642
643
644
645 MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
646
647 MACRO {nf} {"Nucl. Fusion"}
648
649 MACRO {nim} {"Nucl. Inst. \& Meth."}
650
651 MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
652
653 MACRO {np} {"Nucl. Phys."}
654
655 MACRO {npb} {"Nucl. Phys. B"}
656
657 MACRO {nt/f} {"Nucl. Tech./Fusion"}
658
659 MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
660
661 MACRO {inc} {"Nuovo Cimento"}
662
663 MACRO {nc} {"Nuovo Cimento"}
664
665 MACRO {pf} {"Phys. Fluids"}
666
667 MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
668
669 MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
670
671 MACRO {pl} {"Phys. Lett."}
672
673 MACRO {pla} {"Phys. Lett. A"}
674
675 MACRO {plb} {"Phys. Lett. B"}
676
677 MACRO {prep} {"Phys. Rep."}
678
679 MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
680
681 MACRO {pp} {"Phys. Plasmas"}
682
683 MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
684
685 MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
686
687 MACRO {prl} {"Phys. Rev. Lett."}
688
689 MACRO {pr} {"Phys. Rev."}
690
691 MACRO {physrev} {"Phys. Rev."}
692
693 MACRO {pra} {"Phys. Rev. A"}
694
695 MACRO {prb} {"Phys. Rev. B"}
696
697 MACRO {prc} {"Phys. Rev. C"}
698
699 MACRO {prd} {"Phys. Rev. D"}
700
701 MACRO {pre} {"Phys. Rev. E"}
702
703 MACRO {ps} {"Phys. Scripta"}
704
705 MACRO {procrsl} {"Proc. Roy. Soc. London"}
706
707 MACRO {rmp} {"Rev. Mod. Phys."}
708
709 MACRO {rsi} {"Rev. Sci. Inst."}
710
711 MACRO {science} {"Science"}
712
713
714 MACRO {sciam} {"Sci. Am."}
715
716 MACRO {sam} {"Stud. Appl. Math."}
717
718 MACRO {sjpp} {"Sov. J. Plasma Phys."}
719
720 MACRO {spd} {"Sov. Phys.--Doklady"}
721
722 MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
723
724 MACRO {spu} {"Sov. Phys.--Uspeki"}
725
726 MACRO {st} {"Sky and Telesc."}
727
728
729
730
731
732  % End module: physjour.mbs
733
734
735
736  %-------------------------------------------------------------------
737  % Begin module:
738  % \ProvidesFile{geojour.mbs}[1999/11/16 2.0g (PWD)]
739 MACRO {aisr} {"Adv. Space Res."}
740 MACRO {ag} {"Ann. Geophys."}
741 MACRO {anigeo} {"Ann. Geofis."}
742 MACRO {angl} {"Ann. Glaciol."}
743 MACRO {andmet} {"Ann. d. Meteor."}
744 MACRO {andgeo} {"Ann. d. Geophys."}
745 MACRO {andphy} {"Ann. Phys.-Paris"}
746 MACRO {afmgb} {"Arch. Meteor. Geophys. Bioklimatol."}
747 MACRO {atph} {"Atm\'osphera"}
748 MACRO {aao} {"Atmos. Ocean"}
749 MACRO {ass}{"Astrophys. Space Sci."}
750 MACRO {atenv} {"Atmos. Environ."}
751 MACRO {aujag} {"Aust. J. Agr. Res."}
752 MACRO {aumet} {"Aust. Meteorol. Mag."}
753 MACRO {blmet} {"Bound.-Lay. Meteorol."}
754 MACRO {bams} {"Bull. Amer. Meteorol. Soc."}
755 MACRO {cch} {"Clim. Change"}
756 MACRO {cdyn} {"Clim. Dynam."}
757 MACRO {cbul} {"Climatol. Bull."}
758 MACRO {cap} {"Contrib. Atmos. Phys."}
759 MACRO {dsr} {"Deep-Sea Res."}
760 MACRO {dhz} {"Dtsch. Hydrogr. Z."}
761 MACRO {dao} {"Dynam. Atmos. Oceans"}
762 MACRO {eco} {"Ecology"}
763 MACRO {empl}{"Earth, Moon and Planets"}
764 MACRO {envres} {"Environ. Res."}
765 MACRO {envst} {"Environ. Sci. Technol."}
766 MACRO {ecms} {"Estuarine Coastal Mar. Sci."}
767 MACRO {expa}{"Exper. Astron."}
768 MACRO {geoint} {"Geofis. Int."}
769 MACRO {geopub} {"Geofys. Publ."}
770 MACRO {geogeo} {"Geol. Geofiz."}
771 MACRO {gafd} {"Geophys. Astrophys. Fluid Dyn."}
772 MACRO {gfd} {"Geophys. Fluid Dyn."}
773 MACRO {geomag} {"Geophys. Mag."}
774 MACRO {georl} {"Geophys. Res. Lett."}
775 MACRO {grl} {"Geophys. Res. Lett."}
776 MACRO {ga} {"Geophysica"}
777 MACRO {gs} {"Geophysics"}
778 MACRO {ieeetap} {"IEEE Trans. Antenn. Propag."}
779 MACRO {ijawp} {"Int. J. Air Water Pollut."}
780 MACRO {ijc} {"Int. J. Climatol."}
781 MACRO {ijrs} {"Int. J. Remote Sens."}
782 MACRO {jam} {"J. Appl. Meteorol."}
783 MACRO {jaot} {"J. Atmos. Ocean. Technol."}
784 MACRO {jatp} {"J. Atmos. Terr. Phys."}
785 MACRO {jce} {"J. Climate"}
786 MACRO {jcam} {"J. Climate Appl. Meteor."}
787 MACRO {jcm} {"J. Climate Meteor."}
788 MACRO {jcy} {"J. Climatol."}
789 MACRO {jgr} {"J. Geophys. Res."}
790 MACRO {jga} {"J. Glaciol."}
791 MACRO {jh} {"J. Hydrol."}
792 MACRO {jmr} {"J. Mar. Res."}
793 MACRO {jmrj} {"J. Meteor. Res. Japan"}
794 MACRO {jm} {"J. Meteor."}
795 MACRO {jpo} {"J. Phys. Oceanogr."}
796 MACRO {jra} {"J. Rech. Atmos."}
797 MACRO {jaes} {"J. Aeronaut. Sci."}
798 MACRO {japca} {"J. Air Pollut. Control Assoc."}
799 MACRO {jas} {"J. Atmos. Sci."}
800 MACRO {jmts} {"J. Mar. Technol. Soc."}
801 MACRO {jmsj} {"J. Meteorol. Soc. Japan"}
802 MACRO {josj} {"J. Oceanogr. Soc. Japan"}
803 MACRO {jwm} {"J. Wea. Mod."}
804 MACRO {lao} {"Limnol. Oceanogr."}
805 MACRO {mwl} {"Mar. Wea. Log"}
806 MACRO {mau} {"Mausam"}
807 MACRO {meteor} {"``Meteor'' Forschungsergeb."}
808 MACRO {map} {"Meteorol. Atmos. Phys."}
809 MACRO {metmag} {"Meteor. Mag."}
810 MACRO {metmon} {"Meteor. Monogr."}
811 MACRO {metrun} {"Meteor. Rundsch."}
812 MACRO {metzeit} {"Meteor. Z."}
813 MACRO {metgid} {"Meteor. Gidrol."}
814 MACRO {mwr} {"Mon. Weather Rev."}
815 MACRO {nwd} {"Natl. Weather Dig."}
816 MACRO {nzjmfr} {"New Zeal. J. Mar. Freshwater Res."}
817 MACRO {npg} {"Nonlin. Proc. Geophys."}
818 MACRO {om} {"Oceanogr. Meteorol."}
819 MACRO {ocac} {"Oceanol. Acta"}
820 MACRO {oceanus} {"Oceanus"}
821 MACRO {paleoc} {"Paleoceanography"}
822 MACRO {pce} {"Phys. Chem. Earth"}
823 MACRO {pmg} {"Pap. Meteor. Geophys."}
824 MACRO {ppom} {"Pap. Phys. Oceanogr. Meteor."}
825 MACRO {physzeit} {"Phys. Z."}
826 MACRO {pps} {"Planet. Space Sci."}
827 MACRO {pss} {"Planet. Space Sci."}
828 MACRO {pag} {"Pure Appl. Geophys."}
829 MACRO {qjrms} {"Quart. J. Roy. Meteorol. Soc."}
830 MACRO {quatres} {"Quat. Res."}
831 MACRO {rsci} {"Radio Sci."}
832 MACRO {rse} {"Remote Sens. Environ."}
833 MACRO {rgeo} {"Rev. Geophys."}
834 MACRO {rgsp} {"Rev. Geophys. Space Phys."}
835 MACRO {rdgeo} {"Rev. Geofis."}
836 MACRO {revmeta} {"Rev. Meteorol."}
837 MACRO {sgp}{"Surveys in Geophys."}
838 MACRO {sp} {"Solar Phys."}
839 MACRO {ssr} {"Space Sci. Rev."}
840 MACRO {tellus} {"Tellus"}
841 MACRO {tac} {"Theor. Appl. Climatol."}
842 MACRO {tagu} {"Trans. Am. Geophys. Union (EOS)"}
843 MACRO {wrr} {"Water Resour. Res."}
844 MACRO {weather} {"Weather"}
845 MACRO {wafc} {"Weather Forecast."}
846 MACRO {ww} {"Weatherwise"}
847 MACRO {wmob} {"WMO Bull."}
848 MACRO {zeitmet} {"Z. Meteorol."}
849  % End module: geojour.mbs
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875  %-------------------------------------------------------------------
876
877  % Begin module:
878
879
880  % \ProvidesFile{photjour.mbs}[1999/02/24 2.0b (PWD)]
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985 MACRO {appopt} {"Appl. Opt."}
986
987 MACRO {bell} {"Bell Syst. Tech. J."}
988
989 MACRO {ell} {"Electron. Lett."}
990
991 MACRO {jasp} {"J. Appl. Spectr."}
992
993 MACRO {jqe} {"IEEE J. Quantum Electron."}
994
995 MACRO {jlwt} {"J. Lightwave Technol."}
996
997 MACRO {jmo} {"J. Mod. Opt."}
998
999 MACRO {josa} {"J. Opt. Soc. America"}
1000
1001 MACRO {josaa} {"J. Opt. Soc. Amer.~A"}
1002
1003 MACRO {josab} {"J. Opt. Soc. Amer.~B"}
1004
1005 MACRO {jdp} {"J. Phys. (Paris)"}
1006
1007 MACRO {oc} {"Opt. Commun."}
1008
1009 MACRO {ol} {"Opt. Lett."}
1010
1011 MACRO {phtl} {"IEEE Photon. Technol. Lett."}
1012
1013 MACRO {pspie} {"Proc. Soc. Photo-Opt. Instrum. Eng."}
1014
1015 MACRO {sse} {"Solid-State Electron."}
1016
1017 MACRO {sjot} {"Sov. J. Opt. Technol."}
1018
1019 MACRO {sjqe} {"Sov. J. Quantum Electron."}
1020
1021 MACRO {sleb} {"Sov. Phys.--Leb. Inst. Rep."}
1022
1023 MACRO {stph} {"Sov. Phys.--Techn. Phys."}
1024
1025 MACRO {stphl} {"Sov. Techn. Phys. Lett."}
1026
1027 MACRO {vr} {"Vision Res."}
1028
1029 MACRO {zph} {"Z. f. Physik"}
1030
1031 MACRO {zphb} {"Z. f. Physik~B"}
1032
1033 MACRO {zphd} {"Z. f. Physik~D"}
1034
1035 MACRO {CLEO} {"CLEO"}
1036
1037 MACRO {ASSL} {"Adv. Sol.-State Lasers"}
1038
1039 MACRO {OSA}  {"OSA"}
1040
1041
1042
1043
1044  % End module: photjour.mbs
1045
1046
1047
1048 %% Copyright 1994-2000 Patrick W Daly
1049 MACRO {acmcs} {"ACM Comput. Surv."}
1050
1051 MACRO {acta} {"Acta Inf."}
1052
1053 MACRO {cacm} {"Commun. ACM"}
1054
1055 MACRO {ibmjrd} {"IBM J. Res. Dev."}
1056
1057 MACRO {ibmsj} {"IBM Syst.~J."}
1058
1059 MACRO {ieeese} {"IEEE Trans. Software Eng."}
1060
1061 MACRO {ieeetc} {"IEEE Trans. Comput."}
1062
1063 MACRO {ieeetcad}
1064  {"IEEE Trans. Comput. Aid. Des."}
1065
1066 MACRO {ipl} {"Inf. Process. Lett."}
1067
1068 MACRO {jacm} {"J.~ACM"}
1069
1070 MACRO {jcss} {"J.~Comput. Syst. Sci."}
1071
1072 MACRO {scp} {"Sci. Comput. Program."}
1073
1074 MACRO {sicomp} {"SIAM J. Comput."}
1075
1076 MACRO {tocs} {"ACM Trans. Comput. Syst."}
1077
1078 MACRO {tods} {"ACM Trans. Database Syst."}
1079
1080 MACRO {tog} {"ACM Trans. Graphic."}
1081
1082 MACRO {toms} {"ACM Trans. Math. Software"}
1083
1084 MACRO {toois} {"ACM Trans. Office Inf. Syst."}
1085
1086 MACRO {toplas} {"ACM Trans. Progr. Lang. Syst."}
1087
1088 MACRO {tcs} {"Theor. Comput. Sci."}
1089
1090 FUNCTION {bibinfo.check}
1091 { swap$
1092   duplicate$ missing$
1093     {
1094       pop$ pop$
1095       ""
1096     }
1097     { duplicate$ empty$
1098         {
1099           swap$ pop$
1100         }
1101         { swap$
1102           "\bibinfo{" swap$ * "}{" * swap$ * "}" *
1103         }
1104       if$
1105     }
1106   if$
1107 }
1108 FUNCTION {bibinfo.warn}
1109 { swap$
1110   duplicate$ missing$
1111     {
1112       swap$ "missing " swap$ * " in " * cite$ * warning$ pop$
1113       ""
1114     }
1115     { duplicate$ empty$
1116         {
1117           swap$ "empty " swap$ * " in " * cite$ * warning$
1118         }
1119         { swap$
1120           "\bibinfo{" swap$ * "}{" * swap$ * "}" *
1121         }
1122       if$
1123     }
1124   if$
1125 }
1126 FUNCTION {format.eprint}
1127 { eprint duplicate$ empty$
1128     'skip$
1129     { "\eprint"
1130       archive empty$
1131         'skip$
1132         { "[" * archive * "]" * }
1133       if$
1134       "{" * swap$ * "}" *
1135     }
1136   if$
1137 }
1138 FUNCTION {format.url}
1139 { url empty$
1140     { "" }
1141     { "" }
1142   if$
1143 }
1144
1145 STRINGS  { bibinfo}
1146 INTEGERS { nameptr namesleft numnames }
1147
1148 FUNCTION {format.names}
1149 { 'bibinfo :=
1150   duplicate$ empty$ 'skip$ {
1151   's :=
1152   "" 't :=
1153   #1 'nameptr :=
1154   s num.names$ 'numnames :=
1155   numnames 'namesleft :=
1156     { namesleft #0 > }
1157     { s nameptr
1158       "{f.}" format.name$ duplicate$ empty$ 'skip$
1159         { tie.or.space.prefix bib.fname.font swap$ * }
1160       if$
1161       s nameptr
1162       "{vv~}{ll}" format.name$ bib.name.font *
1163       s nameptr
1164       "{jj}" format.name$ duplicate$ empty$ 'skip$
1165         { bib.fname.font ", " swap$ * }
1166       if$
1167       *
1168       bibinfo bibinfo.check
1169       't :=
1170       nameptr #1 >
1171         {
1172           nameptr #0
1173           #10 +
1174           #1 + =
1175           numnames #0
1176           #10 +
1177           > and
1178             { "others" 't :=
1179               #1 'namesleft := }
1180             'skip$
1181           if$
1182           namesleft #1 >
1183             { ", " * t * }
1184             {
1185               numnames #2 >
1186                 { "," * }
1187                 'skip$
1188               if$
1189               s nameptr "{ll}" format.name$ duplicate$ "others" =
1190                 { 't := }
1191                 { pop$ }
1192               if$
1193               t "others" =
1194                 {
1195                   " " * bbl.etal bib.name.font *
1196                 }
1197                 {
1198                   bbl.and
1199                   bib.name.font
1200                   space.word * t *
1201                 }
1202               if$
1203             }
1204           if$
1205         }
1206         't
1207       if$
1208       nameptr #1 + 'nameptr :=
1209       namesleft #1 - 'namesleft :=
1210     }
1211   while$
1212   } if$
1213 }
1214 FUNCTION {format.names.ed}
1215 {
1216   format.names
1217 }
1218 FUNCTION {format.key}
1219 { empty$
1220     { key field.or.null }
1221     { "" }
1222   if$
1223 }
1224
1225 FUNCTION {format.authors}
1226 { author "author" format.names
1227     duplicate$ empty$ 'skip$
1228     { collaboration "collaboration" bibinfo.check
1229       duplicate$ empty$ 'skip$
1230         { " (" swap$ * ")" * }
1231       if$
1232       *
1233     }
1234   if$
1235 }
1236 FUNCTION {get.bbl.editor}
1237 { editor num.names$ #1 > 'bbl.editors 'bbl.editor if$ }
1238
1239 FUNCTION {format.editors}
1240 { editor "editor" format.names duplicate$ empty$ 'skip$
1241     {
1242       "," *
1243       " " *
1244       get.bbl.editor
1245       *
1246     }
1247   if$
1248 }
1249 FUNCTION {format.isbn}
1250 { isbn "isbn" bibinfo.check
1251   duplicate$ empty$ 'skip$
1252     {
1253       "ISBN " swap$ *
1254     }
1255   if$
1256 }
1257
1258 FUNCTION {format.issn}
1259 { issn "issn" bibinfo.check
1260   duplicate$ empty$ 'skip$
1261     {
1262       "ISSN " swap$ *
1263     }
1264   if$
1265 }
1266
1267 FUNCTION {format.note}
1268 {
1269  note empty$
1270     { "" }
1271     { note #1 #1 substring$
1272       duplicate$ "{" =
1273         'skip$
1274         { output.state mid.sentence =
1275           { "l" }
1276           { "u" }
1277         if$
1278         change.case$
1279         }
1280       if$
1281       note #2 global.max$ substring$ * "note" bibinfo.check
1282     }
1283   if$
1284 }
1285
1286 FUNCTION {format.title}
1287 { title
1288   duplicate$ empty$
1289     { skip$ }
1290     { "t" change.case$ }
1291   if$
1292   "title" bibinfo.check
1293   duplicate$ empty$ 'skip$
1294     {
1295       emphasize
1296     }
1297   if$
1298 }
1299 %FUNCTION {format.title}
1300 %{ title empty$
1301 %    { "" }
1302 %    { "``" title "t" change.case$ * ",''" * }
1303 %  if$
1304 %}
1305
1306 FUNCTION {format.full.names}
1307 {'s :=
1308  "" 't :=
1309   #1 'nameptr :=
1310   s num.names$ 'numnames :=
1311   numnames 'namesleft :=
1312     { namesleft #0 > }
1313     { s nameptr
1314       "{vv~}{ll}" format.name$
1315       't :=
1316       nameptr #1 >
1317         {
1318           nameptr #0
1319           #10 +
1320           #1 + =
1321           numnames #0
1322           #10 +
1323           > and
1324             { "others" 't :=
1325               #1 'namesleft := }
1326             'skip$
1327           if$
1328           namesleft #1 >
1329             { ", " * t * }
1330             {
1331               s nameptr "{ll}" format.name$ duplicate$ "others" =
1332                 { 't := }
1333                 { pop$ }
1334               if$
1335               t "others" =
1336                 {
1337                   " " * bbl.etal *
1338                   cite.name.font
1339                 }
1340                 {
1341                   numnames #2 >
1342                     { "," * }
1343                     'skip$
1344                   if$
1345                   bbl.and
1346                   space.word * t *
1347                 }
1348               if$
1349             }
1350           if$
1351         }
1352         't
1353       if$
1354       nameptr #1 + 'nameptr :=
1355       namesleft #1 - 'namesleft :=
1356     }
1357   while$
1358   t "others" =
1359     'skip$
1360     { cite.name.font }
1361   if$
1362 }
1363
1364 FUNCTION {author.editor.key.full}
1365 { author empty$
1366     { editor empty$
1367         { key empty$
1368             { cite$ #1 #3 substring$ }
1369             'key
1370           if$
1371         }
1372         { editor format.full.names }
1373       if$
1374     }
1375     { author format.full.names }
1376   if$
1377 }
1378
1379 FUNCTION {author.key.full}
1380 { author empty$
1381     { key empty$
1382          { cite$ #1 #3 substring$ }
1383           'key
1384       if$
1385     }
1386     { author format.full.names }
1387   if$
1388 }
1389
1390 FUNCTION {editor.key.full}
1391 { editor empty$
1392     { key empty$
1393          { cite$ #1 #3 substring$ }
1394           'key
1395       if$
1396     }
1397     { editor format.full.names }
1398   if$
1399 }
1400
1401 FUNCTION {make.full.names}
1402 { type$ "book" =
1403   type$ "inbook" =
1404   or
1405     'author.editor.key.full
1406     { type$ "proceedings" =
1407         'editor.key.full
1408         'author.key.full
1409       if$
1410     }
1411   if$
1412 }
1413
1414 FUNCTION {output.bibitem}
1415 { newline$
1416   "\bibitem[{" write$
1417   label write$
1418   ")" make.full.names duplicate$ short.list =
1419      { pop$ }
1420      { * }
1421    if$
1422   "}]{" * write$
1423   cite$ write$
1424   "}" write$
1425   newline$
1426   ""
1427   before.all 'output.state :=
1428 }
1429
1430 FUNCTION {n.dashify}
1431 {
1432   't :=
1433   ""
1434     { t empty$ not }
1435     { t #1 #1 substring$ "-" =
1436         { t #1 #2 substring$ "--" = not
1437             { "--" *
1438               t #2 global.max$ substring$ 't :=
1439             }
1440             {   { t #1 #1 substring$ "-" = }
1441                 { "-" *
1442                   t #2 global.max$ substring$ 't :=
1443                 }
1444               while$
1445             }
1446           if$
1447         }
1448         { t #1 #1 substring$ *
1449           t #2 global.max$ substring$ 't :=
1450         }
1451       if$
1452     }
1453   while$
1454 }
1455
1456 FUNCTION {word.in}
1457 { bbl.in
1458   " " * }
1459
1460 FUNCTION {format.date}
1461 { year "year" bibinfo.check duplicate$ empty$
1462     {
1463       "empty year in " cite$ * "; set to ????" * warning$
1464        pop$ "????"
1465     }
1466     'skip$
1467   if$
1468   extra.label *
1469   before.all 'output.state :=
1470   " (" swap$ * ")" *
1471 }
1472 FUNCTION {format.date.misc}
1473 {
1474   year empty$ 'skip$ {
1475   format.date "year" output.check
1476   } if$
1477 }
1478 FUNCTION {format.btitle}
1479 { title "title" bibinfo.check
1480   duplicate$ empty$ 'skip$
1481     {
1482       emphasize
1483     }
1484   if$
1485 }
1486 FUNCTION {either.or.check}
1487 { empty$
1488     'pop$
1489     { "can't use both " swap$ * " fields in " * cite$ * warning$ }
1490   if$
1491 }
1492 FUNCTION {format.bvolume}
1493 { volume empty$
1494     { "" }
1495     { bbl.volume volume tie.or.space.prefix
1496       "volume" bibinfo.check * *
1497       series "series" bibinfo.check
1498       duplicate$ empty$ 'pop$
1499         { swap$ bbl.of space.word * swap$
1500           emphasize * }
1501       if$
1502       "volume and number" number either.or.check
1503     }
1504   if$
1505 }
1506 FUNCTION {format.number.series}
1507 { volume empty$
1508     { number empty$
1509         { series field.or.null }
1510         { series empty$
1511             { number "number" bibinfo.check }
1512         { output.state mid.sentence =
1513             { bbl.number }
1514             { bbl.number capitalize }
1515           if$
1516           number tie.or.space.prefix "number" bibinfo.check * *
1517           bbl.in space.word *
1518           series "series" bibinfo.check *
1519         }
1520       if$
1521     }
1522       if$
1523     }
1524     { "" }
1525   if$
1526 }
1527 FUNCTION {is.num}
1528 { chr.to.int$
1529   duplicate$ "0" chr.to.int$ < not
1530   swap$ "9" chr.to.int$ > not and
1531 }
1532
1533 FUNCTION {extract.num}
1534 { duplicate$ 't :=
1535   "" 's :=
1536   { t empty$ not }
1537   { t #1 #1 substring$
1538     t #2 global.max$ substring$ 't :=
1539     duplicate$ is.num
1540       { s swap$ * 's := }
1541       { pop$ "" 't := }
1542     if$
1543   }
1544   while$
1545   s empty$
1546     'skip$
1547     { pop$ s }
1548   if$
1549 }
1550
1551 FUNCTION {convert.edition}
1552 { extract.num "l" change.case$ 's :=
1553   s "first" = s "1" = or
1554     { bbl.first 't := }
1555     { s "second" = s "2" = or
1556         { bbl.second 't := }
1557         { s "third" = s "3" = or
1558             { bbl.third 't := }
1559             { s "fourth" = s "4" = or
1560                 { bbl.fourth 't := }
1561                 { s "fifth" = s "5" = or
1562                     { bbl.fifth 't := }
1563                     { s #1 #1 substring$ is.num
1564                         { s eng.ord 't := }
1565                         { edition 't := }
1566                       if$
1567                     }
1568                   if$
1569                 }
1570               if$
1571             }
1572           if$
1573         }
1574       if$
1575     }
1576   if$
1577   t
1578 }
1579
1580 FUNCTION {format.edition}
1581 { edition duplicate$ empty$ 'skip$
1582     {
1583       convert.edition
1584       output.state mid.sentence =
1585         { "l" }
1586         { "t" }
1587       if$ change.case$
1588       "edition" bibinfo.check
1589       " " * bbl.edition *
1590     }
1591   if$
1592 }
1593 INTEGERS { multiresult }
1594 FUNCTION {multi.page.check}
1595 { 't :=
1596   #0 'multiresult :=
1597     { multiresult not
1598       t empty$ not
1599       and
1600     }
1601     { t #1 #1 substring$
1602       duplicate$ "-" =
1603       swap$ duplicate$ "," =
1604       swap$ "+" =
1605       or or
1606         { #1 'multiresult := }
1607         { t #2 global.max$ substring$ 't := }
1608       if$
1609     }
1610   while$
1611   multiresult
1612 }
1613 FUNCTION {format.pages}
1614 { pages duplicate$ empty$ 'skip$
1615     { duplicate$ multi.page.check
1616         {
1617           bbl.pages swap$
1618           n.dashify
1619         }
1620         {
1621           bbl.page swap$
1622         }
1623       if$
1624       tie.or.space.prefix
1625       "pages" bibinfo.check
1626       * *
1627     }
1628   if$
1629 }
1630 FUNCTION {first.page}
1631 { 't :=
1632   ""
1633     {  t empty$ not t #1 #1 substring$ "-" = not and }
1634     { t #1 #1 substring$ *
1635       t #2 global.max$ substring$ 't :=
1636     }
1637   while$
1638 }
1639
1640 FUNCTION {format.journal.pages}
1641 { pages duplicate$ empty$ 'pop$
1642     { swap$ duplicate$ empty$
1643         { pop$ pop$ format.pages }
1644         {
1645           ", " *
1646           swap$
1647           first.page
1648           "pages" bibinfo.check
1649           *
1650         }
1651       if$
1652     }
1653   if$
1654 }
1655 FUNCTION {format.journal.eid}
1656 { eid "eid" bibinfo.check
1657   duplicate$ empty$ 'skip$
1658     { swap$ duplicate$ empty$ 'skip$
1659       {
1660           ", " *
1661       }
1662       if$
1663       swap$
1664       numpages empty$ 'skip$
1665         { bbl.eidpp numpages tie.or.space.prefix
1666           "numpages" bibinfo.check * *
1667           " (" swap$ * ")" * *
1668         }
1669       if$
1670     }
1671   if$ *
1672 }
1673 FUNCTION {format.vol.num.pages}
1674 { volume field.or.null
1675   duplicate$ empty$ 'skip$
1676     {
1677       "volume" bibinfo.check
1678     }
1679   if$
1680   bolden
1681   eid empty$
1682     { format.journal.pages }
1683     { format.journal.eid }
1684   if$
1685 }
1686
1687 FUNCTION {format.chapter.pages}
1688 { chapter empty$
1689     'format.pages
1690     { type empty$
1691         { bbl.chapter }
1692         { type "l" change.case$
1693           "type" bibinfo.check
1694         }
1695       if$
1696       chapter tie.or.space.prefix
1697       "chapter" bibinfo.check
1698       * *
1699       pages empty$
1700         'skip$
1701         { ", " * format.pages * }
1702       if$
1703     }
1704   if$
1705 }
1706
1707 FUNCTION {format.booktitle}
1708 {
1709   booktitle "booktitle" bibinfo.check
1710   emphasize
1711 }
1712 FUNCTION {format.in.ed.booktitle}
1713 { format.booktitle duplicate$ empty$ 'skip$
1714     {
1715       editor "editor" format.names.ed duplicate$ empty$ 'pop$
1716         {
1717           bbl.edby
1718           " " * swap$ *
1719           swap$
1720           "," *
1721           " " * swap$
1722           * }
1723       if$
1724       word.in swap$ *
1725     }
1726   if$
1727 }
1728 FUNCTION {format.thesis.type}
1729 { type duplicate$ empty$
1730     'pop$
1731     { swap$ pop$
1732       "t" change.case$ "type" bibinfo.check
1733     }
1734   if$
1735 }
1736 FUNCTION {format.tr.number}
1737 { number "number" bibinfo.check
1738   type duplicate$ empty$
1739     { pop$ bbl.techrep }
1740     'skip$
1741   if$
1742   "type" bibinfo.check
1743   swap$ duplicate$ empty$
1744     { pop$ "t" change.case$ }
1745     { tie.or.space.prefix * * }
1746   if$
1747 }
1748 FUNCTION {format.article.crossref}
1749 {
1750   word.in
1751   " \cite{" * crossref * "}" *
1752 }
1753 FUNCTION {format.book.crossref}
1754 { volume duplicate$ empty$
1755     { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
1756       pop$ word.in
1757     }
1758     { bbl.volume
1759       swap$ tie.or.space.prefix "volume" bibinfo.check * * bbl.of space.word *
1760     }
1761   if$
1762   " \cite{" * crossref * "}" *
1763 }
1764 FUNCTION {format.incoll.inproc.crossref}
1765 {
1766   word.in
1767   " \cite{" * crossref * "}" *
1768 }
1769 FUNCTION {format.org.or.pub}
1770 { 't :=
1771   ""
1772       add.blank "(" *
1773       t empty$
1774         { address "address" bibinfo.check *
1775         }
1776         { t *
1777           address empty$
1778             'skip$
1779             { ", " * address "address" bibinfo.check * }
1780           if$
1781         }
1782       if$
1783       year duplicate$ empty$
1784         { "empty year in " cite$ * "; set to ????" * warning$
1785            pop$ "????" }
1786         { "year" bibinfo.check extra.label * }
1787       if$
1788       t empty$ address empty$ and
1789         { * }
1790         { ", " swap$ * * }
1791       if$
1792       ")" *
1793 }
1794 FUNCTION {format.publisher.address}
1795 { publisher "publisher" bibinfo.warn format.org.or.pub
1796 }
1797
1798 FUNCTION {format.organization.address}
1799 { organization "organization" bibinfo.check format.org.or.pub
1800 }
1801
1802 FUNCTION {article}
1803 { output.bibitem
1804   format.authors "author" output.check
1805   format.title "title" output.check
1806   add.blank
1807   author format.key output
1808   crossref missing$
1809     {
1810      ""
1811       journal
1812       duplicate$ empty$
1813       { pop$ pop$ } {
1814         "journal" bibinfo.check
1815         * "journal" output.check
1816       add.blank
1817       } if$
1818       format.vol.num.pages output
1819       format.date "year" output.check
1820     }
1821     { format.article.crossref output.nonnull
1822       format.pages output
1823     }
1824   if$
1825   format.issn output
1826   format.note output
1827   format.eprint output
1828   format.url output
1829   fin.entry
1830 }
1831 FUNCTION {book}
1832 { output.bibitem
1833   author empty$
1834     { format.editors "author and editor" output.check
1835       editor format.key output
1836     }
1837     { format.authors output.nonnull
1838       crossref missing$
1839         { "author and editor" editor either.or.check }
1840         'skip$
1841       if$
1842     }
1843   if$
1844   format.btitle "title" output.check
1845   crossref missing$
1846     { format.bvolume output
1847       format.number.series output
1848       format.publisher.address output
1849     }
1850     {
1851       format.book.crossref output.nonnull
1852       format.date "year" output.check
1853     }
1854   if$
1855   format.edition output
1856   format.isbn output
1857   format.note output
1858   format.eprint output
1859   format.url output
1860   fin.entry
1861 }
1862 FUNCTION {booklet}
1863 { output.bibitem
1864   format.authors output
1865   author format.key output
1866   format.title "title" output.check
1867   howpublished "howpublished" bibinfo.check output
1868   address "address" bibinfo.check output
1869   format.date "year" output.check
1870   format.isbn output
1871   format.note output
1872   format.eprint output
1873   format.url output
1874   fin.entry
1875 }
1876
1877 FUNCTION {inbook}
1878 { output.bibitem
1879   author empty$
1880     { format.editors "author and editor" output.check
1881       editor format.key output
1882     }
1883     { format.authors output.nonnull
1884       crossref missing$
1885         { "author and editor" editor either.or.check }
1886         'skip$
1887       if$
1888     }
1889   if$
1890   format.btitle "title" output.check
1891   crossref missing$
1892     {
1893       format.publisher.address output
1894       format.bvolume output
1895       format.chapter.pages "chapter and pages" output.check
1896       format.number.series output
1897     }
1898     {
1899       format.chapter.pages "chapter and pages" output.check
1900       format.book.crossref output.nonnull
1901       format.date "year" output.check
1902     }
1903   if$
1904   format.edition output
1905   crossref missing$
1906     { format.isbn output }
1907     'skip$
1908   if$
1909   format.note output
1910   format.eprint output
1911   format.url output
1912   fin.entry
1913 }
1914
1915 FUNCTION {incollection}
1916 { output.bibitem
1917   format.authors "author" output.check
1918   author format.key output
1919   crossref missing$
1920     { format.in.ed.booktitle "booktitle" output.check
1921       format.publisher.address output
1922       format.bvolume output
1923       format.number.series output
1924       format.chapter.pages output
1925       format.edition output
1926       format.isbn output
1927     }
1928     { format.incoll.inproc.crossref output.nonnull
1929       format.chapter.pages output
1930     }
1931   if$
1932   format.note output
1933   format.eprint output
1934   format.url output
1935   fin.entry
1936 }
1937 FUNCTION {inproceedings}
1938 { output.bibitem
1939   format.authors "author" output.check
1940   author format.key output
1941   crossref missing$
1942     { format.in.ed.booktitle "booktitle" output.check
1943       publisher empty$
1944         { format.organization.address output }
1945         { organization "organization" bibinfo.check output
1946           format.publisher.address output
1947         }
1948       if$
1949       format.bvolume output
1950       format.number.series output
1951       format.pages output
1952       format.isbn output
1953       format.issn output
1954     }
1955     { format.incoll.inproc.crossref output.nonnull
1956       format.pages output
1957     }
1958   if$
1959   format.note output
1960   format.eprint output
1961   format.url output
1962   fin.entry
1963 }
1964 FUNCTION {conference} { inproceedings }
1965 FUNCTION {manual}
1966 { output.bibitem
1967   format.authors output
1968   author format.key output
1969   format.btitle "title" output.check
1970   organization "organization" bibinfo.check output
1971   address "address" bibinfo.check output
1972   format.edition output
1973   format.date "year" output.check
1974   format.note output
1975   format.eprint output
1976   format.url output
1977   fin.entry
1978 }
1979
1980 FUNCTION {mastersthesis}
1981 { output.bibitem
1982   format.authors "author" output.check
1983   author format.key output
1984   bbl.mthesis format.thesis.type output.nonnull
1985   school "school" bibinfo.warn output
1986   address "address" bibinfo.check output
1987   format.date "year" output.check
1988   format.note output
1989   format.eprint output
1990   format.url output
1991   fin.entry
1992 }
1993
1994 FUNCTION {misc}
1995 { output.bibitem
1996   format.authors output
1997   author format.key output
1998   format.title output
1999   howpublished "howpublished" bibinfo.check output
2000   format.date.misc
2001   format.note output
2002   format.eprint output
2003   format.url output
2004   fin.entry
2005 }
2006 FUNCTION {phdthesis}
2007 { output.bibitem
2008   format.authors "author" output.check
2009   author format.key output
2010   bbl.phdthesis format.thesis.type output.nonnull
2011   school "school" bibinfo.warn output
2012   address "address" bibinfo.check output
2013   format.date "year" output.check
2014   format.note output
2015   format.eprint output
2016   format.url output
2017   fin.entry
2018 }
2019
2020 FUNCTION {proceedings}
2021 { output.bibitem
2022   format.editors output
2023   editor format.key output
2024   format.btitle "title" output.check
2025   format.bvolume output
2026   format.number.series output
2027   publisher empty$
2028     { format.organization.address output }
2029     { organization "organization" bibinfo.check output
2030       format.publisher.address output
2031     }
2032   if$
2033   format.isbn output
2034   format.issn output
2035   format.note output
2036   format.eprint output
2037   format.url output
2038   fin.entry
2039 }
2040
2041 FUNCTION {techreport}
2042 { output.bibitem
2043   format.authors "author" output.check
2044   author format.key output
2045   format.tr.number output.nonnull
2046   institution "institution" bibinfo.warn output
2047   address "address" bibinfo.check output
2048   format.date "year" output.check
2049   format.note output
2050   format.eprint output
2051   format.url output
2052   fin.entry
2053 }
2054
2055 FUNCTION {unpublished}
2056 { output.bibitem
2057   format.authors "author" output.check
2058   author format.key output
2059   format.date.misc
2060   format.note "note" output.check
2061   format.eprint output
2062   format.url output
2063   fin.entry
2064 }
2065
2066 FUNCTION {default.type} { misc }
2067 READ
2068 FUNCTION {sortify}
2069 { purify$
2070   "l" change.case$
2071 }
2072 INTEGERS { len }
2073 FUNCTION {chop.word}
2074 { 's :=
2075   'len :=
2076   s #1 len substring$ =
2077     { s len #1 + global.max$ substring$ }
2078     's
2079   if$
2080 }
2081 FUNCTION {format.lab.names}
2082 { 's :=
2083   "" 't :=
2084   s #1 "{vv~}{ll}" format.name$
2085   s num.names$ duplicate$
2086   #2 >
2087     { pop$
2088       " " * bbl.etal *
2089       cite.name.font
2090       "others" 't :=
2091     }
2092     { #2 <
2093         'skip$
2094         { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
2095             {
2096               " " * bbl.etal *
2097               cite.name.font
2098               "others" 't :=
2099             }
2100             { bbl.and space.word * s #2 "{vv~}{ll}" format.name$
2101               * }
2102           if$
2103         }
2104       if$
2105     }
2106   if$
2107   t "others" =
2108     'skip$
2109     { cite.name.font }
2110   if$
2111 }
2112
2113 FUNCTION {author.key.label}
2114 { author empty$
2115     { key empty$
2116         { cite$ #1 #3 substring$ }
2117         'key
2118       if$
2119     }
2120     { author format.lab.names }
2121   if$
2122 }
2123
2124 FUNCTION {author.editor.key.label}
2125 { author empty$
2126     { editor empty$
2127         { key empty$
2128             { cite$ #1 #3 substring$ }
2129             'key
2130           if$
2131         }
2132         { editor format.lab.names }
2133       if$
2134     }
2135     { author format.lab.names }
2136   if$
2137 }
2138
2139 FUNCTION {editor.key.label}
2140 { editor empty$
2141     { key empty$
2142         { cite$ #1 #3 substring$ }
2143         'key
2144       if$
2145     }
2146     { editor format.lab.names }
2147   if$
2148 }
2149
2150 FUNCTION {calc.short.authors}
2151 { type$ "book" =
2152   type$ "inbook" =
2153   or
2154     'author.editor.key.label
2155     { type$ "proceedings" =
2156         'editor.key.label
2157         'author.key.label
2158       if$
2159     }
2160   if$
2161   'short.list :=
2162 }
2163
2164 FUNCTION {calc.label}
2165 { calc.short.authors
2166   short.list
2167   "("
2168   *
2169   year duplicate$ empty$
2170   short.list key field.or.null = or
2171      { pop$ "" }
2172      'skip$
2173   if$
2174   *
2175   'label :=
2176 }
2177
2178 FUNCTION {sort.format.names}
2179 { 's :=
2180   #1 'nameptr :=
2181   ""
2182   s num.names$ 'numnames :=
2183   numnames 'namesleft :=
2184     { namesleft #0 > }
2185     { s nameptr
2186       "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
2187       format.name$ 't :=
2188       nameptr #1 >
2189         {
2190           nameptr #0
2191           #10 +
2192           #1 + =
2193           numnames #0
2194           #10 +
2195           > and
2196             { "others" 't :=
2197               #1 'namesleft := }
2198             'skip$
2199           if$
2200           "   "  *
2201           namesleft #1 = t "others" = and
2202             { "zzzzz" * }
2203             { t sortify * }
2204           if$
2205         }
2206         { t sortify * }
2207       if$
2208       nameptr #1 + 'nameptr :=
2209       namesleft #1 - 'namesleft :=
2210     }
2211   while$
2212 }
2213
2214 FUNCTION {sort.format.title}
2215 { 't :=
2216   "A " #2
2217     "An " #3
2218       "The " #4 t chop.word
2219     chop.word
2220   chop.word
2221   sortify
2222   #1 global.max$ substring$
2223 }
2224 FUNCTION {author.sort}
2225 { author empty$
2226     { key empty$
2227         { "to sort, need author or key in " cite$ * warning$
2228           ""
2229         }
2230         { key sortify }
2231       if$
2232     }
2233     { author sort.format.names }
2234   if$
2235 }
2236 FUNCTION {author.editor.sort}
2237 { author empty$
2238     { editor empty$
2239         { key empty$
2240             { "to sort, need author, editor, or key in " cite$ * warning$
2241               ""
2242             }
2243             { key sortify }
2244           if$
2245         }
2246         { editor sort.format.names }
2247       if$
2248     }
2249     { author sort.format.names }
2250   if$
2251 }
2252 FUNCTION {editor.sort}
2253 { editor empty$
2254     { key empty$
2255         { "to sort, need editor or key in " cite$ * warning$
2256           ""
2257         }
2258         { key sortify }
2259       if$
2260     }
2261     { editor sort.format.names }
2262   if$
2263 }
2264 INTEGERS { seq.num }
2265 FUNCTION {init.seq}
2266 { #0 'seq.num :=}
2267 EXECUTE {init.seq}
2268 FUNCTION {int.to.fix}
2269 { "000000000" swap$ int.to.str$ *
2270   #-1 #10 substring$
2271 }
2272 FUNCTION {presort}
2273 { calc.label
2274   label sortify
2275   "    "
2276   *
2277   seq.num #1 + 'seq.num :=
2278   seq.num  int.to.fix
2279   'sort.label :=
2280   sort.label
2281   *
2282   "    "
2283   *
2284   title field.or.null
2285   sort.format.title
2286   *
2287   #1 entry.max$ substring$
2288   'sort.key$ :=
2289 }
2290
2291 ITERATE {presort}
2292 SORT
2293 STRINGS { last.label next.extra }
2294 INTEGERS { last.extra.num number.label }
2295 FUNCTION {initialize.extra.label.stuff}
2296 { #0 int.to.chr$ 'last.label :=
2297   "" 'next.extra :=
2298   #0 'last.extra.num :=
2299   #0 'number.label :=
2300 }
2301 FUNCTION {forward.pass}
2302 { last.label label =
2303     { last.extra.num #1 + 'last.extra.num :=
2304       last.extra.num int.to.chr$ 'extra.label :=
2305     }
2306     { "a" chr.to.int$ 'last.extra.num :=
2307       "" 'extra.label :=
2308       label 'last.label :=
2309     }
2310   if$
2311   number.label #1 + 'number.label :=
2312 }
2313 FUNCTION {reverse.pass}
2314 { next.extra "b" =
2315     { "a" 'extra.label := }
2316     'skip$
2317   if$
2318   extra.label 'next.extra :=
2319   extra.label
2320   duplicate$ empty$
2321     'skip$
2322     { "{\natexlab{" swap$ * "}}" * }
2323   if$
2324   'extra.label :=
2325   label extra.label * 'label :=
2326 }
2327 EXECUTE {initialize.extra.label.stuff}
2328 ITERATE {forward.pass}
2329 REVERSE {reverse.pass}
2330 FUNCTION {bib.sort.order}
2331 { sort.label
2332   "    "
2333   *
2334   year field.or.null sortify
2335   *
2336   "    "
2337   *
2338   title field.or.null
2339   sort.format.title
2340   *
2341   #1 entry.max$ substring$
2342   'sort.key$ :=
2343 }
2344 ITERATE {bib.sort.order}
2345 SORT
2346 FUNCTION {begin.bib}
2347 { preamble$ empty$
2348     'skip$
2349     { preamble$ write$ newline$ }
2350   if$
2351   "\begin{thebibliography}{" number.label int.to.str$ * "}" *
2352   write$ newline$
2353   "\expandafter\ifx\csname natexlab\endcsname\relax\def\natexlab#1{#1}\fi"
2354   write$ newline$
2355   "\expandafter\ifx\csname bibnamefont\endcsname\relax"
2356   write$ newline$
2357   "  \def\bibnamefont#1{#1}\fi"
2358   write$ newline$
2359   "\expandafter\ifx\csname bibfnamefont\endcsname\relax"
2360   write$ newline$
2361   "  \def\bibfnamefont#1{#1}\fi"
2362   write$ newline$
2363   "\expandafter\ifx\csname citenamefont\endcsname\relax"
2364   write$ newline$
2365   "  \def\citenamefont#1{#1}\fi"
2366   write$ newline$
2367   "\expandafter\ifx\csname url\endcsname\relax"
2368   write$ newline$
2369   "  \def\url#1{\texttt{#1}}\fi"
2370   write$ newline$
2371   "\expandafter\ifx\csname urlprefix\endcsname\relax\def\urlprefix{URL }\fi"
2372   write$ newline$
2373   "\providecommand{\bibinfo}[2]{#2}"
2374   write$ newline$
2375   "\providecommand{\eprint}[2][]{\url{#2}}"
2376   write$ newline$
2377 }
2378 EXECUTE {begin.bib}
2379 EXECUTE {init.state.consts}
2380 ITERATE {call.type$}
2381 FUNCTION {end.bib}
2382 { newline$
2383   "\end{thebibliography}" write$ newline$
2384 }
2385 EXECUTE {end.bib}
2386 %% End of customized bst file
2387 %%
2388 %% End of file `apsrev.bst'.