From d2e95f05c163f196a666702adf838324fd6ea6dd Mon Sep 17 00:00:00 2001 From: Jean-Marc Zucconi Date: Fri, 7 Jun 1996 15:39:54 +0000 Subject: LAPACK is a library of Fortran 77 subroutines for linear algebra. --- math/lapack/files/patch-af | 102 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 102 insertions(+) create mode 100644 math/lapack/files/patch-af (limited to 'math/lapack/files/patch-af') diff --git a/math/lapack/files/patch-af b/math/lapack/files/patch-af new file mode 100644 index 000000000000..afa3a00aa5ce --- /dev/null +++ b/math/lapack/files/patch-af @@ -0,0 +1,102 @@ +*** ./TIMING/EIG/stimee.f~ Fri Nov 18 19:49:14 1994 +--- ./TIMING/EIG/stimee.f Tue Jul 4 19:24:06 1995 +*************** +*** 243,250 **** + INTEGER LIWRK2 + PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN ) + INTEGER LWORK +! PARAMETER ( LWORK = MAX( MAXN*( 4*MAXN+2 ), +! $ 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) ) + INTEGER MAXIN, MAXPRM, MAXT, MAXSUB + PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10, + $ MAXSUB = 20 ) +--- 243,249 ---- + INTEGER LIWRK2 + PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN ) + INTEGER LWORK +! PARAMETER ( LWORK = MAXN*( 4*MAXN+2 )) + INTEGER MAXIN, MAXPRM, MAXT, MAXSUB + PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10, + $ MAXSUB = 20 ) +*** ./TIMING/EIG/ctimee.f~ Fri Nov 18 19:49:34 1994 +--- ./TIMING/EIG/ctimee.f Tue Jul 4 22:37:16 1995 +*************** +*** 262,275 **** + INTEGER LIWRK2 + PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN ) + INTEGER LWORK +! PARAMETER ( LWORK = MAX( MAXN*( 4*MAXN+2 ), +! $ 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) ) + INTEGER MAXIN, MAXPRM, MAXT, MAXSUB + PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10, + $ MAXSUB = 20 ) + INTEGER LRWORK +! PARAMETER ( LRWORK = MAX( MAXIN*MAXT*MAXPRM, +! $ 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) ) + INTEGER NIN, NOUT + PARAMETER ( NIN = 5, NOUT = 6 ) + * .. +--- 262,273 ---- + INTEGER LIWRK2 + PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN ) + INTEGER LWORK +! PARAMETER ( LWORK = MAXN*( 4*MAXN+2 )) + INTEGER MAXIN, MAXPRM, MAXT, MAXSUB + PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10, + $ MAXSUB = 20 ) + INTEGER LRWORK +! PARAMETER ( LRWORK = 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) + INTEGER NIN, NOUT + PARAMETER ( NIN = 5, NOUT = 6 ) + * .. +*** ./TIMING/EIG/dtimee.f~ Fri Nov 18 19:49:24 1994 +--- ./TIMING/EIG/dtimee.f Tue Jul 4 23:41:44 1995 +*************** +*** 243,250 **** + INTEGER LIWRK2 + PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN ) + INTEGER LWORK +! PARAMETER ( LWORK = MAX( MAXN*( 4*MAXN+2 ), +! $ 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) ) + INTEGER MAXIN, MAXPRM, MAXT, MAXSUB + PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10, + $ MAXSUB = 20 ) +--- 243,249 ---- + INTEGER LIWRK2 + PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN ) + INTEGER LWORK +! PARAMETER ( LWORK = MAXN*( 4*MAXN+2 )) + INTEGER MAXIN, MAXPRM, MAXT, MAXSUB + PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10, + $ MAXSUB = 20 ) +*** ./TIMING/EIG/ztimee.f~ Fri Nov 18 19:49:43 1994 +--- ./TIMING/EIG/ztimee.f Wed Jul 5 00:55:56 1995 +*************** +*** 262,275 **** + INTEGER LIWRK2 + PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN ) + INTEGER LWORK +! PARAMETER ( LWORK = MAX( MAXN*( 4*MAXN+2 ), +! $ 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) ) + INTEGER MAXIN, MAXPRM, MAXT, MAXSUB + PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10, + $ MAXSUB = 20 ) + INTEGER LRWORK +! PARAMETER ( LRWORK = MAX( MAXIN*MAXT*MAXPRM, +! $ 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) ) + INTEGER NIN, NOUT + PARAMETER ( NIN = 5, NOUT = 6 ) + * .. +--- 262,273 ---- + INTEGER LIWRK2 + PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN ) + INTEGER LWORK +! PARAMETER ( LWORK = MAXN*( 4*MAXN+2 )) + INTEGER MAXIN, MAXPRM, MAXT, MAXSUB + PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10, + $ MAXSUB = 20 ) + INTEGER LRWORK +! PARAMETER ( LRWORK = 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) + INTEGER NIN, NOUT + PARAMETER ( NIN = 5, NOUT = 6 ) + * .. -- cgit v1.2.3