achemso 3.0a (26aug08)

git-svn-id: svn://tug.org/texlive/trunk@10476 c570f23f-e606-0410-a88d-b1316a301751

13 files changed, 616 insertions, 13545 deletions

diff --git a/Master/texmf-dist/bibtex/bib/achemso/achemso.bib b/Master/texmf-dist/bibtex/bib/achemso/achemso.bib
deleted file mode 100644
index 3d9ebe1747e..00000000000
--- a/Master/texmf-dist/bibtex/bib/achemso/achemso.bib
+++ /dev/null
@@ -1,14 +0,0 @@
-@BOOK{Coghill2006,
-  title = {{T}he {ACS} {S}tyle {G}uide},
-  publisher = {{O}xford {U}niversity {P}ress, {I}nc. and
-               {T}he {A}merican {C}hemical {S}ociety},
-  year = {2006},
-  editor = {Coghill, Anne M. and Garson, Lorrin R.},
-  address = {{N}ew {Y}ork},
-  edition = {3},
-  subtitle = {{E}ffective {C}ommunication of {S}cientific {I}nformation},
-}
-
-@MISC{ACS2007,
-  url = {http://pubs.acs.org/books/references.shtml},
-}
diff --git a/Master/texmf-dist/bibtex/bst/achemso/achemlnt.bst b/Master/texmf-dist/bibtex/bst/achemso/achemlnt.bst
deleted file mode 100644
index 46170691647..00000000000
--- a/Master/texmf-dist/bibtex/bst/achemso/achemlnt.bst
+++ /dev/null
@@ -1,1416 +0,0 @@
-%%
-%% This is file `achemlnt.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,list,nat')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    annotate
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    key
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  {
-  label
-    extra.label
-    short.list
-  }
-
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
-INTEGERS { separate.by.semicolon }
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.item :=
-}
-
-FUNCTION {add.comma}
-{ ", " * }
-
-FUNCTION {add.semicolon}
-{ "; " * }
-
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
-FUNCTION {add.colon}
-{ ": " * }
-
-STRINGS { s t }
-
-FUNCTION {output.nonnull}
-{ 's :=
-  output.state mid.sentence =
-    { add.comma write$ }
-    { output.state after.block =
-      { add.semicolon write$
-        newline$
-        "\newblock " write$
-      }
-      { output.state before.all =
-          'write$
-          { output.state after.item =
-            { " " * write$ }
-            { add.period$ " " * write$ }
-          if$
-          }
-        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 {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.note}
-{ annotate empty$
-    'skip$
-    { new.block
-      "{\footnotesize " annotate * "}" * output }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.note
-  add.period$
-  write$
-  newline$
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\emph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {boldface}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\textbf{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {paren}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "(" swap$ * ")" * }
-  if$
-}
-
-FUNCTION {bbl.and}
-{ "and" }
-
-FUNCTION {bbl.chapter}
-{ "Chapter" }
-
-FUNCTION {bbl.editor}
-{ "Ed." }
-
-FUNCTION {bbl.editors}
-{ "Eds." }
-
-FUNCTION {bbl.edition}
-{ "ed." }
-
-FUNCTION {bbl.etal}
-{ "et~al." }
-
-FUNCTION {bbl.in}
-{ "In" }
-
-FUNCTION {bbl.inpress}
-{ "in press" }
-
-FUNCTION {bbl.msc}
-{ "M.Sc.\ thesis" }
-
-FUNCTION {bbl.page}
-{ "p" }
-
-FUNCTION {bbl.pages}
-{ "pp" }
-
-FUNCTION {bbl.phd}
-{ "Ph.D.\ thesis" }
-
-FUNCTION {bbl.submitted}
-{ "submitted for publication" }
-
-FUNCTION {bbl.techreport}
-{ "Technical Report" }
-
-FUNCTION {bbl.version}
-{ "version" }
-
-FUNCTION {bbl.volume}
-{ "Vol." }
-
-FUNCTION {bbl.first}
-{ "1st" }
-
-FUNCTION {bbl.second}
-{ "2nd" }
-
-FUNCTION {bbl.third}
-{ "3rd" }
-
-FUNCTION {bbl.fourth}
-{ "4th" }
-
-FUNCTION {bbl.fifth}
-{ "5th" }
-
-FUNCTION {bbl.st}
-{ "st" }
-
-FUNCTION {bbl.nd}
-{ "nd" }
-
-FUNCTION {bbl.rd}
-{ "rd" }
-
-FUNCTION {bbl.th}
-{ "th" }
-
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-
-FUNCTION{is.a.digit}
-{ duplicate$ "" =
-    {pop$ #0}
-    {chr.to.int$ #48 - duplicate$
-     #0 < swap$ #9 > or not}
-  if$
-}
-
-FUNCTION{is.a.number}
-{
-  { duplicate$ #1 #1 substring$ is.a.digit }
-    {#2 global.max$ substring$}
-  while$
-  "" =
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.a.number
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    { pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {convert.edition}
-{ extract.num "l" change.case$ 's :=
-  s "first" = s "1" = or
-    { bbl.first 't := }
-    { s "second" = s "2" = or
-        { bbl.second 't := }
-        { s "third" = s "3" = or
-            { bbl.third 't := }
-            { s "fourth" = s "4" = or
-                { bbl.fourth 't := }
-                { s "fifth" = s "5" = or
-                    { bbl.fifth 't := }
-                    { s #1 #1 substring$ is.a.number
-                        { s eng.ord 't := }
-                        { edition 't := }
-                      if$
-                    }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-    }
-  if$
-  t
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {space.connect}
-{ " " swap$ * * }
-
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-  numnames #15 >
-    { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-      t bbl.etal space.connect
-    }
-    {
-       { namesleft #0 > }
-       { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-           nameptr #1 >
-             { namesleft #1 >
-               { add.comma.or.semicolon t * }
-               { numnames #2 >
-                 { "" * }
-                 'skip$
-               if$
-               t "others," =
-                 { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
-               if$
-               }
-             if$
-             }
-           't
-         if$
-         nameptr #1 + 'nameptr :=
-         namesleft #1 - 'namesleft :=
-         }
-     while$
-  }
-  if$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
-      author format.names
-    }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { "" }
-    { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
-      editor format.names
-      add.comma
-      editor num.names$ #1 >
-        { bbl.editors }
-        { bbl.editor }
-      if$
-      *
-    }
-  if$
-}
-
-FUNCTION {n.separate.multi}
-{ 't :=
-  ""
-  #0 'numnames :=
-  t text.length$ #4 > t is.a.number and
-    {
-      { t empty$ not }
-      { t #-1 #1 substring$ is.a.number
-          { numnames #1 + 'numnames := }
-          { #0 'numnames := }
-        if$
-        t #-1 #1 substring$ swap$ *
-        t #-2 global.max$ substring$ 't :=
-        numnames #4 =
-          { duplicate$ #1 #1 substring$ swap$
-            #2 global.max$ substring$
-            "," swap$ * *
-            #1 'numnames :=
-          }
-          'skip$
-        if$
-      }
-      while$
-    }
-    { t swap$ * }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.volume volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.title.noemph}
-{ 't :=
-  t empty$
-    { "" }
-    { t }
-  if$
-}
-
-FUNCTION {format.title}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-       { series field.or.null }
-       { series empty$
-         { "There is a number but no series in " cite$ * warning$ }
-         { series number space.connect }
-       if$
-       }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.sentence "\url{" url * "}" * }
-  if$
-}
-
-FUNCTION {format.full.names}
-{'s :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{vv~}{ll}" format.name$ 't :=
-      nameptr #1 >
-        {
-          namesleft #1 >
-            { ", " * t * }
-            {
-              numnames #2 >
-                { "," * }
-                'skip$
-              if$
-              t "others" =
-                { bbl.etal * }
-                { bbl.and space.connect t space.connect }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {author.editor.full}
-{ author empty$
-    { editor empty$
-        { "" }
-        { editor format.full.names }
-      if$
-    }
-    { author format.full.names }
-  if$
-}
-
-FUNCTION {author.full}
-{ author empty$
-    { "" }
-    { author format.full.names }
-  if$
-}
-
-FUNCTION {editor.full}
-{ editor empty$
-    { "" }
-    { editor format.full.names }
-  if$
-}
-
-FUNCTION {make.full.names}
-{ type$ "book" =
-  type$ "inbook" =
-  or
-    'author.editor.full
-    { type$ "proceedings" =
-        'editor.full
-        'author.full
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.bibitem} { newline$
-  "\bibitem[" write$
-  label write$
-  ")" make.full.names duplicate$ short.list =
-     { pop$ }
-     { * }
-   if$
-  "]{" * write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
-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 boldface }
-  if$
-}
-
-FUNCTION {format.bdate}
-{ year empty$
-    { "There's no year in " cite$ * warning$ }
-    'year
-  if$
-}
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$
-    'skip$
-    { convert.edition
-      bbl.edition bibinfo.check
-      " " * bbl.edition *
-    }
-  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
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.required}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.nopp}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { pages n.dashify space.connect }
-      { pages space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.patent}
-{ pages empty$
-    { "There is no patent number for " cite$ * warning$ }
-    { pages multi.page.check
-      { pages n.dashify }
-      { pages n.separate.multi }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.pages}
-{ volume emphasize field.or.null
-  duplicate$ empty$
-    { pop$ format.pages.required }
-    { add.comma pages n.dashify * }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-    { bbl.chapter }
-    { type "l" change.case$ }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-    'skip$
-    { add.comma format.pages * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.title.in}
-{ 's :=
-  s empty$
-    { "" }
-    { editor empty$
-      { bbl.in s format.title space.connect }
-      { bbl.in s format.title space.connect
-        add.semicolon format.editors *
-      }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pub.address}
-{ publisher empty$
-    { "" }
-    { address empty$
-        { publisher }
-        { publisher add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.school.address}
-{ school empty$
-    { "" }
-    { address empty$
-        { school }
-        { school add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.organization.address}
-{ organization empty$
-    { "" }
-    { address empty$
-        { organization }
-        { organization add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.version}
-{ edition empty$
-    { "" }
-    { bbl.version edition tie.or.space.connect }
-  if$
-}
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  year empty$ note empty$ url empty$
-  and and and and and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {empty.doi.note}
-{ doi empty$ note empty$ and
-    { "Need either a note or DOI for " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type emphasize
-    }
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  after.item 'output.state :=
-  format.date "year" output.check
-  volume empty$
-    { ""
-      format.pages.nopp output
-    }
-    { format.vol.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author empty$
-    { booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-      new.block
-      editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      "author and editor" editor either.or.check
-      booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  pages empty$
-    'skip$
-    { format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  howpublished output
-  address output
-  format.date output
-  note output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author empty$
-    { title format.title "title" output.check
-      format.edition output
-      new.block
-      editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
-      { "" format.editors * "editor" output.check }
-    if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title format.title.in "title" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author empty$
-    { booktitle format.title "booktitle" output.check
-      format.edition output
-      new.block
-      editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title empty$
-        'skip$
-        { title format.title.noemph output }
-      if$
-      after.sentence 'output.state :=
-      booktitle format.title.in "booktitle" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {inpress}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  doi empty$
-    {  bbl.inpress output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title.noemph output
-      after.sentence 'output.state :=
-    }
-  if$
-  booktitle format.title output
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {manual}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  format.version output
-  new.block
-  format.organization.address output
-  format.bdate output
-  note output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.msc format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url output
-  note output
-  fin.entry
-  empty.misc.check
-}
-
-FUNCTION {patent}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal "journal" output.check
-  after.item 'output.state :=
-  format.pages.patent "pages" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.phd format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  title format.title.noemph "title" output.check
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title "title" output.check
-  new.block
-  type empty$
-    'bbl.techreport
-    'type
-  if$
-  number empty$
-    'skip$
-    { number tie.or.space.connect }
-  if$
-  output
-  format.pub.address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal empty$
-    'skip$
-    { journal emphasize "journal" output.check }
-  if$
-  doi empty$
-    {  note output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  fin.entry
-  empty.doi.note
-}
-
-FUNCTION {conference} {inproceedings}
-
-FUNCTION {other} {patent}
-
-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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-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
-
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
-}
-
-FUNCTION {format.lab.names}
-{ 's :=
-  s #1 "{vv~}{ll}" format.name$
-  s num.names$ duplicate$
-  #2 >
-    { pop$ bbl.etal space.connect }
-    { #2 <
-        'skip$
-        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
-            { bbl.etal space.connect }
-            { bbl.and space.connect s #2 "{vv~}{ll}" format.name$ space.connect }
-          if$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {author.key.label}
-{ author empty$
-    { key empty$
-        { cite$ #1 #3 substring$ }
-        'key
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {author.editor.key.label}
-{ author empty$
-    { editor empty$
-        { key empty$
-            { cite$ #1 #3 substring$ }
-            'key
-          if$
-        }
-        { editor format.lab.names }
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {author.key.organization.label}
-{ author empty$
-    { key empty$
-        { organization empty$
-            { cite$ #1 #3 substring$ }
-            { "The " #4 organization chop.word #3 text.prefix$ }
-          if$
-        }
-        'key
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {editor.key.organization.label}
-{ editor empty$
-    { key empty$
-        { organization empty$
-            { cite$ #1 #3 substring$ }
-            { "The " #4 organization chop.word #3 text.prefix$ }
-          if$
-        }
-        'key
-      if$
-    }
-    { editor format.lab.names }
-  if$
-}
-
-FUNCTION {calc.short.authors}
-{ type$ "book" =
-  type$ "inbook" =
-  or
-    'author.editor.key.label
-    { type$ "proceedings" =
-        'editor.key.organization.label
-        { type$ "manual" =
-            'author.key.organization.label
-            'author.key.label
-          if$
-        }
-      if$
-    }
-  if$
-  'short.list :=
-}
-
-FUNCTION {calc.label}
-{ calc.short.authors
-  short.list
-  "("
-  *
-  year duplicate$ empty$
-  short.list key field.or.null = or
-     { pop$ "" }
-     'skip$
-  if$
-  *
-  'label :=
-}
-
-ITERATE {calc.label}
-
-STRINGS { longest.label last.label next.extra }
-
-INTEGERS { longest.label.width last.extra.num number.label }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #0 int.to.chr$ 'last.label :=
-  "" 'next.extra :=
-  #0 'longest.label.width :=
-  #0 'last.extra.num :=
-  #0 'number.label :=
-}
-
-FUNCTION {forward.pass}
-{ last.label label =
-    { last.extra.num #1 + 'last.extra.num :=
-      last.extra.num int.to.chr$ 'extra.label :=
-    }
-    { "a" chr.to.int$ 'last.extra.num :=
-      "" 'extra.label :=
-      label 'last.label :=
-    }
-  if$
-  number.label #1 + 'number.label :=
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {forward.pass}
-
-
-FUNCTION {begin.bib}
-{ preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-  "\providecommand{\url}[1]{\texttt{#1}}"
-  write$ newline$
-  "\providecommand{\refin}[1]{\\ \textbf{Referenced in:} #1}"
-  write$ newline$
-  "\providecommand{\natexlab}[1]{#1}"
-  write$ newline$
-  "\begin{thebibliography}{" number.label int.to.str$ * "}" *
-  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 `achemlnt.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/achemlntM.bst b/Master/texmf-dist/bibtex/bst/achemso/achemlntM.bst
deleted file mode 100644
index 01eec2cac13..00000000000
--- a/Master/texmf-dist/bibtex/bst/achemso/achemlntM.bst
+++ /dev/null
@@ -1,1453 +0,0 @@
-%%
-%% This is file `achemlntM.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,list,nat,mcp')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    annotate
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    key
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  {
-  label
-    extra.label
-    short.list
-  }
-
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
-INTEGERS { separate.by.semicolon }
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.item :=
-}
-
-FUNCTION {add.comma}
-{ ", " * }
-
-FUNCTION {add.semicolon}
-{ "; " * }
-
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
-FUNCTION {add.colon}
-{ ": " * }
-
-STRINGS { s t }
-
-FUNCTION {output.nonnull}
-{ 's :=
-  output.state mid.sentence =
-    { add.comma write$ }
-    { output.state after.block =
-      { add.semicolon write$
-        newline$
-        "\newblock " write$
-      }
-      { output.state before.all =
-          'write$
-          { output.state after.item =
-            { " " * write$ }
-            { add.period$ " " * write$ }
-          if$
-          }
-        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 {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.note}
-{ annotate empty$
-    'skip$
-    { new.block
-      "{\footnotesize " annotate * "}" * output }
-  if$
-}
-
-INTEGERS {would.add.period.textlen}
-FUNCTION {would.add.period}
-{ duplicate$
-  add.period$
-  text.length$
-  'would.add.period.textlen :=
-  duplicate$
-  text.length$
-  would.add.period.textlen =
-    { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ would.add.period
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPuncttrue" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
-    }
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPunctfalse" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{}{\mcitedefaultseppunct}\relax"
-    }
-  if$
-  write$
-  newline$
-  "\EndOfBibitem" write$
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\emph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {boldface}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\textbf{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {paren}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "(" swap$ * ")" * }
-  if$
-}
-
-FUNCTION {bbl.and}
-{ "and" }
-
-FUNCTION {bbl.chapter}
-{ "Chapter" }
-
-FUNCTION {bbl.editor}
-{ "Ed." }
-
-FUNCTION {bbl.editors}
-{ "Eds." }
-
-FUNCTION {bbl.edition}
-{ "ed." }
-
-FUNCTION {bbl.etal}
-{ "et~al." }
-
-FUNCTION {bbl.in}
-{ "In" }
-
-FUNCTION {bbl.inpress}
-{ "in press" }
-
-FUNCTION {bbl.msc}
-{ "M.Sc.\ thesis" }
-
-FUNCTION {bbl.page}
-{ "p" }
-
-FUNCTION {bbl.pages}
-{ "pp" }
-
-FUNCTION {bbl.phd}
-{ "Ph.D.\ thesis" }
-
-FUNCTION {bbl.submitted}
-{ "submitted for publication" }
-
-FUNCTION {bbl.techreport}
-{ "Technical Report" }
-
-FUNCTION {bbl.version}
-{ "version" }
-
-FUNCTION {bbl.volume}
-{ "Vol." }
-
-FUNCTION {bbl.first}
-{ "1st" }
-
-FUNCTION {bbl.second}
-{ "2nd" }
-
-FUNCTION {bbl.third}
-{ "3rd" }
-
-FUNCTION {bbl.fourth}
-{ "4th" }
-
-FUNCTION {bbl.fifth}
-{ "5th" }
-
-FUNCTION {bbl.st}
-{ "st" }
-
-FUNCTION {bbl.nd}
-{ "nd" }
-
-FUNCTION {bbl.rd}
-{ "rd" }
-
-FUNCTION {bbl.th}
-{ "th" }
-
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-
-FUNCTION{is.a.digit}
-{ duplicate$ "" =
-    {pop$ #0}
-    {chr.to.int$ #48 - duplicate$
-     #0 < swap$ #9 > or not}
-  if$
-}
-
-FUNCTION{is.a.number}
-{
-  { duplicate$ #1 #1 substring$ is.a.digit }
-    {#2 global.max$ substring$}
-  while$
-  "" =
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.a.number
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    { pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {convert.edition}
-{ extract.num "l" change.case$ 's :=
-  s "first" = s "1" = or
-    { bbl.first 't := }
-    { s "second" = s "2" = or
-        { bbl.second 't := }
-        { s "third" = s "3" = or
-            { bbl.third 't := }
-            { s "fourth" = s "4" = or
-                { bbl.fourth 't := }
-                { s "fifth" = s "5" = or
-                    { bbl.fifth 't := }
-                    { s #1 #1 substring$ is.a.number
-                        { s eng.ord 't := }
-                        { edition 't := }
-                      if$
-                    }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-    }
-  if$
-  t
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {space.connect}
-{ " " swap$ * * }
-
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-  numnames #15 >
-    { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-      t bbl.etal space.connect
-    }
-    {
-       { namesleft #0 > }
-       { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-           nameptr #1 >
-             { namesleft #1 >
-               { add.comma.or.semicolon t * }
-               { numnames #2 >
-                 { "" * }
-                 'skip$
-               if$
-               t "others," =
-                 { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
-               if$
-               }
-             if$
-             }
-           't
-         if$
-         nameptr #1 + 'nameptr :=
-         namesleft #1 - 'namesleft :=
-         }
-     while$
-  }
-  if$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
-      author format.names
-    }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { "" }
-    { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
-      editor format.names
-      add.comma
-      editor num.names$ #1 >
-        { bbl.editors }
-        { bbl.editor }
-      if$
-      *
-    }
-  if$
-}
-
-FUNCTION {n.separate.multi}
-{ 't :=
-  ""
-  #0 'numnames :=
-  t text.length$ #4 > t is.a.number and
-    {
-      { t empty$ not }
-      { t #-1 #1 substring$ is.a.number
-          { numnames #1 + 'numnames := }
-          { #0 'numnames := }
-        if$
-        t #-1 #1 substring$ swap$ *
-        t #-2 global.max$ substring$ 't :=
-        numnames #4 =
-          { duplicate$ #1 #1 substring$ swap$
-            #2 global.max$ substring$
-            "," swap$ * *
-            #1 'numnames :=
-          }
-          'skip$
-        if$
-      }
-      while$
-    }
-    { t swap$ * }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.volume volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.title.noemph}
-{ 't :=
-  t empty$
-    { "" }
-    { t }
-  if$
-}
-
-FUNCTION {format.title}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-       { series field.or.null }
-       { series empty$
-         { "There is a number but no series in " cite$ * warning$ }
-         { series number space.connect }
-       if$
-       }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.sentence "\url{" url * "}" * }
-  if$
-}
-
-FUNCTION {format.full.names}
-{'s :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{vv~}{ll}" format.name$ 't :=
-      nameptr #1 >
-        {
-          namesleft #1 >
-            { ", " * t * }
-            {
-              numnames #2 >
-                { "," * }
-                'skip$
-              if$
-              t "others" =
-                { bbl.etal * }
-                { bbl.and space.connect t space.connect }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {author.editor.full}
-{ author empty$
-    { editor empty$
-        { "" }
-        { editor format.full.names }
-      if$
-    }
-    { author format.full.names }
-  if$
-}
-
-FUNCTION {author.full}
-{ author empty$
-    { "" }
-    { author format.full.names }
-  if$
-}
-
-FUNCTION {editor.full}
-{ editor empty$
-    { "" }
-    { editor format.full.names }
-  if$
-}
-
-FUNCTION {make.full.names}
-{ type$ "book" =
-  type$ "inbook" =
-  or
-    'author.editor.full
-    { type$ "proceedings" =
-        'editor.full
-        'author.full
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.bibitem} { newline$
-  "\bibitem[" write$
-  label write$
-  ")" make.full.names duplicate$ short.list =
-     { pop$ }
-     { * }
-   if$
-  "]{" * write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
-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 boldface }
-  if$
-}
-
-FUNCTION {format.bdate}
-{ year empty$
-    { "There's no year in " cite$ * warning$ }
-    'year
-  if$
-}
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$
-    'skip$
-    { convert.edition
-      bbl.edition bibinfo.check
-      " " * bbl.edition *
-    }
-  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
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.required}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.nopp}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { pages n.dashify space.connect }
-      { pages space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.patent}
-{ pages empty$
-    { "There is no patent number for " cite$ * warning$ }
-    { pages multi.page.check
-      { pages n.dashify }
-      { pages n.separate.multi }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.pages}
-{ volume emphasize field.or.null
-  duplicate$ empty$
-    { pop$ format.pages.required }
-    { add.comma pages n.dashify * }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-    { bbl.chapter }
-    { type "l" change.case$ }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-    'skip$
-    { add.comma format.pages * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.title.in}
-{ 's :=
-  s empty$
-    { "" }
-    { editor empty$
-      { bbl.in s format.title space.connect }
-      { bbl.in s format.title space.connect
-        add.semicolon format.editors *
-      }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pub.address}
-{ publisher empty$
-    { "" }
-    { address empty$
-        { publisher }
-        { publisher add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.school.address}
-{ school empty$
-    { "" }
-    { address empty$
-        { school }
-        { school add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.organization.address}
-{ organization empty$
-    { "" }
-    { address empty$
-        { organization }
-        { organization add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.version}
-{ edition empty$
-    { "" }
-    { bbl.version edition tie.or.space.connect }
-  if$
-}
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  year empty$ note empty$ url empty$
-  and and and and and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {empty.doi.note}
-{ doi empty$ note empty$ and
-    { "Need either a note or DOI for " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type emphasize
-    }
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  after.item 'output.state :=
-  format.date "year" output.check
-  volume empty$
-    { ""
-      format.pages.nopp output
-    }
-    { format.vol.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author empty$
-    { booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-      new.block
-      editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      "author and editor" editor either.or.check
-      booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  pages empty$
-    'skip$
-    { format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  howpublished output
-  address output
-  format.date output
-  note output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author empty$
-    { title format.title "title" output.check
-      format.edition output
-      new.block
-      editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
-      { "" format.editors * "editor" output.check }
-    if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title format.title.in "title" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author empty$
-    { booktitle format.title "booktitle" output.check
-      format.edition output
-      new.block
-      editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title empty$
-        'skip$
-        { title format.title.noemph output }
-      if$
-      after.sentence 'output.state :=
-      booktitle format.title.in "booktitle" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {inpress}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  doi empty$
-    {  bbl.inpress output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title.noemph output
-      after.sentence 'output.state :=
-    }
-  if$
-  booktitle format.title output
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {manual}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  format.version output
-  new.block
-  format.organization.address output
-  format.bdate output
-  note output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.msc format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url output
-  note output
-  fin.entry
-  empty.misc.check
-}
-
-FUNCTION {patent}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal "journal" output.check
-  after.item 'output.state :=
-  format.pages.patent "pages" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.phd format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  title format.title.noemph "title" output.check
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title "title" output.check
-  new.block
-  type empty$
-    'bbl.techreport
-    'type
-  if$
-  number empty$
-    'skip$
-    { number tie.or.space.connect }
-  if$
-  output
-  format.pub.address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal empty$
-    'skip$
-    { journal emphasize "journal" output.check }
-  if$
-  doi empty$
-    {  note output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  fin.entry
-  empty.doi.note
-}
-
-FUNCTION {conference} {inproceedings}
-
-FUNCTION {other} {patent}
-
-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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-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
-
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
-}
-
-FUNCTION {format.lab.names}
-{ 's :=
-  s #1 "{vv~}{ll}" format.name$
-  s num.names$ duplicate$
-  #2 >
-    { pop$ bbl.etal space.connect }
-    { #2 <
-        'skip$
-        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
-            { bbl.etal space.connect }
-            { bbl.and space.connect s #2 "{vv~}{ll}" format.name$ space.connect }
-          if$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {author.key.label}
-{ author empty$
-    { key empty$
-        { cite$ #1 #3 substring$ }
-        'key
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {author.editor.key.label}
-{ author empty$
-    { editor empty$
-        { key empty$
-            { cite$ #1 #3 substring$ }
-            'key
-          if$
-        }
-        { editor format.lab.names }
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {author.key.organization.label}
-{ author empty$
-    { key empty$
-        { organization empty$
-            { cite$ #1 #3 substring$ }
-            { "The " #4 organization chop.word #3 text.prefix$ }
-          if$
-        }
-        'key
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {editor.key.organization.label}
-{ editor empty$
-    { key empty$
-        { organization empty$
-            { cite$ #1 #3 substring$ }
-            { "The " #4 organization chop.word #3 text.prefix$ }
-          if$
-        }
-        'key
-      if$
-    }
-    { editor format.lab.names }
-  if$
-}
-
-FUNCTION {calc.short.authors}
-{ type$ "book" =
-  type$ "inbook" =
-  or
-    'author.editor.key.label
-    { type$ "proceedings" =
-        'editor.key.organization.label
-        { type$ "manual" =
-            'author.key.organization.label
-            'author.key.label
-          if$
-        }
-      if$
-    }
-  if$
-  'short.list :=
-}
-
-FUNCTION {calc.label}
-{ calc.short.authors
-  short.list
-  "("
-  *
-  year duplicate$ empty$
-  short.list key field.or.null = or
-     { pop$ "" }
-     'skip$
-  if$
-  *
-  'label :=
-}
-
-ITERATE {calc.label}
-
-STRINGS { longest.label last.label next.extra }
-
-INTEGERS { longest.label.width last.extra.num number.label }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #0 int.to.chr$ 'last.label :=
-  "" 'next.extra :=
-  #0 'longest.label.width :=
-  #0 'last.extra.num :=
-  #0 'number.label :=
-}
-
-FUNCTION {forward.pass}
-{ last.label label =
-    { last.extra.num #1 + 'last.extra.num :=
-      last.extra.num int.to.chr$ 'extra.label :=
-    }
-    { "a" chr.to.int$ 'last.extra.num :=
-      "" 'extra.label :=
-      label 'last.label :=
-    }
-  if$
-  number.label #1 + 'number.label :=
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {forward.pass}
-
-
-FUNCTION {begin.bib}
-{ preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-  "\ifx\mcitethebibliography\mciteundefinedmacro"
-  write$ newline$
-  "\PackageError{achemsoM.bst}{mciteplus.sty has not been loaded}"
-  write$ newline$
-  "{This bibstyle requires the use of the mciteplus package.}\fi"
-  write$ newline$
-  "\begin{mcitethebibliography}{"  number.label int.to.str$  * "}" *
-  write$ newline$
-  "\providecommand{\natexlab}[1]{#1}"
-  write$ newline$
-  "\mciteSetBstSublistMode{f}"
-  write$ newline$
-  "\mciteSetBstMaxWidthForm{subitem}{(\alph{mcitesubitemcount})}"
-  write$ newline$
-  "\mciteSetBstSublistLabelBeginEnd{\mcitemaxwidthsubitemform\space}"
-  write$ newline$
-  "{\relax}{\relax}"
-  write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcitethebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `achemlntM.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/achemnat.bst b/Master/texmf-dist/bibtex/bst/achemso/achemnat.bst
deleted file mode 100644
index 728369acca0..00000000000
--- a/Master/texmf-dist/bibtex/bst/achemso/achemnat.bst
+++ /dev/null
@@ -1,1406 +0,0 @@
-%%
-%% This is file `achemnat.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,nat')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    key
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  {
-  label
-    extra.label
-    short.list
-  }
-
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
-INTEGERS { separate.by.semicolon }
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.item :=
-}
-
-FUNCTION {add.comma}
-{ ", " * }
-
-FUNCTION {add.semicolon}
-{ "; " * }
-
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
-FUNCTION {add.colon}
-{ ": " * }
-
-STRINGS { s t }
-
-FUNCTION {output.nonnull}
-{ 's :=
-  output.state mid.sentence =
-    { add.comma write$ }
-    { output.state after.block =
-      { add.semicolon write$
-        newline$
-        "\newblock " write$
-      }
-      { output.state before.all =
-          'write$
-          { output.state after.item =
-            { " " * write$ }
-            { add.period$ " " * write$ }
-          if$
-          }
-        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 {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\emph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {boldface}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\textbf{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {paren}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "(" swap$ * ")" * }
-  if$
-}
-
-FUNCTION {bbl.and}
-{ "and" }
-
-FUNCTION {bbl.chapter}
-{ "Chapter" }
-
-FUNCTION {bbl.editor}
-{ "Ed." }
-
-FUNCTION {bbl.editors}
-{ "Eds." }
-
-FUNCTION {bbl.edition}
-{ "ed." }
-
-FUNCTION {bbl.etal}
-{ "et~al." }
-
-FUNCTION {bbl.in}
-{ "In" }
-
-FUNCTION {bbl.inpress}
-{ "in press" }
-
-FUNCTION {bbl.msc}
-{ "M.Sc.\ thesis" }
-
-FUNCTION {bbl.page}
-{ "p" }
-
-FUNCTION {bbl.pages}
-{ "pp" }
-
-FUNCTION {bbl.phd}
-{ "Ph.D.\ thesis" }
-
-FUNCTION {bbl.submitted}
-{ "submitted for publication" }
-
-FUNCTION {bbl.techreport}
-{ "Technical Report" }
-
-FUNCTION {bbl.version}
-{ "version" }
-
-FUNCTION {bbl.volume}
-{ "Vol." }
-
-FUNCTION {bbl.first}
-{ "1st" }
-
-FUNCTION {bbl.second}
-{ "2nd" }
-
-FUNCTION {bbl.third}
-{ "3rd" }
-
-FUNCTION {bbl.fourth}
-{ "4th" }
-
-FUNCTION {bbl.fifth}
-{ "5th" }
-
-FUNCTION {bbl.st}
-{ "st" }
-
-FUNCTION {bbl.nd}
-{ "nd" }
-
-FUNCTION {bbl.rd}
-{ "rd" }
-
-FUNCTION {bbl.th}
-{ "th" }
-
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-
-FUNCTION{is.a.digit}
-{ duplicate$ "" =
-    {pop$ #0}
-    {chr.to.int$ #48 - duplicate$
-     #0 < swap$ #9 > or not}
-  if$
-}
-
-FUNCTION{is.a.number}
-{
-  { duplicate$ #1 #1 substring$ is.a.digit }
-    {#2 global.max$ substring$}
-  while$
-  "" =
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.a.number
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    { pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {convert.edition}
-{ extract.num "l" change.case$ 's :=
-  s "first" = s "1" = or
-    { bbl.first 't := }
-    { s "second" = s "2" = or
-        { bbl.second 't := }
-        { s "third" = s "3" = or
-            { bbl.third 't := }
-            { s "fourth" = s "4" = or
-                { bbl.fourth 't := }
-                { s "fifth" = s "5" = or
-                    { bbl.fifth 't := }
-                    { s #1 #1 substring$ is.a.number
-                        { s eng.ord 't := }
-                        { edition 't := }
-                      if$
-                    }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-    }
-  if$
-  t
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {space.connect}
-{ " " swap$ * * }
-
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-  numnames #15 >
-    { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-      t bbl.etal space.connect
-    }
-    {
-       { namesleft #0 > }
-       { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-           nameptr #1 >
-             { namesleft #1 >
-               { add.comma.or.semicolon t * }
-               { numnames #2 >
-                 { "" * }
-                 'skip$
-               if$
-               t "others," =
-                 { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
-               if$
-               }
-             if$
-             }
-           't
-         if$
-         nameptr #1 + 'nameptr :=
-         namesleft #1 - 'namesleft :=
-         }
-     while$
-  }
-  if$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
-      author format.names
-    }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { "" }
-    { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
-      editor format.names
-      add.comma
-      editor num.names$ #1 >
-        { bbl.editors }
-        { bbl.editor }
-      if$
-      *
-    }
-  if$
-}
-
-FUNCTION {n.separate.multi}
-{ 't :=
-  ""
-  #0 'numnames :=
-  t text.length$ #4 > t is.a.number and
-    {
-      { t empty$ not }
-      { t #-1 #1 substring$ is.a.number
-          { numnames #1 + 'numnames := }
-          { #0 'numnames := }
-        if$
-        t #-1 #1 substring$ swap$ *
-        t #-2 global.max$ substring$ 't :=
-        numnames #4 =
-          { duplicate$ #1 #1 substring$ swap$
-            #2 global.max$ substring$
-            "," swap$ * *
-            #1 'numnames :=
-          }
-          'skip$
-        if$
-      }
-      while$
-    }
-    { t swap$ * }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.volume volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.title.noemph}
-{ 't :=
-  t empty$
-    { "" }
-    { t }
-  if$
-}
-
-FUNCTION {format.title}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-       { series field.or.null }
-       { series empty$
-         { "There is a number but no series in " cite$ * warning$ }
-         { series number space.connect }
-       if$
-       }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.sentence "\url{" url * "}" * }
-  if$
-}
-
-FUNCTION {format.full.names}
-{'s :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{vv~}{ll}" format.name$ 't :=
-      nameptr #1 >
-        {
-          namesleft #1 >
-            { ", " * t * }
-            {
-              numnames #2 >
-                { "," * }
-                'skip$
-              if$
-              t "others" =
-                { bbl.etal * }
-                { bbl.and space.connect t space.connect }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {author.editor.full}
-{ author empty$
-    { editor empty$
-        { "" }
-        { editor format.full.names }
-      if$
-    }
-    { author format.full.names }
-  if$
-}
-
-FUNCTION {author.full}
-{ author empty$
-    { "" }
-    { author format.full.names }
-  if$
-}
-
-FUNCTION {editor.full}
-{ editor empty$
-    { "" }
-    { editor format.full.names }
-  if$
-}
-
-FUNCTION {make.full.names}
-{ type$ "book" =
-  type$ "inbook" =
-  or
-    'author.editor.full
-    { type$ "proceedings" =
-        'editor.full
-        'author.full
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.bibitem} { newline$
-  "\bibitem[" write$
-  label write$
-  ")" make.full.names duplicate$ short.list =
-     { pop$ }
-     { * }
-   if$
-  "]{" * write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
-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 boldface }
-  if$
-}
-
-FUNCTION {format.bdate}
-{ year empty$
-    { "There's no year in " cite$ * warning$ }
-    'year
-  if$
-}
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$
-    'skip$
-    { convert.edition
-      bbl.edition bibinfo.check
-      " " * bbl.edition *
-    }
-  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
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.required}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.nopp}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { pages n.dashify space.connect }
-      { pages space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.patent}
-{ pages empty$
-    { "There is no patent number for " cite$ * warning$ }
-    { pages multi.page.check
-      { pages n.dashify }
-      { pages n.separate.multi }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.pages}
-{ volume emphasize field.or.null
-  duplicate$ empty$
-    { pop$ format.pages.required }
-    { add.comma pages n.dashify * }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-    { bbl.chapter }
-    { type "l" change.case$ }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-    'skip$
-    { add.comma format.pages * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.title.in}
-{ 's :=
-  s empty$
-    { "" }
-    { editor empty$
-      { bbl.in s format.title space.connect }
-      { bbl.in s format.title space.connect
-        add.semicolon format.editors *
-      }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pub.address}
-{ publisher empty$
-    { "" }
-    { address empty$
-        { publisher }
-        { publisher add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.school.address}
-{ school empty$
-    { "" }
-    { address empty$
-        { school }
-        { school add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.organization.address}
-{ organization empty$
-    { "" }
-    { address empty$
-        { organization }
-        { organization add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.version}
-{ edition empty$
-    { "" }
-    { bbl.version edition tie.or.space.connect }
-  if$
-}
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  year empty$ note empty$ url empty$
-  and and and and and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {empty.doi.note}
-{ doi empty$ note empty$ and
-    { "Need either a note or DOI for " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type emphasize
-    }
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  after.item 'output.state :=
-  format.date "year" output.check
-  volume empty$
-    { ""
-      format.pages.nopp output
-    }
-    { format.vol.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author empty$
-    { booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-      new.block
-      editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      "author and editor" editor either.or.check
-      booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  pages empty$
-    'skip$
-    { format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  howpublished output
-  address output
-  format.date output
-  note output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author empty$
-    { title format.title "title" output.check
-      format.edition output
-      new.block
-      editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
-      { "" format.editors * "editor" output.check }
-    if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title format.title.in "title" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author empty$
-    { booktitle format.title "booktitle" output.check
-      format.edition output
-      new.block
-      editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title empty$
-        'skip$
-        { title format.title.noemph output }
-      if$
-      after.sentence 'output.state :=
-      booktitle format.title.in "booktitle" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {inpress}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  doi empty$
-    {  bbl.inpress output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title.noemph output
-      after.sentence 'output.state :=
-    }
-  if$
-  booktitle format.title output
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {manual}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  format.version output
-  new.block
-  format.organization.address output
-  format.bdate output
-  note output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.msc format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url output
-  note output
-  fin.entry
-  empty.misc.check
-}
-
-FUNCTION {patent}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal "journal" output.check
-  after.item 'output.state :=
-  format.pages.patent "pages" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.phd format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  title format.title.noemph "title" output.check
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title "title" output.check
-  new.block
-  type empty$
-    'bbl.techreport
-    'type
-  if$
-  number empty$
-    'skip$
-    { number tie.or.space.connect }
-  if$
-  output
-  format.pub.address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal empty$
-    'skip$
-    { journal emphasize "journal" output.check }
-  if$
-  doi empty$
-    {  note output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  fin.entry
-  empty.doi.note
-}
-
-FUNCTION {conference} {inproceedings}
-
-FUNCTION {other} {patent}
-
-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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-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
-
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
-}
-
-FUNCTION {format.lab.names}
-{ 's :=
-  s #1 "{vv~}{ll}" format.name$
-  s num.names$ duplicate$
-  #2 >
-    { pop$ bbl.etal space.connect }
-    { #2 <
-        'skip$
-        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
-            { bbl.etal space.connect }
-            { bbl.and space.connect s #2 "{vv~}{ll}" format.name$ space.connect }
-          if$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {author.key.label}
-{ author empty$
-    { key empty$
-        { cite$ #1 #3 substring$ }
-        'key
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {author.editor.key.label}
-{ author empty$
-    { editor empty$
-        { key empty$
-            { cite$ #1 #3 substring$ }
-            'key
-          if$
-        }
-        { editor format.lab.names }
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {author.key.organization.label}
-{ author empty$
-    { key empty$
-        { organization empty$
-            { cite$ #1 #3 substring$ }
-            { "The " #4 organization chop.word #3 text.prefix$ }
-          if$
-        }
-        'key
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {editor.key.organization.label}
-{ editor empty$
-    { key empty$
-        { organization empty$
-            { cite$ #1 #3 substring$ }
-            { "The " #4 organization chop.word #3 text.prefix$ }
-          if$
-        }
-        'key
-      if$
-    }
-    { editor format.lab.names }
-  if$
-}
-
-FUNCTION {calc.short.authors}
-{ type$ "book" =
-  type$ "inbook" =
-  or
-    'author.editor.key.label
-    { type$ "proceedings" =
-        'editor.key.organization.label
-        { type$ "manual" =
-            'author.key.organization.label
-            'author.key.label
-          if$
-        }
-      if$
-    }
-  if$
-  'short.list :=
-}
-
-FUNCTION {calc.label}
-{ calc.short.authors
-  short.list
-  "("
-  *
-  year duplicate$ empty$
-  short.list key field.or.null = or
-     { pop$ "" }
-     'skip$
-  if$
-  *
-  'label :=
-}
-
-ITERATE {calc.label}
-
-STRINGS { longest.label last.label next.extra }
-
-INTEGERS { longest.label.width last.extra.num number.label }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #0 int.to.chr$ 'last.label :=
-  "" 'next.extra :=
-  #0 'longest.label.width :=
-  #0 'last.extra.num :=
-  #0 'number.label :=
-}
-
-FUNCTION {forward.pass}
-{ last.label label =
-    { last.extra.num #1 + 'last.extra.num :=
-      last.extra.num int.to.chr$ 'extra.label :=
-    }
-    { "a" chr.to.int$ 'last.extra.num :=
-      "" 'extra.label :=
-      label 'last.label :=
-    }
-  if$
-  number.label #1 + 'number.label :=
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {forward.pass}
-
-
-FUNCTION {begin.bib}
-{ preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-  "\providecommand{\url}[1]{\texttt{#1}}"
-  write$ newline$
-  "\providecommand{\refin}[1]{\\ \textbf{Referenced in:} #1}"
-  write$ newline$
-  "\providecommand{\natexlab}[1]{#1}"
-  write$ newline$
-  "\begin{thebibliography}{" number.label int.to.str$ * "}" *
-  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 `achemnat.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/achemso.bst b/Master/texmf-dist/bibtex/bst/achemso/achemso.bst
index 75b5aa38e09..597d13b4cbe 100644
--- a/Master/texmf-dist/bibtex/bst/achemso/achemso.bst
+++ b/Master/texmf-dist/bibtex/bst/achemso/achemso.bst
@@ -1,30 +1,17 @@
-%%
-%% This is file `achemso.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
 ENTRY
   { address
     author
     booktitle
     chapter
+    ctrl-use-title
+    ctrl-etal-number
     doi
     edition
     editor
     howpublished
     institution
     journal
+    key
     note
     number
     organization
@@ -39,13 +26,15 @@ ENTRY
     year
   }
   {}
-  {
-  label
+  { label
+    extra.label
+    short.list
   }
 
 INTEGERS { output.state before.all mid.sentence after.sentence }
 INTEGERS { after.block after.item author.or.editor }
 INTEGERS { separate.by.semicolon }
+INTEGERS { is.use.title etal.number }
 
 FUNCTION {init.state.consts}
 { #0 'before.all :=
@@ -55,13 +44,19 @@ FUNCTION {init.state.consts}
   #4 'after.item :=
 }
 
+%% #0 turns off the display of the title for articles
+%% #1 enables
+FUNCTION {default.is.use.title} { #0 }
+
+%% The number of names that force "et al." to be used
+FUNCTION {default.etal.number} { #15 }
+
 FUNCTION {add.comma}
 { ", " * }
 
 FUNCTION {add.semicolon}
 { "; " * }
 
-
 FUNCTION {add.comma.or.semicolon}
 { #1 separate.by.semicolon =
     'add.semicolon
@@ -114,16 +109,6 @@ FUNCTION {output.check}
   if$
 }
 
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
 FUNCTION {new.block}
 { output.state before.all =
     'skip$
@@ -142,10 +127,39 @@ FUNCTION {new.sentence}
   if$
 }
 
+INTEGERS {would.add.period.textlen}
+
+FUNCTION {would.add.period}
+{ duplicate$
+  add.period$
+  text.length$
+  'would.add.period.textlen :=
+  duplicate$
+  text.length$
+  would.add.period.textlen =
+    { #0 }
+    { #1 }
+  if$
+}
+
 FUNCTION {fin.entry}
-{ add.period$
+{ would.add.period
+    { "\relax" * write$ newline$
+      "\mciteBstWouldAddEndPuncttrue" write$ newline$
+      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
+      write$ newline$
+      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
+    }
+    { "\relax" * write$ newline$
+      "\mciteBstWouldAddEndPunctfalse" write$ newline$
+      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
+      write$ newline$
+      "{}{\mcitedefaultseppunct}\relax"
+    }
+  if$
   write$
   newline$
+  "\EndOfBibitem" write$
 }
 
 FUNCTION {not}
@@ -324,6 +338,66 @@ FUNCTION {extract.num}
   if$
 }
 
+FUNCTION {chr.to.value}
+{ chr.to.int$ #48 -
+  duplicate$ duplicate$
+  #0 < swap$ #9 > or
+    { #48 + int.to.chr$
+      " is not a number..." *
+      warning$
+     pop$ #0
+    }
+    {}
+  if$
+}
+
+%% Some tricks from "Tame the BeaST" to convert a string
+%% to a number
+INTEGERS { a b }
+
+FUNCTION {mult}
+{ 'a :=
+  'b :=
+  b #0 <
+    {#-1 #0 b - 'b :=}
+    {#1}
+  if$
+  #0
+  {b #0 >}
+    { a +
+      b #1 - 'b :=
+    }
+  while$
+  swap$
+    'skip$
+    {#0 swap$ -}
+    if$
+}
+
+FUNCTION {str.to.int.aux}
+{ {duplicate$ empty$ not}
+    { swap$ #10 mult 'a :=
+      duplicate$ #1 #1 substring$
+      chr.to.value a +
+      swap$
+     #2 global.max$ substring$
+    }
+  while$
+  pop$
+}
+
+FUNCTION {str.to.int}
+{ duplicate$ #1 #1 substring$ "-" =
+    {#1 swap$ #2 global.max$ substring$}
+    {#0 swap$}
+  if$
+  #0 swap$ str.to.int.aux
+  swap$
+    {#0 swap$ -}
+    {}
+  if$
+}
+
 FUNCTION {bibinfo.check}
 { swap$
   duplicate$ missing$
@@ -389,7 +463,7 @@ FUNCTION {format.names}
   #1 'nameptr :=
   s num.names$ 'numnames :=
   numnames 'namesleft :=
-  numnames #15 >
+  numnames etal.number > etal.number #0 > and
     { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
       t bbl.etal space.connect
     }
@@ -424,7 +498,7 @@ FUNCTION {format.authors}
 { author empty$
     { "" }
     { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
+        #1 'separate.by.semicolon :=
       author format.names
     }
   if$
@@ -434,7 +508,7 @@ FUNCTION {format.editors}
 { editor empty$
     { "" }
     { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
+        #0 'separate.by.semicolon :=
       editor format.names
       add.comma
       editor num.names$ #1 >
@@ -497,6 +571,16 @@ FUNCTION {format.title}
   if$
 }
 
+%% The add.title function only does anything if the appropriate
+%% flag is set.
+FUNCTION {add.title}
+{ is.use.title
+    { title format.title.noemph "title" output.check
+      new.sentence }
+    'skip$
+  if$
+}
+
 FUNCTION {format.number.series}
 { volume empty$
     { number empty$
@@ -519,6 +603,92 @@ FUNCTION {format.url}
   if$
 }
 
+FUNCTION {format.full.names}
+{'s :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}" format.name$ 't :=
+      nameptr #1 >
+        {
+          namesleft #1 >
+            { ", " * t * }
+            {
+              numnames #2 >
+                { "," * }
+                'skip$
+              if$
+              t "others" =
+                { bbl.etal * }
+                { bbl.and space.connect t space.connect }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {author.editor.full}
+{ author empty$
+    { editor empty$
+        { "" }
+        { editor format.full.names }
+      if$
+    }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {author.full}
+{ author empty$
+    { "" }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {editor.full}
+{ editor empty$
+    { "" }
+    { editor format.full.names }
+  if$
+}
+
+FUNCTION {make.full.names}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.full
+    { type$ "proceedings" =
+        'editor.full
+        'author.full
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem[" write$
+  label write$
+  ")" make.full.names duplicate$ short.list =
+     { pop$ }
+     { * }
+   if$
+  "]{" * write$
+  cite$ write$
+  "}" write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
 FUNCTION {n.dashify}
 { 't :=
   ""
@@ -551,6 +721,7 @@ FUNCTION {format.date}
   if$
 }
 
+
 FUNCTION {format.bdate}
 { year empty$
     { "There's no year in " cite$ * warning$ }
@@ -754,6 +925,7 @@ FUNCTION {article}
 { output.bibitem
   format.authors "author" output.check
   after.item 'output.state :=
+  add.title
   journal emphasize "journal" output.check
   after.item 'output.state :=
   format.date "year" output.check
@@ -996,19 +1168,6 @@ FUNCTION {proceedings}
   fin.entry
 }
 
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
 FUNCTION {techreport}
 { output.bibitem
   format.authors "author" output.check
@@ -1054,6 +1213,41 @@ FUNCTION {unpublished}
   empty.doi.note
 }
 
+%% Convert the strings "yes" or "no" to #1 or #0 respectively
+FUNCTION {yes.no.to.int}
+{ "l" change.case$ duplicate$
+    "yes" =
+    { pop$  #1 }
+    { duplicate$ "no" =
+        { pop$ #0 }
+        { "unknown Boolean " quote$ * swap$ * quote$ *
+          " in " * cite$ * warning$
+          #0
+        }
+      if$
+    }
+  if$
+}
+
+%% Using the same mechanism as in IEEEtrans, control of
+%% output can be achieved using a special entry type.
+FUNCTION {Control}
+{ ctrl-use-title
+  empty$
+    { skip$ }
+    { ctrl-use-title
+      yes.no.to.int
+      'is.use.title := }
+  if$
+  ctrl-etal-number
+  empty$
+    { skip$ }
+    { ctrl-etal-number
+      str.to.int
+      'etal.number := }
+  if$
+}
+
 FUNCTION {conference} {inproceedings}
 
 FUNCTION {other} {patent}
@@ -1073,115 +1267,228 @@ 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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-MACRO {jap} {"J.~Appl.\ Phys."}
-MACRO {pnac} {"Proc.\ Natl.\ Acad.\ Sci.\ U.S.A."}
-MACRO {bba} {"Biochim.\ Biophys.\ Acta"}
-MACRO {nar} {"Nucleic.\ Acid Res."}
+%% The ACS journals by CODEN
+MACRO {achre4} {"Acc.\ Chem.\ Res."}
+MACRO {acbcct} {"ACS Chem.\ Biol."}
+MACRO {ancac3} {"ACS Nano"}
+MACRO {ancham} {"Anal.\ Chem."}
+MACRO {bichaw} {"Biochemistry"}
+MACRO {bcches} {"Bioconjugate Chem."}
+MACRO {bomaf6} {"Biomacromolecules"}
+MACRO {bipret} {"Biotechnol.\ Prog."}
+MACRO {crtoec} {"Chem.\ Res.\ Toxicol."}
+MACRO {chreay} {"Chem.\ Rev."}
+MACRO {cmatex} {"Chem.\ Mater."}
+MACRO {cgdefu} {"Cryst.\ Growth Des."}
+MACRO {enfuem} {"Energy Fuels"}
+MACRO {esthag} {"Environ.\ Sci.\ Technol."}
+MACRO {iechad} {"Ind.\ Eng.\ Chem.\ Res."}
+MACRO {inoraj} {"Inorg.\ Chem."}
+MACRO {jafcau} {"J.~Agric.\ Food Chem."}
+MACRO {jceaax} {"J.~Chem.\ Eng.\ Data"}
+MACRO {jcisd8} {"J.~Chem.\ Inf.\ Model."}
+MACRO {jctcce} {"J.~Chem.\ Theory Comput."}
+MACRO {jcchff} {"J. Comb. Chem."}
+MACRO {jmcmar} {"J. Med. Chem."}
+MACRO {jnprdf} {"J. Nat. Prod."}
+MACRO {joceah} {"J.~Org.\ Chem."}
+MACRO {jpcafh} {"J.~Phys.\ Chem.~A"}
+MACRO {jpcbfk} {"J.~Phys.\ Chem.~B"}
+MACRO {jpccck} {"J.~Phys.\ Chem.~C"}
+MACRO {jprobs} {"J.~Proteome Res."}
+MACRO {jacsat} {"J.~Am.\ Chem.\ Soc."}
+MACRO {langd5} {"Langmuir"}
+MACRO {mamobx} {"Macromolecules"}
+MACRO {mpohbp} {"Mol.\ Pharm."}
+MACRO {nalefd} {"Nano Lett."}
+MACRO {orlef7} {"Org.\ Lett."}
+MACRO {oprdfk} {"Org.\ Proc.\ Res.\ Dev."}
+MACRO {orgnd7} {"Organometallics"}
 
 READ
 
-STRINGS { longest.label }
+FUNCTION {initialize.controls}
+{ default.is.use.title 'is.use.title :=
+  default.etal.number 'etal.number :=
+}
+
+EXECUTE {initialize.controls}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {format.lab.names}
+{ 's :=
+  s #1 "{vv~}{ll}" format.name$
+  s num.names$ duplicate$
+  #2 >
+    { pop$ bbl.etal space.connect }
+    { #2 <
+        'skip$
+        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+            { bbl.etal space.connect }
+            { bbl.and space.connect s #2 "{vv~}{ll}" format.name$ space.connect }
+          if$
+        }
+      if$
+    }
+  if$
+}
+
+FUNCTION {author.key.label}
+{ author empty$
+    { key empty$
+        { cite$ #1 #3 substring$ }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.editor.key.label}
+{ author empty$
+    { editor empty$
+        { key empty$
+            { cite$ #1 #3 substring$ }
+            'key
+          if$
+        }
+        { editor format.lab.names }
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.key.organization.label}
+{ author empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
 
-INTEGERS { number.label longest.label.width }
+FUNCTION {editor.key.organization.label}
+{ editor empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { editor format.lab.names }
+  if$
+}
+
+FUNCTION {calc.short.authors}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.key.label
+    { type$ "proceedings" =
+        'editor.key.organization.label
+        { type$ "manual" =
+            'author.key.organization.label
+            'author.key.label
+          if$
+        }
+      if$
+    }
+  if$
+  'short.list :=
+}
+
+FUNCTION {calc.label}
+{ calc.short.authors
+  short.list
+  "("
+  *
+  year duplicate$ empty$
+  short.list key field.or.null = or
+     { pop$ "" }
+     'skip$
+  if$
+  *
+  'label :=
+}
+
+ITERATE {calc.label}
+
+STRINGS { longest.label last.label next.extra }
+
+INTEGERS { longest.label.width last.extra.num number.label }
 
 FUNCTION {initialize.longest.label}
 { "" 'longest.label :=
-  #1 'number.label :=
+  #0 int.to.chr$ 'last.label :=
+  "" 'next.extra :=
   #0 'longest.label.width :=
+  #0 'last.extra.num :=
+  #0 'number.label :=
 }
 
-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 :=
+FUNCTION {forward.pass}
+{ last.label label =
+    { last.extra.num #1 + 'last.extra.num :=
+      last.extra.num int.to.chr$ 'extra.label :=
+    }
+    { "a" chr.to.int$ 'last.extra.num :=
+      "" 'extra.label :=
+      label 'last.label :=
     }
-    'skip$
   if$
+  number.label #1 + 'number.label :=
 }
 
 EXECUTE {initialize.longest.label}
 
-ITERATE {longest.label.pass}
-
+ITERATE {forward.pass}
 
 FUNCTION {begin.bib}
 { preamble$ empty$
     'skip$
     { preamble$ write$ newline$ }
   if$
-  "\providecommand{\url}[1]{\texttt{#1}}"
+  "\ifx\mcitethebibliography\mciteundefinedmacro"
+  write$ newline$
+  "\PackageError"
+  write$
+  "{achemso.bst}"
+  write$
+  "{mciteplus.sty has not been loaded}"
+  write$ newline$
+  "{This bibstyle requires the use of the mciteplus package.}\fi"
+  write$ newline$
+  "\begin{mcitethebibliography}{"  number.label int.to.str$  * "}" *
+  write$ newline$
+  "\providecommand*{\natexlab}[1]{#1}"
+  write$ newline$
+  "\mciteSetBstSublistMode{f}"
+  write$ newline$
+  "\mciteSetBstMaxWidthForm{subitem}{(\alph{mcitesubitemcount})}"
   write$ newline$
-  "\providecommand{\refin}[1]{\\ \textbf{Referenced in:} #1}"
+  "\mciteSetBstSublistLabelBeginEnd{\mcitemaxwidthsubitemform\space}"
   write$ newline$
-  "\begin{thebibliography}{"  longest.label  * "}" *
+  "{\relax}{\relax}"
   write$ newline$
 }
 
@@ -1193,10 +1500,7 @@ ITERATE {call.type$}
 
 FUNCTION {end.bib}
 { newline$
-  "\end{thebibliography}" write$ newline$
+  "\end{mcitethebibliography}" write$ newline$
 }
 
 EXECUTE {end.bib}
-%% 
-%%
-%% End of file `achemso.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/achemsoM.bst b/Master/texmf-dist/bibtex/bst/achemso/achemsoM.bst
deleted file mode 100644
index ee74939c5ca..00000000000
--- a/Master/texmf-dist/bibtex/bst/achemso/achemsoM.bst
+++ /dev/null
@@ -1,1239 +0,0 @@
-%%
-%% This is file `achemsoM.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,mcp')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  {
-  label
-  }
-
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
-INTEGERS { separate.by.semicolon }
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.item :=
-}
-
-FUNCTION {add.comma}
-{ ", " * }
-
-FUNCTION {add.semicolon}
-{ "; " * }
-
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
-FUNCTION {add.colon}
-{ ": " * }
-
-STRINGS { s t }
-
-FUNCTION {output.nonnull}
-{ 's :=
-  output.state mid.sentence =
-    { add.comma write$ }
-    { output.state after.block =
-      { add.semicolon write$
-        newline$
-        "\newblock " write$
-      }
-      { output.state before.all =
-          'write$
-          { output.state after.item =
-            { " " * write$ }
-            { add.period$ " " * write$ }
-          if$
-          }
-        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 {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-INTEGERS {would.add.period.textlen}
-FUNCTION {would.add.period}
-{ duplicate$
-  add.period$
-  text.length$
-  'would.add.period.textlen :=
-  duplicate$
-  text.length$
-  would.add.period.textlen =
-    { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ would.add.period
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPuncttrue" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
-    }
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPunctfalse" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{}{\mcitedefaultseppunct}\relax"
-    }
-  if$
-  write$
-  newline$
-  "\EndOfBibitem" write$
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\emph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {boldface}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\textbf{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {paren}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "(" swap$ * ")" * }
-  if$
-}
-
-FUNCTION {bbl.and}
-{ "and" }
-
-FUNCTION {bbl.chapter}
-{ "Chapter" }
-
-FUNCTION {bbl.editor}
-{ "Ed." }
-
-FUNCTION {bbl.editors}
-{ "Eds." }
-
-FUNCTION {bbl.edition}
-{ "ed." }
-
-FUNCTION {bbl.etal}
-{ "et~al." }
-
-FUNCTION {bbl.in}
-{ "In" }
-
-FUNCTION {bbl.inpress}
-{ "in press" }
-
-FUNCTION {bbl.msc}
-{ "M.Sc.\ thesis" }
-
-FUNCTION {bbl.page}
-{ "p" }
-
-FUNCTION {bbl.pages}
-{ "pp" }
-
-FUNCTION {bbl.phd}
-{ "Ph.D.\ thesis" }
-
-FUNCTION {bbl.submitted}
-{ "submitted for publication" }
-
-FUNCTION {bbl.techreport}
-{ "Technical Report" }
-
-FUNCTION {bbl.version}
-{ "version" }
-
-FUNCTION {bbl.volume}
-{ "Vol." }
-
-FUNCTION {bbl.first}
-{ "1st" }
-
-FUNCTION {bbl.second}
-{ "2nd" }
-
-FUNCTION {bbl.third}
-{ "3rd" }
-
-FUNCTION {bbl.fourth}
-{ "4th" }
-
-FUNCTION {bbl.fifth}
-{ "5th" }
-
-FUNCTION {bbl.st}
-{ "st" }
-
-FUNCTION {bbl.nd}
-{ "nd" }
-
-FUNCTION {bbl.rd}
-{ "rd" }
-
-FUNCTION {bbl.th}
-{ "th" }
-
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-
-FUNCTION{is.a.digit}
-{ duplicate$ "" =
-    {pop$ #0}
-    {chr.to.int$ #48 - duplicate$
-     #0 < swap$ #9 > or not}
-  if$
-}
-
-FUNCTION{is.a.number}
-{
-  { duplicate$ #1 #1 substring$ is.a.digit }
-    {#2 global.max$ substring$}
-  while$
-  "" =
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.a.number
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    { pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {convert.edition}
-{ extract.num "l" change.case$ 's :=
-  s "first" = s "1" = or
-    { bbl.first 't := }
-    { s "second" = s "2" = or
-        { bbl.second 't := }
-        { s "third" = s "3" = or
-            { bbl.third 't := }
-            { s "fourth" = s "4" = or
-                { bbl.fourth 't := }
-                { s "fifth" = s "5" = or
-                    { bbl.fifth 't := }
-                    { s #1 #1 substring$ is.a.number
-                        { s eng.ord 't := }
-                        { edition 't := }
-                      if$
-                    }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-    }
-  if$
-  t
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {space.connect}
-{ " " swap$ * * }
-
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-  numnames #15 >
-    { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-      t bbl.etal space.connect
-    }
-    {
-       { namesleft #0 > }
-       { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-           nameptr #1 >
-             { namesleft #1 >
-               { add.comma.or.semicolon t * }
-               { numnames #2 >
-                 { "" * }
-                 'skip$
-               if$
-               t "others," =
-                 { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
-               if$
-               }
-             if$
-             }
-           't
-         if$
-         nameptr #1 + 'nameptr :=
-         namesleft #1 - 'namesleft :=
-         }
-     while$
-  }
-  if$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
-      author format.names
-    }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { "" }
-    { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
-      editor format.names
-      add.comma
-      editor num.names$ #1 >
-        { bbl.editors }
-        { bbl.editor }
-      if$
-      *
-    }
-  if$
-}
-
-FUNCTION {n.separate.multi}
-{ 't :=
-  ""
-  #0 'numnames :=
-  t text.length$ #4 > t is.a.number and
-    {
-      { t empty$ not }
-      { t #-1 #1 substring$ is.a.number
-          { numnames #1 + 'numnames := }
-          { #0 'numnames := }
-        if$
-        t #-1 #1 substring$ swap$ *
-        t #-2 global.max$ substring$ 't :=
-        numnames #4 =
-          { duplicate$ #1 #1 substring$ swap$
-            #2 global.max$ substring$
-            "," swap$ * *
-            #1 'numnames :=
-          }
-          'skip$
-        if$
-      }
-      while$
-    }
-    { t swap$ * }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.volume volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.title.noemph}
-{ 't :=
-  t empty$
-    { "" }
-    { t }
-  if$
-}
-
-FUNCTION {format.title}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-       { series field.or.null }
-       { series empty$
-         { "There is a number but no series in " cite$ * warning$ }
-         { series number space.connect }
-       if$
-       }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.sentence "\url{" url * "}" * }
-  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 boldface }
-  if$
-}
-
-FUNCTION {format.bdate}
-{ year empty$
-    { "There's no year in " cite$ * warning$ }
-    'year
-  if$
-}
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$
-    'skip$
-    { convert.edition
-      bbl.edition bibinfo.check
-      " " * bbl.edition *
-    }
-  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
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.required}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.nopp}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { pages n.dashify space.connect }
-      { pages space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.patent}
-{ pages empty$
-    { "There is no patent number for " cite$ * warning$ }
-    { pages multi.page.check
-      { pages n.dashify }
-      { pages n.separate.multi }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.pages}
-{ volume emphasize field.or.null
-  duplicate$ empty$
-    { pop$ format.pages.required }
-    { add.comma pages n.dashify * }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-    { bbl.chapter }
-    { type "l" change.case$ }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-    'skip$
-    { add.comma format.pages * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.title.in}
-{ 's :=
-  s empty$
-    { "" }
-    { editor empty$
-      { bbl.in s format.title space.connect }
-      { bbl.in s format.title space.connect
-        add.semicolon format.editors *
-      }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pub.address}
-{ publisher empty$
-    { "" }
-    { address empty$
-        { publisher }
-        { publisher add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.school.address}
-{ school empty$
-    { "" }
-    { address empty$
-        { school }
-        { school add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.organization.address}
-{ organization empty$
-    { "" }
-    { address empty$
-        { organization }
-        { organization add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.version}
-{ edition empty$
-    { "" }
-    { bbl.version edition tie.or.space.connect }
-  if$
-}
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  year empty$ note empty$ url empty$
-  and and and and and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {empty.doi.note}
-{ doi empty$ note empty$ and
-    { "Need either a note or DOI for " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type emphasize
-    }
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  after.item 'output.state :=
-  format.date "year" output.check
-  volume empty$
-    { ""
-      format.pages.nopp output
-    }
-    { format.vol.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author empty$
-    { booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-      new.block
-      editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      "author and editor" editor either.or.check
-      booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  pages empty$
-    'skip$
-    { format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  howpublished output
-  address output
-  format.date output
-  note output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author empty$
-    { title format.title "title" output.check
-      format.edition output
-      new.block
-      editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
-      { "" format.editors * "editor" output.check }
-    if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title format.title.in "title" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author empty$
-    { booktitle format.title "booktitle" output.check
-      format.edition output
-      new.block
-      editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title empty$
-        'skip$
-        { title format.title.noemph output }
-      if$
-      after.sentence 'output.state :=
-      booktitle format.title.in "booktitle" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {inpress}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  doi empty$
-    {  bbl.inpress output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title.noemph output
-      after.sentence 'output.state :=
-    }
-  if$
-  booktitle format.title output
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {manual}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  format.version output
-  new.block
-  format.organization.address output
-  format.bdate output
-  note output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.msc format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url output
-  note output
-  fin.entry
-  empty.misc.check
-}
-
-FUNCTION {patent}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal "journal" output.check
-  after.item 'output.state :=
-  format.pages.patent "pages" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.phd format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  title format.title.noemph "title" output.check
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title "title" output.check
-  new.block
-  type empty$
-    'bbl.techreport
-    'type
-  if$
-  number empty$
-    'skip$
-    { number tie.or.space.connect }
-  if$
-  output
-  format.pub.address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal empty$
-    'skip$
-    { journal emphasize "journal" output.check }
-  if$
-  doi empty$
-    {  note output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  fin.entry
-  empty.doi.note
-}
-
-FUNCTION {conference} {inproceedings}
-
-FUNCTION {other} {patent}
-
-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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-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$
-  "\ifx\mcitethebibliography\mciteundefinedmacro"
-  write$ newline$
-  "\PackageError{achemsoM.bst}{mciteplus.sty has not been loaded}"
-  write$ newline$
-  "{This bibstyle requires the use of the mciteplus package.}\fi"
-  write$ newline$
-  "\begin{mcitethebibliography}{"  longest.label  * "}" * write$ newline$
-  "\mciteSetBstSublistMode{f}"
-  write$ newline$
-  "\mciteSetBstMaxWidthForm{subitem}{(\alph{mcitesubitemcount})}"
-  write$ newline$
-  "\mciteSetBstSublistLabelBeginEnd{\mcitemaxwidthsubitemform\space}"
-  write$ newline$
-  "{\relax}{\relax}"
-  write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcitethebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `achemsoM.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/achemsol.bst b/Master/texmf-dist/bibtex/bst/achemso/achemsol.bst
deleted file mode 100644
index 842d9ee820d..00000000000
--- a/Master/texmf-dist/bibtex/bst/achemso/achemsol.bst
+++ /dev/null
@@ -1,1212 +0,0 @@
-%%
-%% This is file `achemsol.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,list')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    annotate
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  {
-  label
-  }
-
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
-INTEGERS { separate.by.semicolon }
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.item :=
-}
-
-FUNCTION {add.comma}
-{ ", " * }
-
-FUNCTION {add.semicolon}
-{ "; " * }
-
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
-FUNCTION {add.colon}
-{ ": " * }
-
-STRINGS { s t }
-
-FUNCTION {output.nonnull}
-{ 's :=
-  output.state mid.sentence =
-    { add.comma write$ }
-    { output.state after.block =
-      { add.semicolon write$
-        newline$
-        "\newblock " write$
-      }
-      { output.state before.all =
-          'write$
-          { output.state after.item =
-            { " " * write$ }
-            { add.period$ " " * write$ }
-          if$
-          }
-        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 {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.note}
-{ annotate empty$
-    'skip$
-    { new.block
-      "{\footnotesize " annotate * "}" * output }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.note
-  add.period$
-  write$
-  newline$
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\emph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {boldface}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\textbf{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {paren}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "(" swap$ * ")" * }
-  if$
-}
-
-FUNCTION {bbl.and}
-{ "and" }
-
-FUNCTION {bbl.chapter}
-{ "Chapter" }
-
-FUNCTION {bbl.editor}
-{ "Ed." }
-
-FUNCTION {bbl.editors}
-{ "Eds." }
-
-FUNCTION {bbl.edition}
-{ "ed." }
-
-FUNCTION {bbl.etal}
-{ "et~al." }
-
-FUNCTION {bbl.in}
-{ "In" }
-
-FUNCTION {bbl.inpress}
-{ "in press" }
-
-FUNCTION {bbl.msc}
-{ "M.Sc.\ thesis" }
-
-FUNCTION {bbl.page}
-{ "p" }
-
-FUNCTION {bbl.pages}
-{ "pp" }
-
-FUNCTION {bbl.phd}
-{ "Ph.D.\ thesis" }
-
-FUNCTION {bbl.submitted}
-{ "submitted for publication" }
-
-FUNCTION {bbl.techreport}
-{ "Technical Report" }
-
-FUNCTION {bbl.version}
-{ "version" }
-
-FUNCTION {bbl.volume}
-{ "Vol." }
-
-FUNCTION {bbl.first}
-{ "1st" }
-
-FUNCTION {bbl.second}
-{ "2nd" }
-
-FUNCTION {bbl.third}
-{ "3rd" }
-
-FUNCTION {bbl.fourth}
-{ "4th" }
-
-FUNCTION {bbl.fifth}
-{ "5th" }
-
-FUNCTION {bbl.st}
-{ "st" }
-
-FUNCTION {bbl.nd}
-{ "nd" }
-
-FUNCTION {bbl.rd}
-{ "rd" }
-
-FUNCTION {bbl.th}
-{ "th" }
-
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-
-FUNCTION{is.a.digit}
-{ duplicate$ "" =
-    {pop$ #0}
-    {chr.to.int$ #48 - duplicate$
-     #0 < swap$ #9 > or not}
-  if$
-}
-
-FUNCTION{is.a.number}
-{
-  { duplicate$ #1 #1 substring$ is.a.digit }
-    {#2 global.max$ substring$}
-  while$
-  "" =
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.a.number
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    { pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {convert.edition}
-{ extract.num "l" change.case$ 's :=
-  s "first" = s "1" = or
-    { bbl.first 't := }
-    { s "second" = s "2" = or
-        { bbl.second 't := }
-        { s "third" = s "3" = or
-            { bbl.third 't := }
-            { s "fourth" = s "4" = or
-                { bbl.fourth 't := }
-                { s "fifth" = s "5" = or
-                    { bbl.fifth 't := }
-                    { s #1 #1 substring$ is.a.number
-                        { s eng.ord 't := }
-                        { edition 't := }
-                      if$
-                    }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-    }
-  if$
-  t
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {space.connect}
-{ " " swap$ * * }
-
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-  numnames #15 >
-    { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-      t bbl.etal space.connect
-    }
-    {
-       { namesleft #0 > }
-       { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-           nameptr #1 >
-             { namesleft #1 >
-               { add.comma.or.semicolon t * }
-               { numnames #2 >
-                 { "" * }
-                 'skip$
-               if$
-               t "others," =
-                 { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
-               if$
-               }
-             if$
-             }
-           't
-         if$
-         nameptr #1 + 'nameptr :=
-         namesleft #1 - 'namesleft :=
-         }
-     while$
-  }
-  if$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
-      author format.names
-    }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { "" }
-    { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
-      editor format.names
-      add.comma
-      editor num.names$ #1 >
-        { bbl.editors }
-        { bbl.editor }
-      if$
-      *
-    }
-  if$
-}
-
-FUNCTION {n.separate.multi}
-{ 't :=
-  ""
-  #0 'numnames :=
-  t text.length$ #4 > t is.a.number and
-    {
-      { t empty$ not }
-      { t #-1 #1 substring$ is.a.number
-          { numnames #1 + 'numnames := }
-          { #0 'numnames := }
-        if$
-        t #-1 #1 substring$ swap$ *
-        t #-2 global.max$ substring$ 't :=
-        numnames #4 =
-          { duplicate$ #1 #1 substring$ swap$
-            #2 global.max$ substring$
-            "," swap$ * *
-            #1 'numnames :=
-          }
-          'skip$
-        if$
-      }
-      while$
-    }
-    { t swap$ * }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.volume volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.title.noemph}
-{ 't :=
-  t empty$
-    { "" }
-    { t }
-  if$
-}
-
-FUNCTION {format.title}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-       { series field.or.null }
-       { series empty$
-         { "There is a number but no series in " cite$ * warning$ }
-         { series number space.connect }
-       if$
-       }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.sentence "\url{" url * "}" * }
-  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 boldface }
-  if$
-}
-
-FUNCTION {format.bdate}
-{ year empty$
-    { "There's no year in " cite$ * warning$ }
-    'year
-  if$
-}
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$
-    'skip$
-    { convert.edition
-      bbl.edition bibinfo.check
-      " " * bbl.edition *
-    }
-  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
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.required}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.nopp}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { pages n.dashify space.connect }
-      { pages space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.patent}
-{ pages empty$
-    { "There is no patent number for " cite$ * warning$ }
-    { pages multi.page.check
-      { pages n.dashify }
-      { pages n.separate.multi }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.pages}
-{ volume emphasize field.or.null
-  duplicate$ empty$
-    { pop$ format.pages.required }
-    { add.comma pages n.dashify * }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-    { bbl.chapter }
-    { type "l" change.case$ }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-    'skip$
-    { add.comma format.pages * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.title.in}
-{ 's :=
-  s empty$
-    { "" }
-    { editor empty$
-      { bbl.in s format.title space.connect }
-      { bbl.in s format.title space.connect
-        add.semicolon format.editors *
-      }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pub.address}
-{ publisher empty$
-    { "" }
-    { address empty$
-        { publisher }
-        { publisher add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.school.address}
-{ school empty$
-    { "" }
-    { address empty$
-        { school }
-        { school add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.organization.address}
-{ organization empty$
-    { "" }
-    { address empty$
-        { organization }
-        { organization add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.version}
-{ edition empty$
-    { "" }
-    { bbl.version edition tie.or.space.connect }
-  if$
-}
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  year empty$ note empty$ url empty$
-  and and and and and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {empty.doi.note}
-{ doi empty$ note empty$ and
-    { "Need either a note or DOI for " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type emphasize
-    }
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  after.item 'output.state :=
-  format.date "year" output.check
-  volume empty$
-    { ""
-      format.pages.nopp output
-    }
-    { format.vol.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author empty$
-    { booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-      new.block
-      editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      "author and editor" editor either.or.check
-      booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  pages empty$
-    'skip$
-    { format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  howpublished output
-  address output
-  format.date output
-  note output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author empty$
-    { title format.title "title" output.check
-      format.edition output
-      new.block
-      editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
-      { "" format.editors * "editor" output.check }
-    if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title format.title.in "title" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author empty$
-    { booktitle format.title "booktitle" output.check
-      format.edition output
-      new.block
-      editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title empty$
-        'skip$
-        { title format.title.noemph output }
-      if$
-      after.sentence 'output.state :=
-      booktitle format.title.in "booktitle" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {inpress}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  doi empty$
-    {  bbl.inpress output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title.noemph output
-      after.sentence 'output.state :=
-    }
-  if$
-  booktitle format.title output
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {manual}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  format.version output
-  new.block
-  format.organization.address output
-  format.bdate output
-  note output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.msc format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url output
-  note output
-  fin.entry
-  empty.misc.check
-}
-
-FUNCTION {patent}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal "journal" output.check
-  after.item 'output.state :=
-  format.pages.patent "pages" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.phd format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  title format.title.noemph "title" output.check
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title "title" output.check
-  new.block
-  type empty$
-    'bbl.techreport
-    'type
-  if$
-  number empty$
-    'skip$
-    { number tie.or.space.connect }
-  if$
-  output
-  format.pub.address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal empty$
-    'skip$
-    { journal emphasize "journal" output.check }
-  if$
-  doi empty$
-    {  note output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  fin.entry
-  empty.doi.note
-}
-
-FUNCTION {conference} {inproceedings}
-
-FUNCTION {other} {patent}
-
-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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-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{\url}[1]{\texttt{#1}}"
-  write$ newline$
-  "\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 `achemsol.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/achemsolM.bst b/Master/texmf-dist/bibtex/bst/achemso/achemsolM.bst
deleted file mode 100644
index 85340f4fa34..00000000000
--- a/Master/texmf-dist/bibtex/bst/achemso/achemsolM.bst
+++ /dev/null
@@ -1,1248 +0,0 @@
-%%
-%% This is file `achemsolM.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,list,mcp')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    annotate
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  {
-  label
-  }
-
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
-INTEGERS { separate.by.semicolon }
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.item :=
-}
-
-FUNCTION {add.comma}
-{ ", " * }
-
-FUNCTION {add.semicolon}
-{ "; " * }
-
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
-FUNCTION {add.colon}
-{ ": " * }
-
-STRINGS { s t }
-
-FUNCTION {output.nonnull}
-{ 's :=
-  output.state mid.sentence =
-    { add.comma write$ }
-    { output.state after.block =
-      { add.semicolon write$
-        newline$
-        "\newblock " write$
-      }
-      { output.state before.all =
-          'write$
-          { output.state after.item =
-            { " " * write$ }
-            { add.period$ " " * write$ }
-          if$
-          }
-        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 {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.note}
-{ annotate empty$
-    'skip$
-    { new.block
-      "{\footnotesize " annotate * "}" * output }
-  if$
-}
-
-INTEGERS {would.add.period.textlen}
-FUNCTION {would.add.period}
-{ duplicate$
-  add.period$
-  text.length$
-  'would.add.period.textlen :=
-  duplicate$
-  text.length$
-  would.add.period.textlen =
-    { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ would.add.period
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPuncttrue" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
-    }
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPunctfalse" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{}{\mcitedefaultseppunct}\relax"
-    }
-  if$
-  write$
-  newline$
-  "\EndOfBibitem" write$
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\emph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {boldface}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\textbf{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {paren}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "(" swap$ * ")" * }
-  if$
-}
-
-FUNCTION {bbl.and}
-{ "and" }
-
-FUNCTION {bbl.chapter}
-{ "Chapter" }
-
-FUNCTION {bbl.editor}
-{ "Ed." }
-
-FUNCTION {bbl.editors}
-{ "Eds." }
-
-FUNCTION {bbl.edition}
-{ "ed." }
-
-FUNCTION {bbl.etal}
-{ "et~al." }
-
-FUNCTION {bbl.in}
-{ "In" }
-
-FUNCTION {bbl.inpress}
-{ "in press" }
-
-FUNCTION {bbl.msc}
-{ "M.Sc.\ thesis" }
-
-FUNCTION {bbl.page}
-{ "p" }
-
-FUNCTION {bbl.pages}
-{ "pp" }
-
-FUNCTION {bbl.phd}
-{ "Ph.D.\ thesis" }
-
-FUNCTION {bbl.submitted}
-{ "submitted for publication" }
-
-FUNCTION {bbl.techreport}
-{ "Technical Report" }
-
-FUNCTION {bbl.version}
-{ "version" }
-
-FUNCTION {bbl.volume}
-{ "Vol." }
-
-FUNCTION {bbl.first}
-{ "1st" }
-
-FUNCTION {bbl.second}
-{ "2nd" }
-
-FUNCTION {bbl.third}
-{ "3rd" }
-
-FUNCTION {bbl.fourth}
-{ "4th" }
-
-FUNCTION {bbl.fifth}
-{ "5th" }
-
-FUNCTION {bbl.st}
-{ "st" }
-
-FUNCTION {bbl.nd}
-{ "nd" }
-
-FUNCTION {bbl.rd}
-{ "rd" }
-
-FUNCTION {bbl.th}
-{ "th" }
-
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-
-FUNCTION{is.a.digit}
-{ duplicate$ "" =
-    {pop$ #0}
-    {chr.to.int$ #48 - duplicate$
-     #0 < swap$ #9 > or not}
-  if$
-}
-
-FUNCTION{is.a.number}
-{
-  { duplicate$ #1 #1 substring$ is.a.digit }
-    {#2 global.max$ substring$}
-  while$
-  "" =
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.a.number
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    { pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {convert.edition}
-{ extract.num "l" change.case$ 's :=
-  s "first" = s "1" = or
-    { bbl.first 't := }
-    { s "second" = s "2" = or
-        { bbl.second 't := }
-        { s "third" = s "3" = or
-            { bbl.third 't := }
-            { s "fourth" = s "4" = or
-                { bbl.fourth 't := }
-                { s "fifth" = s "5" = or
-                    { bbl.fifth 't := }
-                    { s #1 #1 substring$ is.a.number
-                        { s eng.ord 't := }
-                        { edition 't := }
-                      if$
-                    }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-    }
-  if$
-  t
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {space.connect}
-{ " " swap$ * * }
-
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-  numnames #15 >
-    { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-      t bbl.etal space.connect
-    }
-    {
-       { namesleft #0 > }
-       { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-           nameptr #1 >
-             { namesleft #1 >
-               { add.comma.or.semicolon t * }
-               { numnames #2 >
-                 { "" * }
-                 'skip$
-               if$
-               t "others," =
-                 { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
-               if$
-               }
-             if$
-             }
-           't
-         if$
-         nameptr #1 + 'nameptr :=
-         namesleft #1 - 'namesleft :=
-         }
-     while$
-  }
-  if$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
-      author format.names
-    }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { "" }
-    { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
-      editor format.names
-      add.comma
-      editor num.names$ #1 >
-        { bbl.editors }
-        { bbl.editor }
-      if$
-      *
-    }
-  if$
-}
-
-FUNCTION {n.separate.multi}
-{ 't :=
-  ""
-  #0 'numnames :=
-  t text.length$ #4 > t is.a.number and
-    {
-      { t empty$ not }
-      { t #-1 #1 substring$ is.a.number
-          { numnames #1 + 'numnames := }
-          { #0 'numnames := }
-        if$
-        t #-1 #1 substring$ swap$ *
-        t #-2 global.max$ substring$ 't :=
-        numnames #4 =
-          { duplicate$ #1 #1 substring$ swap$
-            #2 global.max$ substring$
-            "," swap$ * *
-            #1 'numnames :=
-          }
-          'skip$
-        if$
-      }
-      while$
-    }
-    { t swap$ * }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.volume volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.title.noemph}
-{ 't :=
-  t empty$
-    { "" }
-    { t }
-  if$
-}
-
-FUNCTION {format.title}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-       { series field.or.null }
-       { series empty$
-         { "There is a number but no series in " cite$ * warning$ }
-         { series number space.connect }
-       if$
-       }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.sentence "\url{" url * "}" * }
-  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 boldface }
-  if$
-}
-
-FUNCTION {format.bdate}
-{ year empty$
-    { "There's no year in " cite$ * warning$ }
-    'year
-  if$
-}
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$
-    'skip$
-    { convert.edition
-      bbl.edition bibinfo.check
-      " " * bbl.edition *
-    }
-  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
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.required}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.nopp}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { pages n.dashify space.connect }
-      { pages space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.patent}
-{ pages empty$
-    { "There is no patent number for " cite$ * warning$ }
-    { pages multi.page.check
-      { pages n.dashify }
-      { pages n.separate.multi }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.pages}
-{ volume emphasize field.or.null
-  duplicate$ empty$
-    { pop$ format.pages.required }
-    { add.comma pages n.dashify * }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-    { bbl.chapter }
-    { type "l" change.case$ }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-    'skip$
-    { add.comma format.pages * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.title.in}
-{ 's :=
-  s empty$
-    { "" }
-    { editor empty$
-      { bbl.in s format.title space.connect }
-      { bbl.in s format.title space.connect
-        add.semicolon format.editors *
-      }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pub.address}
-{ publisher empty$
-    { "" }
-    { address empty$
-        { publisher }
-        { publisher add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.school.address}
-{ school empty$
-    { "" }
-    { address empty$
-        { school }
-        { school add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.organization.address}
-{ organization empty$
-    { "" }
-    { address empty$
-        { organization }
-        { organization add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.version}
-{ edition empty$
-    { "" }
-    { bbl.version edition tie.or.space.connect }
-  if$
-}
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  year empty$ note empty$ url empty$
-  and and and and and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {empty.doi.note}
-{ doi empty$ note empty$ and
-    { "Need either a note or DOI for " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type emphasize
-    }
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  after.item 'output.state :=
-  format.date "year" output.check
-  volume empty$
-    { ""
-      format.pages.nopp output
-    }
-    { format.vol.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author empty$
-    { booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-      new.block
-      editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      "author and editor" editor either.or.check
-      booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  pages empty$
-    'skip$
-    { format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  howpublished output
-  address output
-  format.date output
-  note output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author empty$
-    { title format.title "title" output.check
-      format.edition output
-      new.block
-      editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
-      { "" format.editors * "editor" output.check }
-    if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title format.title.in "title" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author empty$
-    { booktitle format.title "booktitle" output.check
-      format.edition output
-      new.block
-      editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title empty$
-        'skip$
-        { title format.title.noemph output }
-      if$
-      after.sentence 'output.state :=
-      booktitle format.title.in "booktitle" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {inpress}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  doi empty$
-    {  bbl.inpress output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title.noemph output
-      after.sentence 'output.state :=
-    }
-  if$
-  booktitle format.title output
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {manual}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  format.version output
-  new.block
-  format.organization.address output
-  format.bdate output
-  note output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.msc format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url output
-  note output
-  fin.entry
-  empty.misc.check
-}
-
-FUNCTION {patent}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal "journal" output.check
-  after.item 'output.state :=
-  format.pages.patent "pages" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.phd format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  title format.title.noemph "title" output.check
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title "title" output.check
-  new.block
-  type empty$
-    'bbl.techreport
-    'type
-  if$
-  number empty$
-    'skip$
-    { number tie.or.space.connect }
-  if$
-  output
-  format.pub.address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal empty$
-    'skip$
-    { journal emphasize "journal" output.check }
-  if$
-  doi empty$
-    {  note output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  fin.entry
-  empty.doi.note
-}
-
-FUNCTION {conference} {inproceedings}
-
-FUNCTION {other} {patent}
-
-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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-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$
-  "\ifx\mcitethebibliography\mciteundefinedmacro"
-  write$ newline$
-  "\PackageError{achemsoM.bst}{mciteplus.sty has not been loaded}"
-  write$ newline$
-  "{This bibstyle requires the use of the mciteplus package.}\fi"
-  write$ newline$
-  "\begin{mcitethebibliography}{"  longest.label  * "}" * write$ newline$
-  "\mciteSetBstSublistMode{f}"
-  write$ newline$
-  "\mciteSetBstMaxWidthForm{subitem}{(\alph{mcitesubitemcount})}"
-  write$ newline$
-  "\mciteSetBstSublistLabelBeginEnd{\mcitemaxwidthsubitemform\space}"
-  write$ newline$
-  "{\relax}{\relax}"
-  write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcitethebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `achemsolM.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/achemnatM.bst b/Master/texmf-dist/bibtex/bst/achemso/biochem.bst
index b4cfc62e3cc..989c3cdb222 100644
--- a/Master/texmf-dist/bibtex/bst/achemso/achemnatM.bst
+++ b/Master/texmf-dist/bibtex/bst/achemso/biochem.bst
@@ -1,24 +1,10 @@
-%%
-%% This is file `achemnatM.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,nat,mcp')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
 ENTRY
   { address
     author
     booktitle
     chapter
+    ctrl-use-title
+    ctrl-etal-number
     doi
     edition
     editor
@@ -40,8 +26,7 @@ ENTRY
     year
   }
   {}
-  {
-  label
+  { label
     extra.label
     short.list
   }
@@ -49,6 +34,7 @@ ENTRY
 INTEGERS { output.state before.all mid.sentence after.sentence }
 INTEGERS { after.block after.item author.or.editor }
 INTEGERS { separate.by.semicolon }
+INTEGERS { is.use.title etal.number }
 
 FUNCTION {init.state.consts}
 { #0 'before.all :=
@@ -58,20 +44,19 @@ FUNCTION {init.state.consts}
   #4 'after.item :=
 }
 
+%% #0 turns off the display of the title for articles
+%% #1 enables
+FUNCTION {default.is.use.title} { #1 }
+
+%% The number of names that force "et al." to be used
+FUNCTION {default.etal.number} { #15 }
+
 FUNCTION {add.comma}
 { ", " * }
 
 FUNCTION {add.semicolon}
 { "; " * }
 
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
 FUNCTION {add.colon}
 { ": " * }
 
@@ -136,6 +121,7 @@ FUNCTION {new.sentence}
 }
 
 INTEGERS {would.add.period.textlen}
+
 FUNCTION {would.add.period}
 { duplicate$
   add.period$
@@ -345,6 +331,66 @@ FUNCTION {extract.num}
   if$
 }
 
+FUNCTION {chr.to.value}
+{ chr.to.int$ #48 -
+  duplicate$ duplicate$
+  #0 < swap$ #9 > or
+    { #48 + int.to.chr$
+      " is not a number..." *
+      warning$
+     pop$ #0
+    }
+    {}
+  if$
+}
+
+%% Some tricks from "Tame the BeaST" to convert a string
+%% to a number
+INTEGERS { a b }
+
+FUNCTION {mult}
+{ 'a :=
+  'b :=
+  b #0 <
+    {#-1 #0 b - 'b :=}
+    {#1}
+  if$
+  #0
+  {b #0 >}
+    { a +
+      b #1 - 'b :=
+    }
+  while$
+  swap$
+    'skip$
+    {#0 swap$ -}
+    if$
+}
+
+FUNCTION {str.to.int.aux}
+{ {duplicate$ empty$ not}
+    { swap$ #10 mult 'a :=
+      duplicate$ #1 #1 substring$
+      chr.to.value a +
+      swap$
+     #2 global.max$ substring$
+    }
+  while$
+  pop$
+}
+
+FUNCTION {str.to.int}
+{ duplicate$ #1 #1 substring$ "-" =
+    {#1 swap$ #2 global.max$ substring$}
+    {#0 swap$}
+  if$
+  #0 swap$ str.to.int.aux
+  swap$
+    {#0 swap$ -}
+    {}
+  if$
+}
+
 FUNCTION {bibinfo.check}
 { swap$
   duplicate$ missing$
@@ -410,7 +456,7 @@ FUNCTION {format.names}
   #1 'nameptr :=
   s num.names$ 'numnames :=
   numnames 'namesleft :=
-  numnames #15 >
+  numnames etal.number > etal.number #0 > and
     { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
       t bbl.etal space.connect
     }
@@ -419,14 +465,14 @@ FUNCTION {format.names}
        { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
            nameptr #1 >
              { namesleft #1 >
-               { add.comma.or.semicolon t * }
+               { add.comma t * }
                { numnames #2 >
                  { "" * }
                  'skip$
                if$
                t "others," =
                  { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
+                 { add.comma bbl.and space.connect t space.connect }
                if$
                }
              if$
@@ -445,7 +491,6 @@ FUNCTION {format.authors}
 { author empty$
     { "" }
     { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
       author format.names
     }
   if$
@@ -455,7 +500,6 @@ FUNCTION {format.editors}
 { editor empty$
     { "" }
     { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
       editor format.names
       add.comma
       editor num.names$ #1 >
@@ -518,6 +562,16 @@ FUNCTION {format.title}
   if$
 }
 
+%% The add.title function only does anything if the appropriate
+%% flag is set.
+FUNCTION {add.title}
+{ is.use.title
+    { title format.title.noemph "title" output.check
+      new.sentence }
+    'skip$
+  if$
+}
+
 FUNCTION {format.number.series}
 { volume empty$
     { number empty$
@@ -610,7 +664,8 @@ FUNCTION {make.full.names}
   if$
 }
 
-FUNCTION {output.bibitem} { newline$
+FUNCTION {output.bibitem}
+{ newline$
   "\bibitem[" write$
   label write$
   ")" make.full.names duplicate$ short.list =
@@ -653,10 +708,11 @@ FUNCTION {n.dashify}
 FUNCTION {format.date}
 { year empty$
     { "" }
-    { year boldface }
+    { "(" year ")" * * }
   if$
 }
 
+
 FUNCTION {format.bdate}
 { year empty$
     { "There's no year in " cite$ * warning$ }
@@ -860,9 +916,11 @@ FUNCTION {article}
 { output.bibitem
   format.authors "author" output.check
   after.item 'output.state :=
+  format.date "year" output.check
+  after.item 'output.state :=
+  add.title
   journal emphasize "journal" output.check
   after.item 'output.state :=
-  format.date "year" output.check
   volume empty$
     { ""
       format.pages.nopp output
@@ -1102,19 +1160,6 @@ FUNCTION {proceedings}
   fin.entry
 }
 
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
 FUNCTION {techreport}
 { output.bibitem
   format.authors "author" output.check
@@ -1160,6 +1205,41 @@ FUNCTION {unpublished}
   empty.doi.note
 }
 
+%% Convert the strings "yes" or "no" to #1 or #0 respectively
+FUNCTION {yes.no.to.int}
+{ "l" change.case$ duplicate$
+    "yes" =
+    { pop$  #1 }
+    { duplicate$ "no" =
+        { pop$ #0 }
+        { "unknown Boolean " quote$ * swap$ * quote$ *
+          " in " * cite$ * warning$
+          #0
+        }
+      if$
+    }
+  if$
+}
+
+%% Using the same mechanism as in IEEEtrans, control of
+%% output can be achieved using a special entry type.
+FUNCTION {Control}
+{ ctrl-use-title
+  empty$
+    { skip$ }
+    { ctrl-use-title
+      yes.no.to.int
+      'is.use.title := }
+  if$
+  ctrl-etal-number
+  empty$
+    { skip$ }
+    { ctrl-etal-number
+      str.to.int
+      'etal.number := }
+  if$
+}
+
 FUNCTION {conference} {inproceedings}
 
 FUNCTION {other} {patent}
@@ -1179,79 +1259,53 @@ 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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-MACRO {jap} {"J.~Appl.\ Phys."}
-MACRO {pnac} {"Proc.\ Natl.\ Acad.\ Sci.\ U.S.A."}
-MACRO {bba} {"Biochim.\ Biophys.\ Acta"}
-MACRO {nar} {"Nucleic.\ Acid Res."}
+%% The ACS journals by CODEN
+MACRO {achre4} {"Acc.\ Chem.\ Res."}
+MACRO {acbcct} {"ACS Chem.\ Biol."}
+MACRO {ancac3} {"ACS Nano"}
+MACRO {ancham} {"Anal.\ Chem."}
+MACRO {bichaw} {"Biochemistry"}
+MACRO {bcches} {"Bioconjugate Chem."}
+MACRO {bomaf6} {"Biomacromolecules"}
+MACRO {bipret} {"Biotechnol.\ Prog."}
+MACRO {crtoec} {"Chem.\ Res.\ Toxicol."}
+MACRO {chreay} {"Chem.\ Rev."}
+MACRO {cmatex} {"Chem.\ Mater."}
+MACRO {cgdefu} {"Cryst.\ Growth Des."}
+MACRO {enfuem} {"Energy Fuels"}
+MACRO {esthag} {"Environ.\ Sci.\ Technol."}
+MACRO {iechad} {"Ind.\ Eng.\ Chem.\ Res."}
+MACRO {inoraj} {"Inorg.\ Chem."}
+MACRO {jafcau} {"J.~Agric.\ Food Chem."}
+MACRO {jceaax} {"J.~Chem.\ Eng.\ Data"}
+MACRO {jcisd8} {"J.~Chem.\ Inf.\ Model."}
+MACRO {jctcce} {"J.~Chem.\ Theory Comput."}
+MACRO {jcchff} {"J. Comb. Chem."}
+MACRO {jmcmar} {"J. Med. Chem."}
+MACRO {jnprdf} {"J. Nat. Prod."}
+MACRO {joceah} {"J.~Org.\ Chem."}
+MACRO {jpcafh} {"J.~Phys.\ Chem.~A"}
+MACRO {jpcbfk} {"J.~Phys.\ Chem.~B"}
+MACRO {jpccck} {"J.~Phys.\ Chem.~C"}
+MACRO {jprobs} {"J.~Proteome Res."}
+MACRO {jacsat} {"J.~Am.\ Chem.\ Soc."}
+MACRO {langd5} {"Langmuir"}
+MACRO {mamobx} {"Macromolecules"}
+MACRO {mpohbp} {"Mol.\ Pharm."}
+MACRO {nalefd} {"Nano Lett."}
+MACRO {orlef7} {"Org.\ Lett."}
+MACRO {oprdfk} {"Org.\ Proc.\ Res.\ Dev."}
+MACRO {orgnd7} {"Organometallics"}
 
 READ
 
+FUNCTION {initialize.controls}
+{ default.is.use.title 'is.use.title :=
+  default.etal.number 'etal.number :=
+}
+
+EXECUTE {initialize.controls}
+
 INTEGERS { len }
 
 FUNCTION {chop.word}
@@ -1401,7 +1455,6 @@ EXECUTE {initialize.longest.label}
 
 ITERATE {forward.pass}
 
-
 FUNCTION {begin.bib}
 { preamble$ empty$
     'skip$
@@ -1409,13 +1462,17 @@ FUNCTION {begin.bib}
   if$
   "\ifx\mcitethebibliography\mciteundefinedmacro"
   write$ newline$
-  "\PackageError{achemsoM.bst}{mciteplus.sty has not been loaded}"
+  "\PackageError"
+  write$
+  "{biochem.bst}"
+  write$
+  "{mciteplus.sty has not been loaded}"
   write$ newline$
   "{This bibstyle requires the use of the mciteplus package.}\fi"
   write$ newline$
   "\begin{mcitethebibliography}{"  number.label int.to.str$  * "}" *
   write$ newline$
-  "\providecommand{\natexlab}[1]{#1}"
+  "\providecommand*{\natexlab}[1]{#1}"
   write$ newline$
   "\mciteSetBstSublistMode{f}"
   write$ newline$
@@ -1439,6 +1496,3 @@ FUNCTION {end.bib}
 }
 
 EXECUTE {end.bib}
-%% 
-%%
-%% End of file `achemnatM.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/iecr.bst b/Master/texmf-dist/bibtex/bst/achemso/iecr.bst
deleted file mode 100644
index 59b8b9c1ae6..00000000000
--- a/Master/texmf-dist/bibtex/bst/achemso/iecr.bst
+++ /dev/null
@@ -1,1204 +0,0 @@
-%%
-%% This is file `iecr.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,iecr')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  {
-  label
-  }
-
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
-INTEGERS { separate.by.semicolon }
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.item :=
-}
-
-FUNCTION {add.comma}
-{ ", " * }
-
-FUNCTION {add.semicolon}
-{ "; " * }
-
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
-FUNCTION {add.colon}
-{ ": " * }
-
-STRINGS { s t }
-
-FUNCTION {output.nonnull}
-{ 's :=
-  output.state mid.sentence =
-    { add.comma write$ }
-    { output.state after.block =
-      { add.semicolon write$
-        newline$
-        "\newblock " write$
-      }
-      { output.state before.all =
-          'write$
-          { output.state after.item =
-            { " " * write$ }
-            { add.period$ " " * write$ }
-          if$
-          }
-        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 {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\emph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {boldface}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\textbf{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {paren}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "(" swap$ * ")" * }
-  if$
-}
-
-FUNCTION {bbl.and}
-{ "and" }
-
-FUNCTION {bbl.chapter}
-{ "Chapter" }
-
-FUNCTION {bbl.editor}
-{ "Ed." }
-
-FUNCTION {bbl.editors}
-{ "Eds." }
-
-FUNCTION {bbl.edition}
-{ "ed." }
-
-FUNCTION {bbl.etal}
-{ "et~al." }
-
-FUNCTION {bbl.in}
-{ "In" }
-
-FUNCTION {bbl.inpress}
-{ "in press" }
-
-FUNCTION {bbl.msc}
-{ "M.Sc.\ thesis" }
-
-FUNCTION {bbl.page}
-{ "p" }
-
-FUNCTION {bbl.pages}
-{ "pp" }
-
-FUNCTION {bbl.phd}
-{ "Ph.D.\ thesis" }
-
-FUNCTION {bbl.submitted}
-{ "submitted for publication" }
-
-FUNCTION {bbl.techreport}
-{ "Technical Report" }
-
-FUNCTION {bbl.version}
-{ "version" }
-
-FUNCTION {bbl.volume}
-{ "Vol." }
-
-FUNCTION {bbl.first}
-{ "1st" }
-
-FUNCTION {bbl.second}
-{ "2nd" }
-
-FUNCTION {bbl.third}
-{ "3rd" }
-
-FUNCTION {bbl.fourth}
-{ "4th" }
-
-FUNCTION {bbl.fifth}
-{ "5th" }
-
-FUNCTION {bbl.st}
-{ "st" }
-
-FUNCTION {bbl.nd}
-{ "nd" }
-
-FUNCTION {bbl.rd}
-{ "rd" }
-
-FUNCTION {bbl.th}
-{ "th" }
-
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-
-FUNCTION{is.a.digit}
-{ duplicate$ "" =
-    {pop$ #0}
-    {chr.to.int$ #48 - duplicate$
-     #0 < swap$ #9 > or not}
-  if$
-}
-
-FUNCTION{is.a.number}
-{
-  { duplicate$ #1 #1 substring$ is.a.digit }
-    {#2 global.max$ substring$}
-  while$
-  "" =
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.a.number
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    { pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {convert.edition}
-{ extract.num "l" change.case$ 's :=
-  s "first" = s "1" = or
-    { bbl.first 't := }
-    { s "second" = s "2" = or
-        { bbl.second 't := }
-        { s "third" = s "3" = or
-            { bbl.third 't := }
-            { s "fourth" = s "4" = or
-                { bbl.fourth 't := }
-                { s "fifth" = s "5" = or
-                    { bbl.fifth 't := }
-                    { s #1 #1 substring$ is.a.number
-                        { s eng.ord 't := }
-                        { edition 't := }
-                      if$
-                    }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-    }
-  if$
-  t
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {space.connect}
-{ " " swap$ * * }
-
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-  numnames #15 >
-    { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-      t bbl.etal space.connect
-    }
-    {
-       { namesleft #0 > }
-       { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-           nameptr #1 >
-             { namesleft #1 >
-               { add.comma.or.semicolon t * }
-               { numnames #2 >
-                 { "" * }
-                 'skip$
-               if$
-               t "others," =
-                 { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
-               if$
-               }
-             if$
-             }
-           't
-         if$
-         nameptr #1 + 'nameptr :=
-         namesleft #1 - 'namesleft :=
-         }
-     while$
-  }
-  if$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
-      author format.names
-    }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { "" }
-    { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
-      editor format.names
-      add.comma
-      editor num.names$ #1 >
-        { bbl.editors }
-        { bbl.editor }
-      if$
-      *
-    }
-  if$
-}
-
-FUNCTION {n.separate.multi}
-{ 't :=
-  ""
-  #0 'numnames :=
-  t text.length$ #4 > t is.a.number and
-    {
-      { t empty$ not }
-      { t #-1 #1 substring$ is.a.number
-          { numnames #1 + 'numnames := }
-          { #0 'numnames := }
-        if$
-        t #-1 #1 substring$ swap$ *
-        t #-2 global.max$ substring$ 't :=
-        numnames #4 =
-          { duplicate$ #1 #1 substring$ swap$
-            #2 global.max$ substring$
-            "," swap$ * *
-            #1 'numnames :=
-          }
-          'skip$
-        if$
-      }
-      while$
-    }
-    { t swap$ * }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.volume volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.title.noemph}
-{ 't :=
-  t empty$
-    { "" }
-    { t }
-  if$
-}
-
-FUNCTION {format.title}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-       { series field.or.null }
-       { series empty$
-         { "There is a number but no series in " cite$ * warning$ }
-         { series number space.connect }
-       if$
-       }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.sentence "\url{" url * "}" * }
-  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 boldface }
-  if$
-}
-
-FUNCTION {format.bdate}
-{ year empty$
-    { "There's no year in " cite$ * warning$ }
-    'year
-  if$
-}
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$
-    'skip$
-    { convert.edition
-      bbl.edition bibinfo.check
-      " " * bbl.edition *
-    }
-  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
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.required}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.nopp}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { pages n.dashify space.connect }
-      { pages space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.patent}
-{ pages empty$
-    { "There is no patent number for " cite$ * warning$ }
-    { pages multi.page.check
-      { pages n.dashify }
-      { pages n.separate.multi }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.pages}
-{ volume emphasize field.or.null
-  duplicate$ empty$
-    { pop$ format.pages.required }
-    { add.comma pages n.dashify * }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-    { bbl.chapter }
-    { type "l" change.case$ }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-    'skip$
-    { add.comma format.pages * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.title.in}
-{ 's :=
-  s empty$
-    { "" }
-    { editor empty$
-      { bbl.in s format.title space.connect }
-      { bbl.in s format.title space.connect
-        add.semicolon format.editors *
-      }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pub.address}
-{ publisher empty$
-    { "" }
-    { address empty$
-        { publisher }
-        { publisher add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.school.address}
-{ school empty$
-    { "" }
-    { address empty$
-        { school }
-        { school add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.organization.address}
-{ organization empty$
-    { "" }
-    { address empty$
-        { organization }
-        { organization add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.version}
-{ edition empty$
-    { "" }
-    { bbl.version edition tie.or.space.connect }
-  if$
-}
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  year empty$ note empty$ url empty$
-  and and and and and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {empty.doi.note}
-{ doi empty$ note empty$ and
-    { "Need either a note or DOI for " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type emphasize
-    }
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title.noemph "title" output.check
-  new.sentence
-  journal emphasize "journal" output.check
-  after.item 'output.state :=
-  format.date "year" output.check
-  volume empty$
-    { ""
-      format.pages.nopp output
-    }
-    { format.vol.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author empty$
-    { booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-      new.block
-      editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      "author and editor" editor either.or.check
-      booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  pages empty$
-    'skip$
-    { format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  howpublished output
-  address output
-  format.date output
-  note output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author empty$
-    { title format.title "title" output.check
-      format.edition output
-      new.block
-      editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
-      { "" format.editors * "editor" output.check }
-    if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title format.title.in "title" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author empty$
-    { booktitle format.title "booktitle" output.check
-      format.edition output
-      new.block
-      editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title empty$
-        'skip$
-        { title format.title.noemph output }
-      if$
-      after.sentence 'output.state :=
-      booktitle format.title.in "booktitle" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {inpress}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  doi empty$
-    {  bbl.inpress output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title.noemph output
-      after.sentence 'output.state :=
-    }
-  if$
-  booktitle format.title output
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {manual}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  format.version output
-  new.block
-  format.organization.address output
-  format.bdate output
-  note output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.msc format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url output
-  note output
-  fin.entry
-  empty.misc.check
-}
-
-FUNCTION {patent}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal "journal" output.check
-  after.item 'output.state :=
-  format.pages.patent "pages" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.phd format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  title format.title.noemph "title" output.check
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title "title" output.check
-  new.block
-  type empty$
-    'bbl.techreport
-    'type
-  if$
-  number empty$
-    'skip$
-    { number tie.or.space.connect }
-  if$
-  output
-  format.pub.address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal empty$
-    'skip$
-    { journal emphasize "journal" output.check }
-  if$
-  doi empty$
-    {  note output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  fin.entry
-  empty.doi.note
-}
-
-FUNCTION {conference} {inproceedings}
-
-FUNCTION {other} {patent}
-
-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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-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{\url}[1]{\texttt{#1}}"
-  write$ newline$
-  "\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 `iecr.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/iecrM.bst b/Master/texmf-dist/bibtex/bst/achemso/iecrM.bst
deleted file mode 100644
index 55f7e8a7434..00000000000
--- a/Master/texmf-dist/bibtex/bst/achemso/iecrM.bst
+++ /dev/null
@@ -1,1241 +0,0 @@
-%%
-%% This is file `iecrM.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,mcp,iecr')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  {
-  label
-  }
-
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
-INTEGERS { separate.by.semicolon }
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.item :=
-}
-
-FUNCTION {add.comma}
-{ ", " * }
-
-FUNCTION {add.semicolon}
-{ "; " * }
-
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
-FUNCTION {add.colon}
-{ ": " * }
-
-STRINGS { s t }
-
-FUNCTION {output.nonnull}
-{ 's :=
-  output.state mid.sentence =
-    { add.comma write$ }
-    { output.state after.block =
-      { add.semicolon write$
-        newline$
-        "\newblock " write$
-      }
-      { output.state before.all =
-          'write$
-          { output.state after.item =
-            { " " * write$ }
-            { add.period$ " " * write$ }
-          if$
-          }
-        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 {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-INTEGERS {would.add.period.textlen}
-FUNCTION {would.add.period}
-{ duplicate$
-  add.period$
-  text.length$
-  'would.add.period.textlen :=
-  duplicate$
-  text.length$
-  would.add.period.textlen =
-    { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ would.add.period
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPuncttrue" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
-    }
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPunctfalse" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{}{\mcitedefaultseppunct}\relax"
-    }
-  if$
-  write$
-  newline$
-  "\EndOfBibitem" write$
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\emph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {boldface}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\textbf{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {paren}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "(" swap$ * ")" * }
-  if$
-}
-
-FUNCTION {bbl.and}
-{ "and" }
-
-FUNCTION {bbl.chapter}
-{ "Chapter" }
-
-FUNCTION {bbl.editor}
-{ "Ed." }
-
-FUNCTION {bbl.editors}
-{ "Eds." }
-
-FUNCTION {bbl.edition}
-{ "ed." }
-
-FUNCTION {bbl.etal}
-{ "et~al." }
-
-FUNCTION {bbl.in}
-{ "In" }
-
-FUNCTION {bbl.inpress}
-{ "in press" }
-
-FUNCTION {bbl.msc}
-{ "M.Sc.\ thesis" }
-
-FUNCTION {bbl.page}
-{ "p" }
-
-FUNCTION {bbl.pages}
-{ "pp" }
-
-FUNCTION {bbl.phd}
-{ "Ph.D.\ thesis" }
-
-FUNCTION {bbl.submitted}
-{ "submitted for publication" }
-
-FUNCTION {bbl.techreport}
-{ "Technical Report" }
-
-FUNCTION {bbl.version}
-{ "version" }
-
-FUNCTION {bbl.volume}
-{ "Vol." }
-
-FUNCTION {bbl.first}
-{ "1st" }
-
-FUNCTION {bbl.second}
-{ "2nd" }
-
-FUNCTION {bbl.third}
-{ "3rd" }
-
-FUNCTION {bbl.fourth}
-{ "4th" }
-
-FUNCTION {bbl.fifth}
-{ "5th" }
-
-FUNCTION {bbl.st}
-{ "st" }
-
-FUNCTION {bbl.nd}
-{ "nd" }
-
-FUNCTION {bbl.rd}
-{ "rd" }
-
-FUNCTION {bbl.th}
-{ "th" }
-
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-
-FUNCTION{is.a.digit}
-{ duplicate$ "" =
-    {pop$ #0}
-    {chr.to.int$ #48 - duplicate$
-     #0 < swap$ #9 > or not}
-  if$
-}
-
-FUNCTION{is.a.number}
-{
-  { duplicate$ #1 #1 substring$ is.a.digit }
-    {#2 global.max$ substring$}
-  while$
-  "" =
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.a.number
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    { pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {convert.edition}
-{ extract.num "l" change.case$ 's :=
-  s "first" = s "1" = or
-    { bbl.first 't := }
-    { s "second" = s "2" = or
-        { bbl.second 't := }
-        { s "third" = s "3" = or
-            { bbl.third 't := }
-            { s "fourth" = s "4" = or
-                { bbl.fourth 't := }
-                { s "fifth" = s "5" = or
-                    { bbl.fifth 't := }
-                    { s #1 #1 substring$ is.a.number
-                        { s eng.ord 't := }
-                        { edition 't := }
-                      if$
-                    }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-    }
-  if$
-  t
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {space.connect}
-{ " " swap$ * * }
-
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-  numnames #15 >
-    { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-      t bbl.etal space.connect
-    }
-    {
-       { namesleft #0 > }
-       { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-           nameptr #1 >
-             { namesleft #1 >
-               { add.comma.or.semicolon t * }
-               { numnames #2 >
-                 { "" * }
-                 'skip$
-               if$
-               t "others," =
-                 { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
-               if$
-               }
-             if$
-             }
-           't
-         if$
-         nameptr #1 + 'nameptr :=
-         namesleft #1 - 'namesleft :=
-         }
-     while$
-  }
-  if$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
-      author format.names
-    }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { "" }
-    { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
-      editor format.names
-      add.comma
-      editor num.names$ #1 >
-        { bbl.editors }
-        { bbl.editor }
-      if$
-      *
-    }
-  if$
-}
-
-FUNCTION {n.separate.multi}
-{ 't :=
-  ""
-  #0 'numnames :=
-  t text.length$ #4 > t is.a.number and
-    {
-      { t empty$ not }
-      { t #-1 #1 substring$ is.a.number
-          { numnames #1 + 'numnames := }
-          { #0 'numnames := }
-        if$
-        t #-1 #1 substring$ swap$ *
-        t #-2 global.max$ substring$ 't :=
-        numnames #4 =
-          { duplicate$ #1 #1 substring$ swap$
-            #2 global.max$ substring$
-            "," swap$ * *
-            #1 'numnames :=
-          }
-          'skip$
-        if$
-      }
-      while$
-    }
-    { t swap$ * }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.volume volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.title.noemph}
-{ 't :=
-  t empty$
-    { "" }
-    { t }
-  if$
-}
-
-FUNCTION {format.title}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-       { series field.or.null }
-       { series empty$
-         { "There is a number but no series in " cite$ * warning$ }
-         { series number space.connect }
-       if$
-       }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.sentence "\url{" url * "}" * }
-  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 boldface }
-  if$
-}
-
-FUNCTION {format.bdate}
-{ year empty$
-    { "There's no year in " cite$ * warning$ }
-    'year
-  if$
-}
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$
-    'skip$
-    { convert.edition
-      bbl.edition bibinfo.check
-      " " * bbl.edition *
-    }
-  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
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.required}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.nopp}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { pages n.dashify space.connect }
-      { pages space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.patent}
-{ pages empty$
-    { "There is no patent number for " cite$ * warning$ }
-    { pages multi.page.check
-      { pages n.dashify }
-      { pages n.separate.multi }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.pages}
-{ volume emphasize field.or.null
-  duplicate$ empty$
-    { pop$ format.pages.required }
-    { add.comma pages n.dashify * }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-    { bbl.chapter }
-    { type "l" change.case$ }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-    'skip$
-    { add.comma format.pages * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.title.in}
-{ 's :=
-  s empty$
-    { "" }
-    { editor empty$
-      { bbl.in s format.title space.connect }
-      { bbl.in s format.title space.connect
-        add.semicolon format.editors *
-      }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pub.address}
-{ publisher empty$
-    { "" }
-    { address empty$
-        { publisher }
-        { publisher add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.school.address}
-{ school empty$
-    { "" }
-    { address empty$
-        { school }
-        { school add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.organization.address}
-{ organization empty$
-    { "" }
-    { address empty$
-        { organization }
-        { organization add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.version}
-{ edition empty$
-    { "" }
-    { bbl.version edition tie.or.space.connect }
-  if$
-}
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  year empty$ note empty$ url empty$
-  and and and and and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {empty.doi.note}
-{ doi empty$ note empty$ and
-    { "Need either a note or DOI for " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type emphasize
-    }
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title.noemph "title" output.check
-  new.sentence
-  journal emphasize "journal" output.check
-  after.item 'output.state :=
-  format.date "year" output.check
-  volume empty$
-    { ""
-      format.pages.nopp output
-    }
-    { format.vol.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author empty$
-    { booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-      new.block
-      editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      "author and editor" editor either.or.check
-      booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  pages empty$
-    'skip$
-    { format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  howpublished output
-  address output
-  format.date output
-  note output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author empty$
-    { title format.title "title" output.check
-      format.edition output
-      new.block
-      editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
-      { "" format.editors * "editor" output.check }
-    if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title format.title.in "title" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author empty$
-    { booktitle format.title "booktitle" output.check
-      format.edition output
-      new.block
-      editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title empty$
-        'skip$
-        { title format.title.noemph output }
-      if$
-      after.sentence 'output.state :=
-      booktitle format.title.in "booktitle" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {inpress}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  doi empty$
-    {  bbl.inpress output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title.noemph output
-      after.sentence 'output.state :=
-    }
-  if$
-  booktitle format.title output
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {manual}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  format.version output
-  new.block
-  format.organization.address output
-  format.bdate output
-  note output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.msc format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url output
-  note output
-  fin.entry
-  empty.misc.check
-}
-
-FUNCTION {patent}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal "journal" output.check
-  after.item 'output.state :=
-  format.pages.patent "pages" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.phd format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  title format.title.noemph "title" output.check
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title "title" output.check
-  new.block
-  type empty$
-    'bbl.techreport
-    'type
-  if$
-  number empty$
-    'skip$
-    { number tie.or.space.connect }
-  if$
-  output
-  format.pub.address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal empty$
-    'skip$
-    { journal emphasize "journal" output.check }
-  if$
-  doi empty$
-    {  note output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  fin.entry
-  empty.doi.note
-}
-
-FUNCTION {conference} {inproceedings}
-
-FUNCTION {other} {patent}
-
-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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-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$
-  "\ifx\mcitethebibliography\mciteundefinedmacro"
-  write$ newline$
-  "\PackageError{achemsoM.bst}{mciteplus.sty has not been loaded}"
-  write$ newline$
-  "{This bibstyle requires the use of the mciteplus package.}\fi"
-  write$ newline$
-  "\begin{mcitethebibliography}{"  longest.label  * "}" * write$ newline$
-  "\mciteSetBstSublistMode{f}"
-  write$ newline$
-  "\mciteSetBstMaxWidthForm{subitem}{(\alph{mcitesubitemcount})}"
-  write$ newline$
-  "\mciteSetBstSublistLabelBeginEnd{\mcitemaxwidthsubitemform\space}"
-  write$ newline$
-  "{\relax}{\relax}"
-  write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcitethebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `iecrM.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/iecrnat.bst b/Master/texmf-dist/bibtex/bst/achemso/iecrnat.bst
deleted file mode 100644
index 72a8f0bdf9c..00000000000
--- a/Master/texmf-dist/bibtex/bst/achemso/iecrnat.bst
+++ /dev/null
@@ -1,1408 +0,0 @@
-%%
-%% This is file `iecrnat.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,nat,iecr')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    key
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  {
-  label
-    extra.label
-    short.list
-  }
-
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
-INTEGERS { separate.by.semicolon }
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.item :=
-}
-
-FUNCTION {add.comma}
-{ ", " * }
-
-FUNCTION {add.semicolon}
-{ "; " * }
-
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
-FUNCTION {add.colon}
-{ ": " * }
-
-STRINGS { s t }
-
-FUNCTION {output.nonnull}
-{ 's :=
-  output.state mid.sentence =
-    { add.comma write$ }
-    { output.state after.block =
-      { add.semicolon write$
-        newline$
-        "\newblock " write$
-      }
-      { output.state before.all =
-          'write$
-          { output.state after.item =
-            { " " * write$ }
-            { add.period$ " " * write$ }
-          if$
-          }
-        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 {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\emph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {boldface}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\textbf{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {paren}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "(" swap$ * ")" * }
-  if$
-}
-
-FUNCTION {bbl.and}
-{ "and" }
-
-FUNCTION {bbl.chapter}
-{ "Chapter" }
-
-FUNCTION {bbl.editor}
-{ "Ed." }
-
-FUNCTION {bbl.editors}
-{ "Eds." }
-
-FUNCTION {bbl.edition}
-{ "ed." }
-
-FUNCTION {bbl.etal}
-{ "et~al." }
-
-FUNCTION {bbl.in}
-{ "In" }
-
-FUNCTION {bbl.inpress}
-{ "in press" }
-
-FUNCTION {bbl.msc}
-{ "M.Sc.\ thesis" }
-
-FUNCTION {bbl.page}
-{ "p" }
-
-FUNCTION {bbl.pages}
-{ "pp" }
-
-FUNCTION {bbl.phd}
-{ "Ph.D.\ thesis" }
-
-FUNCTION {bbl.submitted}
-{ "submitted for publication" }
-
-FUNCTION {bbl.techreport}
-{ "Technical Report" }
-
-FUNCTION {bbl.version}
-{ "version" }
-
-FUNCTION {bbl.volume}
-{ "Vol." }
-
-FUNCTION {bbl.first}
-{ "1st" }
-
-FUNCTION {bbl.second}
-{ "2nd" }
-
-FUNCTION {bbl.third}
-{ "3rd" }
-
-FUNCTION {bbl.fourth}
-{ "4th" }
-
-FUNCTION {bbl.fifth}
-{ "5th" }
-
-FUNCTION {bbl.st}
-{ "st" }
-
-FUNCTION {bbl.nd}
-{ "nd" }
-
-FUNCTION {bbl.rd}
-{ "rd" }
-
-FUNCTION {bbl.th}
-{ "th" }
-
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-
-FUNCTION{is.a.digit}
-{ duplicate$ "" =
-    {pop$ #0}
-    {chr.to.int$ #48 - duplicate$
-     #0 < swap$ #9 > or not}
-  if$
-}
-
-FUNCTION{is.a.number}
-{
-  { duplicate$ #1 #1 substring$ is.a.digit }
-    {#2 global.max$ substring$}
-  while$
-  "" =
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.a.number
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    { pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {convert.edition}
-{ extract.num "l" change.case$ 's :=
-  s "first" = s "1" = or
-    { bbl.first 't := }
-    { s "second" = s "2" = or
-        { bbl.second 't := }
-        { s "third" = s "3" = or
-            { bbl.third 't := }
-            { s "fourth" = s "4" = or
-                { bbl.fourth 't := }
-                { s "fifth" = s "5" = or
-                    { bbl.fifth 't := }
-                    { s #1 #1 substring$ is.a.number
-                        { s eng.ord 't := }
-                        { edition 't := }
-                      if$
-                    }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-    }
-  if$
-  t
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {space.connect}
-{ " " swap$ * * }
-
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-  numnames #15 >
-    { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-      t bbl.etal space.connect
-    }
-    {
-       { namesleft #0 > }
-       { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-           nameptr #1 >
-             { namesleft #1 >
-               { add.comma.or.semicolon t * }
-               { numnames #2 >
-                 { "" * }
-                 'skip$
-               if$
-               t "others," =
-                 { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
-               if$
-               }
-             if$
-             }
-           't
-         if$
-         nameptr #1 + 'nameptr :=
-         namesleft #1 - 'namesleft :=
-         }
-     while$
-  }
-  if$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
-      author format.names
-    }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { "" }
-    { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
-      editor format.names
-      add.comma
-      editor num.names$ #1 >
-        { bbl.editors }
-        { bbl.editor }
-      if$
-      *
-    }
-  if$
-}
-
-FUNCTION {n.separate.multi}
-{ 't :=
-  ""
-  #0 'numnames :=
-  t text.length$ #4 > t is.a.number and
-    {
-      { t empty$ not }
-      { t #-1 #1 substring$ is.a.number
-          { numnames #1 + 'numnames := }
-          { #0 'numnames := }
-        if$
-        t #-1 #1 substring$ swap$ *
-        t #-2 global.max$ substring$ 't :=
-        numnames #4 =
-          { duplicate$ #1 #1 substring$ swap$
-            #2 global.max$ substring$
-            "," swap$ * *
-            #1 'numnames :=
-          }
-          'skip$
-        if$
-      }
-      while$
-    }
-    { t swap$ * }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.volume volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.title.noemph}
-{ 't :=
-  t empty$
-    { "" }
-    { t }
-  if$
-}
-
-FUNCTION {format.title}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-       { series field.or.null }
-       { series empty$
-         { "There is a number but no series in " cite$ * warning$ }
-         { series number space.connect }
-       if$
-       }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.sentence "\url{" url * "}" * }
-  if$
-}
-
-FUNCTION {format.full.names}
-{'s :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{vv~}{ll}" format.name$ 't :=
-      nameptr #1 >
-        {
-          namesleft #1 >
-            { ", " * t * }
-            {
-              numnames #2 >
-                { "," * }
-                'skip$
-              if$
-              t "others" =
-                { bbl.etal * }
-                { bbl.and space.connect t space.connect }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {author.editor.full}
-{ author empty$
-    { editor empty$
-        { "" }
-        { editor format.full.names }
-      if$
-    }
-    { author format.full.names }
-  if$
-}
-
-FUNCTION {author.full}
-{ author empty$
-    { "" }
-    { author format.full.names }
-  if$
-}
-
-FUNCTION {editor.full}
-{ editor empty$
-    { "" }
-    { editor format.full.names }
-  if$
-}
-
-FUNCTION {make.full.names}
-{ type$ "book" =
-  type$ "inbook" =
-  or
-    'author.editor.full
-    { type$ "proceedings" =
-        'editor.full
-        'author.full
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.bibitem} { newline$
-  "\bibitem[" write$
-  label write$
-  ")" make.full.names duplicate$ short.list =
-     { pop$ }
-     { * }
-   if$
-  "]{" * write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
-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 boldface }
-  if$
-}
-
-FUNCTION {format.bdate}
-{ year empty$
-    { "There's no year in " cite$ * warning$ }
-    'year
-  if$
-}
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$
-    'skip$
-    { convert.edition
-      bbl.edition bibinfo.check
-      " " * bbl.edition *
-    }
-  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
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.required}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.nopp}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { pages n.dashify space.connect }
-      { pages space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.patent}
-{ pages empty$
-    { "There is no patent number for " cite$ * warning$ }
-    { pages multi.page.check
-      { pages n.dashify }
-      { pages n.separate.multi }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.pages}
-{ volume emphasize field.or.null
-  duplicate$ empty$
-    { pop$ format.pages.required }
-    { add.comma pages n.dashify * }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-    { bbl.chapter }
-    { type "l" change.case$ }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-    'skip$
-    { add.comma format.pages * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.title.in}
-{ 's :=
-  s empty$
-    { "" }
-    { editor empty$
-      { bbl.in s format.title space.connect }
-      { bbl.in s format.title space.connect
-        add.semicolon format.editors *
-      }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pub.address}
-{ publisher empty$
-    { "" }
-    { address empty$
-        { publisher }
-        { publisher add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.school.address}
-{ school empty$
-    { "" }
-    { address empty$
-        { school }
-        { school add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.organization.address}
-{ organization empty$
-    { "" }
-    { address empty$
-        { organization }
-        { organization add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.version}
-{ edition empty$
-    { "" }
-    { bbl.version edition tie.or.space.connect }
-  if$
-}
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  year empty$ note empty$ url empty$
-  and and and and and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {empty.doi.note}
-{ doi empty$ note empty$ and
-    { "Need either a note or DOI for " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type emphasize
-    }
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title.noemph "title" output.check
-  new.sentence
-  journal emphasize "journal" output.check
-  after.item 'output.state :=
-  format.date "year" output.check
-  volume empty$
-    { ""
-      format.pages.nopp output
-    }
-    { format.vol.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author empty$
-    { booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-      new.block
-      editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      "author and editor" editor either.or.check
-      booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  pages empty$
-    'skip$
-    { format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  howpublished output
-  address output
-  format.date output
-  note output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author empty$
-    { title format.title "title" output.check
-      format.edition output
-      new.block
-      editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
-      { "" format.editors * "editor" output.check }
-    if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title format.title.in "title" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author empty$
-    { booktitle format.title "booktitle" output.check
-      format.edition output
-      new.block
-      editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title empty$
-        'skip$
-        { title format.title.noemph output }
-      if$
-      after.sentence 'output.state :=
-      booktitle format.title.in "booktitle" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {inpress}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  doi empty$
-    {  bbl.inpress output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title.noemph output
-      after.sentence 'output.state :=
-    }
-  if$
-  booktitle format.title output
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {manual}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  format.version output
-  new.block
-  format.organization.address output
-  format.bdate output
-  note output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.msc format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url output
-  note output
-  fin.entry
-  empty.misc.check
-}
-
-FUNCTION {patent}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal "journal" output.check
-  after.item 'output.state :=
-  format.pages.patent "pages" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.phd format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  title format.title.noemph "title" output.check
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title "title" output.check
-  new.block
-  type empty$
-    'bbl.techreport
-    'type
-  if$
-  number empty$
-    'skip$
-    { number tie.or.space.connect }
-  if$
-  output
-  format.pub.address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal empty$
-    'skip$
-    { journal emphasize "journal" output.check }
-  if$
-  doi empty$
-    {  note output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  fin.entry
-  empty.doi.note
-}
-
-FUNCTION {conference} {inproceedings}
-
-FUNCTION {other} {patent}
-
-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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-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
-
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
-}
-
-FUNCTION {format.lab.names}
-{ 's :=
-  s #1 "{vv~}{ll}" format.name$
-  s num.names$ duplicate$
-  #2 >
-    { pop$ bbl.etal space.connect }
-    { #2 <
-        'skip$
-        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
-            { bbl.etal space.connect }
-            { bbl.and space.connect s #2 "{vv~}{ll}" format.name$ space.connect }
-          if$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {author.key.label}
-{ author empty$
-    { key empty$
-        { cite$ #1 #3 substring$ }
-        'key
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {author.editor.key.label}
-{ author empty$
-    { editor empty$
-        { key empty$
-            { cite$ #1 #3 substring$ }
-            'key
-          if$
-        }
-        { editor format.lab.names }
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {author.key.organization.label}
-{ author empty$
-    { key empty$
-        { organization empty$
-            { cite$ #1 #3 substring$ }
-            { "The " #4 organization chop.word #3 text.prefix$ }
-          if$
-        }
-        'key
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {editor.key.organization.label}
-{ editor empty$
-    { key empty$
-        { organization empty$
-            { cite$ #1 #3 substring$ }
-            { "The " #4 organization chop.word #3 text.prefix$ }
-          if$
-        }
-        'key
-      if$
-    }
-    { editor format.lab.names }
-  if$
-}
-
-FUNCTION {calc.short.authors}
-{ type$ "book" =
-  type$ "inbook" =
-  or
-    'author.editor.key.label
-    { type$ "proceedings" =
-        'editor.key.organization.label
-        { type$ "manual" =
-            'author.key.organization.label
-            'author.key.label
-          if$
-        }
-      if$
-    }
-  if$
-  'short.list :=
-}
-
-FUNCTION {calc.label}
-{ calc.short.authors
-  short.list
-  "("
-  *
-  year duplicate$ empty$
-  short.list key field.or.null = or
-     { pop$ "" }
-     'skip$
-  if$
-  *
-  'label :=
-}
-
-ITERATE {calc.label}
-
-STRINGS { longest.label last.label next.extra }
-
-INTEGERS { longest.label.width last.extra.num number.label }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #0 int.to.chr$ 'last.label :=
-  "" 'next.extra :=
-  #0 'longest.label.width :=
-  #0 'last.extra.num :=
-  #0 'number.label :=
-}
-
-FUNCTION {forward.pass}
-{ last.label label =
-    { last.extra.num #1 + 'last.extra.num :=
-      last.extra.num int.to.chr$ 'extra.label :=
-    }
-    { "a" chr.to.int$ 'last.extra.num :=
-      "" 'extra.label :=
-      label 'last.label :=
-    }
-  if$
-  number.label #1 + 'number.label :=
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {forward.pass}
-
-
-FUNCTION {begin.bib}
-{ preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-  "\providecommand{\url}[1]{\texttt{#1}}"
-  write$ newline$
-  "\providecommand{\refin}[1]{\\ \textbf{Referenced in:} #1}"
-  write$ newline$
-  "\providecommand{\natexlab}[1]{#1}"
-  write$ newline$
-  "\begin{thebibliography}{" number.label int.to.str$ * "}" *
-  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 `iecrnat.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/achemso/iecrnatM.bst b/Master/texmf-dist/bibtex/bst/achemso/iecrnatM.bst
deleted file mode 100644
index 64b2a466bbb..00000000000
--- a/Master/texmf-dist/bibtex/bst/achemso/iecrnatM.bst
+++ /dev/null
@@ -1,1446 +0,0 @@
-%%
-%% This is file `iecrnatM.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% achemso.dtx  (with options: `bib,nat,mcp,iecr')
-%%  ----------------------------------------------------------------
-%%  The achemso package - LaTeX and BibTeX support for American
-%%  Chemical Society publications
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3c or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    key
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  {
-  label
-    extra.label
-    short.list
-  }
-
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
-INTEGERS { separate.by.semicolon }
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.item :=
-}
-
-FUNCTION {add.comma}
-{ ", " * }
-
-FUNCTION {add.semicolon}
-{ "; " * }
-
-
-FUNCTION {add.comma.or.semicolon}
-{ #1 separate.by.semicolon =
-    'add.semicolon
-    'add.comma
-  if$
-}
-
-FUNCTION {add.colon}
-{ ": " * }
-
-STRINGS { s t }
-
-FUNCTION {output.nonnull}
-{ 's :=
-  output.state mid.sentence =
-    { add.comma write$ }
-    { output.state after.block =
-      { add.semicolon write$
-        newline$
-        "\newblock " write$
-      }
-      { output.state before.all =
-          'write$
-          { output.state after.item =
-            { " " * write$ }
-            { add.period$ " " * write$ }
-          if$
-          }
-        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 {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-INTEGERS {would.add.period.textlen}
-FUNCTION {would.add.period}
-{ duplicate$
-  add.period$
-  text.length$
-  'would.add.period.textlen :=
-  duplicate$
-  text.length$
-  would.add.period.textlen =
-    { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ would.add.period
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPuncttrue" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
-    }
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPunctfalse" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{}{\mcitedefaultseppunct}\relax"
-    }
-  if$
-  write$
-  newline$
-  "\EndOfBibitem" write$
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\emph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {boldface}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\textbf{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {paren}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "(" swap$ * ")" * }
-  if$
-}
-
-FUNCTION {bbl.and}
-{ "and" }
-
-FUNCTION {bbl.chapter}
-{ "Chapter" }
-
-FUNCTION {bbl.editor}
-{ "Ed." }
-
-FUNCTION {bbl.editors}
-{ "Eds." }
-
-FUNCTION {bbl.edition}
-{ "ed." }
-
-FUNCTION {bbl.etal}
-{ "et~al." }
-
-FUNCTION {bbl.in}
-{ "In" }
-
-FUNCTION {bbl.inpress}
-{ "in press" }
-
-FUNCTION {bbl.msc}
-{ "M.Sc.\ thesis" }
-
-FUNCTION {bbl.page}
-{ "p" }
-
-FUNCTION {bbl.pages}
-{ "pp" }
-
-FUNCTION {bbl.phd}
-{ "Ph.D.\ thesis" }
-
-FUNCTION {bbl.submitted}
-{ "submitted for publication" }
-
-FUNCTION {bbl.techreport}
-{ "Technical Report" }
-
-FUNCTION {bbl.version}
-{ "version" }
-
-FUNCTION {bbl.volume}
-{ "Vol." }
-
-FUNCTION {bbl.first}
-{ "1st" }
-
-FUNCTION {bbl.second}
-{ "2nd" }
-
-FUNCTION {bbl.third}
-{ "3rd" }
-
-FUNCTION {bbl.fourth}
-{ "4th" }
-
-FUNCTION {bbl.fifth}
-{ "5th" }
-
-FUNCTION {bbl.st}
-{ "st" }
-
-FUNCTION {bbl.nd}
-{ "nd" }
-
-FUNCTION {bbl.rd}
-{ "rd" }
-
-FUNCTION {bbl.th}
-{ "th" }
-
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-
-FUNCTION{is.a.digit}
-{ duplicate$ "" =
-    {pop$ #0}
-    {chr.to.int$ #48 - duplicate$
-     #0 < swap$ #9 > or not}
-  if$
-}
-
-FUNCTION{is.a.number}
-{
-  { duplicate$ #1 #1 substring$ is.a.digit }
-    {#2 global.max$ substring$}
-  while$
-  "" =
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.a.number
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    { pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {convert.edition}
-{ extract.num "l" change.case$ 's :=
-  s "first" = s "1" = or
-    { bbl.first 't := }
-    { s "second" = s "2" = or
-        { bbl.second 't := }
-        { s "third" = s "3" = or
-            { bbl.third 't := }
-            { s "fourth" = s "4" = or
-                { bbl.fourth 't := }
-                { s "fifth" = s "5" = or
-                    { bbl.fifth 't := }
-                    { s #1 #1 substring$ is.a.number
-                        { s eng.ord 't := }
-                        { edition 't := }
-                      if$
-                    }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-    }
-  if$
-  t
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {space.connect}
-{ " " swap$ * * }
-
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-  numnames #15 >
-    { s #1 "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-      t bbl.etal space.connect
-    }
-    {
-       { namesleft #0 > }
-       { s nameptr "{vv~}{ll,}{~f.}{,~jj}" format.name$ 't :=
-           nameptr #1 >
-             { namesleft #1 >
-               { add.comma.or.semicolon t * }
-               { numnames #2 >
-                 { "" * }
-                 'skip$
-               if$
-               t "others," =
-                 { bbl.etal space.connect }
-                 { add.comma.or.semicolon t * }
-               if$
-               }
-             if$
-             }
-           't
-         if$
-         nameptr #1 + 'nameptr :=
-         namesleft #1 - 'namesleft :=
-         }
-     while$
-  }
-  if$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { #1 'author.or.editor :=
-      #1 'separate.by.semicolon :=
-      author format.names
-    }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { "" }
-    { #2 'author.or.editor :=
-      #0 'separate.by.semicolon :=
-      editor format.names
-      add.comma
-      editor num.names$ #1 >
-        { bbl.editors }
-        { bbl.editor }
-      if$
-      *
-    }
-  if$
-}
-
-FUNCTION {n.separate.multi}
-{ 't :=
-  ""
-  #0 'numnames :=
-  t text.length$ #4 > t is.a.number and
-    {
-      { t empty$ not }
-      { t #-1 #1 substring$ is.a.number
-          { numnames #1 + 'numnames := }
-          { #0 'numnames := }
-        if$
-        t #-1 #1 substring$ swap$ *
-        t #-2 global.max$ substring$ 't :=
-        numnames #4 =
-          { duplicate$ #1 #1 substring$ swap$
-            #2 global.max$ substring$
-            "," swap$ * *
-            #1 'numnames :=
-          }
-          'skip$
-        if$
-      }
-      while$
-    }
-    { t swap$ * }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.volume volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.title.noemph}
-{ 't :=
-  t empty$
-    { "" }
-    { t }
-  if$
-}
-
-FUNCTION {format.title}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-       { series field.or.null }
-       { series empty$
-         { "There is a number but no series in " cite$ * warning$ }
-         { series number space.connect }
-       if$
-       }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.sentence "\url{" url * "}" * }
-  if$
-}
-
-FUNCTION {format.full.names}
-{'s :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{vv~}{ll}" format.name$ 't :=
-      nameptr #1 >
-        {
-          namesleft #1 >
-            { ", " * t * }
-            {
-              numnames #2 >
-                { "," * }
-                'skip$
-              if$
-              t "others" =
-                { bbl.etal * }
-                { bbl.and space.connect t space.connect }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {author.editor.full}
-{ author empty$
-    { editor empty$
-        { "" }
-        { editor format.full.names }
-      if$
-    }
-    { author format.full.names }
-  if$
-}
-
-FUNCTION {author.full}
-{ author empty$
-    { "" }
-    { author format.full.names }
-  if$
-}
-
-FUNCTION {editor.full}
-{ editor empty$
-    { "" }
-    { editor format.full.names }
-  if$
-}
-
-FUNCTION {make.full.names}
-{ type$ "book" =
-  type$ "inbook" =
-  or
-    'author.editor.full
-    { type$ "proceedings" =
-        'editor.full
-        'author.full
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.bibitem} { newline$
-  "\bibitem[" write$
-  label write$
-  ")" make.full.names duplicate$ short.list =
-     { pop$ }
-     { * }
-   if$
-  "]{" * write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
-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 boldface }
-  if$
-}
-
-FUNCTION {format.bdate}
-{ year empty$
-    { "There's no year in " cite$ * warning$ }
-    'year
-  if$
-}
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$
-    'skip$
-    { convert.edition
-      bbl.edition bibinfo.check
-      " " * bbl.edition *
-    }
-  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
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.required}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { bbl.pages pages n.dashify tie.or.space.connect }
-      { bbl.page pages tie.or.space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.nopp}
-{ pages empty$
-    { ""
-      "There are no page numbers for " cite$ * warning$
-      output
-    }
-    { pages multi.page.check
-      { pages n.dashify space.connect }
-      { pages space.connect }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.patent}
-{ pages empty$
-    { "There is no patent number for " cite$ * warning$ }
-    { pages multi.page.check
-      { pages n.dashify }
-      { pages n.separate.multi }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.pages}
-{ volume emphasize field.or.null
-  duplicate$ empty$
-    { pop$ format.pages.required }
-    { add.comma pages n.dashify * }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-    { bbl.chapter }
-    { type "l" change.case$ }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-    'skip$
-    { add.comma format.pages * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.title.in}
-{ 's :=
-  s empty$
-    { "" }
-    { editor empty$
-      { bbl.in s format.title space.connect }
-      { bbl.in s format.title space.connect
-        add.semicolon format.editors *
-      }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.pub.address}
-{ publisher empty$
-    { "" }
-    { address empty$
-        { publisher }
-        { publisher add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.school.address}
-{ school empty$
-    { "" }
-    { address empty$
-        { school }
-        { school add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.organization.address}
-{ organization empty$
-    { "" }
-    { address empty$
-        { organization }
-        { organization add.colon address *}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.version}
-{ edition empty$
-    { "" }
-    { bbl.version edition tie.or.space.connect }
-  if$
-}
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  year empty$ note empty$ url empty$
-  and and and and and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {empty.doi.note}
-{ doi empty$ note empty$ and
-    { "Need either a note or DOI for " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type emphasize
-    }
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title.noemph "title" output.check
-  new.sentence
-  journal emphasize "journal" output.check
-  after.item 'output.state :=
-  format.date "year" output.check
-  volume empty$
-    { ""
-      format.pages.nopp output
-    }
-    { format.vol.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author empty$
-    { booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-      new.block
-      editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      "author and editor" editor either.or.check
-      booktitle empty$
-        { title format.title "title" output.check }
-        { booktitle format.title "booktitle" output.check }
-      if$
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  pages empty$
-    'skip$
-    { format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  howpublished output
-  address output
-  format.date output
-  note output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author empty$
-    { title format.title "title" output.check
-      format.edition output
-      new.block
-      editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
-      { "" format.editors * "editor" output.check }
-    if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title format.title.in "title" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author empty$
-    { booktitle format.title "booktitle" output.check
-      format.edition output
-      new.block
-      editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
-        { "" format.editors * "editor" output.check }
-      if$
-    }
-    { format.authors output
-      after.item 'output.state :=
-      title empty$
-        'skip$
-        { title format.title.noemph output }
-      if$
-      after.sentence 'output.state :=
-      booktitle format.title.in "booktitle" output.check
-      format.edition output
-    }
-  if$
-  new.block
-  format.number.series output
-  new.block
-  format.pub.address "publisher" output.check
-  format.bdate "year" output.check
-  new.block
-  format.bvolume output
-  format.chapter.pages "chapter and pages" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {inpress}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal emphasize "journal" output.check
-  doi empty$
-    {  bbl.inpress output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title.noemph output
-      after.sentence 'output.state :=
-    }
-  if$
-  booktitle format.title output
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {manual}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title format.title "title" output.check
-  format.version output
-  new.block
-  format.organization.address output
-  format.bdate output
-  note output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.msc format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  after.item 'output.state :=
-  title empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url output
-  note output
-  fin.entry
-  empty.misc.check
-}
-
-FUNCTION {patent}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal "journal" output.check
-  after.item 'output.state :=
-  format.pages.patent "pages" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  bbl.phd format.thesis.type output
-  format.school.address "school" output.check
-  format.bdate "year" output.check
-  note output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  title format.title.noemph "title" output.check
-  address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {remark}
-{ output.bibitem
-  note "note" output.check
-  fin.entry
-}
-
-FUNCTION {submitted}
-{ output.bibitem
-  format.authors "author" output.check
-  bbl.submitted output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  title format.title "title" output.check
-  new.block
-  type empty$
-    'bbl.techreport
-    'type
-  if$
-  number empty$
-    'skip$
-    { number tie.or.space.connect }
-  if$
-  output
-  format.pub.address output
-  format.bdate "year" output.check
-  pages empty$
-    'skip$
-    { new.block
-      format.pages output }
-  if$
-  note output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  format.authors "author" output.check
-  after.item 'output.state :=
-  journal empty$
-    'skip$
-    { journal emphasize "journal" output.check }
-  if$
-  doi empty$
-    {  note output }
-    {  after.item 'output.state :=
-       format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
-  if$
-  fin.entry
-  empty.doi.note
-}
-
-FUNCTION {conference} {inproceedings}
-
-FUNCTION {other} {patent}
-
-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.\ Toxicol."} % ***
-MACRO {chemrev} {"Chem.\ Rev."} % ***
-MACRO {cmat} {"Chem.\ Mater."} % ***
-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 {jpca} {"J.~Phys.\ Chem.~A"}
-MACRO {jpcb} {"J.~Phys.\ Chem.~B"}
-MACRO {lang} {"Langmuir"}
-MACRO {macro} {"Macromolecules"}
-MACRO {orgmet} {"Organometallics"}
-MACRO {orglett} {"Org.\ Lett."}
-
-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"}
-MACRO {csb} {"Colloids Surf.\ B"}
-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"}
-MACRO {jcch} {"J.~Comput.\ Chem."}
-MACRO {cca} {"Croat.\ Chem.\ Acta"}
-MACRO {angew} {"Angew.\ Chem., Int.\ Ed."}
-MACRO {chemeurj} {"Chem.---Eur.\ J."}
-
-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 Mater. Phys."}
-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
-
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
-}
-
-FUNCTION {format.lab.names}
-{ 's :=
-  s #1 "{vv~}{ll}" format.name$
-  s num.names$ duplicate$
-  #2 >
-    { pop$ bbl.etal space.connect }
-    { #2 <
-        'skip$
-        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
-            { bbl.etal space.connect }
-            { bbl.and space.connect s #2 "{vv~}{ll}" format.name$ space.connect }
-          if$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {author.key.label}
-{ author empty$
-    { key empty$
-        { cite$ #1 #3 substring$ }
-        'key
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {author.editor.key.label}
-{ author empty$
-    { editor empty$
-        { key empty$
-            { cite$ #1 #3 substring$ }
-            'key
-          if$
-        }
-        { editor format.lab.names }
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {author.key.organization.label}
-{ author empty$
-    { key empty$
-        { organization empty$
-            { cite$ #1 #3 substring$ }
-            { "The " #4 organization chop.word #3 text.prefix$ }
-          if$
-        }
-        'key
-      if$
-    }
-    { author format.lab.names }
-  if$
-}
-
-FUNCTION {editor.key.organization.label}
-{ editor empty$
-    { key empty$
-        { organization empty$
-            { cite$ #1 #3 substring$ }
-            { "The " #4 organization chop.word #3 text.prefix$ }
-          if$
-        }
-        'key
-      if$
-    }
-    { editor format.lab.names }
-  if$
-}
-
-FUNCTION {calc.short.authors}
-{ type$ "book" =
-  type$ "inbook" =
-  or
-    'author.editor.key.label
-    { type$ "proceedings" =
-        'editor.key.organization.label
-        { type$ "manual" =
-            'author.key.organization.label
-            'author.key.label
-          if$
-        }
-      if$
-    }
-  if$
-  'short.list :=
-}
-
-FUNCTION {calc.label}
-{ calc.short.authors
-  short.list
-  "("
-  *
-  year duplicate$ empty$
-  short.list key field.or.null = or
-     { pop$ "" }
-     'skip$
-  if$
-  *
-  'label :=
-}
-
-ITERATE {calc.label}
-
-STRINGS { longest.label last.label next.extra }
-
-INTEGERS { longest.label.width last.extra.num number.label }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #0 int.to.chr$ 'last.label :=
-  "" 'next.extra :=
-  #0 'longest.label.width :=
-  #0 'last.extra.num :=
-  #0 'number.label :=
-}
-
-FUNCTION {forward.pass}
-{ last.label label =
-    { last.extra.num #1 + 'last.extra.num :=
-      last.extra.num int.to.chr$ 'extra.label :=
-    }
-    { "a" chr.to.int$ 'last.extra.num :=
-      "" 'extra.label :=
-      label 'last.label :=
-    }
-  if$
-  number.label #1 + 'number.label :=
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {forward.pass}
-
-
-FUNCTION {begin.bib}
-{ preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-  "\ifx\mcitethebibliography\mciteundefinedmacro"
-  write$ newline$
-  "\PackageError{achemsoM.bst}{mciteplus.sty has not been loaded}"
-  write$ newline$
-  "{This bibstyle requires the use of the mciteplus package.}\fi"
-  write$ newline$
-  "\begin{mcitethebibliography}{"  number.label int.to.str$  * "}" *
-  write$ newline$
-  "\providecommand{\natexlab}[1]{#1}"
-  write$ newline$
-  "\mciteSetBstSublistMode{f}"
-  write$ newline$
-  "\mciteSetBstMaxWidthForm{subitem}{(\alph{mcitesubitemcount})}"
-  write$ newline$
-  "\mciteSetBstSublistLabelBeginEnd{\mcitemaxwidthsubitemform\space}"
-  write$ newline$
-  "{\relax}{\relax}"
-  write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcitethebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `iecrnatM.bst'.