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

Remove print statements

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