| |
| | [No title] |
 | | brk2(i,j)) then fminus = fminus + dtil(i,j)*zrt(i,j) else fminus = fminus + dtil(i,j)*(zmid(i,j) + slope(i,j)) endif 10 continue 11 continue do 12 i=1,zedim if (0.0d0.lt. ebrk1(i)) then fplus = fplus + detil(i)*zelft(i) else if (0.0d0.ge. |
 | | ebrk2(i)) then fminus = fminus + detil(i)*zert(i) else fminus = fminus + detil(i)*(zemid(i) + eslope(i)) endif 12 continue c c if (fplus.gt. |
 | | ebrk2(i)) then fminus = fminus + zert(i)*detil(i) else fminus = fminus + (zemid(i)+eslope(i)*lambda)*detil(i) endif 81 continue print*,' ',n,' break points are checked !' endif 82 continue c c End of Search c ===-==-====== c c c Calculate z(lambda) and the optimal value fval. |
| elib.zib.de /pub/Packages/mathprog/linprog/mppa/psearch.f (1109 words) |
|