Print header only for verbose output

Signed-off-by: Igor S. Gerasimov <[email protected]>

Author: foxtran

src/optimizer.f90

@@ -304,7 +304,7 @@ subroutine ancopt(env,ilog,mol,chk,calc, &
    character(len=9):: hessfmt
 
    ! print ANCopt header !
-   call ancopt_header(env%unit,set%veryverbose)
+   if (pr) call ancopt_header(env%unit,set%veryverbose)
 
    if(mol%n.eq.1) return ! skip optimization for 1 atom