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