[cdftools] 128/228: JMM : minor adjustment in cdfstd (ELSE WHERE -> ELSEWHERE) for gfortran adjust usage message for -fact factor in cdfzoom: factor is a dividing factor

[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 dc54f4253882a406ba460d88518e7ee8a2519639
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Mon Jan 16 21:15:13 2012 +0000

    JMM : minor adjustment in cdfstd (ELSE WHERE -> ELSEWHERE) for gfortran
          adjust usage message for -fact factor in cdfzoom: factor is a dividing factor
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@576 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfstd.f90  | 2 +-
 cdfzoom.f90 | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/cdfstd.f90 b/cdfstd.f90
index c0f723d..b299082 100644
--- a/cdfstd.f90
+++ b/cdfstd.f90
@@ -204,7 +204,7 @@ PROGRAM cdfstd
 
            WHERE ( dtab2 - dtab*dtab >= 0 ) 
              dstd = SQRT(dtab2 - dtab*dtab)
-           ELSE WHERE
+           ELSEWHERE
              dstd = 0.d0
            END WHERE
 
diff --git a/cdfzoom.f90 b/cdfzoom.f90
index e26bf63..9a704ca 100644
--- a/cdfzoom.f90
+++ b/cdfzoom.f90
@@ -34,7 +34,7 @@ PROGRAM cdfzoom
   INTEGER(KIND=4)                           :: ijpmin, ijpmax         !
   !
   REAL(KIND=4), DIMENSION(:,:), ALLOCATABLE :: v2d                    ! data array
-  REAL(KIND=4)                              :: fact                   ! multiplying factor
+  REAL(KIND=4)                              :: fact                   ! scaling factor
   !
   CHARACTER(LEN=256)                        :: cldum                  ! summy character variable
   CHARACTER(LEN=256)                        :: cf_in                  ! input file name
@@ -61,7 +61,8 @@ PROGRAM cdfzoom
      PRINT *,'     OPTIONS :'
      PRINT *,'       [-lev kmin kmax ]  : vertical limits for display.' 
      PRINT *,'       [-time tmin tmax ] : time limits for display.' 
-     PRINT *,'       [-fact factor ]    : use a multiplicative factor for display.'
+     PRINT *,'       [-fact factor ]    : use a scaling factor for display.'
+     PRINT *,'                            Values are DIVIDED by factor'
      PRINT *,'      '
      PRINT *,'     REQUIRED FILES :'
      PRINT *,'        none'

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