Commit b97c83d0 authored by Daniel Wortmann's avatar Daniel Wortmann

Removed debugging output

parent a65b57f8
......@@ -275,7 +275,6 @@ CONTAINS
!data from d%eig_vec
IF (PRESENT(z)) THEN
WRITE(*,*) "R-Z:",nrec,SHAPE(z)
SELECT TYPE(z)
TYPE is (REAL)
IF (.NOT.ALLOCATED(d%eig_vecr)) CALL juDFT_error("BUG: can not read real vectors from memory")
......@@ -338,8 +337,7 @@ CONTAINS
ENDIF
!data from d%eig_vec
IF (PRESENT(z)) THEN
WRITE(*,*) "W-Z:",nrec,SHAPE(z)
SELECT TYPE(z)
TYPE IS (REAL)
IF (.NOT.ALLOCATED(d%eig_vecr)) CALL juDFT_error("BUG: can not write real vectors to memory")
......
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