Searched refs:selective_loc (Results 1 – 2 of 2) sorted by relevance
| /dports/science/wannier90/wannier90-3.1.0/src/ |
| H A D | wannierise.F90 | 182 if (selective_loc) then
341 if (selective_loc .and. slwf_constrain) then
349 if (.not. selective_loc) then
378 if (selective_loc .and. slwf_constrain) then
597 if (.not. selective_loc) then
648 if (selective_loc .and. slwf_constrain) then
806 if (selective_loc) then
1724 selective_loc, slwf_constrain, slwf_num, &
1852 if (selective_loc) then
1997 timing_level, selective_loc, &
[all …]
|
| H A D | parameters.F90 | 50 logical, public, save :: selective_loc variable
824 selective_loc = .false.
830 if (slwf_num .lt. num_wann) selective_loc = .true.
836 if (selective_loc) then
2677 if (selective_loc .and. slwf_constrain) then
2808 if (selective_loc .or. iprint > 2) then
2809 …out, '(1x,a46,10x,L8,13x,a1)') '| Perform selective localization :', selective_loc, '|'
6323 call comms_bcast(selective_loc, 1)
6324 if (selective_loc .and. slwf_constrain) then
|