Commit a464e3e2 authored by Henning Janssen's avatar Henning Janssen

Supress some output of genMTBasis in greensf Routines

-at some point these calls should be removed
parent 8916a284
......@@ -7,7 +7,7 @@ MODULE m_genMTBasis
CONTAINS
SUBROUTINE genMTBasis(atoms,enpara,vTot,fmpi,iType,jspin,usdus,f,g,flo,l_dftspinpol)
SUBROUTINE genMTBasis(atoms,enpara,vTot,fmpi,iType,jspin,usdus,f,g,flo,l_dftspinpol,l_writeArg)
USE m_types
USE m_constants
USE m_radfun
......@@ -30,6 +30,7 @@ CONTAINS
REAL, INTENT(INOUT) :: f(atoms%jmtd,2,0:atoms%lmaxd)
REAL, INTENT(INOUT) :: g(atoms%jmtd,2,0:atoms%lmaxd)
REAL, INTENT(INOUT) :: flo(atoms%jmtd,2,atoms%nlod)
LOGICAL, OPTIONAL, INTENT(IN) :: l_writeArg
INTEGER :: l,nodeu,noded
......@@ -39,7 +40,14 @@ CONTAINS
LOGICAL :: l_write,l_hia
REAL :: vrTmp(atoms%jmtd)
INTEGER :: i
l_write=fmpi%irank==0
IF(PRESENT(l_writeArg)) THEN
l_write = l_writeArg
ELSE
l_write = .TRUE.
ENDIF
l_write=l_write .and. fmpi%irank==0
!$ l_write = l_write .and. omp_get_num_threads()==1
......
......@@ -100,7 +100,7 @@ MODULE m_greensfPostProcess
ELSE
DO jspin = 1, input%jspins
CALL genMTBasis(atoms,enpara,vTot,mpi,atomType,jspin,usdus,&
f,g,flo,hub1inp%l_dftspinpol)
f,g,flo,hub1inp%l_dftspinpol,l_writeArg=.FALSE.)
u(:,:,1,1,jspin,i_gf) = f(:,:,l)
u(:,:,2,1,jspin,i_gf) = f(:,:,lp)
......@@ -109,7 +109,7 @@ MODULE m_greensfPostProcess
udot(:,:,2,1,jspin,i_gf) = g(:,:,lp)
CALL genMTBasis(atoms,enpara,vTot,mpi,atomTypep,jspin,usdus,&
f,g,flo,hub1inp%l_dftspinpol)
f,g,flo,hub1inp%l_dftspinpol,l_writeArg=.FALSE.)
u(:,:,1,2,jspin,i_gf) = f(:,:,l)
u(:,:,2,2,jspin,i_gf) = f(:,:,lp)
......@@ -166,8 +166,6 @@ MODULE m_greensfPostProcess
IF(gfinp%numTorgueElems(atomType)==0) CYCLE
CALL greensfTorgue(greensFunction(gfinp%torgueElem(atomType,:gfinp%numTorgueElems(atomType))),vTot,&
sphhar,atoms,sym,noco,nococonv,input,enpara,hub1inp,mpi,atomType,torgue)
!WRITE(*,9000) atomType,torgue
!9000 FORMAT(/,'Torgue for atom: ',I5,' torgue: ',3f14.8)
ENDDO
CALL closeXMLElement('torgueCalculation')
CALL timestop("Green's Function: Torgue")
......
......@@ -66,7 +66,7 @@ MODULE m_greensfTorgue
CALL usdus%init(atoms,input%jspins)
DO jspin = 1, input%jspins
CALL genMTBasis(atoms,enpara,vTot,fmpi,atomType,jspin,usdus,&
f(:,:,:,jspin),g(:,:,:,jspin),flo(:,:,:,jspin),hub1inp%l_dftspinpol)
f(:,:,:,jspin),g(:,:,:,jspin),flo(:,:,:,jspin),hub1inp%l_dftspinpol,l_writeArg=.FALSE.)
ENDDO
na=SUM(atoms%neq(:atomType-1))+1
nsym = sym%ntypsy(na)
......
......@@ -159,7 +159,8 @@ MODULE m_kk_cutoff
CALL usdus%init(atoms,input%jspins)
!Generate the scalar products we need
DO jspin = 1, input%jspins
CALL genMTBasis(atoms,enpara,vTot,fmpi,atomType,jspin,usdus,f,g,flo,hub1inp%l_dftspinpol)
CALL genMTBasis(atoms,enpara,vTot,fmpi,atomType,jspin,usdus,f,g,flo,&
hub1inp%l_dftspinpol,l_writeArg=.FALSE.)
ENDDO
DEALLOCATE(f,g,flo)
!Offdiagonal scalar products
......
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