Commit bf7574bb authored by Uliana Alekseeva's avatar Uliana Alekseeva

debug printouts removed

parent e64fd384
......@@ -328,11 +328,6 @@ CONTAINS
ENDIF
ENDDO
!print*, "matrix bfore diag"
!open(unit = 99+myid,file="devel_matr_"//achar(myid+48))
! write(99+myid,*) hmat%data_c
!close(unit = 99+myid)
! 3. Calculate eigenvalues/eigenvectors of U**-T * A * U**-1
! Eigenvectors go to eigvec
#if defined (CPP_ELPA_201705003)
......@@ -397,13 +392,6 @@ CONTAINS
#endif
#endif
!print*, "eigenvalues"
!open(unit = 99+myid,file="devel_eigVal_"//achar(myid+48))
!do i = 1, size(eig2)
! write(99+myid,*)i, eig2(i)
!enddo
!close(unit = 99+myid)
! 4. Backtransform eigenvectors: Z = U**-1 * eigvec
......
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