NOTICE: This version of the NSF Unidata web site (archive.unidata.ucar.edu) is no longer being updated.
Current content can be found at unidata.ucar.edu.

To learn about what's going on, see About the Archive Site.

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

20000216: color bar fix (fwd)

The code mentioned below is still applicable to 5.4.3w.

Steve Chiswell
Unidata User Support


------- Forwarded Message

>To: address@hidden
>From: Harry Edmon <address@hidden>
>Subject: gempak bug
>Organization: .
>Keywords: 200002160019.RAA01909

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


------- End of Forwarded Message