From rutgers!ucsd!ames!sun-barr!cs.utexas.edu!uunet!ibmpa!bullhead!brunner Tue Oct 24 17:02:19 EDT 1989
Article 1436 of comp.sys.ibm.pc.rt:
Path: cmcl2!rutgers!ucsd!ames!sun-barr!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

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


