EQUATIONS: Return correct info flag in nr_initial_brackets_srmhd_adi().
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
1a27369635
commit
989495ef97
@ -5506,6 +5506,10 @@ module equations
|
||||
!
|
||||
wc = wl - fl * (wu - wl) / (fu - fl)
|
||||
|
||||
! we have good brackets and guess, so good to go
|
||||
!
|
||||
info = .true.
|
||||
|
||||
else ! the upper brack not found
|
||||
call print_warning(loc, "Could not find the upper bracket!")
|
||||
write(*,"(a,5(1x,1e24.16e3))") " D, |m|², m.B, |B|², E = " &
|
||||
|
Loading…
x
Reference in New Issue
Block a user