Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50044/itr.f
There are no other files named itr.f in the archive.
$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