Google
 

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