73 lines
1.9 KiB
Text
73 lines
1.9 KiB
Text
$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
|