/[MITgcm]/MITgcm/lsopt/lsupdxx.F
ViewVC logotype

Diff of /MITgcm/lsopt/lsupdxx.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by heimbach, Fri Nov 15 04:03:24 2002 UTC revision 1.3 by heimbach, Fri Dec 6 01:42:25 2002 UTC
# Line 46  c--------------------------------------- Line 46  c---------------------------------------
46        integer i        integer i
47        double precision    fdiff, preco        double precision    fdiff, preco
48    
49        double precision     SDOT        double precision     DDOT
50        external SDOT        external DDOT
51    
52  c     ==================================================================  c     ==================================================================
53    
# Line 99  c--------------------------------------- Line 99  c---------------------------------------
99  c-----------------------------------------  c-----------------------------------------
100  c check whether new direction is a descent one  c check whether new direction is a descent one
101  c-----------------------------------------  c-----------------------------------------
102           dotdg = SDOT( nn, dd, 1, gg, 1 )           dotdg = DDOT( nn, dd, 1, gg, 1 )
103           if (dotdg .ge. 0.0) then           if (dotdg .ge. 0.0) then
104              ifail = 4              ifail = 4
105              goto 999              goto 999
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22