Modify MP2 CPHF output

cmsi · Aug 12, 2021 · a373c95 · a373c95
1 parent 95cca7c
commit a373c95
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/mp2grad.F90 b/src/mp2grad.F90
@@ -1511,7 +1511,7 @@ subroutine mp2gradcphf(pai,xlai,cmo,xint,energymo,paiprev,pls,pmax,paifock,errdi
 !$OMP end parallel do
 !
  deltapai= sqrt(deltapai/(nocc*nvir))
- if(datacomp%master) &
+ if(datacomp%master.and.(datajob%iprint >=2)) &
 & write(datacomp%iout,'(6x,"Cycle",i3,3x,"Z-Vector error=",1p,e11.3)')iter,deltapai
  if(deltapai < datajob%threshmp2cphf) exit
 !