$F4 P001
      SUBROUTINEITR
      COMMON/DASCOM/NIN,NOUT
      COMMON/TRCCOM/A1(21),A2(21),A3(21),A4(21),A5(21),A6(21),A7(3),
     1    N1,N2,N3,N4,N5,N6,N7,N8,N9,N10
      INTEGERA1,A2,A3,A4,A5,A6,T1(10),T2(10),DATE(2)
	DATA(T1(I),I=1,10)/10*5H     /
	DATA(T2(I),I=1,10)/10*5H     /
	DATADATE/8HMM/DD/YY/
      NIN=2
      N2=20
      N1=1
	READ(NIN,100)NOUT
	CALLIRG(50,T1,T2,DATE,NOUT)
 2    READ(NIN,100)A1(N1),A2(N1),A3(N1),A4(N1),A5(N1)
      WRITE(NOUT,100)A1(N1),A2(N1),A3(N1),A4(N1),A5(N1)
      A6(N1)=0
      IF(A1(N1).EQ.0)GOTO1
      N1=N1+1
      IF(N1.GT.N2)CALLEXIT
      GOTO2
 1    N1=N1-1
      N3=0
      N4=A2(N1+1)
      N5=A3(N1+1)
      N6=A4(N1+1)
      RETURN
 100  FORMAT(5I10)
      END