/*
-char id_rewind[] = "@(#)rewind.c 1.3";
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved. The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
*
+ * @(#)rewind.c 5.2 7/30/85
+ */
+
+/*
* rewind.c - f77 file rewind
*/
errflag = a->aerr;
if(not_legal(lunit)) err(errflag,F_ERUNIT,rwnd)
b = &units[lunit];
- if(!b->ufd && (n=fk_open(READ,SEQ,FMT,(ftnint)lunit)) )
- err(errflag,n,rwnd)
+ if(!b->ufd) return(OK);
lfname = b->ufnm;
if(!b->useek) err(errflag,F_ERNOBKSP,rwnd)
b->uend = NO;