Commit 107ac463 authored by Miriam Hinzen's avatar Miriam Hinzen

Remove print statements

parent fbfc1ac9
......@@ -297,7 +297,6 @@ CONTAINS
IF ( (mpi%irank.EQ.0)) THEN
CALL timestart("determination of fermi energy")
write(657,*) 'before fermie'
IF ( noco%l_soc .AND. (.NOT. noco%l_noco) ) THEN
input%zelec = input%zelec*2
CALL fermie(eig_id,mpi,kpts,obsolete,&
......@@ -310,7 +309,6 @@ CONTAINS
input,noco,enpara%epara_min,cell,results)
ENDIF
CALL timestop("determination of fermi energy")
write(657,*) 'after fermie'
!!$
!!$ !+Wannier
!!$ IF(wann%l_bs_comf)THEN
......@@ -365,11 +363,9 @@ CONTAINS
enpara,cell,noco,vTot,results,oneD,coreSpecInput,&
archiveType,outDen)
write(657,*) 'before rdmft'
IF (.FALSE.) CALL rdmft(eig_id,mpi,input,kpts,banddos,cell,atoms,enpara,stars,vacuum,dimension,&
sphhar,sym,field,vTot,oneD,noco,results)
write(657,*) 'after rdmft'
IF ( noco%l_soc .AND. (.NOT. noco%l_noco) ) DIMENSION%neigd=DIMENSION%neigd/2
!+t3e
#ifdef CPP_MPI
......@@ -421,7 +417,6 @@ CONTAINS
CALL enpara%mix(mpi,atoms,vacuum,input,vTot%mt(:,0,:,:),vtot%vacz)
field2 = field
! ----> mix input and output densities
write(657,*) 'before mix'
CALL timestart("mixing")
CALL mix( field2, xcpot, dimension, obsolete, sliceplot, mpi, &
stars, atoms, sphhar, vacuum, input, sym, cell, noco, &
......
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