diff --git a/src/bse/K_driver_init.F b/src/bse/K_driver_init.F index 0ace8836ab..a7d0654615 100644 --- a/src/bse/K_driver_init.F +++ b/src/bse/K_driver_init.F @@ -165,8 +165,10 @@ 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