From fc07337fc80dd0e48dd3815fd1f47939d3f11010 Mon Sep 17 00:00:00 2001 From: Johannes Gorges <58849467+gorges97@users.noreply.github.com> Date: Wed, 11 Sep 2024 17:10:57 +0200 Subject: [PATCH] Update src/hessian.F90 Co-authored-by: Marcel Mueller --- src/hessian.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/hessian.F90 b/src/hessian.F90 index 54c44728a..14c3c5e37 100644 --- a/src/hessian.F90 +++ b/src/hessian.F90 @@ -728,7 +728,7 @@ subroutine rescale_freq(n3,htb,hess,hbias,freq,fc_tb,fc_bias,freq_scal) real(wp), intent(out) :: freq_scal(n3) real(wp),allocatable :: v(:) real(wp),allocatable :: fc_tmp(:) - real(wp), parameter :: alp1=1.27_wp, alp2=1.5d-4 + real(wp), parameter :: alp1=1.27_wp, alp2=1.5e-4_wp integer, intent(in) :: n3 integer :: j