char id_close[] = "@(#)close.c 1.2";
* close.c - f77 file close, flush, exit routines
if(not_legal(lunit
)) err(errflag
,F_ERUNIT
,"close");
if(lunit
==STDERR
&& (!a
->csta
|| *a
->csta
!= FROM_OPEN
))
err(errflag
,F_ERUNIT
,"can't close stderr");
if(!b
->ufd
) err(errflag
,F_ERNOPEN
,"close");
if(b
->ufnm
) unlink(b
->ufnm
); /*SYSDEP*/
if(b
->uwrt
) t_runc(b
,errflag
);
else if(b
->uscrtch
) goto delete;
if(b
->ufnm
) free(b
->ufnm
);
ftnint lu
, dofirst
= YES
;
for(lu
=STDOUT
; (dofirst
|| lu
!=STDOUT
); lu
= ++lu
% MXUNIT
)