trunk/oopsePaper/achemso.bst

%% 
%% This is file `achemso.bst',
%% generated with the docstrip utility.
%% 
%% The original source files were:
%% 
%% achemso.dtx  (with options: `huvudkod')
%% 
%% Copyright (c) 1995-97 by Mats Dahlgren <matsd@homenet.se>. 
%% All rights reserved. See the file `achemso.ins' for information 
%% on how you may (re-)distribute the `achemso' package files. 
%% 
ENTRY
  { address
    author
    booktitle
    chapter
    edition
    editor
    howpublished
    institution
    journal
    key
    month
    note
    number
    organization
    pages
    publisher
    school
    series
    title
    type
    volume
    year
    annotate
  }
  {}
  { label }

INTEGERS { output.state before.all mid.sentence after.sentence after.block }

FUNCTION {init.state.consts}
{ #0 'before.all :=
  #1 'mid.sentence :=
  #2 'after.sentence :=
  #3 'after.block :=
}

STRINGS { s t }

FUNCTION {output.nonnull}
{ 's :=
  output.state mid.sentence =
    { " " * write$ }
    { output.state after.block =
        { ", " * write$
  newline$
  "\newblock " write$
}
{ output.state before.all =
    'write$
    { add.period$ " " * write$ }
  if$
}
      if$
      mid.sentence 'output.state :=
    }
  if$
  s
}

FUNCTION {output}
{ duplicate$ empty$
    'pop$
    'output.nonnull
  if$
}

FUNCTION {output.check}
{ 't :=
  duplicate$ empty$
    { pop$ "empty " t * " in " * cite$ * warning$ }
    'output.nonnull
  if$
}

FUNCTION {output.bibitem}
{ newline$
  "\bibitem{" write$
  cite$ write$
  "}" write$
  newline$
  ""
  before.all 'output.state :=
}

FUNCTION {fin.entry}
{ add.period$
  write$
  newline$
}

FUNCTION {new.block}
{ output.state before.all =
    'skip$
    { after.block 'output.state := }
  if$
}

FUNCTION {new.sentence}
{ skip$
}

FUNCTION {not}
{   { #0 }
    { #1 }
  if$
}

FUNCTION {and}
{   'skip$
    { pop$ #0 }
  if$
}

FUNCTION {or}
{   { pop$ #1 }
    'skip$
  if$
}

FUNCTION {new.block.checka}
{ empty$
    'skip$
    'new.block
  if$
}

FUNCTION {new.block.checkb}
{ empty$
  swap$ empty$
  and
    'skip$
    'new.block
  if$
}

FUNCTION {field.or.null}
{ duplicate$ empty$
    { pop$ "" }
    'skip$
  if$
}

FUNCTION {emphasize}
{ duplicate$ empty$
    { pop$ "" }
    { "\textit{" swap$ * "}" * }
  if$
}

FUNCTION {emphasizec}
{ duplicate$ empty$
    { pop$ "" }
    { "\textit{" swap$ * ",}" * }
  if$
}

FUNCTION {emphasizesc}
{ duplicate$ empty$
    { pop$ "" }
    { "\textit{" swap$ * ";}" * }
  if$
}

FUNCTION {slantc}
{ duplicate$ empty$
    { pop$ "" }
    { "\textsl{" swap$ * ",}" * }
  if$
}

FUNCTION {emboldenc}
{ duplicate$ empty$
    { pop$ "" }
    { "\textbf{" swap$ * ",}" * }
  if$
}

INTEGERS { nameptr namesleft numnames }

INTEGERS { etal }

FUNCTION {format.names}
{ 's :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames #15 >
  s numnames "{ll}" format.name$ "others" = numnames #1 > and
  or 'etal :=
  etal
    { #1 #1 + 'namesleft := }
    { numnames 'namesleft := }
  if$
    { namesleft #0 > }
    { s nameptr "{vv~}{ll,}{~jj,}{~f.}" format.name$ 't :=
      nameptr #1 >
{ namesleft #1 >
    { ";\ \ " * t * }
    { nameptr #2 >
{ "" * }
'skip$
      if$
      t "others" =
      etal or
{ " \textit{et al.}\ " * }
{ ";\ \ " * t * }
      if$
    }
  if$
}
't
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
    }
  while$
}

FUNCTION {format.authors}
{ author empty$
    { "" }
    { author format.names }
  if$
}

FUNCTION {format.editors}
{ editor empty$
    { "" }
    { editor format.names
      editor num.names$ #1 >
{ ",\ \ Eds.; " * }
{ ",\ \ Ed.; " * }
      if$
    }
  if$
}

FUNCTION {n.dashify}
{ 't :=
  ""
    { t empty$ not }
    { t #1 #1 substring$ "-" =
{ t #1 #2 substring$ "--" = not
    { "--" *
      t #2 global.max$ substring$ 't :=
    }
    {   { t #1 #1 substring$ "-" = }
{ "-" *
  t #2 global.max$ substring$ 't :=
}
      while$
    }
  if$
}
{ t #1 #1 substring$ *
  t #2 global.max$ substring$ 't :=
}
      if$
    }
  while$
}

FUNCTION {format.date}
{ year empty$
    { "" }
    'year
  if$
}

FUNCTION {tie.or.space.connect}
{ duplicate$ text.length$ #3 <
    { "~" }
    { " " }
  if$
  swap$ * *
}

FUNCTION {either.or.check}
{ empty$
    'pop$
    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  if$
}

FUNCTION {format.bvolume}
{ volume empty$
    { "" }
    { "volume" volume tie.or.space.connect
      series empty$
'skip$
{ " of " * series emphasize * }
      if$
      "volume and number" number either.or.check
    }
  if$
}

FUNCTION {format.number.series}
{ volume empty$
    { number empty$
{ series field.or.null }
        { series empty$
    { "there's a number but no series in " cite$ * warning$ }
    { series " " * number * "; " * }
  if$
}
      if$
    }
    { "" }
  if$
}

FUNCTION {format.edition}
{ edition empty$
    { "" }
    { edition " ed.;" * }
  if$
}

INTEGERS { multiresult }

FUNCTION {multi.page.check}
{ 't :=
  #0 'multiresult :=
    { multiresult not
      t empty$ not
      and
    }
    { t #1 #1 substring$
      duplicate$ "-" =
      swap$ duplicate$ "," =
      swap$ "+" =
      or or
{ #1 'multiresult := }
{ t #2 global.max$ substring$ 't := }
      if$
    }
  while$
  multiresult
}

FUNCTION {format.pages}
{ pages empty$
    { "" }
    { pages multi.page.check
{ "pages" pages n.dashify tie.or.space.connect }
{ "page" pages tie.or.space.connect }
      if$
    }
  if$
}

FUNCTION {format.pages.a}
{ pages empty$
    { "" }
    { "page" pages tie.or.space.connect }
  if$
}

FUNCTION {format.yr.vol.pages}
{ year field.or.null emboldenc
  " " swap$ * *
  volume field.or.null slantc
  " " swap$ * *
  pages empty$
    'skip$
    { duplicate$ empty$
{ pop$ format.pages.a }
{ " " * pages * }
      if$
    }
  if$
}

FUNCTION {format.chapter.pages}
{ chapter empty$
    'format.pages
    { type empty$
{ "Chapter" }
{ type "l" change.case$ }
      if$
      chapter tie.or.space.connect
      pages empty$
'skip$
{ ", " * format.pages * }
      if$
    }
  if$
}

FUNCTION {empty.misc.check}
{ author empty$ title empty$ howpublished empty$
  month empty$ year empty$ note empty$
  and and and and and
    { "all relevant fields are empty in " cite$ * warning$ }
    'skip$
  if$
}

FUNCTION {format.thesis}
{ type empty$
    {"Thesis,"}
    {type " thesis," * }
  if$
}

FUNCTION {format.article.crossref}
{ key empty$
    { journal empty$
{ "need key or journal for " cite$ * " to crossref " * crossref *
  warning$
  ""
}
{ "In " journal * }
      if$
    }
    { "In " key * }
  if$
  " \cite{" * crossref * "}" *
}

FUNCTION {format.crossref.editor}
{ editor #1 "{vv~}{ll}" format.name$
  editor num.names$ duplicate$
  #2 >
    { pop$ " et~al." * }
    { #2 <
'skip$
{ editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
    { " et~al." * }
    { " and " * editor #2 "{vv~}{ll}" format.name$ * }
  if$
}
      if$
    }
  if$
}

FUNCTION {format.book.crossref}
{ volume empty$
    { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
      "In "
    }
    { "Volume" volume tie.or.space.connect
      " of " *
    }
  if$
  editor empty$
  editor field.or.null author field.or.null =
  or
    { key empty$
{ series empty$
    { "need editor, key, or series for " cite$ * " to crossref " *
      crossref * warning$
      "" *
    }
    { "\textit{" * series * "}" * }
  if$
}
{ key * }
      if$
    }
    { format.crossref.editor * }
  if$
  " \cite{" * crossref * "}" *
}

FUNCTION {format.incoll.inproc.crossref}
{ editor empty$
  editor field.or.null author field.or.null =
  or
    { key empty$
{ booktitle empty$
    { "need editor, key, or booktitle for " cite$ * " to crossref " *
      crossref * warning$
      ""
    }
    { "In \textit{" booktitle * ",}" * }
  if$
}
{ "In " key * }
      if$
    }
    { "In " format.crossref.editor * }
  if$
  " \cite{" * crossref * "}" *
}

FUNCTION {in.book}
  { "In " output
  booktitle emphasize
  volume empty$
    {skip$}
    {", Vol.~" * volume *}
  if$
  edition empty$
    {";" * output}
    {"," * output
     edition " ed.;\" * output}
  if$
  editor missing$
    { skip$ }
    { format.editors output }
  if$
  format.number.series output
  new.sentence
  publisher ":" * "publisher" output.check
  address "," * "address" output.check
}

FUNCTION {book.vol.ed}
{ "" volume empty$
    {skip$}
    {" Vol.~" * volume *}
  if$
  edition empty$
    {";" * output}
    {"," * output
     edition " ed.;\" * output}
  if$
}

FUNCTION {thesis.affilation}
{ school "," * "school" output.check
  institution empty$
    'skip$
    {institution "," * output}
  if$
}

FUNCTION {article}
{ output.bibitem
  format.authors "author" output.check
  crossref missing$
    { journal field.or.null emphasize
      format.yr.vol.pages
      output
    }
    { format.article.crossref output.nonnull
      format.pages output
    }
  if$
  note output
  fin.entry
}

FUNCTION {submitted}
{ output.bibitem
  format.authors "author" output.check
  new.block
  "submitted for publication in" output
  note empty$
  { journal emphasize "journal" output.check }
  { journal emphasizec "journal" output.check
    note output }
  if$
  fin.entry
}

FUNCTION {inpress}
{ output.bibitem
  format.authors "author" output.check
  journal emphasizec "journal" output.check
  "in press" output
  note output
  fin.entry
}

FUNCTION {book}
{ output.bibitem
  author empty$
    { format.editors "author and editor" output.check }
    { format.authors output.nonnull
      crossref missing$
{ "author and editor" editor either.or.check }
'skip$
      if$
    }
  if$
  booktitle empty$
    { title emphasizesc output }
    { booktitle emphasizesc output }
  if$
  crossref missing$
    { format.bvolume output
      format.number.series output
      new.sentence
      publisher ":" * "publisher" output.check
      address "," * "address" output.check
    }
    { format.book.crossref output.nonnull }
  if$
  format.edition output
  format.date "year" output.check
  note output
  fin.entry
}

FUNCTION {booklet}
{ output.bibitem
  format.authors "author" output.check
  " ``" title * "'',  " * "title" output.check
  howpublished empty$
    { skip$ }
    { howpublished "," * output}
  if$
  address empty$
    { skip$ }
    { address "," * output}
  if$
  format.date "year" output.check
  note output
  fin.entry
}

FUNCTION {inbook}
{ output.bibitem
  format.authors "author" output.check
  " " title * ".  " * "title" output.check
  in.book
  chapter empty$
    {format.date "year" output.check}
    {year empty$
      { "empty year field in " * cite$ * warning$ }
      { year "; " * output
        format.chapter.pages output }
    if$
    }
  if$
  note output
  fin.entry
}

FUNCTION {incollection}
{ output.bibitem
  format.authors "author" output.check
  " " title * ".  " * "title" output.check
  in.book
  format.date "year" output.check
  note output
  fin.entry
}

FUNCTION {inproceedings}  { inbook }

FUNCTION {conference} { inbook }

FUNCTION {manual}
{ output.bibitem
  author empty$
    { organization empty$
'skip$
{ organization ", " * address * output
}
      if$
    }
    { format.authors output.nonnull }
  if$
  "``" title * "'', " * "title" output.check
  author empty$
    { organization empty$
{ address empty$
            'skip$
            { address "," * output }
          if$
}
'skip$
      if$
    }
    { organization empty$
        'skip$
        { organization "," * output
          address empty$
              'skip$
              { address "," * output }
            if$
          }
     if$
    }
  if$
  format.edition output
  format.date output
  note output
  fin.entry
}

FUNCTION {mastersthesis}
{ output.bibitem
  format.authors "author" output.check
  "``" title * "'', " * "title" output.check
  "Master's thesis, " output
  thesis.affilation
  format.date "year" output.check
  note output
  fin.entry
}

FUNCTION {misc}
{ output.bibitem
  format.authors output
  title empty$
    'skip$
    { "``" title * "'', " * output }
  if$
  howpublished empty$
    'skip$
    {howpublished "," * output }
  if$
  format.date output
  note output
  fin.entry
  empty.misc.check
}

FUNCTION {phdthesis}
{ output.bibitem
  format.authors "author" output.check
  title emphasizec "title" output.check
  format.thesis output.nonnull
  thesis.affilation
  format.date "year" output.check
  note output
  fin.entry
}

FUNCTION {proceedings}
{ output.bibitem
  editor empty$
    { organization output }
    { format.editors output.nonnull }
  if$
  booktitle empty$
    { title emphasizec output }
    { booktitle emphasizec output }
  if$
  book.vol.ed
  format.number.series output
  publisher empty$
    { address empty$
        { format.date "year" output.check  }
        { address "," * output
          format.date "year" output.check  }
      if$
      }
    { address empty$
        { publisher "," *  output
          format.date "year" output.check  }
        { publisher ": " * address * "," * output
          format.date "year" output.check  }
      if$
      }
  if$
  note output
  fin.entry
}

FUNCTION {techreport}
{ output.bibitem
  format.authors "author" output.check
  "``" title * "'', " * "title" output.check
  type empty$
    { "Technical Report" }
    'type
  if$
  number empty$
     { ", " * }
     { " " * number * "," * }
  if$
  output.nonnull
  institution "," * "institution" output.check
  address empty$
    { skip$ }
    { address "," * output }
  if$
  format.date "year" output.check
  note output
  fin.entry
}

FUNCTION {unpublished}
{ output.bibitem
  format.authors "author" output.check
  note empty$
    { "Unpublished data" output }
    { year empty$
       { note output }
       { note ", " * year * output }
      if$ }
  if$
  fin.entry
}

FUNCTION {remark}
{ output.bibitem
  note "note" output.check
  fin.entry
}

FUNCTION {default.type} { misc }

MACRO {jan} {"Jan."}
MACRO {feb} {"Feb."}
MACRO {mar} {"Mar."}
MACRO {apr} {"Apr."}
MACRO {may} {"May"}
MACRO {jun} {"June"}
MACRO {jul} {"July"}
MACRO {aug} {"Aug."}
MACRO {sep} {"Sept."}
MACRO {oct} {"Oct."}
MACRO {nov} {"Nov."}
MACRO {dec} {"Dec."}

MACRO {acchemr} {"Acc.\ Chem.\ Res."}
MACRO {aacsa} {"Adv.\ {ACS} Abstr."}
MACRO {anchem} {"Anal.\ Chem."}
MACRO {bioch} {"Biochemistry"}
MACRO {bicoc} {"Bioconj.\ Chem."}  % ***
MACRO {bitech} {"Biotechnol.\ Progr."}  % ***
MACRO {chemeng} {"Chem.\ Eng.\ News"}
MACRO {chs} {"Chem.\ Health Safety"} % ***
MACRO {crt} {"Chem.\ Res.\ Tox."} % ***
MACRO {chemrev} {"Chem.\ Rev."} % ***
MACRO {cmat} {"Chem.\ Mat."} % ***
MACRO {chemtech} {"{CHEMTECH}"} % ***
MACRO {enfu} {"Energy \&{} Fuels"} % ***
MACRO {envst} {"Environ.\ Sci.\ Technol."}
MACRO {iecf} {"Ind.\ Eng.\ Chem.\ Fundam."}
MACRO {iecpdd} {"Ind.\ Eng.\ Chem.\ Proc.\ Des.\ Dev."}
MACRO {iecprd} {"Ind.\ Eng.\ Chem.\ Prod.\ Res.\ Dev."}
MACRO {iecr} {"Ind.\ Eng.\ Chem.\ Res."} % ***
MACRO {inor} {"Inorg.\ Chem."}
MACRO {jafc} {"J.~Agric.\ Food Chem."}
MACRO {jacs} {"J.~Am.\ Chem.\ Soc."}
MACRO {jced} {"J.~Chem.\ Eng.\ Data"}
MACRO {jcics} {"J.~Chem.\ Inf.\ Comput.\ Sci."}
MACRO {jmc} {"J.~Med.\ Chem."}
MACRO {joc} {"J.~Org.\ Chem."}
MACRO {jps} {"J.~Pharm.\ Sci."}
MACRO {jpcrd} {"J.~Phys.\ Chem.\ Ref.\ Data"} % ***
MACRO {jpc} {"J.~Phys.\ Chem."}
MACRO {lang} {"Langmuir"}
MACRO {macro} {"Macromolecules"}
MACRO {orgmet} {"Organometallics"}

MACRO {jft} {"J.~Chem.\ Soc., Faraday Trans."}
MACRO {jft1} {"J.~Chem.\ Soc., Faraday Trans. 1"}
MACRO {jft2} {"J.~Chem.\ Soc., Faraday Trans. 2"}
MACRO {tfs} {"Trans.\ Faraday Soc."}
MACRO {jcis} {"J.~Colloid Interface Sci."}
MACRO {acis} {"Adv.~Colloid Interface Sci."}
MACRO {cs} {"Colloids Surf."}
MACRO {csa} {"Colloids Surf.\ A:\ Physicochem.\ Eng.\ Apects"}
MACRO {csb} {"Colloids Surf.\ B:\ Biointerfaces"}
MACRO {pcps} {"Progr.\ Colloid Polym.\ Sci."}
MACRO {jmr} {"J.~Magn.\ Reson."}
MACRO {jmra} {"J.~Magn.\ Reson.\ A"}
MACRO {jmrb} {"J.~Magn.\ Reson.\ B"}
MACRO {sci} {"Science"}
MACRO {nat} {"Nature (London)"}
MACRO {jcch} {"J.~Comput.\ Chem."}
MACRO {cca} {"Croat.\ Chem.\ Acta"}

MACRO {poly} {"Polymer"}
MACRO {ajp} {"Am.\ J.\ Phys."}
MACRO {rsi} {"Rev.\ Sci.\ Instrum."}
MACRO {jcp} {"J.~Chem.\ Phys."}
MACRO {cpl} {"Chem.\ Phys.\ Lett."}
MACRO {molph} {"Mol.\ Phys."}
MACRO {pac} {"Pure Appl.\ Chem."}
MACRO {jbc} {"J.~Biol.\ Chem."}
MACRO {tl} {"Tetrahedron Lett.\"}
MACRO {psisoe} {"Proc.\ SPIE-Int.\ Soc.\ Opt.\ Eng."}
MACRO {prb} {"Phys.\ Rev.\ B:\ Condens.\ Matter"}
MACRO {jap} {"J.~Appl.\ Phys."}
MACRO {pnac} {"Proc.\ Natl.\ Acad.\ Sci.\ U.~S.~A. "}
MACRO {bba} {"Biochim.\ Biophys.\ Acta"}
MACRO {nar} {"Nucleic.\ Acid Res."}

READ

STRINGS { longest.label }

INTEGERS { number.label longest.label.width }

FUNCTION {initialize.longest.label}
{ "" 'longest.label :=
  #1 'number.label :=
  #0 'longest.label.width :=
}

FUNCTION {longest.label.pass}
{ number.label int.to.str$ 'label :=
  number.label #1 + 'number.label :=
  label width$ longest.label.width >
    { label 'longest.label :=
      label width$ 'longest.label.width :=
    }
    'skip$
  if$
}

EXECUTE {initialize.longest.label}

ITERATE {longest.label.pass}

FUNCTION {begin.bib}
{ preamble$ empty$
    'skip$
    { preamble$ write$ newline$ }
  if$
  "\providecommand{\refin}[1]{\\ \textbf{Referenced in:} #1}"
  write$ newline$
  "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
}

EXECUTE {begin.bib}

EXECUTE {init.state.consts}

ITERATE {call.type$}

FUNCTION {end.bib}
{ newline$
  "\end{thebibliography}" write$ newline$
}

EXECUTE {end.bib}

%% 
%% End of file `achemso.bst'.
Revision:	1121
Committed:	Mon Apr 19 21:00:24 2004 UTC (20 years, 2 months ago) by mmeineke
File size:	17456 byte(s)
Log Message:	Just copied over the changes from the dissertation. Also converted the figures to pdf. All revisions now take place on the oopsePaper.tex file
#	Content
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'.