manual/s_ecco/lsopt_flow_3.tex

{\scriptsize
\begin{verbatim}
     ...    ...
      |      )        
      |      (---- store new values xx(i), gg(i) to OPWARMD (first 2 entries)
      |      )---- >>> if ifail = 7,8,9 <<<
      |      (         goto 1000
      |      )
      |      (---- compute new pointers jmin, jmax to include latest values
      |      )     gg(i)-gg(i-1), xx(i)-xx(i-1) to Hessian matrix estimate
      |      (---- store gg(i)-gg(i-1), xx(i)-xx(i-1) to OPWARMD
      |      )     (entries 2*jmax+2, 2*jmax+3)
      |      (
      |      )---- CALL DGSCALE
      |      (       |
      |      )       |---- call dostore
      |      (       |       |
      |      )       |       |---- read preconditioner of previous iteration diag(i-1)
      |      (       |             from OPWARMD (3rd entry)
      |      )       |
      |      (       |---- compute new preconditioner diag(i), based upon diag(i-1),
      |      )       |     gg(i)-gg(i-1), xx(i)-xx(i-1)
      |      (       |
      |      )       |---- call dostore
      |      (               |
      |      )               |---- write new preconditioner diag(i) to OPWARMD (3rd entry)
      |      (
      |---- \\\ end of optimization iteration loop
      |
      |
      |
      |---- CALL OUTSTORE
      |       |
      |       |---- store gnorm0, ff(i), current pointers jmin, jmax, iterabs to OPWARMI
      |
      |---- >>> if OFFLINE version <<<
      |         xx(i+1) needs to be computed as input for offline optimization
      |          |
      |          |---- CALL LSUPDXX
      |          |       |
      |          |       |---- compute dd(i), tact(i) -> xdiff(i+1) = x(i) + tact(i)*dd(i)
      |          |
      |          |---- CALL WRITE_CONTROL
      |          |       |
      |          |       |---- write xdiff(i+1) to special file for offline optim.
      |
      |---- print final information
      |
      O
\end{verbatim}
}
1	{\scriptsize
2	\begin{verbatim}
3	... ...
4	\| )
5	\| (---- store new values xx(i), gg(i) to OPWARMD (first 2 entries)
6	\| )---- >>> if ifail = 7,8,9 <<<
7	\| ( goto 1000
8	\| )
9	\| (---- compute new pointers jmin, jmax to include latest values
10	\| ) gg(i)-gg(i-1), xx(i)-xx(i-1) to Hessian matrix estimate
11	\| (---- store gg(i)-gg(i-1), xx(i)-xx(i-1) to OPWARMD
12	\| ) (entries 2jmax+2, 2jmax+3)
13	\| (
14	\| )---- CALL DGSCALE
15	\| ( \|
16	\| ) \|---- call dostore
17	\| ( \| \|
18	\| ) \| \|---- read preconditioner of previous iteration diag(i-1)
19	\| ( \| from OPWARMD (3rd entry)
20	\| ) \|
21	\| ( \|---- compute new preconditioner diag(i), based upon diag(i-1),
22	\| ) \| gg(i)-gg(i-1), xx(i)-xx(i-1)
23	\| ( \|
24	\| ) \|---- call dostore
25	\| ( \|
26	\| ) \|---- write new preconditioner diag(i) to OPWARMD (3rd entry)
27	\| (
28	\|---- \\\ end of optimization iteration loop
29	\|
30	\|
31	\|
32	\|---- CALL OUTSTORE
33	\| \|
34	\| \|---- store gnorm0, ff(i), current pointers jmin, jmax, iterabs to OPWARMI
35	\|
36	\|---- >>> if OFFLINE version <<<
37	\| xx(i+1) needs to be computed as input for offline optimization
38	\| \|
39	\| \|---- CALL LSUPDXX
40	\| \| \|
41	\| \| \|---- compute dd(i), tact(i) -> xdiff(i+1) = x(i) + tact(i)*dd(i)
42	\| \|
43	\| \|---- CALL WRITE_CONTROL
44	\| \| \|
45	\| \| \|---- write xdiff(i+1) to special file for offline optim.
46	\|
47	\|---- print final information
48	\|
49	O
50	\end{verbatim}
51	}