Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0104/twoper.for
There are 2 other files named twoper.for in the archive. Click here to see a list.
00010 C TWOPER.FOR NADDOR JAN 76
00020 INTEGER A(10),B(10)
00030 COMPLEX F
00040 100 TYPE 105
00050 105 FORMAT (/' FILE? '$)
00060 ACCEPT 115,F
00070 115 FORMAT(2A5)
00080 IF (F .EQ. 'STOP') STOP
00090 OPEN(UNIT=1,ACCESS='SEQIN',FILE=F)
00100 TYPE 145
00110 145 FORMAT(/)
00120 200 READ (1,205,END=100) A,S1,B,S2
00130 205 FORMAT(6X,10A1,F6.3,10A1,F6.3)
00140 DO 250 I=1,10
00150 IF (A(I).GT.B(I)) GOTO 400
00160 IF (A(I).LT.B(I)) GOTO 300
00170 250 CONTINUE
00180 300 TYPE 305,A,S1
00190 305 FORMAT(X,10A1,F8.3)
00200 TYPE 305,B,S2
00210 GOTO 500
00220 400 TYPE 305,B,S2
00230 TYPE 305,A,S1
00240 500 AVE = (S1+S2)/2
00250 TYPE 515,AVE
00260 515 FORMAT(/' AVERAGE 'F8.3//)
00270 GOTO 200
00280 END