Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by heimbach, Wed Nov 19 19:07:02 2003 UTC | revision 1.4 by heimbach, Thu Sep 9 15:51:26 2004 UTC | |
---|---|---|
# | Line 50 c--------------------------------------- | Line 50 c--------------------------------------- |
50 | do i = 1, nn | do i = 1, nn |
51 | cph( | cph( |
52 | if (diag(i).LE.0) then | if (diag(i).LE.0) then |
53 | print *, 'pathei-lsopt: in dgscale; diag = 0 for i=', i | cph print *, 'pathei-lsopt: in dgscale; diag = 0 for i=', i |
54 | diag(i) = rmin | diag(i) = rmin |
55 | end if | end if |
56 | cph) | cph) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |