Update DOI resolver

https://www.doi.org/doi_handbook/2_Numbering.html#htmlencoding
cp2k · Feb 10, 2020 · c772d90 · c772d90
1 parent 23848c0
commit c772d90
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 8 deletions.
diff --git a/data/BASIS_ZIJLSTRA b/data/BASIS_ZIJLSTRA
@@ -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).
 # 

diff --git a/data/BASIS_pob b/data/BASIS_pob
@@ -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},

diff --git a/src/common/bibliography.F b/src/common/bibliography.F
@@ -2768,7 +2768,7 @@ SUBROUTINE add_all_references()
                          "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 @@ SUBROUTINE add_all_references()
                          "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 @@ SUBROUTINE add_all_references()
                          "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", &

diff --git a/src/common/reference_manager.F b/src/common/reference_manager.F
@@ -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 @@ SUBROUTINE print_reference_journal(key, unit)
 
       ! 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 @@ SUBROUTINE print_reference_html(key, unit)
 
       ! 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))