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, 3 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
#	User	Rev	Content
1	mmeineke	1121	%%
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'.