diff options
Diffstat (limited to 'lib/libI77/wref.c')
-rw-r--r-- | lib/libI77/wref.c | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lib/libI77/wref.c b/lib/libI77/wref.c index 5e4871d..2f3fce8 100644 --- a/lib/libI77/wref.c +++ b/lib/libI77/wref.c @@ -1,10 +1,5 @@ #include "f2c.h" #include "fio.h" -#include "fmt.h" -#include "fp.h" -#ifndef VAX -#include "ctype.h" -#endif #ifndef KR_headers #undef abs @@ -14,6 +9,12 @@ #include "string.h" #endif +#include "fmt.h" +#include "fp.h" +#ifndef VAX +#include "ctype.h" +#endif + #ifdef KR_headers wrt_E(p,w,d,e,len) ufloat *p; ftnlen len; #else @@ -117,8 +118,8 @@ nogood: /* accommodate 3 significant digits in exponent */ if (s[2]) { #ifdef Pedantic - if (!e0 && !s[3]) - e1 = 2;/* for(s -= 2, e1 = 2; s[0] = s[1]; s++); + if (!e0 && !s[3]) + 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 */ |