From 918712fce9136aa80c7ad7882002da55fbace97f Mon Sep 17 00:00:00 2001 From: ncolonna Date: Tue, 29 Oct 2024 08:38:01 +0100 Subject: [PATCH] increase the lenght of upf%dft --- Modules/pseudo_types.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Modules/pseudo_types.f90 b/Modules/pseudo_types.f90 index fbae80b4..1620e16c 100644 --- a/Modules/pseudo_types.f90 +++ b/Modules/pseudo_types.f90 @@ -51,7 +51,7 @@ MODULE pseudo_types LOGICAL :: tvanp ! .true. if Ultrasoft LOGICAL :: tcoulombp ! .true. if Coulomb 1/r potential LOGICAL :: nlcc ! Non linear core corrections - CHARACTER(LEN=20) :: dft ! Exch-Corr type + CHARACTER(LEN=25) :: dft ! Exch-Corr type REAL(DP) :: zp ! z valence REAL(DP) :: etotps ! total energy REAL(DP) :: ecutwfc ! suggested cut-off for wfc