1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
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.
|
