Skip to content

GitLab

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

Slightly beautify hybrid/gen_wavf.F90

parent 4943cb36
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 215 additions and 283 deletions
hybrid/gen_wavf.F90
View file @ 4738606f
This diff is collapsed.
hybrid/hf_setup.F90
View file @ 4738606f
......@@ -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