[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

gempak bug

This archive contains answers to questions sent to Unidata support through mid-2025. Note that the archive is no longer being updated. We provide the archive for reference; many of the answers presented here remain technically correct, even if somewhat outdated. For the most up-to-date information on the use of NSF Unidata software and data services, please consult the Software Documentation first.

  • Subject: gempak bug
  • Date: Tue, 15 Feb 2000 16:19:45 -0800 (PST)
I would like to suggest the following patch to gempak5.4/src/gemlib/gg/ggchar.f.
The problem is a divide by zero error that Solaris just works through (it never
uses the result of the divide by zero), but Compaq Tru64 Unix gives a floating
point exception.

*** ggcbar.f.dst        Tue Apr 19 06:13:45 1994
--- ggcbar.f    Tue Feb 15 16:05:58 2000
***************
*** 102,107 ****
--- 102,108 ----
  C*    Draw the color bar
  C
        knt1 = 0
+       IF ( knt .eq. 0) RETURN
        DO i = 1, nflvl1
  C--
  C--   Commented out IF check so that the first and last values


--
Dr. Harry Edmon                 E-MAIL: address@hidden
(206) 543-0547                  FAX:    (206) 543-0308
Dept of Atmospheric Sciences
University of Washington, Box 351640, Seattle, WA 98195-1640