diff options
Diffstat (limited to 'debian/patches/0006-Stop-generating-iteration-log-files.patch')
-rw-r--r-- | debian/patches/0006-Stop-generating-iteration-log-files.patch | 113 |
1 files changed, 113 insertions, 0 deletions
diff --git a/debian/patches/0006-Stop-generating-iteration-log-files.patch b/debian/patches/0006-Stop-generating-iteration-log-files.patch new file mode 100644 index 0000000..efff3f1 --- /dev/null +++ b/debian/patches/0006-Stop-generating-iteration-log-files.patch @@ -0,0 +1,113 @@ +From: Gard Spreemann <gspr@nonempty.org> +Date: Mon, 13 Dec 2021 14:56:07 +0100 +Subject: Stop generating iteration log files + +Based on SciPy commit c3c54c15eafe7fa7a2b7a499cb64f38f1a7ee057 +--- + lbfgsb.f | 37 ++----------------------------------- + 1 file changed, 2 insertions(+), 35 deletions(-) + +diff --git a/lbfgsb.f b/lbfgsb.f +index 59f0a97..18d4715 100644 +--- a/lbfgsb.f ++++ b/lbfgsb.f +@@ -140,8 +140,6 @@ c 0<iprint<99 print also f and |proj g| every iprint iterations; + c iprint=99 print details of every iteration except n-vectors; + c iprint=100 print also the changes of active set and final x; + c iprint>100 print details of every iteration including x and g; +-c When iprint > 0, the file iterate.dat will be created to +-c summarize the iteration. + c + c csave is a working string of characters of length 60. + c +@@ -426,8 +424,6 @@ c 0<iprint<99 print also f and |proj g| every iprint iterations; + c iprint=99 print details of every iteration except n-vectors; + c iprint=100 print also the changes of active set and final x; + c iprint>100 print details of every iteration including x and g; +-c When iprint > 0, the file iterate.dat will be created to +-c summarize the iteration. + c + c csave is a working string of characters of length 60. + c +@@ -547,10 +543,8 @@ c 'info' records the termination information. + info = 0 + + itfile = 8 +- if (iprint .ge. 1) then +-c open a summary file 'iterate.dat' +- open (8, file = 'iterate.dat', status = 'unknown') +- endif ++c Originally a file named iterate.dat was created. We disable ++c this behavior in Debian. + + c Check the input arguments for errors. + +@@ -646,7 +640,6 @@ c Compute the infinity norm of the (-) projected gradient. + + if (iprint .ge. 1) then + write (6,1002) iter,f,sbgnrm +- write (itfile,1003) iter,nfgv,sbgnrm,f + endif + if (sbgnrm .le. pgtol) then + c terminate the algorithm. +@@ -1361,8 +1354,6 @@ c 0<iprint<99 print also f and |proj g| every iprint iterations; + c iprint=99 print details of every iteration except n-vectors; + c iprint=100 print also the changes of active set and final x; + c iprint>100 print details of every iteration including x and g; +-c When iprint > 0, the file iterate.dat will be created to +-c summarize the iteration. + c + c sbgnrm is a double precision variable. + c On entry sbgnrm is the norm of the projected gradient at x. +@@ -2705,9 +2696,6 @@ c ************ + write (6,7001) epsmch + write (6,*) 'N = ',n,' M = ',m + if (iprint .ge. 1) then +- write (itfile,2001) epsmch +- write (itfile,*)'N = ',n,' M = ',m +- write (itfile,9001) + if (iprint .gt. 100) then + write (6,1004) 'L =',(l(i),i = 1,n) + write (6,1004) 'X0 =',(x(i),i = 1,n) +@@ -2798,8 +2786,6 @@ c the truncated Newton step has been used. + imod = mod(iter,iprint) + if (imod .eq. 0) write (6,2001) iter,f,sbgnrm + endif +- if (iprint .ge. 1) write (itfile,3001) +- + iter,nfgv,nseg,nact,word,iback,stp,xstep,sbgnrm,f + + 1004 format (/,a4, 1p, 6(1x,d11.4),/,(4x,1p,6(1x,d11.4))) + 2001 format +@@ -2873,23 +2859,6 @@ c ************ + if (info .eq. -8) write (6,9018) + if (info .eq. -9) write (6,9019) + endif +- if (iprint .ge. 1) then +- if (info .eq. -4 .or. info .eq. -9) then +- write (itfile,3002) +- + iter,nfgv,nseg,nact,word,iback,stp,xstep +- endif +- write (itfile,3009) task +- if (info .ne. 0) then +- if (info .eq. -1) write (itfile,9011) +- if (info .eq. -2) write (itfile,9012) +- if (info .eq. -3) write (itfile,9013) +- if (info .eq. -4) write (itfile,9014) +- if (info .eq. -5) write (itfile,9015) +- if (info .eq. -8) write (itfile,9018) +- if (info .eq. -9) write (itfile,9019) +- endif +- write (itfile,3008) time +- endif + endif + + 1004 format (/,a4, 1p, 6(1x,d11.4),/,(4x,1p,6(1x,d11.4))) +@@ -3152,8 +3121,6 @@ c 0<iprint<99 print also f and |proj g| every iprint iterations; + c iprint=99 print details of every iteration except n-vectors; + c iprint=100 print also the changes of active set and final x; + c iprint>100 print details of every iteration including x and g; +-c When iprint > 0, the file iterate.dat will be created to +-c summarize the iteration. + c + c info is an integer variable. + c On entry info is unspecified. |