Skip to content
Merged
Changes from 2 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 4 additions & 2 deletions src/bse/K_driver_init.F
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down