C DG3.FTN C A CUSTOMER BENCHMARK PROGRAM, VIA DATA GENERAL MARKETING C DATA GENERLA FORTRAN V, BENCHMARK NO. 3 C N=64, NREF=100, PRINT=0 DIMENSION A(2500),DV(65) COMMON /LUNS/ ICRD,ILPT,IKBD,ITTY 101 FORMAT(1H ,7E10.4) DO 10 I=1,2500 10 A(I)=0.0 N=64 NREF=100 IPR= 0 C write(itty,*) 'BENCHMARK -- DG3' C ***** BEGINNING OF TIMED INTERVAL ***** CALL TIMRB M=N+1 MM=M+1 DO 6001 IP=1,NREF DO 20 I=1,M 20 DV(I)=I*IP*0.9 K=1 DO 5001 J=1,N B=DV(J) IF (B.NE.0)GO TO 5002 K=K+MM-J GO TO 5001 5002 DO 5003 L=J,M A(K)=A(K)+DV(L)*B 5003 K=K+1 5001 CONTINUE 6001 CONTINUE K=K-1 C C ***** END OF TIMED INTERVAL ***** CALL TIMRE C WRITE(ITTY,101)A(K) STOP END