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

Diff of /MITgcm/lsopt/dgscale.F

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

revision 1.1.2.1 by heimbach, Tue Feb 5 20:34:33 2002 UTC revision 1.4 by heimbach, Thu Sep 9 15:51:26 2004 UTC
# Line 18  c     ================================== Line 18  c     ==================================
18    
19        implicit none        implicit none
20    
21  #include <blas1.h>  #include "blas1.h"
22    
23        integer nn        integer nn
24        double precision    gold(nn), xdiff(nn), diag(nn)        double precision    gold(nn), xdiff(nn), diag(nn)
# 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)
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22