diff options
Diffstat (limited to 'lib/libI77/wref.c')
| -rw-r--r-- | lib/libI77/wref.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/libI77/wref.c b/lib/libI77/wref.c index 0adcccc..5e4871d 100644 --- a/lib/libI77/wref.c +++ b/lib/libI77/wref.c @@ -15,9 +15,9 @@ #endif #ifdef KR_headers -int wrt_E(p,w,d,e,len) ufloat *p; ftnlen len; +wrt_E(p,w,d,e,len) ufloat *p; ftnlen len; #else -int wrt_E(ufloat *p, int w, int d, int e, ftnlen len) +wrt_E(ufloat *p, int w, int d, int e, ftnlen len) #endif { char buf[FMAX+EXPMAXDIGS+4], *s, *se; @@ -118,7 +118,7 @@ nogood: if (s[2]) { #ifdef Pedantic if (!e0 && !s[3]) - e1 = 2; /* for(s -= 2, e1 = 2; s[0] = s[1]; s++); */ + e1 = 2;/* for(s -= 2, e1 = 2; s[0] = s[1]; s++); /* Pedantic gives the behavior that Fortran 77 specifies, */ /* i.e., requires that E be specified for exponent fields */ @@ -127,7 +127,7 @@ nogood: /* exponent field if it fits. */ #else if (!e0) { - for(s -= 2, e1 = 2; (s[0] = s[1]); s++) + for(s -= 2, e1 = 2; s[0] = s[1]; s++) #ifdef CRAY delta--; if ((delta += 4) < 0) @@ -191,9 +191,9 @@ nogood: } #ifdef KR_headers -int wrt_F(p,w,d,len) ufloat *p; ftnlen len; +wrt_F(p,w,d,len) ufloat *p; ftnlen len; #else -int wrt_F(ufloat *p, int w, int d, ftnlen len) +wrt_F(ufloat *p, int w, int d, ftnlen len) #endif { int d1, sign, n; @@ -217,7 +217,7 @@ int wrt_F(ufloat *p, int w, int d, ftnlen len) #endif } - if ( (n = f__scale) ) + if (n = f__scale) if (n > 0) do x *= 10.; while(--n > 0); else @@ -267,7 +267,7 @@ int wrt_F(ufloat *p, int w, int d, ftnlen len) PUT('-'); else if (f__cplus) PUT('+'); - while( (n = *b++) ) + while(n = *b++) PUT(n); while(--d1 >= 0) PUT('0'); |
