Attachment #239831 for bug #329429

Lines 166-171 Link Here

(-)wannier90-1.1.old/src/wannier_lib.F90 (+6 lines)
166	exclude_bands_loc(1:num_exclude_bands) = exclude_bands(1:num_exclude_bands)	166	exclude_bands_loc(1:num_exclude_bands) = exclude_bands(1:num_exclude_bands)
167	end if	167	end if
168		168
		169	if (postproc_setup) then
		170	call kmesh_write()
		171	write(stdout,'(1x,a25,f11.3,a)') 'Time to write kmesh ',io_time(),' (sec)'
		172	write(stdout,'(/a)') ' '//trim(seedname)//'.nnkp written.'
		173	endif
		174
169		175
170	call kmesh_dealloc()	176	call kmesh_dealloc()
171	call param_dealloc()	177	call param_dealloc()

Return to bug 329429