diff options
Diffstat (limited to 'benchmarks/benchfft/patches/patch-ab')
-rw-r--r-- | benchmarks/benchfft/patches/patch-ab | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/benchmarks/benchfft/patches/patch-ab b/benchmarks/benchfft/patches/patch-ab new file mode 100644 index 00000000000..27a0ca60d73 --- /dev/null +++ b/benchmarks/benchfft/patches/patch-ab @@ -0,0 +1,73 @@ +$NetBSD: patch-ab,v 1.1 2000/05/13 14:51:12 dmcmahill Exp $ + +"D" is not recognized by f2c as a comment. + +--- f_source/harmd.f.orig Tue Oct 20 12:42:44 1998 ++++ f_source/harmd.f Fri Apr 21 15:00:54 2000 +@@ -98,5 +98,5 @@ + DIMENSION INV(*),S(*) + EQUIVALENCE (N1,N(1)),(N2,N(2)),(N3,N(3)) +-D DOUBLE PRECISION TIME1,TIME2,TIME3,TIME4,TIME5,TIME6,TIME7 ++CD DOUBLE PRECISION TIME1,TIME2,TIME3,TIME4,TIME5,TIME6,TIME7 + 869 FORMAT(1H ,E13.4) + 879 FORMAT(1H ,6I5) +@@ -148,5 +148,5 @@ + 40 KBIT=KBIT/2 + KL=KBIT-2 +-D CALL CLOCK(TIME1) ++CD CALL CLOCK(TIME1) + DO 50 I=1,IL1,IDIF + KLAST=KL+I +@@ -193,5 +193,5 @@ + C + C DO FOR J=0 +-D CALL CLOCK(TIME1) ++CD CALL CLOCK(TIME1) + DO 80 I=1,IL1,IDIF + KLAST=I+KL +@@ -256,7 +256,7 @@ + A(K3+1)=AK2_1-AK3_0 + 80 continue +-D CALL CLOCK(TIME2) +-D WRITE(6,2000)TIME2-TIME1 +-D2000 FORMAT(' AT 2 ',E12.5) ++CD CALL CLOCK(TIME2) ++CD WRITE(6,2000)TIME2-TIME1 ++CD2000 FORMAT(' AT 2 ',E12.5) + IF (JLAST) 235,235,82 + 82 JJ=JJDIF +1 +@@ -264,5 +264,5 @@ + C DO FOR J=1 + ILAST= IL +JJ +-D CALL CLOCK(TIME1) ++CD CALL CLOCK(TIME1) + DO 85 I = JJ,ILAST,IDIF + KLAST = KL+I +@@ -323,12 +323,12 @@ + A(K3+1)=AK2_1-AK3_0 + 85 continue +-D CALL CLOCK(TIME2) +-D WRITE(6,3000)TIME2-TIME1 +-D3000 FORMAT(' AT 3 ',E12.5) ++CD CALL CLOCK(TIME2) ++CD WRITE(6,3000)TIME2-TIME1 ++CD3000 FORMAT(' AT 3 ',E12.5) + IF(JLAST-1) 235,235,90 + 90 JJ= JJ + JJDIF + C + C NOW DO THE REMAINING J@S +-D CALL CLOCK(TIME1) ++CD CALL CLOCK(TIME1) + DO 230 J=2,JLAST + C THIS EQUIVALENCE FORCES SOME VARIABLES INTO PERMANENT REGISTER +@@ -447,7 +447,7 @@ + C + 230 JJ=JJDIF+JJ +-D CALL CLOCK(TIME2) +-D WRITE(6,4000)TIME2-TIME1 +-D4000 FORMAT(' AT 4 ',E12.5) ++CD CALL CLOCK(TIME2) ++CD WRITE(6,4000)TIME2-TIME1 ++CD4000 FORMAT(' AT 4 ',E12.5) + C END OF J-LOOP + C |