blob: 6ac80f2b2a403233718e149f21bdfb956466efe8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
Note: Although the Harwell routines are available in Netlib, they are a
commercial product. This patch disables their use.
*** umc2fb.f.orig Fri Nov 7 11:32:20 1997
--- umc2fb.f Fri Nov 7 11:43:14 1997
***************
*** 168,173 ****
--- 168,177 ----
C if (MC21B and MC13E not available during installation) return
C=======================================================================
+ RETURN
+ C=======================================================================
+ C The rest will be ignored !!!!!!!! (We are not using Harwell)
+ C=======================================================================
NZDIA = NZ
NZOFF = 0
*** umd2fb.f.orig Fri Nov 7 11:32:30 1997
--- umd2fb.f Fri Nov 7 11:44:14 1997
***************
*** 167,173 ****
C EXECUTABLE STATEMENTS:
C if (MC21B and MC13E not available during installation) return
C=======================================================================
!
NZDIA = NZ
NZOFF = 0
--- 167,176 ----
C EXECUTABLE STATEMENTS:
C if (MC21B and MC13E not available during installation) return
C=======================================================================
! RETURN
! C=======================================================================
! C The rest will be ignored !!!!!!!! (We are not using Harwell)
! C=======================================================================
NZDIA = NZ
NZOFF = 0
*** ums2fb.f.orig Fri Nov 7 11:32:44 1997
--- ums2fb.f Fri Nov 7 11:44:54 1997
***************
*** 167,173 ****
C EXECUTABLE STATEMENTS:
C if (MC21B and MC13E not available during installation) return
C=======================================================================
!
NZDIA = NZ
NZOFF = 0
--- 167,176 ----
C EXECUTABLE STATEMENTS:
C if (MC21B and MC13E not available during installation) return
C=======================================================================
! RETURN
! C=======================================================================
! C The rest will be ignored !!!!!!!! (We are not using Harwell)
! C=======================================================================
NZDIA = NZ
NZOFF = 0
*** umz2fb.f.orig Fri Nov 7 11:32:57 1997
--- umz2fb.f Fri Nov 7 11:45:42 1997
***************
*** 167,173 ****
C EXECUTABLE STATEMENTS:
C if (MC21B and MC13E not available during installation) return
C=======================================================================
!
NZDIA = NZ
NZOFF = 0
--- 167,176 ----
C EXECUTABLE STATEMENTS:
C if (MC21B and MC13E not available during installation) return
C=======================================================================
! RETURN
! C=======================================================================
! C The rest will be ignored !!!!!!!! (We are not using Harwell)
! C=======================================================================
NZDIA = NZ
NZOFF = 0
|
