brunner@bullhead.uucp (10/21/89)
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