* * $Id: epgetw.F,v 1.1.1.1 1996/03/08 15:21:44 mclareni Exp $ * * $Log: epgetw.F,v $ * Revision 1.1.1.1 1996/03/08 15:21:44 mclareni * Epio * * #include "epio/pilot.h" SUBROUTINE EPGETW(LUNIT,NUMBER,IW,IERR) C. C. INPUT: C. C. LUNIT LOGICAL UNIT. C. C. NUMBER NO. OF STATUS WORD ASKED FOR (SEE LIST ABOVE). C. C. OUTPUT: C. C. IW VALUE OF STATUS WORD. C. C. IERR ERROR FLAG. SEE SEPARATE LIST. C. #include "epio/epiocom.inc" IERR=0 IF(NUMBER.LE.0.OR.NUMBER.GT.NWUNIT) GOTO 9901 C--- CHECK WHETHER SAME USER UNIT AS LAST TIME IF(LASTUT.EQ.LUNIT) GOTO 1551 C--- NEW UNIT - GET REF CALL EPUNIT(LUNIT,IERR) IF(IERR.EQ.0) GOTO 1552 GOTO 77777 1551 IERR=0 IF(LREF.NE.0) GOTO 1552 IERR=13 CALL EPERRH(LUNIT,IERR) GOTO 77777 1552 CONTINUE IW=LIST(ISTART+NUMBER) 77777 RETURN 9901 CONTINUE C--- STATUS WORD REQUEST OUT OF RANGE IERR=16 CALL EPERRH(LUNIT,IERR) GOTO 77777 END