From 1b24e61a865fdad7db84cc33b237a741c74409d1 Mon Sep 17 00:00:00 2001 From: Sebastian Ehlert Date: Fri, 12 Jun 2026 19:00:30 +0200 Subject: [PATCH] Make dftd3_param private by default --- src/dftd3/param.f90 | 1 + test/export/example.f90 | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/dftd3/param.f90 b/src/dftd3/param.f90 index 3f6afa41..cfa4ef51 100644 --- a/src/dftd3/param.f90 +++ b/src/dftd3/param.f90 @@ -25,6 +25,7 @@ module dftd3_param & doi_r2scan_hyb, doi_r2scan_dhdf, doi_minnesota_d3, doi_b97m_d3, & & doi_wb97x_d3, doi_hse06_d3, doi_cf22d, doi_skala implicit none + private public :: d3_param public :: get_rational_damping, get_zero_damping diff --git a/test/export/example.f90 b/test/export/example.f90 index cb256ed3..68be5747 100644 --- a/test/export/example.f90 +++ b/test/export/example.f90 @@ -1,4 +1,7 @@ program tester - use dftd3 + use dftd3_version, only : get_dftd3_version implicit none + character(len=:), allocatable :: version + call get_dftd3_version(string=version) + print *, version end program tester