diff --git a/tools/PostProcessing/read_module.f90 b/tools/PostProcessing/read_module.f90 index 2e381d2e..6530e176 100644 --- a/tools/PostProcessing/read_module.f90 +++ b/tools/PostProcessing/read_module.f90 @@ -235,23 +235,25 @@ subroutine read_input E_procwf_max = fdf_double('Process.max_wf_E',E_wf_max) ! Is the range relative to Ef (T) or absolute (F) flag_procwf_range_Ef = fdf_boolean('Process.WFRangeRelative',.true.) - if(abs(E_procwf_max-E_procwf_min)>1e-8_double) then - flag_proc_range = .true. - else - n_bands_process = fdf_integer('Process.noWF',0) - if(n_bands_process>0) then - allocate(band_proc_no(n_bands_process)) - if (fdf_block('WaveFunctionsProcess')) then - if(1+block_end-block_start0) then + allocate(band_proc_no(n_bands_process)) + if (fdf_block('WaveFunctionsProcess')) then + if(1+block_end-block_start1e-8_double) then + flag_proc_range = .true. + else + call cq_abort("Need either a range or a number of bands") end if end if end if ! i_job == 3 or 4 or 5