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

Diff of /MITgcm/lsopt/lsline.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 85  c---------------------------------- Line 85  c----------------------------------
85        double precision    z, test, barr        double precision    z, test, barr
86        double precision    left, right, told        double precision    left, right, told
87    
88        external SDOT        external DDOT
89        double precision     SDOT        double precision     DDOT
90    
91  c----------------------------------  c----------------------------------
92  c check parameters  c check parameters
# Line 128  c compute cost function and gradient Line 128  c compute cost function and gradient
128  c------------------------------------  c------------------------------------
129           call simul( indic, nn, xdiff, fnew, gg )           call simul( indic, nn, xdiff, fnew, gg )
130    
131           fp = SDOT( nn, dd, 1, gg, 1 )           fp = DDOT( nn, dd, 1, gg, 1 )
132           fdiff = fnew - ff           fdiff = fnew - ff
133    
134  c-----------------------------------------  c-----------------------------------------
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22