Modify SCF QC output

cmsi · Aug 12, 2021 · 95cca7c · 95cca7c
1 parent 8d15f1c
commit 95cca7c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/scflib.F90 b/src/scflib.F90
@@ -1286,7 +1286,7 @@ subroutine rhfqc(fock,cmo,qcrmax,qcvec,qcmat,qcmatsave,qceigen,overlap,xint, &
 !$OMP end parallel do
  qcnorm= sqrt(qcnorm)
 !
- if(datacomp%master)  &
+ if(datacomp%master.and.(datajob%iprint >= 2)) &
 & write(datacomp%iout,'(5x,"QC Cycle ",i2," : Norm = ",1p,e10.3)') itdav-1, qcnorm
 !
 ! Check convergence
@@ -1642,7 +1642,7 @@ subroutine uhfqc(focka,fockb,cmoa,cmob,qcrmax,qcvec, &
 !$OMP end parallel do
  qcnorm= sqrt(qcnorm)
 !
- if(datacomp%master) &
+ if(datacomp%master.and.(datajob%iprint >= 2)) &
 & write(datacomp%iout,'(5x,"QC Cycle ",i2," : Norm = ",1p,e10.3)') itdav-1, qcnorm
 !
 ! Check convergence