SUBROUTINE EOPEN
C     IOXREF80  
      IMPLICIT INTEGER (A-Z)
      INTEGER W1(476),FILE(2),ELT(2),VER(2) 
C     ELEMENT NFOR TAB  
      COMMON /XX/ B1(4),FILE,X1(3),ELT,VER,CYC1,B2(4),FOUT,X2(3),EOUT,VO
     1UT,CYC2   
C   
      INTEGER IMAGE(22) 
C   
      CALL INFORR (W1,300,STAT) 
      IF (STAT.NE.0) GO TO 50   
      CALL SPEC (B1,1,$50)  
    5 CONTINUE  
      IE=3  
      STAT=ELTRO(W1,FILE,ELT,VER)   
      IE=5  
      IF (STAT.NE.0) GO TO 50   
      ICL=0 
      NRI=0 
      NRO=0 
C   
      RETURN
C   
C    READ A RECORD FROM INPUT ELEMENT   
C   
       ENTRY ELTRED($,IMAGE)
10    IE=6  
      STAT=ELTR(W1,IMAGE,14,ICW)
      IF (STAT.NE.0) GO TO 70   
      IF (FLD(0,6,ICW).EQ.40) GO TO 10  
       IF(ICW.LT.0) GO TO 10
      IF (FLD(18,6,ICW).NE.0) GO TO 10  
      NRI=NRI+1 
        RETURN  
C   
         ENTRY REWELT   
      STAT=ELTRO(W1,FILE,ELT,VER)   
      IE=5  
      IF (STAT.NE.0) GO TO 50   
      NRI=0 
C   
           RETURN   
C   
C   
60    FORMAT (' ERROR NUMBER ',I2,' STATUS: ',O13)  
50     IF(STAT.EQ.33)PRINT 53   
       IF(STAT.EQ.34)PRINT 54   
53       FORMAT(' ELEMENT IS NOT IN THE FILE')  
54       FORMAT(' FILE IS IN ERROR')
51    PRINT 60, IE,STAT 
      STOP  
C   
C     CLOSE INPUT   
C   
      ENTRY CLOSEI  
C   
      ICL=1 
   70 CONTINUE  
      S=ELTRC(W1)   
   65 FORMAT('0',I6,' RECORDS INPUT FROM ',2A6,'.',2A6,'/',2A6,/)   
         RETURN 1   
C   
      SUBROUTINE SPEC (J,N,$)   
      INTEGER J(2)  
        J(5)=0  
        J(10)=0 
      CALL INFORW (J,N,STAT)
      IF (STAT.NE.0) RETURN 3   
      IF(FLD(6,6,J(1)).EQ.0) GO TO 5
      IF (J(5).NE.0) GO TO 10   
5     CALL CHMOVE ('TPF$   ',1,J(5),1,12)   
10    IF (J(10).EQ.0) RETURN 3  
      IF(FLD(0,6,J(2)).EQ.0) RETURN 3   
      IF (J(12).NE.0) RETURN
      J(12)=' ' 
      J(13)=' ' 
      RETURN
C   
C   
      END