36 p
= f__icvt(n
, &ndigit
, &sign
, 10);
37 if(f__recpos
+ ndigit
>= L_len
)
47 lwrt_L(n
, len
) ftnint n
; ftnlen len
;
49 lwrt_L(ftnint n
, ftnlen len
)
52 if(f__recpos
+LLOGW
>=L_len
)
54 wrt_L((Uint
*)&n
,LLOGW
, len
);
58 lwrt_A(p
,len
) char *p
; ftnlen len
;
60 lwrt_A(char *p
, ftnlen len
)
70 if (len
> 1 && p
[len
-1] == ' ') {
71 while(--len
> 1 && p
[len
-1] == ' ');
79 if(f__recpos
+len
+a
>= L_len
)
103 l_g(buf
, n
) char *buf
; double n
;
105 l_g(char *buf
, double n
)
108 #ifdef Old_list_output
115 fmt
= LLOW
<= absn
&& absn
< LHIGH
? LFFMT
: LEFMT
;
117 sprintf(buf
, fmt
, n
);
120 return sprintf(buf
, fmt
, n
);
124 register char *b
, c
, c1
;
140 sprintf(b
, LGFMT
, n
);
158 /* Fortran 77 insists on having a decimal point... */
169 for(c1
= '.', c
= 'E'; *b
= c1
;
181 l_put(s
) register char *s
;
183 l_put(register char *s
)
187 register int c
, (*pn
)() = f__putn
;
189 register int c
, (*pn
)(int) = f__putn
;
204 if(f__recpos
+ l_g(buf
,n
) >= L_len
)
210 lwrt_C(a
,b
) double a
,b
;
212 lwrt_C(double a
, double b
)
215 char *ba
, *bb
, bufa
[LEFBL
], bufb
[LEFBL
];
219 for(ba
= bufa
; *ba
== ' '; ba
++)
221 bl
= l_g(bufb
, b
) + 1; /* intentionally high by 1 */
222 for(bb
= bufb
; *bb
== ' '; bb
++)
224 if(f__recpos
+ al
+ bl
+ 3 >= L_len
)
233 if (f__recpos
+ bl
>= L_len
) {
235 #ifndef OMIT_BLANK_CC
243 l_write(number
,ptr
,len
,type
) ftnint
*number
,type
; char *ptr
; ftnlen len
;
245 l_write(ftnint
*number
, char *ptr
, ftnlen len
, ftnint type
)
248 #define Ptr ((flex *)ptr)
254 for(i
=0;i
< *number
; i
++)
258 default: f__fatal(204,"unknown type in lio");
301 xlog
: lwrt_L(Ptr
->flint
, len
);