Commit 4738606f authored by Gregor Michalicek's avatar Gregor Michalicek

Slightly beautify hybrid/gen_wavf.F90

parent 4943cb36
This diff is collapsed.
......@@ -150,6 +150,9 @@ SUBROUTINE hf_setup(hybrid,input,sym,kpts,DIMENSION,atoms,mpi,noco,cell,oneD,res
END DO
IF (hybrid%nobd(nk)>hybrid%nbands(nk)) THEN
WRITE(*,*) 'k-point: ', nk
WRITE(*,*) 'number of bands: ', hybrid%nbands(nk)
WRITE(*,*) 'number of occupied bands: ', hybrid%nobd(nk)
CALL judft_warn("More occupied bands than total no of bands!?")
hybrid%nbands(nk) = hybrid%nobd(nk)
END IF
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment