[
Date Prev][
Date Next][
Thread Prev][
Thread Next][
Date Index][
Thread Index]
20000216: color bar fix (fwd)
- Subject: 20000216: color bar fix (fwd)
- Date: Thu, 17 Feb 2000 17:02:49 -0700
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
