From 2e756463f8454308e9424dab665a16dabe9cd4d8 Mon Sep 17 00:00:00 2001 From: "Igor S. Gerasimov" Date: Mon, 23 Sep 2024 10:59:25 +0200 Subject: [PATCH] Fix typo --- src/dftd3/param.f90 | 2 +- test/unit/test_param.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/dftd3/param.f90 b/src/dftd3/param.f90 index e57bb5b8..3e0f99ab 100644 --- a/src/dftd3/param.f90 +++ b/src/dftd3/param.f90 @@ -124,7 +124,7 @@ function get_method_id(method) result(id) case("dsdpbe"); id = p_dsdpbe_df case("dsdpbedrpa75"); id = p_dsd_pbe_drpa75_df case("dsdpbep86"); id = p_dsdpbep86_df - case("dsdpbeb86drpa75"); id = p_dsd_pbep86_drpa75_df + case("dsdpbep86drpa75"); id = p_dsd_pbep86_drpa75_df case("dsdpbeb95"); id = p_dsdpbeb95_df case("dodscan66"); id = p_dodscan66_df case("hcth120"); id = p_hcth120_df diff --git a/test/unit/test_param.f90 b/test/unit/test_param.f90 index 3ac979eb..726d3cba 100644 --- a/test/unit/test_param.f90 +++ b/test/unit/test_param.f90 @@ -114,7 +114,7 @@ subroutine test_d3bj_mb01(error) & "dm21", "dm21m", "dm21mc", "dm21mu", "dsdpbep86", "dsdpbeb95", "dsdpbe", & & "dodscan66", "revdsdblyp", "revdsdpbep86", "revdsdpbeb95", "revdsdpbe", & & "revdodblyp", "revdodpbep86", "revdodpbeb95", "revdodpbe", "pw91", "drpa75", & - & "scsdrpa75", "optscsdrpa75", "dsdpbedrpa75", "dsdpbeb86drpa75"] + & "scsdrpa75", "optscsdrpa75", "dsdpbedrpa75", "dsdpbep86drpa75"] real(wp), parameter :: ref(*) = [& &-2.9551694676908012E-2_wp,-1.6638703086788331E-2_wp,-1.6725877716130381E-2_wp, & &-3.3014429592265318E-2_wp,-2.2051435219996540E-2_wp,-3.3481565825316001E-2_wp, &