[cdftools] 51/228: JMM fix a potential bun in cdf_findij routine : set iloc and jloc to SAVE variable

[Alastair McKinstry]

This is an automated email from the git hooks/post-receive script.

mckinstry pushed a commit to branch master
in repository cdftools.

commit 806ddd0c25d5693d1e63e07961e9a8aea4676ecf
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Tue Jun 1 20:56:09 2010 +0000

    JMM fix a potential bun in cdf_findij routine : set iloc and jloc to SAVE variable
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@327 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdftools.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cdftools.f90 b/cdftools.f90
index 8feb92e..1813106 100644
--- a/cdftools.f90
+++ b/cdftools.f90
@@ -41,7 +41,7 @@ MODULE cdftools
   !! * Local variables
   INTEGER :: niter
   INTEGER :: imin, imax, jmin, jmax
-  INTEGER :: iloc, jloc
+  INTEGER, SAVE  :: iloc, jloc
   INTEGER :: npiglo, npjglo
   INTEGER, PARAMETER :: jpitermax=15
 
@@ -104,6 +104,7 @@ MODULE cdftools
     IF (xmin < glam0) xmin = xmin +360.
     IF (xmax < glam0) xmax = xmax +360.
 
+
   lagain = .TRUE.
   niter = 1
   DO WHILE (lagain)

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/cdftools.git