26 p = f__icvt(n, &ndigit, &sign, 10);
27 if(f__recpos + ndigit >= L_len)
37 lwrt_L(n, len) ftnint n; ftnlen len;
39 lwrt_L(ftnint n, ftnlen len)
42 if(f__recpos+LLOGW>=L_len)
44 wrt_L((Uint *)&n,LLOGW, len);
48 lwrt_A(p,len) char *p; ftnlen len;
50 lwrt_A(char *p, ftnlen len)
60 if (len > 1 && p[len-1] == ' ') {
61 while(--len > 1 && p[len-1] == ' ');
69 if(f__recpos+len+a >= L_len)
93 l_g(buf, n) char *buf; double n;
95 l_g(char *buf, double n)
98 #ifdef Old_list_output
105 fmt = LLOW <= absn && absn < LHIGH ? LFFMT : LEFMT;
107 sprintf(buf, fmt, n);
110 return sprintf(buf, fmt, n);
114 register char *b, c, c1;
130 sprintf(b, LGFMT, n);
148 /* Fortran 77 insists on having a decimal point... */
159 for(c1 = '.', c = 'E'; *b = c1;
171 l_put(s) register char *s;
173 l_put(register char *s)
177 register void (*pn)() = f__putn;
179 register void (*pn)(int) = f__putn;
196 if(f__recpos + l_g(buf,n) >= L_len)
202 lwrt_C(a,b) double a,b;
204 lwrt_C(double a, double b)
207 char *ba, *bb, bufa[LEFBL], bufb[LEFBL];
211 for(ba = bufa; *ba == ' '; ba++)
213 bl = l_g(bufb, b) + 1; /* intentionally high by 1 */
214 for(bb = bufb; *bb == ' '; bb++)
216 if(f__recpos + al + bl + 3 >= L_len)
225 if (f__recpos + bl >= L_len) {
227 #ifndef OMIT_BLANK_CC
235 l_write(number,ptr,len,type) ftnint *number,type; char *ptr; ftnlen len;
237 l_write(ftnint *number, char *ptr, ftnlen len, ftnint type)
240 #define Ptr ((flex *)ptr)
246 for(i=0;i< *number; i++)
250 default: f__fatal(204,"unknown type in lio");
293 xlog: lwrt_L(Ptr->flint, len);