only print backtracking message when iprint >= 1

jey · Nov 3, 2016 · a97e6e6 · a97e6e6
1 parent a46c762
commit a97e6e6
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/deps/Lbfgsb.3.0/lbfgsb.f b/deps/Lbfgsb.3.0/lbfgsb.f
@@ -3279,8 +3279,10 @@ subroutine subsm ( n, m, nsub, ind, l, u, nbd, x, d, xp, ws, wy,
  55   continue
       if ( dd_p .gt.zero ) then
          call dcopy( n, xp, 1, x, 1 )
-         write(6,*) ' Positive dir derivative in projection '
-         write(6,*) ' Using the backtracking step '
+         if (iprint .ge. 1) then
+           write(6,*) ' Positive dir derivative in projection '
+           write(6,*) ' Using the backtracking step '
+         endif
       else
          go to 911
       endif