Skip to content
Snippets Groups Projects

Resolve "Enabling free Maxwell propagation in multisystem mode, part 2/4"

Merged Resolve "Enabling free Maxwell propagation in multisystem mode, part 2/4"
206-enabling-free-maxwell-propagation-in-multisystem-mode-part-2-4 into develop
Merged Franco Bonafé requested to merge 206-enabling-free-maxwell-propagation-in-multisystem-mode-part-2-4 into develop
Viewing commit 9dd277c6
Show latest version
1 file
+ 2
− 0
Compare changes
  • Side-by-side
  • Inline
src/system/current.F90
+ 2
− 0
@@ -238,6 +238,8 @@ contains
@@ -238,6 +238,8 @@ contains
else
else
 
ASSERT(psib%is_packed() .eqv. gpsib(1)%is_packed())
 
do ii = 1, psib%nst
do ii = 1, psib%nst
ist = states_elec_block_min(st, ib) + ii - 1
ist = states_elec_block_min(st, ib) + ii - 1
ww = st%d%kweights(ik)*st%occ(ist, ik)
ww = st%d%kweights(ik)*st%occ(ist, ik)