From 1fceec807b19e432ca694c8dba6d3d27b886ee69 Mon Sep 17 00:00:00 2001 From: Fulvio Paleari Date: Thu, 19 Feb 2026 14:10:39 +0000 Subject: [PATCH 1/2] Proper Lkind check allowing for irreducible BSE calculations --- src/bse/K_driver_init.F | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/bse/K_driver_init.F b/src/bse/K_driver_init.F index 0ace8836ab..4df2d899fb 100644 --- a/src/bse/K_driver_init.F +++ b/src/bse/K_driver_init.F @@ -165,8 +165,9 @@ subroutine K_driver_init(what,iq,Ken,Xk) ! ! BSE_L_kind check !============== - if (.not.STRING_match(BSE_L_kind,"bar").and..not.STRING_match(BSE_L_kind,"full")) & - & call error('set Lkind = DEFAULT or BAR or FULL') + if +(.not.STRING_match(BSE_L_kind,"bar").and..not.STRING_match(BSE_L_kind,"full").and..not.STRING_match(BSE_L_kind,"tilde")) & + & call error('set Lkind = DEFAULT or BAR or FULL or TILDE') ! BS_K_is_ALDA=l_alda_fxc if (l_alda_fxc) then From d71faa3d32ed06bf69e246184d7db3f5fc0cb2c7 Mon Sep 17 00:00:00 2001 From: Fulvio Paleari Date: Thu, 19 Feb 2026 14:50:57 +0000 Subject: [PATCH 2/2] Fixed issue in Lind check --- src/bse/K_driver_init.F | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/bse/K_driver_init.F b/src/bse/K_driver_init.F index 4df2d899fb..a7d0654615 100644 --- a/src/bse/K_driver_init.F +++ b/src/bse/K_driver_init.F @@ -165,8 +165,9 @@ subroutine K_driver_init(what,iq,Ken,Xk) ! ! BSE_L_kind check !============== - if -(.not.STRING_match(BSE_L_kind,"bar").and..not.STRING_match(BSE_L_kind,"full").and..not.STRING_match(BSE_L_kind,"tilde")) & + if (.not.STRING_match(BSE_L_kind,"bar") & + & .and..not.STRING_match(BSE_L_kind,"full") & + & .and..not.STRING_match(BSE_L_kind,"tilde")) & & call error('set Lkind = DEFAULT or BAR or FULL or TILDE') ! BS_K_is_ALDA=l_alda_fxc