1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-29 21:39:24 +00:00
freebsd-ports/math/umfpack/files/patch-ba
Steve Price 05e2c41388 Initial import of umfpack version 2.2.
A package for solving systems of sparse linear systems.

PR:		5295
Submitted by:	Pedro Giffuni <giffunip@asme.org>
1998-07-11 18:20:30 +00:00

85 lines
3.0 KiB
Plaintext

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