22 p = f__icvt (n, &ndigit, &sign, 10);
23 if (f__recpos + ndigit >= L_len)
32 lwrt_L (ftnint n, ftnlen len)
34 if (f__recpos + LLOGW >= L_len)
36 wrt_L ((Uint *) & n, LLOGW, len);
39 lwrt_A (char *p, ftnlen len)
49 if (len > 1 && p[len - 1] == ' ')
51 while (--len > 1 && p[len - 1] == ' ');
59 if (f__recpos + len + a >= L_len)
84 l_g (char *buf, double n)
86 #ifdef Old_list_output
93 fmt = LLOW <= absn && absn < LHIGH ? LFFMT : LEFMT;
95 sprintf (buf, fmt, n);
98 return sprintf (buf, fmt, n);
102 register char *b, c, c1;
120 sprintf (b, LGFMT, n);
139 /* Fortran 77 insists on having a decimal point... */
151 for (c1 = '.', c = 'E'; (*b = c1); c1 = c, c = *++b);
161 l_put (register char *s)
163 register void (*pn) (int) = f__putn;
175 if (f__recpos + l_g (buf, n) >= L_len)
180 lwrt_C (double a, double b)
182 char *ba, *bb, bufa[LEFBL], bufb[LEFBL];
186 for (ba = bufa; *ba == ' '; ba++)
188 bl = l_g (bufb, b) + 1; /* intentionally high by 1 */
189 for (bb = bufb; *bb == ' '; bb++)
191 if (f__recpos + al + bl + 3 >= L_len)
200 if (f__recpos + bl >= L_len)
203 #ifndef OMIT_BLANK_CC
212 l_write (ftnint * number, char *ptr, ftnlen len, ftnint type)
214 #define Ptr ((flex *)ptr)
220 for (i = 0; i < *number; i++)
225 f__fatal (204, "unknown type in lio");
268 xlog:lwrt_L (Ptr->flint, len);