Commit 4587585c authored by Matthias Redies's avatar Matthias Redies

some debugging stuff

parent a414c9a1
......@@ -53,6 +53,8 @@ SUBROUTINE cdncore(mpi,dimension,oneD,input,vacuum,noco,sym,&
REAL :: tec(atoms%ntype,DIMENSION%jspd)
REAL :: rhTemp(dimension%msh,atoms%ntype,dimension%jspd)
write (*,*) "cdncore present(EnergyDen)", present(EnergyDen)
results%seigc = 0.0
IF (mpi%irank==0) THEN
DO jspin = 1,input%jspins
......
......@@ -45,6 +45,9 @@ CONTAINS
CHARACTER(LEN=20) :: attributes(6)
REAL stateEnergies(29)
! ..
write (*,*) "cored present(EnergyDen)", present(EnergyDen)
c = c_light(1.0)
seig = 0.
!
......
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