/[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.4 by heimbach, Wed Nov 19 19:07:02 2003 UTC
# Line 45  c     ================================== Line 45  c     ==================================
45  c     SUBROUTINE lsline  c     SUBROUTINE lsline
46  c     ==================================================================  c     ==================================================================
47    
48  #include <blas1.h>  #include "blas1.h"
49    
50        implicit none        implicit none
51    
# 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.4
  ViewVC Help
Powered by ViewVC 1.1.22