Update DOI resolver

https://www.doi.org/doi_handbook/2_Numbering.html#htmlencoding
This commit is contained in:
Eisuke Kawashima 2020-02-09 01:54:51 +09:00 committed by Tiziano Müller
parent 23848c01c5
commit c772d90f30
4 changed files with 8 additions and 8 deletions

View file

@ -1,6 +1,6 @@
#
# from Eeuwe S Zijlstra et al 2009 Modelling Simul. Mater. Sci. Eng. 17 015009 (10pp) doi: 10.1088/0965-0393/17/1/015009
# http://dx.doi.org/10.1088/0965-0393/17/1/015009
# https://doi.org/10.1088/0965-0393/17/1/015009
#
# 2SP, 3SP, 4SP basis sets for GTH pseudos (with 3SP being the author's recommendation).
#

View file

@ -17,7 +17,7 @@
#journal = {Journal of Computational Chemistry},
#publisher = {Wiley Subscription Services, Inc., A Wiley Company},
#issn = {1096-987X},
#url = {http://dx.doi.org/10.1002/jcc.23153},
#url = {https://doi.org/10.1002/jcc.23153},
#doi = {10.1002/jcc.23153},
#pages = {451--459},
#keywords = {CRYSTAL, basis sets, TZVP, solid-state calculations},

View file

@ -2768,7 +2768,7 @@ CONTAINS
"EP 666", &
"PD MAR 18", &
"PY 2002", &
"UR https://dx.doi.org/10.1002/jcc.10069", &
"UR https://doi.org/10.1002/jcc.10069", &
"ER"), &
DOI="10.1002/jcc.10069")
@ -2788,7 +2788,7 @@ CONTAINS
"AR 064102", &
"PD FEB 8", &
"PY 2012", &
"UR https://dx.doi.org/10.1063/1.3676407", &
"UR https://doi.org/10.1063/1.3676407", &
"ER"), &
DOI="10.1063/1.3676407")
@ -3704,7 +3704,7 @@ CONTAINS
"AU VandeVondele, Joost", &
"VL John Wiley & Sons, Ltd", &
"SN 9781118670712", &
"UR https://dx.doi.org/10.1002/9781118670712.ch8", &
"UR https://doi.org/10.1002/9781118670712.ch8", &
"DO 10.1002/9781118670712.ch8", &
"BP 173", &
"EP 190", &

View file

@ -52,7 +52,7 @@ MODULE reference_manager
PRIVATE
! the reference in a format as returned by the web of science
CHARACTER(LEN=ISI_length), DIMENSION(:), POINTER :: ISI_record
! the doi only, i.e. without "https://dx.doi.org/"
! 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
@ -421,7 +421,7 @@ CONTAINS
! DOI
IF (thebib(key)%ref%DOI .NE. "") THEN
WRITE (unit, '(T2,A)') "https://dx.doi.org/"//TRIM(thebib(key)%ref%DOI)
WRITE (unit, '(T2,A)') "https://doi.org/"//TRIM(thebib(key)%ref%DOI)
ENDIF
END SUBROUTINE print_reference_journal
@ -457,7 +457,7 @@ CONTAINS
! DOI
IF (thebib(key)%ref%DOI .NE. "") THEN
WRITE (unit, '(T2,A)', ADVANCE="NO") '<A HREF="https://dx.doi.org/'//TRIM(thebib(key)%ref%DOI)//'">'
WRITE (unit, '(T2,A)', ADVANCE="NO") '<A HREF="https://doi.org/'//TRIM(thebib(key)%ref%DOI)//'">'
ENDIF
! Journal, volume (issue), pages (year).
journal = TRIM(get_source(thebib(key)%ref%ISI_record))