1 |
%% |
2 |
%% This is file `achemso.bst', |
3 |
%% generated with the docstrip utility. |
4 |
%% |
5 |
%% The original source files were: |
6 |
%% |
7 |
%% achemso.dtx (with options: `huvudkod') |
8 |
%% |
9 |
%% Copyright (c) 1995-97 by Mats Dahlgren <matsd@homenet.se>. |
10 |
%% All rights reserved. See the file `achemso.ins' for information |
11 |
%% on how you may (re-)distribute the `achemso' package files. |
12 |
%% |
13 |
ENTRY |
14 |
{ address |
15 |
author |
16 |
booktitle |
17 |
chapter |
18 |
edition |
19 |
editor |
20 |
howpublished |
21 |
institution |
22 |
journal |
23 |
key |
24 |
month |
25 |
note |
26 |
number |
27 |
organization |
28 |
pages |
29 |
publisher |
30 |
school |
31 |
series |
32 |
title |
33 |
type |
34 |
volume |
35 |
year |
36 |
annotate |
37 |
} |
38 |
{} |
39 |
{ label } |
40 |
|
41 |
INTEGERS { output.state before.all mid.sentence after.sentence after.block } |
42 |
|
43 |
FUNCTION {init.state.consts} |
44 |
{ #0 'before.all := |
45 |
#1 'mid.sentence := |
46 |
#2 'after.sentence := |
47 |
#3 'after.block := |
48 |
} |
49 |
|
50 |
STRINGS { s t } |
51 |
|
52 |
FUNCTION {output.nonnull} |
53 |
{ 's := |
54 |
output.state mid.sentence = |
55 |
{ " " * write$ } |
56 |
{ output.state after.block = |
57 |
{ ", " * write$ |
58 |
newline$ |
59 |
"\newblock " write$ |
60 |
} |
61 |
{ output.state before.all = |
62 |
'write$ |
63 |
{ add.period$ " " * write$ } |
64 |
if$ |
65 |
} |
66 |
if$ |
67 |
mid.sentence 'output.state := |
68 |
} |
69 |
if$ |
70 |
s |
71 |
} |
72 |
|
73 |
FUNCTION {output} |
74 |
{ duplicate$ empty$ |
75 |
'pop$ |
76 |
'output.nonnull |
77 |
if$ |
78 |
} |
79 |
|
80 |
FUNCTION {output.check} |
81 |
{ 't := |
82 |
duplicate$ empty$ |
83 |
{ pop$ "empty " t * " in " * cite$ * warning$ } |
84 |
'output.nonnull |
85 |
if$ |
86 |
} |
87 |
|
88 |
FUNCTION {output.bibitem} |
89 |
{ newline$ |
90 |
"\bibitem{" write$ |
91 |
cite$ write$ |
92 |
"}" write$ |
93 |
newline$ |
94 |
"" |
95 |
before.all 'output.state := |
96 |
} |
97 |
|
98 |
FUNCTION {fin.entry} |
99 |
{ add.period$ |
100 |
write$ |
101 |
newline$ |
102 |
} |
103 |
|
104 |
FUNCTION {new.block} |
105 |
{ output.state before.all = |
106 |
'skip$ |
107 |
{ after.block 'output.state := } |
108 |
if$ |
109 |
} |
110 |
|
111 |
FUNCTION {new.sentence} |
112 |
{ skip$ |
113 |
} |
114 |
|
115 |
FUNCTION {not} |
116 |
{ { #0 } |
117 |
{ #1 } |
118 |
if$ |
119 |
} |
120 |
|
121 |
FUNCTION {and} |
122 |
{ 'skip$ |
123 |
{ pop$ #0 } |
124 |
if$ |
125 |
} |
126 |
|
127 |
FUNCTION {or} |
128 |
{ { pop$ #1 } |
129 |
'skip$ |
130 |
if$ |
131 |
} |
132 |
|
133 |
FUNCTION {new.block.checka} |
134 |
{ empty$ |
135 |
'skip$ |
136 |
'new.block |
137 |
if$ |
138 |
} |
139 |
|
140 |
FUNCTION {new.block.checkb} |
141 |
{ empty$ |
142 |
swap$ empty$ |
143 |
and |
144 |
'skip$ |
145 |
'new.block |
146 |
if$ |
147 |
} |
148 |
|
149 |
FUNCTION {field.or.null} |
150 |
{ duplicate$ empty$ |
151 |
{ pop$ "" } |
152 |
'skip$ |
153 |
if$ |
154 |
} |
155 |
|
156 |
FUNCTION {emphasize} |
157 |
{ duplicate$ empty$ |
158 |
{ pop$ "" } |
159 |
{ "\textit{" swap$ * "}" * } |
160 |
if$ |
161 |
} |
162 |
|
163 |
FUNCTION {emphasizec} |
164 |
{ duplicate$ empty$ |
165 |
{ pop$ "" } |
166 |
{ "\textit{" swap$ * ",}" * } |
167 |
if$ |
168 |
} |
169 |
|
170 |
FUNCTION {emphasizesc} |
171 |
{ duplicate$ empty$ |
172 |
{ pop$ "" } |
173 |
{ "\textit{" swap$ * ";}" * } |
174 |
if$ |
175 |
} |
176 |
|
177 |
FUNCTION {slantc} |
178 |
{ duplicate$ empty$ |
179 |
{ pop$ "" } |
180 |
{ "\textsl{" swap$ * ",}" * } |
181 |
if$ |
182 |
} |
183 |
|
184 |
FUNCTION {emboldenc} |
185 |
{ duplicate$ empty$ |
186 |
{ pop$ "" } |
187 |
{ "\textbf{" swap$ * ",}" * } |
188 |
if$ |
189 |
} |
190 |
|
191 |
INTEGERS { nameptr namesleft numnames } |
192 |
|
193 |
INTEGERS { etal } |
194 |
|
195 |
FUNCTION {format.names} |
196 |
{ 's := |
197 |
#1 'nameptr := |
198 |
s num.names$ 'numnames := |
199 |
numnames #15 > |
200 |
s numnames "{ll}" format.name$ "others" = numnames #1 > and |
201 |
or 'etal := |
202 |
etal |
203 |
{ #1 #1 + 'namesleft := } |
204 |
{ numnames 'namesleft := } |
205 |
if$ |
206 |
{ namesleft #0 > } |
207 |
{ s nameptr "{vv~}{ll,}{~jj,}{~f.}" format.name$ 't := |
208 |
nameptr #1 > |
209 |
{ namesleft #1 > |
210 |
{ ";\ \ " * t * } |
211 |
{ nameptr #2 > |
212 |
{ "" * } |
213 |
'skip$ |
214 |
if$ |
215 |
t "others" = |
216 |
etal or |
217 |
{ " \textit{et al.}\ " * } |
218 |
{ ";\ \ " * t * } |
219 |
if$ |
220 |
} |
221 |
if$ |
222 |
} |
223 |
't |
224 |
if$ |
225 |
nameptr #1 + 'nameptr := |
226 |
namesleft #1 - 'namesleft := |
227 |
} |
228 |
while$ |
229 |
} |
230 |
|
231 |
FUNCTION {format.authors} |
232 |
{ author empty$ |
233 |
{ "" } |
234 |
{ author format.names } |
235 |
if$ |
236 |
} |
237 |
|
238 |
FUNCTION {format.editors} |
239 |
{ editor empty$ |
240 |
{ "" } |
241 |
{ editor format.names |
242 |
editor num.names$ #1 > |
243 |
{ ",\ \ Eds.; " * } |
244 |
{ ",\ \ Ed.; " * } |
245 |
if$ |
246 |
} |
247 |
if$ |
248 |
} |
249 |
|
250 |
FUNCTION {n.dashify} |
251 |
{ 't := |
252 |
"" |
253 |
{ t empty$ not } |
254 |
{ t #1 #1 substring$ "-" = |
255 |
{ t #1 #2 substring$ "--" = not |
256 |
{ "--" * |
257 |
t #2 global.max$ substring$ 't := |
258 |
} |
259 |
{ { t #1 #1 substring$ "-" = } |
260 |
{ "-" * |
261 |
t #2 global.max$ substring$ 't := |
262 |
} |
263 |
while$ |
264 |
} |
265 |
if$ |
266 |
} |
267 |
{ t #1 #1 substring$ * |
268 |
t #2 global.max$ substring$ 't := |
269 |
} |
270 |
if$ |
271 |
} |
272 |
while$ |
273 |
} |
274 |
|
275 |
FUNCTION {format.date} |
276 |
{ year empty$ |
277 |
{ "" } |
278 |
'year |
279 |
if$ |
280 |
} |
281 |
|
282 |
FUNCTION {tie.or.space.connect} |
283 |
{ duplicate$ text.length$ #3 < |
284 |
{ "~" } |
285 |
{ " " } |
286 |
if$ |
287 |
swap$ * * |
288 |
} |
289 |
|
290 |
FUNCTION {either.or.check} |
291 |
{ empty$ |
292 |
'pop$ |
293 |
{ "can't use both " swap$ * " fields in " * cite$ * warning$ } |
294 |
if$ |
295 |
} |
296 |
|
297 |
FUNCTION {format.bvolume} |
298 |
{ volume empty$ |
299 |
{ "" } |
300 |
{ "volume" volume tie.or.space.connect |
301 |
series empty$ |
302 |
'skip$ |
303 |
{ " of " * series emphasize * } |
304 |
if$ |
305 |
"volume and number" number either.or.check |
306 |
} |
307 |
if$ |
308 |
} |
309 |
|
310 |
FUNCTION {format.number.series} |
311 |
{ volume empty$ |
312 |
{ number empty$ |
313 |
{ series field.or.null } |
314 |
{ series empty$ |
315 |
{ "there's a number but no series in " cite$ * warning$ } |
316 |
{ series " " * number * "; " * } |
317 |
if$ |
318 |
} |
319 |
if$ |
320 |
} |
321 |
{ "" } |
322 |
if$ |
323 |
} |
324 |
|
325 |
FUNCTION {format.edition} |
326 |
{ edition empty$ |
327 |
{ "" } |
328 |
{ edition " ed.;" * } |
329 |
if$ |
330 |
} |
331 |
|
332 |
INTEGERS { multiresult } |
333 |
|
334 |
FUNCTION {multi.page.check} |
335 |
{ 't := |
336 |
#0 'multiresult := |
337 |
{ multiresult not |
338 |
t empty$ not |
339 |
and |
340 |
} |
341 |
{ t #1 #1 substring$ |
342 |
duplicate$ "-" = |
343 |
swap$ duplicate$ "," = |
344 |
swap$ "+" = |
345 |
or or |
346 |
{ #1 'multiresult := } |
347 |
{ t #2 global.max$ substring$ 't := } |
348 |
if$ |
349 |
} |
350 |
while$ |
351 |
multiresult |
352 |
} |
353 |
|
354 |
FUNCTION {format.pages} |
355 |
{ pages empty$ |
356 |
{ "" } |
357 |
{ pages multi.page.check |
358 |
{ "pages" pages n.dashify tie.or.space.connect } |
359 |
{ "page" pages tie.or.space.connect } |
360 |
if$ |
361 |
} |
362 |
if$ |
363 |
} |
364 |
|
365 |
FUNCTION {format.pages.a} |
366 |
{ pages empty$ |
367 |
{ "" } |
368 |
{ "page" pages tie.or.space.connect } |
369 |
if$ |
370 |
} |
371 |
|
372 |
FUNCTION {format.yr.vol.pages} |
373 |
{ year field.or.null emboldenc |
374 |
" " swap$ * * |
375 |
volume field.or.null slantc |
376 |
" " swap$ * * |
377 |
pages empty$ |
378 |
'skip$ |
379 |
{ duplicate$ empty$ |
380 |
{ pop$ format.pages.a } |
381 |
{ " " * pages * } |
382 |
if$ |
383 |
} |
384 |
if$ |
385 |
} |
386 |
|
387 |
FUNCTION {format.chapter.pages} |
388 |
{ chapter empty$ |
389 |
'format.pages |
390 |
{ type empty$ |
391 |
{ "Chapter" } |
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 |
|
403 |
FUNCTION {empty.misc.check} |
404 |
{ author empty$ title empty$ howpublished empty$ |
405 |
month empty$ year empty$ note empty$ |
406 |
and and and and and |
407 |
{ "all relevant fields are empty in " cite$ * warning$ } |
408 |
'skip$ |
409 |
if$ |
410 |
} |
411 |
|
412 |
FUNCTION {format.thesis} |
413 |
{ type empty$ |
414 |
{"Thesis,"} |
415 |
{type " thesis," * } |
416 |
if$ |
417 |
} |
418 |
|
419 |
FUNCTION {format.article.crossref} |
420 |
{ key empty$ |
421 |
{ journal empty$ |
422 |
{ "need key or journal for " cite$ * " to crossref " * crossref * |
423 |
warning$ |
424 |
"" |
425 |
} |
426 |
{ "In " journal * } |
427 |
if$ |
428 |
} |
429 |
{ "In " key * } |
430 |
if$ |
431 |
" \cite{" * crossref * "}" * |
432 |
} |
433 |
|
434 |
FUNCTION {format.crossref.editor} |
435 |
{ editor #1 "{vv~}{ll}" format.name$ |
436 |
editor num.names$ duplicate$ |
437 |
#2 > |
438 |
{ pop$ " et~al." * } |
439 |
{ #2 < |
440 |
'skip$ |
441 |
{ editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" = |
442 |
{ " et~al." * } |
443 |
{ " and " * editor #2 "{vv~}{ll}" format.name$ * } |
444 |
if$ |
445 |
} |
446 |
if$ |
447 |
} |
448 |
if$ |
449 |
} |
450 |
|
451 |
FUNCTION {format.book.crossref} |
452 |
{ volume empty$ |
453 |
{ "empty volume in " cite$ * "'s crossref of " * crossref * warning$ |
454 |
"In " |
455 |
} |
456 |
{ "Volume" volume tie.or.space.connect |
457 |
" of " * |
458 |
} |
459 |
if$ |
460 |
editor empty$ |
461 |
editor field.or.null author field.or.null = |
462 |
or |
463 |
{ key empty$ |
464 |
{ series empty$ |
465 |
{ "need editor, key, or series for " cite$ * " to crossref " * |
466 |
crossref * warning$ |
467 |
"" * |
468 |
} |
469 |
{ "\textit{" * series * "}" * } |
470 |
if$ |
471 |
} |
472 |
{ key * } |
473 |
if$ |
474 |
} |
475 |
{ format.crossref.editor * } |
476 |
if$ |
477 |
" \cite{" * crossref * "}" * |
478 |
} |
479 |
|
480 |
FUNCTION {format.incoll.inproc.crossref} |
481 |
{ editor empty$ |
482 |
editor field.or.null author field.or.null = |
483 |
or |
484 |
{ key empty$ |
485 |
{ booktitle empty$ |
486 |
{ "need editor, key, or booktitle for " cite$ * " to crossref " * |
487 |
crossref * warning$ |
488 |
"" |
489 |
} |
490 |
{ "In \textit{" booktitle * ",}" * } |
491 |
if$ |
492 |
} |
493 |
{ "In " key * } |
494 |
if$ |
495 |
} |
496 |
{ "In " format.crossref.editor * } |
497 |
if$ |
498 |
" \cite{" * crossref * "}" * |
499 |
} |
500 |
|
501 |
FUNCTION {in.book} |
502 |
{ "In " output |
503 |
booktitle emphasize |
504 |
volume empty$ |
505 |
{skip$} |
506 |
{", Vol.~" * volume *} |
507 |
if$ |
508 |
edition empty$ |
509 |
{";" * output} |
510 |
{"," * output |
511 |
edition " ed.;\" * output} |
512 |
if$ |
513 |
editor missing$ |
514 |
{ skip$ } |
515 |
{ format.editors output } |
516 |
if$ |
517 |
format.number.series output |
518 |
new.sentence |
519 |
publisher ":" * "publisher" output.check |
520 |
address "," * "address" output.check |
521 |
} |
522 |
|
523 |
FUNCTION {book.vol.ed} |
524 |
{ "" volume empty$ |
525 |
{skip$} |
526 |
{" Vol.~" * volume *} |
527 |
if$ |
528 |
edition empty$ |
529 |
{";" * output} |
530 |
{"," * output |
531 |
edition " ed.;\" * output} |
532 |
if$ |
533 |
} |
534 |
|
535 |
FUNCTION {thesis.affilation} |
536 |
{ school "," * "school" output.check |
537 |
institution empty$ |
538 |
'skip$ |
539 |
{institution "," * output} |
540 |
if$ |
541 |
} |
542 |
|
543 |
FUNCTION {article} |
544 |
{ output.bibitem |
545 |
format.authors "author" output.check |
546 |
crossref missing$ |
547 |
{ journal field.or.null emphasize |
548 |
format.yr.vol.pages |
549 |
output |
550 |
} |
551 |
{ format.article.crossref output.nonnull |
552 |
format.pages output |
553 |
} |
554 |
if$ |
555 |
note output |
556 |
fin.entry |
557 |
} |
558 |
|
559 |
FUNCTION {submitted} |
560 |
{ output.bibitem |
561 |
format.authors "author" output.check |
562 |
new.block |
563 |
"submitted for publication in" output |
564 |
note empty$ |
565 |
{ journal emphasize "journal" output.check } |
566 |
{ journal emphasizec "journal" output.check |
567 |
note output } |
568 |
if$ |
569 |
fin.entry |
570 |
} |
571 |
|
572 |
FUNCTION {inpress} |
573 |
{ output.bibitem |
574 |
format.authors "author" output.check |
575 |
journal emphasizec "journal" output.check |
576 |
"in press" output |
577 |
note output |
578 |
fin.entry |
579 |
} |
580 |
|
581 |
FUNCTION {book} |
582 |
{ output.bibitem |
583 |
author empty$ |
584 |
{ format.editors "author and editor" output.check } |
585 |
{ format.authors output.nonnull |
586 |
crossref missing$ |
587 |
{ "author and editor" editor either.or.check } |
588 |
'skip$ |
589 |
if$ |
590 |
} |
591 |
if$ |
592 |
booktitle empty$ |
593 |
{ title emphasizesc output } |
594 |
{ booktitle emphasizesc output } |
595 |
if$ |
596 |
crossref missing$ |
597 |
{ format.bvolume output |
598 |
format.number.series output |
599 |
new.sentence |
600 |
publisher ":" * "publisher" output.check |
601 |
address "," * "address" output.check |
602 |
} |
603 |
{ format.book.crossref output.nonnull } |
604 |
if$ |
605 |
format.edition output |
606 |
format.date "year" output.check |
607 |
note output |
608 |
fin.entry |
609 |
} |
610 |
|
611 |
FUNCTION {booklet} |
612 |
{ output.bibitem |
613 |
format.authors "author" output.check |
614 |
" ``" title * "'', " * "title" output.check |
615 |
howpublished empty$ |
616 |
{ skip$ } |
617 |
{ howpublished "," * output} |
618 |
if$ |
619 |
address empty$ |
620 |
{ skip$ } |
621 |
{ address "," * output} |
622 |
if$ |
623 |
format.date "year" output.check |
624 |
note output |
625 |
fin.entry |
626 |
} |
627 |
|
628 |
FUNCTION {inbook} |
629 |
{ output.bibitem |
630 |
format.authors "author" output.check |
631 |
" " title * ". " * "title" output.check |
632 |
in.book |
633 |
chapter empty$ |
634 |
{format.date "year" output.check} |
635 |
{year empty$ |
636 |
{ "empty year field in " * cite$ * warning$ } |
637 |
{ year "; " * output |
638 |
format.chapter.pages output } |
639 |
if$ |
640 |
} |
641 |
if$ |
642 |
note output |
643 |
fin.entry |
644 |
} |
645 |
|
646 |
FUNCTION {incollection} |
647 |
{ output.bibitem |
648 |
format.authors "author" output.check |
649 |
" " title * ". " * "title" output.check |
650 |
in.book |
651 |
format.date "year" output.check |
652 |
note output |
653 |
fin.entry |
654 |
} |
655 |
|
656 |
FUNCTION {inproceedings} { inbook } |
657 |
|
658 |
FUNCTION {conference} { inbook } |
659 |
|
660 |
FUNCTION {manual} |
661 |
{ output.bibitem |
662 |
author empty$ |
663 |
{ organization empty$ |
664 |
'skip$ |
665 |
{ organization ", " * address * output |
666 |
} |
667 |
if$ |
668 |
} |
669 |
{ format.authors output.nonnull } |
670 |
if$ |
671 |
"``" title * "'', " * "title" output.check |
672 |
author empty$ |
673 |
{ organization empty$ |
674 |
{ address empty$ |
675 |
'skip$ |
676 |
{ address "," * output } |
677 |
if$ |
678 |
} |
679 |
'skip$ |
680 |
if$ |
681 |
} |
682 |
{ organization empty$ |
683 |
'skip$ |
684 |
{ organization "," * output |
685 |
address empty$ |
686 |
'skip$ |
687 |
{ address "," * output } |
688 |
if$ |
689 |
} |
690 |
if$ |
691 |
} |
692 |
if$ |
693 |
format.edition output |
694 |
format.date output |
695 |
note output |
696 |
fin.entry |
697 |
} |
698 |
|
699 |
FUNCTION {mastersthesis} |
700 |
{ output.bibitem |
701 |
format.authors "author" output.check |
702 |
"``" title * "'', " * "title" output.check |
703 |
"Master's thesis, " output |
704 |
thesis.affilation |
705 |
format.date "year" output.check |
706 |
note output |
707 |
fin.entry |
708 |
} |
709 |
|
710 |
FUNCTION {misc} |
711 |
{ output.bibitem |
712 |
format.authors output |
713 |
title empty$ |
714 |
'skip$ |
715 |
{ "``" title * "'', " * output } |
716 |
if$ |
717 |
howpublished empty$ |
718 |
'skip$ |
719 |
{howpublished "," * output } |
720 |
if$ |
721 |
format.date output |
722 |
note output |
723 |
fin.entry |
724 |
empty.misc.check |
725 |
} |
726 |
|
727 |
FUNCTION {phdthesis} |
728 |
{ output.bibitem |
729 |
format.authors "author" output.check |
730 |
title emphasizec "title" output.check |
731 |
format.thesis output.nonnull |
732 |
thesis.affilation |
733 |
format.date "year" output.check |
734 |
note output |
735 |
fin.entry |
736 |
} |
737 |
|
738 |
FUNCTION {proceedings} |
739 |
{ output.bibitem |
740 |
editor empty$ |
741 |
{ organization output } |
742 |
{ format.editors output.nonnull } |
743 |
if$ |
744 |
booktitle empty$ |
745 |
{ title emphasizec output } |
746 |
{ booktitle emphasizec output } |
747 |
if$ |
748 |
book.vol.ed |
749 |
format.number.series output |
750 |
publisher empty$ |
751 |
{ address empty$ |
752 |
{ format.date "year" output.check } |
753 |
{ address "," * output |
754 |
format.date "year" output.check } |
755 |
if$ |
756 |
} |
757 |
{ address empty$ |
758 |
{ publisher "," * output |
759 |
format.date "year" output.check } |
760 |
{ publisher ": " * address * "," * output |
761 |
format.date "year" output.check } |
762 |
if$ |
763 |
} |
764 |
if$ |
765 |
note output |
766 |
fin.entry |
767 |
} |
768 |
|
769 |
FUNCTION {techreport} |
770 |
{ output.bibitem |
771 |
format.authors "author" output.check |
772 |
"``" title * "'', " * "title" output.check |
773 |
type empty$ |
774 |
{ "Technical Report" } |
775 |
'type |
776 |
if$ |
777 |
number empty$ |
778 |
{ ", " * } |
779 |
{ " " * number * "," * } |
780 |
if$ |
781 |
output.nonnull |
782 |
institution "," * "institution" output.check |
783 |
address empty$ |
784 |
{ skip$ } |
785 |
{ address "," * output } |
786 |
if$ |
787 |
format.date "year" output.check |
788 |
note output |
789 |
fin.entry |
790 |
} |
791 |
|
792 |
FUNCTION {unpublished} |
793 |
{ output.bibitem |
794 |
format.authors "author" output.check |
795 |
note empty$ |
796 |
{ "Unpublished data" output } |
797 |
{ year empty$ |
798 |
{ note output } |
799 |
{ note ", " * year * output } |
800 |
if$ } |
801 |
if$ |
802 |
fin.entry |
803 |
} |
804 |
|
805 |
FUNCTION {remark} |
806 |
{ output.bibitem |
807 |
note "note" output.check |
808 |
fin.entry |
809 |
} |
810 |
|
811 |
FUNCTION {default.type} { misc } |
812 |
|
813 |
MACRO {jan} {"Jan."} |
814 |
MACRO {feb} {"Feb."} |
815 |
MACRO {mar} {"Mar."} |
816 |
MACRO {apr} {"Apr."} |
817 |
MACRO {may} {"May"} |
818 |
MACRO {jun} {"June"} |
819 |
MACRO {jul} {"July"} |
820 |
MACRO {aug} {"Aug."} |
821 |
MACRO {sep} {"Sept."} |
822 |
MACRO {oct} {"Oct."} |
823 |
MACRO {nov} {"Nov."} |
824 |
MACRO {dec} {"Dec."} |
825 |
|
826 |
MACRO {acchemr} {"Acc.\ Chem.\ Res."} |
827 |
MACRO {aacsa} {"Adv.\ {ACS} Abstr."} |
828 |
MACRO {anchem} {"Anal.\ Chem."} |
829 |
MACRO {bioch} {"Biochemistry"} |
830 |
MACRO {bicoc} {"Bioconj.\ Chem."} % *** |
831 |
MACRO {bitech} {"Biotechnol.\ Progr."} % *** |
832 |
MACRO {chemeng} {"Chem.\ Eng.\ News"} |
833 |
MACRO {chs} {"Chem.\ Health Safety"} % *** |
834 |
MACRO {crt} {"Chem.\ Res.\ Tox."} % *** |
835 |
MACRO {chemrev} {"Chem.\ Rev."} % *** |
836 |
MACRO {cmat} {"Chem.\ Mat."} % *** |
837 |
MACRO {chemtech} {"{CHEMTECH}"} % *** |
838 |
MACRO {enfu} {"Energy \&{} Fuels"} % *** |
839 |
MACRO {envst} {"Environ.\ Sci.\ Technol."} |
840 |
MACRO {iecf} {"Ind.\ Eng.\ Chem.\ Fundam."} |
841 |
MACRO {iecpdd} {"Ind.\ Eng.\ Chem.\ Proc.\ Des.\ Dev."} |
842 |
MACRO {iecprd} {"Ind.\ Eng.\ Chem.\ Prod.\ Res.\ Dev."} |
843 |
MACRO {iecr} {"Ind.\ Eng.\ Chem.\ Res."} % *** |
844 |
MACRO {inor} {"Inorg.\ Chem."} |
845 |
MACRO {jafc} {"J.~Agric.\ Food Chem."} |
846 |
MACRO {jacs} {"J.~Am.\ Chem.\ Soc."} |
847 |
MACRO {jced} {"J.~Chem.\ Eng.\ Data"} |
848 |
MACRO {jcics} {"J.~Chem.\ Inf.\ Comput.\ Sci."} |
849 |
MACRO {jmc} {"J.~Med.\ Chem."} |
850 |
MACRO {joc} {"J.~Org.\ Chem."} |
851 |
MACRO {jps} {"J.~Pharm.\ Sci."} |
852 |
MACRO {jpcrd} {"J.~Phys.\ Chem.\ Ref.\ Data"} % *** |
853 |
MACRO {jpc} {"J.~Phys.\ Chem."} |
854 |
MACRO {lang} {"Langmuir"} |
855 |
MACRO {macro} {"Macromolecules"} |
856 |
MACRO {orgmet} {"Organometallics"} |
857 |
|
858 |
MACRO {jft} {"J.~Chem.\ Soc., Faraday Trans."} |
859 |
MACRO {jft1} {"J.~Chem.\ Soc., Faraday Trans. 1"} |
860 |
MACRO {jft2} {"J.~Chem.\ Soc., Faraday Trans. 2"} |
861 |
MACRO {tfs} {"Trans.\ Faraday Soc."} |
862 |
MACRO {jcis} {"J.~Colloid Interface Sci."} |
863 |
MACRO {acis} {"Adv.~Colloid Interface Sci."} |
864 |
MACRO {cs} {"Colloids Surf."} |
865 |
MACRO {csa} {"Colloids Surf.\ A:\ Physicochem.\ Eng.\ Apects"} |
866 |
MACRO {csb} {"Colloids Surf.\ B:\ Biointerfaces"} |
867 |
MACRO {pcps} {"Progr.\ Colloid Polym.\ Sci."} |
868 |
MACRO {jmr} {"J.~Magn.\ Reson."} |
869 |
MACRO {jmra} {"J.~Magn.\ Reson.\ A"} |
870 |
MACRO {jmrb} {"J.~Magn.\ Reson.\ B"} |
871 |
MACRO {sci} {"Science"} |
872 |
MACRO {nat} {"Nature (London)"} |
873 |
MACRO {jcch} {"J.~Comput.\ Chem."} |
874 |
MACRO {cca} {"Croat.\ Chem.\ Acta"} |
875 |
|
876 |
MACRO {poly} {"Polymer"} |
877 |
MACRO {ajp} {"Am.\ J.\ Phys."} |
878 |
MACRO {rsi} {"Rev.\ Sci.\ Instrum."} |
879 |
MACRO {jcp} {"J.~Chem.\ Phys."} |
880 |
MACRO {cpl} {"Chem.\ Phys.\ Lett."} |
881 |
MACRO {molph} {"Mol.\ Phys."} |
882 |
MACRO {pac} {"Pure Appl.\ Chem."} |
883 |
MACRO {jbc} {"J.~Biol.\ Chem."} |
884 |
MACRO {tl} {"Tetrahedron Lett.\"} |
885 |
MACRO {psisoe} {"Proc.\ SPIE-Int.\ Soc.\ Opt.\ Eng."} |
886 |
MACRO {prb} {"Phys.\ Rev.\ B:\ Condens.\ Matter"} |
887 |
MACRO {jap} {"J.~Appl.\ Phys."} |
888 |
MACRO {pnac} {"Proc.\ Natl.\ Acad.\ Sci.\ U.~S.~A. "} |
889 |
MACRO {bba} {"Biochim.\ Biophys.\ Acta"} |
890 |
MACRO {nar} {"Nucleic.\ Acid Res."} |
891 |
|
892 |
READ |
893 |
|
894 |
STRINGS { longest.label } |
895 |
|
896 |
INTEGERS { number.label longest.label.width } |
897 |
|
898 |
FUNCTION {initialize.longest.label} |
899 |
{ "" 'longest.label := |
900 |
#1 'number.label := |
901 |
#0 'longest.label.width := |
902 |
} |
903 |
|
904 |
FUNCTION {longest.label.pass} |
905 |
{ number.label int.to.str$ 'label := |
906 |
number.label #1 + 'number.label := |
907 |
label width$ longest.label.width > |
908 |
{ label 'longest.label := |
909 |
label width$ 'longest.label.width := |
910 |
} |
911 |
'skip$ |
912 |
if$ |
913 |
} |
914 |
|
915 |
EXECUTE {initialize.longest.label} |
916 |
|
917 |
ITERATE {longest.label.pass} |
918 |
|
919 |
FUNCTION {begin.bib} |
920 |
{ preamble$ empty$ |
921 |
'skip$ |
922 |
{ preamble$ write$ newline$ } |
923 |
if$ |
924 |
"\providecommand{\refin}[1]{\\ \textbf{Referenced in:} #1}" |
925 |
write$ newline$ |
926 |
"\begin{thebibliography}{" longest.label * "}" * write$ newline$ |
927 |
} |
928 |
|
929 |
EXECUTE {begin.bib} |
930 |
|
931 |
EXECUTE {init.state.consts} |
932 |
|
933 |
ITERATE {call.type$} |
934 |
|
935 |
FUNCTION {end.bib} |
936 |
{ newline$ |
937 |
"\end{thebibliography}" write$ newline$ |
938 |
} |
939 |
|
940 |
EXECUTE {end.bib} |
941 |
|
942 |
%% |
943 |
%% End of file `achemso.bst'. |