if(n
=c_le(a
,WRITE
)) return(n
);
return(nowwriting(curunit
));
sprintf(buf
," %ld",(long)n
);
if(recpos
+strlen(buf
)>=LINE
)
for(p
=buf
;*p
;t_putc(*p
++));
lwrt_A(p
,len
) char *p
; ftnlen len
;
for(i
=0;i
<len
;i
++) t_putc(*p
++);
wrt_F(&n
,LFW
,LFD
,(ftnlen
)sizeof(n
));
wrt_E(&n
,LEW
,LED
,LEE
,(ftnlen
)sizeof(n
));
l_write(number
,ptr
,len
,type
) ftnint
*number
,type
; flex
*ptr
; ftnlen len
;
default: fatal(204,"unknown type in lio");
case TYSHORT
: x
=ptr
->flshort
;
case TYLONG
: x
=ptr
->flint
;
case TYREAL
: y
=ptr
->flreal
;
case TYDREAL
: y
=ptr
->fldouble
;
case TYCOMPLEX
: xx
= &(ptr
->flreal
);
case TYDCOMPLEX
: yy
= &(ptr
->fldouble
);
case TYLOGICAL
: lwrt_L(ptr
->flint
);
case TYCHAR
: lwrt_A((char *)ptr
,len
);