C C BENCHMARK FOR INTEGER C IMPLICIT INTEGER*4(A-Z) REAL*4 T1,DELTA,SECNDS N=100 T1=SECNDS(0.0) DO 1 I=1,N DO 1 J=1,N I1=(J*J+I)/(J+I)+(I/J*J/I) I2=(I*I+I1)/(I+I1)+(I1/I*I/I1) I3=(I1*I1+I2)/(I1+I2)+(I2/I1*I1/I2) I4=(I2*I2+I3)/(I2+I3)+(I3/I2*I2/I3) I5=(I3*I3+I4)/(I3+I4)+(I4/I3*I3/I4) I6=(I4*I4+I5)/(I4+I5)+(I5/I4*I4/I5) I7=(I5*I5+I6)/(I5+I6)+(I6/I5*I5/I6) I8=(I6*I6+I7)/(I6+I7)+(I7/I6*I6/I7) I9=(I8*I8+I7)/(I8+I7)+(I8/I7*I7/I8) I10=(I9*I9+I8)/(I9+I8)+(I9/I8*I8/I9) 1 CONTINUE DELTA=SECNDS(T1) WRITE(6,2) DELTA 2 FORMAT(' ELAPSED TIME IS ',F7.3,' SECONDS') STOP END (I*I+I1)/(I+I1)+(I1/I*I/I1) I3=(I1*I1+I2)/(I1+I2)+(I2/I1*I1/I2) I4=(I2*I2+I3)/(I2+I3)+(I3/I2*I2/I3) I5=(I3*I3+I4)/(I3+I4)+(I4/I3*I3/I4) I6=(I4*I4+I5)/(I4+I5)+(I5/I4*I4/I5) I7=(I5*I5+I6)/(I5+I6)+(I6/I5*I5/I6) I8=(I6*I6+I7)/(I6+I7)+(I7/I6*I6/I7) I9=(I8*I8