casa-mp-base

diff -ruN ./d1mach.f ../src.patched/d1mach.f

--- ./d1mach.f  1993-02-18 18:06:52.000000000 +0100

+++ ../src.patched/d1mach.f 1999-10-06 23:13:26.000000000 +0200

@@ -69,20 +69,14 @@

 C   930201  Added DEC Alpha and SGI constants.  (RWC and WRB)

 C***END PROLOGUE  D1MACH

 C

-      INTEGER SMALL(4)

-      INTEGER LARGE(4)

-      INTEGER RIGHT(4)

-      INTEGER DIVER(4)

-      INTEGER LOG10(4)

-C

-      DOUBLE PRECISION DMACH(5)

-      SAVE DMACH

-C

-      EQUIVALENCE (DMACH(1),SMALL(1))

-      EQUIVALENCE (DMACH(2),LARGE(1))

-      EQUIVALENCE (DMACH(3),RIGHT(1))

-      EQUIVALENCE (DMACH(4),DIVER(1))

-      EQUIVALENCE (DMACH(5),LOG10(1))

+C

+   external dlamch

+      DOUBLE PRECISION DMACH(5),dlamch

+   integer iflag

+

+      SAVE DMACH,iflag

+   data iflag/0/

+C

 C

 C     MACHINE CONSTANTS FOR THE AMIGA

 C     ABSOFT FORTRAN COMPILER USING THE 68020/68881 COMPILER OPTION

@@ -496,6 +490,15 @@

       IF (I .LT. 1 .OR. I .GT. 5) CALL XERMSG ('SLATEC', 'D1MACH',

      +   'I OUT OF BOUNDS', 1, 2)

 C

+   if (iflag.eq.0) then

+      iflag=1

+      dmach(1)=dlamch('u')

+      dmach(2)=dlamch('o')

+      dmach(3)=dlamch('e')

+      dmach(4)=dlamch('p')

+      dmach(5)=dlamch('b')

+      dmach(5)=log10(dmach(5))

+   endif

       D1MACH = DMACH(I)

       RETURN

 C

diff -ruN ./dynamic/makefile ../src.patched/dynamic/makefile

--- ./dynamic/makefile  1970-01-01 01:00:00.000000000 +0100

+++ ../src.patched/dynamic/makefile 1999-12-22 00:32:30.000000000 +0100

@@ -0,0 +1,222 @@

+FFLAGS= -O2 -fPIC

+OBJ = \

+aaaaaa.o  cnbdi.o   dcv.o     dqc25f.o  hpperm.o  qc25s.o       spoco.o \

+acosh.o   cnbfa.o   ddaini.o  dqc25s.o  hpsort.o  qcheb.o       spodi.o \

+ai.o      cnbfs.o   ddajac.o  dqcheb.o  hqr.o     qelg.o        spofa.o \

+aie.o     cnbir.o   ddanrm.o  dqdota.o  hqr2.o    qform.o       spofs.o \

+albeta.o  cnbsl.o   ddaslv.o  dqdoti.o  hstart.o  qk15.o        spoir.o \

+algams.o  combak.o  ddassl.o  dqelg.o   hstcrt.o  qk15i.o       spopt.o \

+ali.o     comhes.o  ddastp.o  dqform.o  hstcs1.o  qk15w.o       sposl.o \

+alngam.o  comlr.o   ddatrp.o  dqk15.o   hstcsp.o  qk21.o        sppco.o \

+alnrel.o  comlr2.o  ddaws.o   dqk15i.o  hstcyl.o  qk31.o        sppdi.o \