diff --git a/src/gfnff/gfnff_param.f90 b/src/gfnff/gfnff_param.f90 index 2d230ef47..05f111469 100644 --- a/src/gfnff/gfnff_param.f90 +++ b/src/gfnff/gfnff_param.f90 @@ -502,6 +502,7 @@ end subroutine loadGFNFFAngewChem2020 subroutine gfnff_read_param(iunit, param) use xtb_mctc_accuracy, only : wp + use xtb_param_covalentRadD3, only : covalentRadD3 implicit none ! Dummy integer,intent(in) :: iunit @@ -515,6 +516,7 @@ subroutine gfnff_read_param(iunit, param) param%en(:) = en param%rad(:) = rad + param%rcov(:) = covalentRadD3(1:86) param%metal(:) = metal param%group(:) = group param%normcn(:) = normcn