Fix for libI77.a, IBM/4.3

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

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by brunner Fri, 20 Oct 1989 19:51

#491

Author: 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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads