Fix for libI77.a, IBM/4.3

Article View: comp.sys.ibm.pc.rt

Article #491

Back to comp.sys.ibm.pc.rt Previous Next

#491

From: brunner
Date: Fri, 20 Oct 1989 19:51

35 lines
1398 bytes

Subject: Fix for Fortran write statements with blanks
Index: /usr/src/usr.lib/libI77/wrtfmt.c

Description:
	Corrects a FORTRAN write statement format error.
	Zeros after a "decimal point (.)" and before a "d"
	were printed as blanks.

Fix:
	Apply the following patch


*** wrtfmt.c	Mon Sep 18 18:09:15 1989
--- wrtfmt.c.fix	Mon Sep 18 18:08:43 1989
***************
*** 300,306 ****
   *	F2.1   ==> '. '
   * However, we feel IBM should decide on whether this fix is required.
   */
! 		if(x==0.0 && !cblank) PUT(' ')	/* exactly zero */
  		else
  #endif
  		 if(*s) PUT(*s++)
--- 300,306 ----
   *	F2.1   ==> '. '
   * However, we feel IBM should decide on whether this fix is required.
   */
! 		if(x==0.0 && cblank) PUT(' ')	/* exactly zero */
  		else
  #endif
  		 if(*s) PUT(*s++)

Eric Brunner, IBM AWD Palo Alto
inet: brunner@monet.berkeley.edu or brunner%ibmsupt@uunet.uu.net
uucp: uunet!ibmsupt!brunner		(415) 855-4486

Technical Details

Message-ID: <2649@ibmpa.UUCP>

Path: arc1-ca.pugleaf.net!utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!uunet!ibmpa!bullhead!brunner

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!uunet!ibmpa!bullhead!brunner
From: brunner@bullhead.uucp
Newsgroups: comp.sys.ibm.pc.rt
Subject: Fix for libI77.a, IBM/4.3
Summary: fixes FORTRAN format nit
Keywords: V1.16 libI77.a FORTRAN
Message-ID: <2649@ibmpa.UUCP>
Date: 20 Oct 89 19:51:57 GMT
Sender: news@ibmpa.UUCP
Reply-To: brunner@ibmsupt.UUCP ()
Organization: IBM AWD Palo Alto
Lines: 35