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