Attachment 18848 Details for Bug 30465 – lapack95-gentoo.patch

[patch] lapack95-gentoo.patch

lapack95-gentoo.patch (text/plain), 7.48 KB, created by Derek Dolney on 2003-10-05 20:54:37 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Derek Dolney

Created: 2003-10-05 20:54:37 UTC

Size: 7.48 KB

patch

obsolete

>diff -ur LAPACK95/SRC/f77_lapack_single_double_complex_dcomplex.f90 LAPACK95-gentoo/SRC/f77_lapack_single_double_complex_dcomplex.f90
>--- LAPACK95/SRC/f77_lapack_single_double_complex_dcomplex.f90	2000-11-30 08:19:32.000000000 -0500
>+++ LAPACK95-gentoo/SRC/f77_lapack_single_double_complex_dcomplex.f90	2003-10-03 22:31:42.000000000 -0400
>@@ -9832,46 +9832,6 @@
> 
>       END INTERFACE
> 
>-      INTERFACE LA_LAGGE
>-
>-       SUBROUTINE SLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO )
>-         USE LA_PRECISION, ONLY: WP => SP
>-         INTEGER, INTENT(IN) :: M, N, KL, KU, LDA
>-         INTEGER, INTENT(OUT) :: INFO
>-         INTEGER, INTENT(INOUT) :: ISEED(4)
>-         REAL(WP), INTENT(IN) :: D(*)
>-         REAL(WP), INTENT(OUT) :: A(LDA,*), WORK(*)
>-      END SUBROUTINE SLAGGE
>-
>-       SUBROUTINE DLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO )
>-         USE LA_PRECISION, ONLY: WP => DP
>-         INTEGER, INTENT(IN) :: M, N, KL, KU, LDA
>-         INTEGER, INTENT(OUT) :: INFO
>-         INTEGER, INTENT(INOUT) :: ISEED(4)
>-         REAL(WP), INTENT(IN) :: D(*)
>-         REAL(WP), INTENT(OUT) :: A(LDA,*), WORK(*)
>-      END SUBROUTINE DLAGGE
>-
>-       SUBROUTINE CLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO )
>-         USE LA_PRECISION, ONLY: WP => SP
>-         INTEGER, INTENT(IN) :: M, N, KL, KU, LDA
>-         INTEGER, INTENT(OUT) :: INFO
>-         INTEGER, INTENT(INOUT) :: ISEED(4)
>-         REAL(WP), INTENT(IN) :: D(*)
>-         COMPLEX(WP), INTENT(OUT) :: A(LDA,*), WORK(*)
>-      END SUBROUTINE CLAGGE
>-
>-       SUBROUTINE ZLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO )
>-         USE LA_PRECISION, ONLY: WP => DP
>-         INTEGER, INTENT(IN) :: M, N, KL, KU, LDA
>-         INTEGER, INTENT(OUT) :: INFO
>-         INTEGER, INTENT(INOUT) :: ISEED(4)
>-         REAL(WP), INTENT(IN) :: D(*)
>-         COMPLEX(WP), INTENT(OUT) :: A(LDA,*), WORK(*)
>-      END SUBROUTINE ZLAGGE
>-
>-      END INTERFACE
>-
>       CONTAINS
> 
>       SUBROUTINE SGESV1( N, NRHS, A, LDA, PIV, B, LDB, INFO )
>diff -ur LAPACK95/SRC/f95_lapack_single_double_complex_dcomplex.f90 LAPACK95-gentoo/SRC/f95_lapack_single_double_complex_dcomplex.f90
>--- LAPACK95/SRC/f95_lapack_single_double_complex_dcomplex.f90	2000-11-30 08:19:34.000000000 -0500
>+++ LAPACK95-gentoo/SRC/f95_lapack_single_double_complex_dcomplex.f90	2003-10-03 22:31:54.000000000 -0400
>@@ -4361,46 +4361,6 @@
> 
>       END INTERFACE
> 
>-      INTERFACE LA_LAGGE
>-
>-      SUBROUTINE SLAGGE_F95( A, KL, KU, D, ISEED, INFO )
>-         USE LA_PRECISION, ONLY: WP => SP
>-         INTEGER, INTENT(IN), OPTIONAL :: KL, KU
>-         INTEGER, INTENT(OUT), OPTIONAL :: INFO
>-         INTEGER, INTENT(INOUT), OPTIONAL, TARGET :: ISEED(4)
>-         REAL(WP), INTENT(IN), OPTIONAL, TARGET :: D(:)
>-         REAL(WP), INTENT(OUT) :: A(:,:)
>-      END SUBROUTINE SLAGGE_F95
>-
>-      SUBROUTINE DLAGGE_F95( A, KL, KU, D, ISEED, INFO )
>-         USE LA_PRECISION, ONLY: WP => DP
>-         INTEGER, INTENT(IN), OPTIONAL :: KL, KU
>-         INTEGER, INTENT(OUT), OPTIONAL :: INFO
>-         INTEGER, INTENT(INOUT), OPTIONAL, TARGET :: ISEED(4)
>-         REAL(WP), INTENT(IN), OPTIONAL, TARGET :: D(:)
>-         REAL(WP), INTENT(OUT) :: A(:,:)
>-      END SUBROUTINE DLAGGE_F95
>-
>-      SUBROUTINE CLAGGE_F95( A, KL, KU, D, ISEED, INFO )
>-         USE LA_PRECISION, ONLY: WP => SP
>-         INTEGER, INTENT(IN), OPTIONAL :: KL, KU
>-         INTEGER, INTENT(OUT), OPTIONAL :: INFO
>-         INTEGER, INTENT(INOUT), OPTIONAL, TARGET :: ISEED(4)
>-         REAL(WP), INTENT(IN), OPTIONAL, TARGET :: D(:)
>-         COMPLEX(WP), INTENT(OUT) :: A(:,:)
>-      END SUBROUTINE CLAGGE_F95
>-
>-      SUBROUTINE ZLAGGE_F95( A, KL, KU, D, ISEED, INFO )
>-         USE LA_PRECISION, ONLY: WP => DP
>-         INTEGER, INTENT(IN), OPTIONAL :: KL, KU
>-         INTEGER, INTENT(OUT), OPTIONAL :: INFO
>-         INTEGER, INTENT(INOUT), OPTIONAL, TARGET :: ISEED(4)
>-         REAL(WP), INTENT(IN), OPTIONAL, TARGET :: D(:)
>-         COMPLEX(WP), INTENT(OUT) :: A(:,:)
>-      END SUBROUTINE ZLAGGE_F95
>-
>-      END INTERFACE
>-
>       INTERFACE LA_LANGE
> 
>       FUNCTION SLANGE_F95( A, NORM, INFO )
>diff -ur LAPACK95/SRC/la_cgesvd.f90 LAPACK95-gentoo/SRC/la_cgesvd.f90
>--- LAPACK95/SRC/la_cgesvd.f90	2000-11-30 08:18:49.000000000 -0500
>+++ LAPACK95-gentoo/SRC/la_cgesvd.f90	2003-10-03 21:43:52.000000000 -0400
>@@ -185,8 +185,8 @@
>       IF( ISTAT == 0 ) THEN
>           IF( PRESENT(U) ) THEN
>   	    IF ( PRESENT(VT) )THEN
>-	      CALL GESVD_F77( LJOBU, LJOBVT, M, N, A, LD, S, U, MAX(1,S1U), &
>-	      VT, MAX(1,S1VT), WORK, LWORK, RWORK, LINFO )
>+               CALL GESVD_F77( LJOBU, LJOBVT, M, N, A, LD, S, U, MAX(1,S1U), &
>+                    VT, MAX(1,S1VT), WORK, LWORK, RWORK, LINFO )
> 	    ELSE
> 	      CALL GESVD_F77( LJOBU, LJOBVT, M, N, A, LD, S, U, MAX(1,S1U), &
> &             LLVT, MAX(1,S1VT), WORK, LWORK, RWORK, LINFO )
>diff -ur LAPACK95/SRC/la_zgesvd.f90 LAPACK95-gentoo/SRC/la_zgesvd.f90
>--- LAPACK95/SRC/la_zgesvd.f90	2000-11-30 08:18:49.000000000 -0500
>+++ LAPACK95-gentoo/SRC/la_zgesvd.f90	2003-10-03 21:43:52.000000000 -0400
>@@ -185,8 +185,8 @@
>       IF( ISTAT == 0 ) THEN
>           IF( PRESENT(U) ) THEN
>   	    IF ( PRESENT(VT) )THEN
>-	      CALL GESVD_F77( LJOBU, LJOBVT, M, N, A, LD, S, U, MAX(1,S1U), &
>-	      VT, MAX(1,S1VT), WORK, LWORK, RWORK, LINFO )
>+               CALL GESVD_F77( LJOBU, LJOBVT, M, N, A, LD, S, U, MAX(1,S1U), &
>+                    VT, MAX(1,S1VT), WORK, LWORK, RWORK, LINFO )
> 	    ELSE
> 	      CALL GESVD_F77( LJOBU, LJOBVT, M, N, A, LD, S, U, MAX(1,S1U), &
> &             LLVT, MAX(1,S1VT), WORK, LWORK, RWORK, LINFO )
>diff -ur LAPACK95/SRC/makefile LAPACK95-gentoo/SRC/makefile
>--- LAPACK95/SRC/makefile	2000-11-30 08:18:32.000000000 -0500
>+++ LAPACK95-gentoo/SRC/makefile	2003-10-03 22:32:35.000000000 -0400
>@@ -26,7 +26,7 @@
> OBJAU  = la_erinfo.o la_ws_gels.o la_ws_gelss.o
> 
> SOBJS = la_sgesv.o la_sgesv1.o la_sgesvx.o la_sgesvx1.o \
>-	la_sgetrf.o la_slagge.o la_slange.o la_slange1.o \
>+	la_sgetrf.o la_slange.o la_slange1.o \
> 	la_sgetri.o la_sgetrs.o la_sgetrs1.o la_sgeequ.o \
> 	la_sgerfs.o la_sgerfs1.o la_ssytrd.o la_ssygst.o \
> 	la_sorgtr.o la_spotrf.o la_sgbtrf.o la_slamch.o \
>@@ -52,7 +52,7 @@
> 	la_sggevx.o la_ssygvx.o la_sggesx.o la_sgesdd.o
> 
> DOBJS = la_dgesv.o la_dgesv1.o la_dgesvx.o la_dgesvx1.o \
>-	la_dgetrf.o la_dlagge.o la_dlange.o la_dlange1.o \
>+	la_dgetrf.o la_dlange.o la_dlange1.o \
> 	la_dgetri.o la_dgetrs.o la_dgetrs1.o la_dgeequ.o \
> 	la_dgerfs.o la_dgerfs1.o la_dsytrd.o la_dsygst.o \
> 	la_dorgtr.o la_dpotrf.o la_dgbtrf.o la_dlamch.o \
>@@ -78,7 +78,7 @@
> 	la_dggevx.o la_dsygvx.o la_dggesx.o la_dgesdd.o
> 
> COBJS = la_cgesv.o la_cgesv1.o la_cgesvx.o la_cgesvx1.o \
>-	la_cgetrf.o la_clagge.o la_clange.o la_clange1.o \
>+	la_cgetrf.o la_clange.o la_clange1.o \
> 	la_cgetri.o la_cgetrs.o la_cgetrs1.o la_cgeequ.o \
> 	la_cgerfs.o la_cgerfs1.o la_chetrd.o la_chegst.o \
> 	la_cungtr.o la_cpotrf.o la_cgbtrf.o \
>@@ -106,7 +106,7 @@
> 	la_cgesdd.o
> 
> ZOBJS = la_zgesv.o la_zgesv1.o la_zgesvx.o la_zgesvx1.o \
>-	la_zgetrf.o la_zlagge.o la_zlange.o la_zlange1.o \
>+	la_zgetrf.o la_zlange.o la_zlange1.o \
> 	la_zgetri.o la_zgetrs.o la_zgetrs1.o la_zgeequ.o \
> 	la_zgerfs.o la_zgerfs1.o la_zhetrd.o la_zhegst.o \
> 	la_zungtr.o la_zpotrf.o la_zgbtrf.o \
>@@ -194,14 +194,6 @@
> 	rm -f *_lapack_single_double_complex.o
> 
> single_double_complex_dcomplex: $(SCDZOBJS)
>-	rm -f ../lapack95.a
>-	ar cr ../lapack95.a $(SCDZOBJS)
>-	ranlib ../lapack95.a
>-	rm -fr ../lapack95_modules
>-	mkdir ../lapack95_modules
>-	'cp' *.mod ../lapack95_modules/
>-	rm -f f77_lapack.* f95_lapack.*
>-	rm -f *_lapack_single_double_complex_dcomplex.o
> 
> clean: 
> 	'rm' -f *.a *.o *.mod *.l core

Actions: View | Diff

Attachments on bug 30465: 18847 | 18848