blob: 6323c53be39f0597a02a3861b574a1e4dafd4e29 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--- x3/qqqcpu.f Mon Oct 4 03:53:42 1999
+++ x3/qqqcpu.f Sun Feb 11 14:34:50 2001
@@ -9,9 +9,14 @@
data r0 /1d6/
intrinsic ETime
- CALL ETime(RESULT, TARRAY)
+C This appears not to be complete. The original code contained the
+C following two code lines, which generate an "incorrect type" error.
+C Since I don't have a description of ETIME, just carry out the sentiment
+C of the comment above
+C CALL ETime(RESULT, TARRAY)
- r2 = r0 - tarray(1)
+C r2 = r0 - tarray(1)
+ r2 = r0
RETURN
|
