reference_manager.F

Go to the documentation of this file.

!--------------------------------------------------------------------------------------------------!
!   CP2K: A general program to perform molecular dynamics simulations                              !
!   Copyright 2000-2024 CP2K developers group <https://cp2k.org>                                   !
!                                                                                                  !
!   SPDX-License-Identifier: GPL-2.0-or-later                                                      !
!--------------------------------------------------------------------------------------------------!
 
! **************************************************************************************************
!> \brief provides a uniform framework to add references to CP2K
!>      cite and output these
!> \note
!>      references need to be input using the ISI citation format, because it is
!>      uniform, easy to parse, and can be exported for example from web of science
!>      furthermore, it can be easily converted to and from using the bibutils tools
!>      a collection of easy to use conversion programs that can be found at
!>      http://www.scripps.edu/~cdputnam/software/bibutils/
!>      by Chris Putnam
!>
!>      see thebibliography.F on how to add references easily
!> \par History
!>      08.2007 [Joost VandeVondele]
!> \author Joost VandeVondele
! **************************************************************************************************
MODULE reference_manager
   USE kinds,                           ONLY: default_string_length
   USE message_passing,                 ONLY: mp_para_env_type
   USE string_utilities,                ONLY: uppercase
   USE util,                            ONLY: sort
#include "../base/base_uses.f90"
 
   IMPLICIT NONE
 
   PUBLIC ::  print_reference, print_all_references, cite_reference
   PUBLIC ::  collect_citations_from_ranks
 
   INTEGER, PUBLIC, PARAMETER :: print_format_isi = 101, &
                                 print_format_journal = 102, &
                                 print_format_html = 103
 
   PRIVATE
 
   CHARACTER(len=*), PARAMETER, PRIVATE :: modulen = 'reference_manager'
 
   ! maximum number of reference that can be added
   INTEGER, PARAMETER :: max_reference = 1024
 
   ! storage of a reference
   INTEGER, PARAMETER :: doi_length = 128
   INTEGER, PARAMETER :: isi_length = 128
 
   ! the way we store a reference, should remain fully private
! **************************************************************************************************
   TYPE reference_type
      PRIVATE
      ! the reference in a format as returned by the web of science
      CHARACTER(LEN=ISI_length), DIMENSION(:), POINTER :: isi_record => null()
      ! the doi only, i.e. without "https://doi.org/"
      CHARACTER(LEN=doi_length)                        :: doi = ""
      ! has this reference been cited in the program run
      LOGICAL                                          :: is_cited = .false.
      ! this is a citation key for output in the reference lists
      CHARACTER(LEN=ISI_length)                        :: citation_key = ""
   END TYPE reference_type
 
   ! useful to build arrays
! **************************************************************************************************
   TYPE reference_p_type
      TYPE(reference_type), POINTER :: ref => null()
   END TYPE
 
   ! thebibliography
   INTEGER, SAVE :: nbib = 0
   TYPE(reference_p_type), DIMENSION(max_reference) :: thebib
 
   PUBLIC :: add_reference, & ! use this one only in bibliography.F
             remove_all_references, & ! use only in f77_interface.F
             get_citation_key         ! a string key describing the reference (e.g. Kohn1965b)
 
CONTAINS
 
! **************************************************************************************************
!> \brief marks a given reference as cited.
!> \param key citation key as returned from add_reference
!> \par History
!>      XX.2007 created [ ]
! **************************************************************************************************
   SUBROUTINE cite_reference(key)
      INTEGER, INTENT(IN)                                :: key
 
      IF (key < 1 .OR. key > max_reference) cpabort("citation key out of range")
 
      ! set as cited
      thebib(key)%ref%is_cited = .true.
 
   END SUBROUTINE
 
! **************************************************************************************************
!> \brief Checks for each reference if any mpi-rank has marked it for citation.
!> \param para_env ...
!> \par History
!>      12.2013 created [Ole Schuett]
! **************************************************************************************************
   SUBROUTINE collect_citations_from_ranks(para_env)
      TYPE(mp_para_env_type), INTENT(IN)                 :: para_env
 
      INTEGER                                            :: i, t
 
      DO i = 1, nbib
         t = 0
         IF (thebib(i)%ref%is_cited) t = 1
         CALL para_env%max(t)
         thebib(i)%ref%is_cited = (t == 1)
      END DO
 
   END SUBROUTINE collect_citations_from_ranks
 
! **************************************************************************************************
!> \brief add a reference to the bibliography
!> \param key output, this handle is needed to cite this reference later
!> \param ISI_record ...
!> \param DOI ...
!> \par History
!>      08.2007 created [Joost VandeVondele]
!> \note
!>      - see bibliography.F for it use.
!>      - the ISI record is space sensitive, in particular the first three characters need to be blank
!>        or contain a key indicating the record type. See the header of this file for tools
!>        that can convert e.g. bibtex or endnote files to the ISI format
!>      - DOI: provide the DOI without a link. The link will be automatically created as needed.
! **************************************************************************************************
   SUBROUTINE add_reference(key, ISI_record, DOI)
      INTEGER, INTENT(OUT)                               :: key
      CHARACTER(LEN=*), DIMENSION(:), INTENT(IN)         :: isi_record
      CHARACTER(LEN=*), INTENT(IN)                       :: doi
 
      CHARACTER                                          :: tmp
      CHARACTER(LEN=ISI_length)                          :: author, citation_key, key_a, key_b, year
      INTEGER                                            :: commaloc, i, ires, line, match, mylen, &
                                                            nlines
 
      IF (nbib + 1 > max_reference) cpabort("increase max_reference")
      nbib = nbib + 1
      key = nbib
 
      ! initialize reference to zero
      ALLOCATE (thebib(key)%ref)
      NULLIFY (thebib(key)%ref%ISI_record)
      thebib(key)%ref%DOI = ""
      thebib(key)%ref%is_cited = .false.
 
      ! Assign DOI
      thebib(key)%ref%DOI = doi
 
      ! Assign ISI_record
      nlines = SIZE(isi_record, 1)
      ALLOCATE (thebib(key)%ref%ISI_record(nlines))
      thebib(key)%ref%ISI_record = isi_record
 
      ! construct a citation_key
      line = 1
      author = get_next_author(thebib(key)%ref%ISI_record, line)
      commaloc = index(author, ',')
      IF (commaloc .GT. 0) author = author(1:commaloc - 1)
      cpassert(len_trim(author) > 0)
      year = get_year(thebib(key)%ref%ISI_record)
      cpassert(len_trim(year) == 4)
      citation_key = trim(author)//trim(year)
 
      ! avoid special characters in names, just remove them
      mylen = len_trim(citation_key)
      ires = 0
      DO i = 1, mylen
       IF (index("0123456789thequickbrownfoxjumpsoverthelazydogTHEQUICKBROWNFOXJUMPSOVERTHELAZYDOG", citation_key(i:i)) .NE. 0) THEN
            ires = ires + 1
            tmp = citation_key(i:i)
            citation_key(ires:ires) = tmp
         END IF
      END DO
      citation_key(ires + 1:) = ""
      cpassert(len_trim(citation_key) > 4) ! At least one character of the author should be left.
 
      ! avoid duplicates, search through the list for matches (case-insensitive)
      mylen = len_trim(citation_key)
      key_a = citation_key(1:mylen)
      CALL uppercase(key_a)
      match = 0
      DO i = 1, nbib - 1
         key_b = thebib(i)%ref%citation_key(1:mylen)
         CALL uppercase(key_b)
         IF (key_a == key_b) match = match + 1
      END DO
      IF (match > 0) citation_key = citation_key(1:mylen)//char(ichar('a') + match)
 
      ! finally store it
      thebib(key)%ref%citation_key = citation_key
 
   END SUBROUTINE add_reference
 
! **************************************************************************************************
!> \brief deallocate the bibliography
!> \par History
!>      08.2007 Joost VandeVondele [ ]
! **************************************************************************************************
   SUBROUTINE remove_all_references()
      INTEGER                                            :: i
 
      DO i = 1, nbib
         IF (ASSOCIATED(thebib(i)%ref%ISI_record)) DEALLOCATE (thebib(i)%ref%ISI_record)
         thebib(i)%ref%DOI = ""
 
         DEALLOCATE (thebib(i)%ref)
      END DO
   END SUBROUTINE remove_all_references
!****f* reference_manager/print_all_references *
 
! **************************************************************************************************
!> \brief printout of all references in a specific format
!>      optionally printing only those that are actually cited
!>      during program execution
!> \param cited_only print only those marked as cited
!> \param sorted sort entries most recent first according to the date,
!>              otherways sort with respect to key
!> \param FORMAT see module parameters print_format_XXXXXXXXX
!> \param unit ...
!> \param list optionally, output a sub-list only
!> \par History
!>      08.2007 Joost VandeVondele [ ]
! **************************************************************************************************
   SUBROUTINE print_all_references(cited_only, sorted, FORMAT, unit, list)
      LOGICAL, INTENT(IN)                                :: cited_only, sorted
      INTEGER, INTENT(IN)                                :: format, unit
      INTEGER, DIMENSION(:), INTENT(IN), OPTIONAL        :: list
 
      INTEGER                                            :: i, irecord, nref
      INTEGER, ALLOCATABLE, DIMENSION(:)                 :: indx, irank, ival
 
! we'll sort the references wrt to the publication year
! the most recent first, publications without a year get last
 
      IF (PRESENT(list)) THEN
         nref = SIZE(list)
      ELSE
         nref = nbib
      END IF
 
      ALLOCATE (ival(nref))
      ALLOCATE (irank(nref))
      ALLOCATE (indx(nref))
 
      IF (PRESENT(list)) THEN
         indx(:) = list
      ELSE
         DO i = 1, nref
            indx(i) = i
         END DO
      END IF
 
      DO i = 1, nref
         irank(i) = i
      END DO
 
      IF (sorted) THEN
         DO i = 1, nref
            ival(i) = -get_epoch(thebib(indx(i))%ref%ISI_record)
         END DO
      ELSE
         DO i = 1, nref
            ival(i) = indx(i)
         END DO
      END IF
      CALL sort(ival, nref, irank)
 
      SELECT CASE (format)
      CASE (print_format_isi)
      CASE (print_format_journal)
         WRITE (unit, '(A)') ""
      CASE (print_format_html)
         WRITE (unit, '(A)') '<TABLE border="1">'
      CASE DEFAULT
         cpabort("print_reference: wrong format")
      END SELECT
 
      DO i = 1, nref
         irecord = indx(irank(i))
         IF (.NOT. cited_only .OR. thebib(irecord)%ref%is_cited) THEN
            SELECT CASE (format)
            CASE (print_format_isi)
            CASE (print_format_journal)
            CASE (print_format_html)
               WRITE (unit, '(A)') "<TR><TD>"//'['//trim(thebib(irecord)%ref%citation_key)//']'//"</TD><TD>"
            CASE DEFAULT
               cpabort("print_reference: wrong format")
            END SELECT
 
            CALL print_reference(irecord, FORMAT, unit)
 
            SELECT CASE (format)
            CASE (print_format_isi)
            CASE (print_format_journal)
               WRITE (unit, '(A)') ""
            CASE (print_format_html)
               WRITE (unit, '(A)') '</TD></TR>'
            CASE DEFAULT
               cpabort("print_reference: wrong format")
            END SELECT
         END IF
      END DO
      IF (FORMAT .EQ. print_format_html) THEN
         WRITE (unit, '(A)') "</TABLE>"
      END IF
 
   END SUBROUTINE print_all_references
!****f* reference_manager/print_reference *
 
! **************************************************************************************************
!> \brief printout of a specified reference to a given unit in a selectable format
!> \param key as returned from add_reference
!> \param FORMAT see module parameters print_format_XXXXXXXXX
!> \param unit ...
!> \par History
!>      08.2007 Joost VandeVondele [ ]
! **************************************************************************************************
   SUBROUTINE print_reference(key, FORMAT, unit)
      INTEGER, INTENT(IN)                                :: key, format, unit
 
      INTEGER                                            :: i
 
      IF (key < 1 .OR. key > max_reference) cpabort("citation key out of range")
 
      SELECT CASE (format)
      CASE (print_format_isi)
         DO i = 1, SIZE(thebib(key)%ref%ISI_record)
            WRITE (unit, '(T2,A)') trim(thebib(key)%ref%ISI_record(i))
         END DO
      CASE (print_format_journal)
         CALL print_reference_journal(key, unit)
      CASE (print_format_html)
         CALL print_reference_html(key, unit)
      CASE DEFAULT
         cpabort("print_reference: wrong format")
      END SELECT
   END SUBROUTINE print_reference
 
! **************************************************************************************************
!> \brief prints a reference in a journal style citation format,
!>      adding also a DOI link, which is convenient
!> \param key ...
!> \param unit ...
!> \par History
!>      08.2007 created [Joost VandeVondele]
! **************************************************************************************************
   SUBROUTINE print_reference_journal(key, unit)
      INTEGER, INTENT(IN)                                :: key, unit
 
      CHARACTER(LEN=4*ISI_length)                        :: journal
      CHARACTER(LEN=ISI_length)                          :: author, title
      INTEGER                                            :: iauthor, ipos_line, ititle, line
 
! write the author list
 
      WRITE (unit, '(T2,A)', advance="NO") ""
      line = 1; iauthor = 0; ipos_line = 2
      author = get_next_author(thebib(key)%ref%ISI_record, line)
      DO WHILE (author .NE. "")
         iauthor = iauthor + 1
         IF (ipos_line + len_trim(author) > 71) THEN
            WRITE (unit, '(A)') ";"
            WRITE (unit, '(T2,A)', advance="NO") ""
            ipos_line = 2
         ELSE
            IF (iauthor .NE. 1) WRITE (unit, '(A)', advance="NO") "; "
            ipos_line = ipos_line + 2
         END IF
         WRITE (unit, '(A)', advance="NO") trim(author)
         ipos_line = ipos_line + len_trim(author)
         author = get_next_author(thebib(key)%ref%ISI_record, line)
      END DO
      IF (iauthor > 0) THEN
         WRITE (unit, '(A)', advance="NO") ". "
         ipos_line = ipos_line + 2
      END IF
 
      ! Journal, volume (issue), pages (year).
      journal = trim(get_source(thebib(key)%ref%ISI_record))
      IF (get_volume(thebib(key)%ref%ISI_record) .NE. "") THEN
         journal = trim(journal)//", "//get_volume(thebib(key)%ref%ISI_record)
         IF (get_issue(thebib(key)%ref%ISI_record) .NE. "") THEN
            journal = trim(journal)//" ("//trim(get_issue(thebib(key)%ref%ISI_record))//")"
         END IF
      END IF
      journal = trim(journal)//", "//get_pages(thebib(key)%ref%ISI_record)
      IF (get_year(thebib(key)%ref%ISI_record) .NE. "") THEN
         journal = trim(journal)//" ("//trim(get_year(thebib(key)%ref%ISI_record))//")."
      END IF
      IF (ipos_line + len_trim(journal) > 71) THEN
         WRITE (unit, '(A)') ""
         WRITE (unit, '(T2,A)', advance="NO") ""
         ipos_line = 2
      END IF
      IF (ipos_line + len_trim(journal) > 71) THEN
         WRITE (unit, '(A)') trim(journal(1:69))
         WRITE (unit, '(A)', advance="NO") trim(journal(69:))
      ELSE
         WRITE (unit, '(A)', advance="NO") trim(journal)
      END IF
 
      WRITE (unit, '(T2,A)') ""
      ! Title
      line = 1; ititle = 0
      title = get_next_title(thebib(key)%ref%ISI_record, line)
      DO WHILE (title .NE. "")
         ititle = ititle + 1
         IF (ititle .NE. 1) WRITE (unit, '(A)') ""
         WRITE (unit, '(T2,A)', advance="NO") trim(title)
         title = get_next_title(thebib(key)%ref%ISI_record, line)
      END DO
      IF (ititle > 0) WRITE (unit, '(A)') "."
 
      ! DOI
      IF (thebib(key)%ref%DOI .NE. "") THEN
         WRITE (unit, '(T2,A)') "https://doi.org/"//trim(thebib(key)%ref%DOI)
      END IF
 
   END SUBROUTINE print_reference_journal
 
! **************************************************************************************************
!> \brief prints a reference in a journal style citation format,
!>      adding 'beautifying' html tags, and a link to the journal
!>      using the DOI
!> \param key ...
!> \param unit ...
!> \par History
!>      08.2007 created [Joost VandeVondele]
! **************************************************************************************************
   SUBROUTINE print_reference_html(key, unit)
      INTEGER, INTENT(IN)                                :: key, unit
 
      CHARACTER(LEN=ISI_length)                          :: author, title
      CHARACTER(LEN=ISI_length*4)                        :: journal
      INTEGER                                            :: iauthor, ititle, line
 
! write the author list
 
      WRITE (unit, '(T2,A,I0,A)', advance="NO") '<A NAME="reference_', key, '">'
      line = 1; iauthor = 0
      author = get_next_author(thebib(key)%ref%ISI_record, line)
      DO WHILE (author .NE. "")
         iauthor = iauthor + 1
         IF (iauthor .NE. 1) WRITE (unit, '(A)', advance="NO") "; "
         WRITE (unit, '(A)', advance="NO") trim(author)
         author = get_next_author(thebib(key)%ref%ISI_record, line)
      END DO
      IF (iauthor > 0) WRITE (unit, '(A)') ".<br>"
 
      ! DOI
      IF (thebib(key)%ref%DOI .NE. "") THEN
         WRITE (unit, '(T2,A)', advance="NO") '<A HREF="https://doi.org/'//trim(thebib(key)%ref%DOI)//'">'
      END IF
      ! Journal, volume (issue), pages (year).
      journal = trim(get_source(thebib(key)%ref%ISI_record))
      IF (get_volume(thebib(key)%ref%ISI_record) .NE. "") THEN
         journal = trim(journal)//", "//get_volume(thebib(key)%ref%ISI_record)
         IF (get_issue(thebib(key)%ref%ISI_record) .NE. "") THEN
            journal = trim(journal)//" ("//trim(get_issue(thebib(key)%ref%ISI_record))//")"
         END IF
      END IF
      journal = trim(journal)//", "//get_pages(thebib(key)%ref%ISI_record)
      IF (get_year(thebib(key)%ref%ISI_record) .NE. "") THEN
         journal = trim(journal)//" ("//trim(get_year(thebib(key)%ref%ISI_record))//")."
      END IF
      WRITE (unit, '(A)', advance="NO") trim(journal)
      IF (thebib(key)%ref%DOI .NE. "") THEN
         WRITE (unit, '(A)', advance="NO") '</A>'
      END IF
      WRITE (unit, '(A)') "</A><br>"
 
      ! Title
      line = 1; ititle = 0
      title = get_next_title(thebib(key)%ref%ISI_record, line)
      DO WHILE (title .NE. "")
         ititle = ititle + 1
         IF (ititle .NE. 1) WRITE (unit, '(A)') ""
         WRITE (unit, '(T2,A)', advance="NO") trim(title)
         title = get_next_title(thebib(key)%ref%ISI_record, line)
      END DO
      IF (ititle > 0) WRITE (unit, '(A)') "."
 
   END SUBROUTINE print_reference_html
 
! **************************************************************************************************
!> \brief returns the corresponding fields from an ISI record.
!>       returns an empty string if the field can not be found
!>       iline_start should be initialized to 1 to obtain the first matching entry
!>       on return it is updated, so that successive calls give successive fields
!> \param ISI_record ...
!> \param iline_start ...
!> \return ...
!> \par History
!>      08.2007 created [Joost VandeVondele]
! **************************************************************************************************
   FUNCTION get_next_author(ISI_record, iline_start) RESULT(res)
      CHARACTER(LEN=ISI_length), DIMENSION(:), &
         INTENT(IN)                                      :: isi_record
      INTEGER, INTENT(INOUT)                             :: iline_start
      CHARACTER(LEN=ISI_length)                          :: res
 
      INTEGER                                            :: i, n
      LOGICAL                                            :: in_au_section
 
      res = ""
      in_au_section = .false.
      n = SIZE(isi_record, 1)
      IF (iline_start > n) RETURN
      line_loop: DO i = 1, n
         IF (isi_record(i) (1:3) == "AU ") in_au_section = .true.
         IF (in_au_section .AND. (isi_record(i) (1:3) /= "AU " .AND. isi_record(i) (1:3) /= "   ")) in_au_section = .false.
         IF (in_au_section) THEN
            IF (i >= iline_start) THEN
               iline_start = i + 1
               res = isi_record(i) (4:)
               EXIT line_loop
            END IF
         END IF
      END DO line_loop
 
      ! We might want to fixup the initials, adding a dot after each of them
 
   END FUNCTION get_next_author
 
! **************************************************************************************************
!> \brief ...
!> \param ISI_record ...
!> \param iline_start ...
!> \return ...
! **************************************************************************************************
   FUNCTION get_next_title(ISI_record, iline_start) RESULT(res)
      CHARACTER(LEN=ISI_length), DIMENSION(:), &
         INTENT(IN)                                      :: isi_record
      INTEGER, INTENT(INOUT)                             :: iline_start
      CHARACTER(LEN=ISI_length)                          :: res
 
      INTEGER                                            :: i, n
      LOGICAL                                            :: in_ti_section
 
      res = ""
 
      in_ti_section = .false.
      n = SIZE(isi_record, 1)
      IF (iline_start > n) RETURN
      line_loop: DO i = 1, n
         IF (isi_record(i) (1:3) == "TI ") in_ti_section = .true.
         IF (in_ti_section .AND. (isi_record(i) (1:3) /= "TI " .AND. isi_record(i) (1:3) /= "   ")) in_ti_section = .false.
         IF (in_ti_section) THEN
            IF (i >= iline_start) THEN
               iline_start = i + 1
               res = isi_record(i) (4:)
               EXIT line_loop
            END IF
         END IF
      END DO line_loop
 
   END FUNCTION get_next_title
 
! **************************************************************************************************
!> \brief ...
!> \param ISI_record ...
!> \return ...
! **************************************************************************************************
   PURE FUNCTION get_source(ISI_record) RESULT(res)
      CHARACTER(LEN=ISI_length), DIMENSION(:), &
         INTENT(IN)                                      :: isi_record
      CHARACTER(LEN=4*ISI_length)                        :: res
 
      INTEGER                                            :: i, j, n
 
      n = SIZE(isi_record, 1)
      res = ""
      DO i = 1, n
         IF (isi_record(i) (1:3) == "SO ") THEN
            res = isi_record(i) (4:)
            DO j = i + 1, n
               IF (isi_record(j) (1:3) == "   ") THEN
                  res = trim(res)//" "//isi_record(j) (4:)
               ELSE
                  EXIT
               END IF
            END DO
            EXIT
         END IF
      END DO
   END FUNCTION get_source
 
! **************************************************************************************************
!> \brief ...
!> \param ISI_record ...
!> \return ...
! **************************************************************************************************
   PURE FUNCTION get_year(ISI_record) RESULT(res)
      CHARACTER(LEN=ISI_length), DIMENSION(:), &
         INTENT(IN)                                      :: isi_record
      CHARACTER(LEN=ISI_length)                          :: res
 
      INTEGER                                            :: i, n
 
      n = SIZE(isi_record, 1)
      res = ""
      DO i = 1, n
         IF (isi_record(i) (1:3) == "PY ") res = isi_record(i) (4:)
      END DO
   END FUNCTION get_year
 
! **************************************************************************************************
!> \brief ...
!> \param ISI_record ...
!> \return ...
! **************************************************************************************************
   PURE FUNCTION get_month(ISI_record) RESULT(res)
      CHARACTER(LEN=ISI_length), DIMENSION(:), &
         INTENT(IN)                                      :: isi_record
      CHARACTER(LEN=ISI_length)                          :: res
 
      INTEGER                                            :: i, n
 
      n = SIZE(isi_record, 1)
      res = ""
      DO i = 1, n
         IF (isi_record(i) (1:3) == "PD ") res = isi_record(i) (4:6)
      END DO
   END FUNCTION get_month
 
! **************************************************************************************************
!> \brief ...
!> \param ISI_record ...
!> \return ...
! **************************************************************************************************
   PURE FUNCTION get_day(ISI_record) RESULT(res)
      CHARACTER(LEN=ISI_length), DIMENSION(:), &
         INTENT(IN)                                      :: isi_record
      CHARACTER(LEN=ISI_length)                          :: res
 
      INTEGER                                            :: d, i, n
 
      n = SIZE(isi_record, 1)
      res = ""
      DO i = 1, n
         IF (isi_record(i) (1:3) == "PD ") res = isi_record(i) (7:)
      END DO
      ! PD can be e.g. OCT-NOV or OCT or OCT 27
      ! if res can't be read as an integer, it is not a day, and we bail out
      READ (res, *, err=998, END=998) d
      ! if the day is not in the expected range, we assume it is a parse error
      IF (d < 0 .OR. d > 31) res = ""
      RETURN
998   CONTINUE
      res = ""
   END FUNCTION get_day
 
! **************************************************************************************************
!> \brief ...
!> \param ISI_record ...
!> \return ...
! **************************************************************************************************
   PURE FUNCTION get_volume(ISI_record) RESULT(res)
      CHARACTER(LEN=ISI_length), DIMENSION(:), &
         INTENT(IN)                                      :: isi_record
      CHARACTER(LEN=ISI_length)                          :: res
 
      INTEGER                                            :: i, n
 
      n = SIZE(isi_record, 1)
      res = ""
      DO i = 1, n
         IF (isi_record(i) (1:3) == "VL ") res = isi_record(i) (4:)
      END DO
   END FUNCTION get_volume
 
! **************************************************************************************************
!> \brief ...
!> \param ISI_record ...
!> \return ...
! **************************************************************************************************
   PURE FUNCTION get_issue(ISI_record) RESULT(res)
      CHARACTER(LEN=ISI_length), DIMENSION(:), &
         INTENT(IN)                                      :: isi_record
      CHARACTER(LEN=ISI_length)                          :: res
 
      INTEGER                                            :: i, n
 
      n = SIZE(isi_record, 1)
      res = ""
      DO i = 1, n
         IF (isi_record(i) (1:3) == "IS ") res = isi_record(i) (4:)
      END DO
   END FUNCTION get_issue
 
! **************************************************************************************************
!> \brief ...
!> \param ISI_record ...
!> \return ...
! **************************************************************************************************
   PURE FUNCTION get_pages(ISI_record) RESULT(res)
      CHARACTER(LEN=ISI_length), DIMENSION(:), &
         INTENT(IN)                                      :: isi_record
      CHARACTER(LEN=ISI_length)                          :: res
 
      CHARACTER(LEN=ISI_length)                          :: ar, bp, ep
      INTEGER                                            :: i, n
 
      n = SIZE(isi_record, 1)
      res = ""
      bp = ""
      ep = ""
      ar = ""
 
      DO i = 1, n
         IF (isi_record(i) (1:3) == "BP ") bp = isi_record(i) (4:)
         IF (isi_record(i) (1:3) == "EP ") ep = isi_record(i) (4:)
         IF (isi_record(i) (1:3) == "AR ") ar = isi_record(i) (4:)
      END DO
      IF (bp .NE. "") THEN
         res = bp
         IF (ep .NE. "") res = trim(res)//"-"//ep
      END IF
      IF (res .EQ. "" .AND. ar .NE. "") res = ar
   END FUNCTION get_pages
 
! **************************************************************************************************
!> \brief ...
!> \param key ...
!> \return ...
! **************************************************************************************************
   PURE FUNCTION get_citation_key(key) RESULT(res)
      INTEGER, INTENT(IN)                                :: key
      CHARACTER(LEN=default_string_length)               :: res
 
      res = thebib(key)%ref%citation_key
   END FUNCTION get_citation_key
 
!
! This returns something epoch like, but can only be used to order the records
! missing years, months, days are implied zero(1900)
!
! **************************************************************************************************
!> \brief ...
!> \param ISI_record ...
!> \return ...
! **************************************************************************************************
   PURE FUNCTION get_epoch(ISI_record) RESULT(res)
      CHARACTER(LEN=ISI_length), DIMENSION(:), &
         INTENT(IN)                                      :: isi_record
      INTEGER                                            :: res
 
      CHARACTER(LEN=ISI_length)                          :: tmp
      INTEGER                                            :: day, istat, month, year
 
! read year
 
      tmp = get_year(isi_record)
      READ (tmp, *, iostat=istat) year
      IF (istat .NE. 0) year = 1900
 
      ! read day
      tmp = get_day(isi_record)
      READ (tmp, *, iostat=istat) day
      IF (istat .NE. 0) day = 0
 
      ! read month
      tmp = get_month(isi_record)
      SELECT CASE (tmp)
      CASE ("JAN")
         month = 1
      CASE ("FEB")
         month = 2
      CASE ("MAR")
         month = 3
      CASE ("APR")
         month = 4
      CASE ("MAY")
         month = 5
      CASE ("JUN")
         month = 6
      CASE ("JUL")
         month = 7
      CASE ("AUG")
         month = 8
      CASE ("SEP")
         month = 9
      CASE ("OCT")
         month = 10
      CASE ("NOV")
         month = 11
      CASE ("DEC")
         month = 12
      CASE DEFAULT
         month = 0
      END SELECT
 
      res = day + 31*month + 12*31*(year - 1900)
 
   END FUNCTION get_epoch
 
END MODULE reference_manager