(void) sprintf(buf
," %ld",n
);
if(f__recpos
+strlen(buf
)>=L_len
)
if(f__recpos
+ sprintf(buf
," %ld",n
) >= L_len
)
lwrt_L(n
, len
) ftnint n
; ftnlen len
;
lwrt_L(ftnint n
, ftnlen len
)
if(f__recpos
+LLOGW
>=L_len
)
wrt_L((Uint
*)&n
,LLOGW
, len
);
lwrt_A(p
,len
) char *p
; ftnlen len
;
lwrt_A(char *p
, ftnlen len
)
{ PUT(' '); ++f__recpos
; }
for(i
=0;i
<len
;i
++) PUT(*p
++);
l_g(buf
, n
) char *buf
; double n
;
fmt
= LLOW
<= absn
&& absn
< LHIGH
? LFFMT
: LEFMT
;
return sprintf(buf
, fmt
, n
);
/* Fortran 77 insists on having a decimal point... */
for(c1
= '.', c
= 'E'; *b
= c1
;
l_put(s
) register char *s
;
register int c
, (*pn
)() = f__putn
;
register int c
, (*pn
)(int) = f__putn
;
if(f__recpos
+ l_g(buf
,n
) >= L_len
)
lwrt_C(double a
, double b
)
char *ba
, *bb
, bufa
[LEFBL
], bufb
[LEFBL
];
for(ba
= bufa
; *ba
== ' '; ba
++)
bl
= l_g(bufb
, b
) + 1; /* intentionally high by 1 */
for(bb
= bufb
; *bb
== ' '; bb
++)
if(f__recpos
+ al
+ bl
+ 3 >= L_len
&& f__recpos
)
if (f__recpos
+ bl
>= L_len
) {
l_write(number
,ptr
,len
,type
) ftnint
*number
,type
; char *ptr
; ftnlen len
;
l_write(ftnint
*number
, char *ptr
, ftnlen len
, ftnint type
)
#define Ptr ((flex *)ptr)
default: f__fatal(204,"unknown type in lio");
xlog
: lwrt_L(Ptr
->flint
, len
);