From debbugs-submit-bounces@debbugs.gnu.org Fri Jun 16 09:27:58 2023 Received: (at submit) by debbugs.gnu.org; 16 Jun 2023 13:27:58 +0000 Received: from localhost ([127.0.0.1]:48789 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qA9Ub-0000dB-VU for submit@debbugs.gnu.org; Fri, 16 Jun 2023 09:27:58 -0400 Received: from lists.gnu.org ([209.51.188.17]:53484) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qA9Ua-0000d3-3o for submit@debbugs.gnu.org; Fri, 16 Jun 2023 09:27:56 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qA9UZ-0001XI-Qo for guix-patches@gnu.org; Fri, 16 Jun 2023 09:27:55 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qA9UY-0004Zv-Na; Fri, 16 Jun 2023 09:27:54 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:Date:Subject:To:From:in-reply-to: references; bh=9sfI4WjKx/SrR7le3IatRQsnbfacu8SXUqDWCzINgF0=; b=H4Rq4TMcs8BtDo wTKJfGNgVT6rs5UAKVcsNeq6EeMqKkEcAWEinuQ4mGTJEjx4Y6n2HxNWhWV03KDCDNi5tiJV02/OE Onv3i62SJUtVYogDVr1oGBQ9QJmiAG+kvoHg/qpyzHsfCdHJ2Md0hoSYWqa1AUui+WUSBRHerqcJ1 vx0uTPLSTWoFu/cn2T74y+VSkCQS4txaMm1Y60sC6taFg5B6LxieV67Qw/a2UT8DjklXPrHo7fwJf mc2Mn+drA9oJQNb6Y2qGO/8BwqdwxebH7/aEcP62jd9Zivw13GIL4M87OViThIyVKlN54rpd/u7FJ cpIuG/wZvP0RrPjZl4OQ==; Received: from [2001:660:6102:320:e120:2c8f:8909:cdfe] (helo=gnu.org) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qA9UY-0001aJ-9O; Fri, 16 Jun 2023 09:27:54 -0400 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= To: guix-patches@gnu.org Subject: [PATCH] gnu: arpack-ng: Update to 3.9.0. Date: Fri, 16 Jun 2023 15:27:45 +0200 Message-Id: <30555c3ed595e2d89849fb2ea60710ef3b0e2b4a.1686922052.git.ludo@gnu.org> X-Mailer: git-send-email 2.40.1 MIME-Version: 1.0 X-Debbugs-Cc: Andreas Enge , Efraim Flashner , Eric Bavier Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: submit Cc: =?UTF-8?q?Ludovic=20Court=C3=A8s?= X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) From: Ludovic Courtès * gnu/packages/maths.scm (arpack-ng): Update to 3.9.0. [build-system]: Switch to CMAKE-BUILD-SYSTEM. [native-inputs]: Remove AUTOCONF, AUTOMAKE, and LIBTOOL. (arpack-ng-openmpi)[inputs]: Use 'modify-inputs'. [arguments]: Use gexps. --- gnu/packages/maths.scm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index f5a2181905..e1f9834e65 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -973,7 +973,7 @@ (define-public vinci (define-public arpack-ng (package (name "arpack-ng") - (version "3.8.0") + (version "3.9.0") (home-page "https://github.com/opencollab/arpack-ng") (source (origin (method git-fetch) @@ -981,10 +981,10 @@ (define-public arpack-ng (file-name (git-file-name name version)) (sha256 (base32 - "0l7as5z6xvbxly8alam9s4kws70952qq35a6vkljzayi4b9gbklx")))) - (build-system gnu-build-system) + "09smxilyn8v9xs3kpx3nlj2s7ql3v8z40mpc09kccbb6smyd35iv")))) + (build-system cmake-build-system) (native-inputs - (list autoconf automake libtool pkg-config)) + (list pkg-config)) (inputs (list eigen lapack gfortran)) (synopsis "Fortran subroutines for solving eigenvalue problems") @@ -998,16 +998,16 @@ (define-public arpack-ng-openmpi (package (inherit arpack-ng) (name "arpack-ng-openmpi") (inputs - `(("mpi" ,openmpi) - ,@(package-inputs arpack-ng))) + (modify-inputs (package-inputs arpack-ng) + (prepend openmpi))) (arguments (substitute-keyword-arguments (package-arguments arpack-ng) - ((#:configure-flags _ '()) - ''("--enable-mpi")) - ((#:phases phases '%standard-phases) - `(modify-phases ,phases - (add-before 'check 'mpi-setup - ,%openmpi-setup))))) + ((#:configure-flags _ #~()) + #~'("-DMPI=ON")) + ((#:phases phases #~%standard-phases) + #~(modify-phases #$phases + (add-before 'check 'mpi-setup + #$%openmpi-setup))))) (synopsis "Fortran subroutines for solving eigenvalue problems with MPI"))) (define-public lapack base-commit: 31336e9f5d68512a9c1c6826bce9f17c892a2125 -- 2.40.1 From debbugs-submit-bounces@debbugs.gnu.org Mon Jul 03 05:40:59 2023 Received: (at 64107) by debbugs.gnu.org; 3 Jul 2023 09:40:59 +0000 Received: from localhost ([127.0.0.1]:33180 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qGG3G-0000ks-QJ for submit@debbugs.gnu.org; Mon, 03 Jul 2023 05:40:59 -0400 Received: from eggs.gnu.org ([209.51.188.92]:45192) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qGG3E-0000kZ-Lt for 64107@debbugs.gnu.org; Mon, 03 Jul 2023 05:40:57 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qGG39-0000rv-67; Mon, 03 Jul 2023 05:40:51 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:Date:Subject:To:From:in-reply-to: references; bh=XEC4SR1rYYMiF+QoS/N7BmgP/lze6WqcEa7OZWC8IsI=; b=is+B0ZU3jpq8Xv QPsB4lszjgKSuRe/+6Q5Y2CamFAuZUXwf9WOPSB8r9cAV+a/T3aSNrw1StxjK3ORMNugoxYZxRgYF 00v/Xe5hbzbMRHc6RvhLY5PNRZHH0Gk2HcYKgbGMRYtOTcFp1Fso6cyuYA2dRc7FVS3JZ6S74MEm9 8zTLVkf48ywGED/SaPrLC0EkEPKNnJdPEOB22P48ydUkyvwIHZVrPd8KE6ldUz3Tq/NrRUin9M87F QG1BWM3Rqbc8uu+nJcpqL+figP81KLLkBKRL8r5dPxO9LovmKrEQbaGqEBO18gOuWtTa+rH3aeTaG 7G7AyOPBY8bBPSlv3HBw==; Received: from [89.207.171.77] (helo=gnu.org) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qGG34-0005bj-GB; Mon, 03 Jul 2023 05:40:50 -0400 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= To: 64107@debbugs.gnu.org Subject: [PATCH v2] gnu: arpack-ng: Update to 3.9.0. Date: Mon, 3 Jul 2023 11:40:29 +0200 Message-Id: X-Mailer: git-send-email 2.40.1 MIME-Version: 1.0 X-Debbugs-Cc: Andreas Enge , Efraim Flashner , Eric Bavier Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 64107 Cc: =?UTF-8?q?Ludovic=20Court=C3=A8s?= X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) From: Ludovic Courtès * gnu/packages/maths.scm (arpack-ng): Update to 3.9.0. [build-system]: Switch to CMAKE-BUILD-SYSTEM. [native-inputs]: Remove AUTOCONF, AUTOMAKE, and LIBTOOL. (arpack-ng-openmpi)[inputs]: Use 'modify-inputs'. [arguments]: Use gexps. --- gnu/packages/maths.scm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) The previous revision could not be processed at , so trying again... Ludo'. diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index 653e76027a..d37322c995 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -973,7 +973,7 @@ (define-public vinci (define-public arpack-ng (package (name "arpack-ng") - (version "3.8.0") + (version "3.9.0") (home-page "https://github.com/opencollab/arpack-ng") (source (origin (method git-fetch) @@ -981,10 +981,10 @@ (define-public arpack-ng (file-name (git-file-name name version)) (sha256 (base32 - "0l7as5z6xvbxly8alam9s4kws70952qq35a6vkljzayi4b9gbklx")))) - (build-system gnu-build-system) + "09smxilyn8v9xs3kpx3nlj2s7ql3v8z40mpc09kccbb6smyd35iv")))) + (build-system cmake-build-system) (native-inputs - (list autoconf automake libtool pkg-config)) + (list pkg-config)) (inputs (list eigen lapack gfortran)) (synopsis "Fortran subroutines for solving eigenvalue problems") @@ -998,16 +998,16 @@ (define-public arpack-ng-openmpi (package (inherit arpack-ng) (name "arpack-ng-openmpi") (inputs - `(("mpi" ,openmpi) - ,@(package-inputs arpack-ng))) + (modify-inputs (package-inputs arpack-ng) + (prepend openmpi))) (arguments (substitute-keyword-arguments (package-arguments arpack-ng) - ((#:configure-flags _ '()) - ''("--enable-mpi")) - ((#:phases phases '%standard-phases) - `(modify-phases ,phases - (add-before 'check 'mpi-setup - ,%openmpi-setup))))) + ((#:configure-flags _ #~()) + #~'("-DMPI=ON")) + ((#:phases phases #~%standard-phases) + #~(modify-phases #$phases + (add-before 'check 'mpi-setup + #$%openmpi-setup))))) (synopsis "Fortran subroutines for solving eigenvalue problems with MPI"))) (define-public lapack base-commit: c4a836f65d178786a5dd1f7c2d9491bb2c7482b3 -- 2.40.1 From debbugs-submit-bounces@debbugs.gnu.org Thu Jul 06 09:05:39 2023 Received: (at 64107) by debbugs.gnu.org; 6 Jul 2023 13:05:39 +0000 Received: from localhost ([127.0.0.1]:40374 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qHOfy-0007jM-EQ for submit@debbugs.gnu.org; Thu, 06 Jul 2023 09:05:39 -0400 Received: from eggs.gnu.org ([209.51.188.92]:57374) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qHOfv-0007j8-3Q for 64107@debbugs.gnu.org; Thu, 06 Jul 2023 09:05:37 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qHOfo-0002Tr-CR; Thu, 06 Jul 2023 09:05:29 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:Date:Subject:To:From:in-reply-to: references; bh=psAcpPoMLXZTdBl+fdINkNT3xC6COfNPWhnwRJbJ4+s=; b=r1LvUNVbb52bhL vpI9D5qZBWEo0KiPatF9+F5pLOiPp4WV/WWX/Pf2vrexMDny0haFqhbkbcZjBiPCVjoATV1BTbbBn fDxoMMJgC7JNZLx4EGFCkG22UBnryc9MAFLsCjtB3ldkros9HqjUTr5pfS/qM4KmoHrgixl7j4r2q u0TArT3q30yi5sNERHnTRtUEiCUFu3A9qC7FqA/cuqqHiB1DynfSxIhwWnHVzDjiywf0rkJJB5Qwc 6+5aCHNwJLyNTKRck6ALcZQqTCsVFT82RKN+CYYbx0uqtT6l2y0lDUj6fi+2h6xbXwb0j7RzvlJeT v/y0c672LJX+vDkmczcw==; Received: from [193.50.110.205] (helo=gnu.org) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qHOfk-0001nS-Pr; Thu, 06 Jul 2023 09:05:27 -0400 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= To: 64107@debbugs.gnu.org Subject: [PATCH v3] gnu: arpack-ng: Update to 3.9.0. Date: Thu, 6 Jul 2023 15:05:09 +0200 Message-Id: <3b29429467473163c018d008862873e732fccfd4.1688648664.git.ludo@gnu.org> X-Mailer: git-send-email 2.40.1 MIME-Version: 1.0 X-Debbugs-Cc: Andreas Enge , Efraim Flashner , Eric Bavier Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 64107 Cc: =?UTF-8?q?Ludovic=20Court=C3=A8s?= X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) From: Ludovic Courtès * gnu/packages/maths.scm (arpack-ng): Update to 3.9.0. [source]: Add 'patches'. [build-system]: Switch to CMAKE-BUILD-SYSTEM. [native-inputs]: Remove AUTOCONF, AUTOMAKE, and LIBTOOL. (arpack-ng-openmpi)[inputs]: Use 'modify-inputs'. [arguments]: Use gexps. * gnu/packages/patches/arpack-ng-propagate-rng-state.patch: New file. * gnu/local.mk (dist_patch_DATA): Add it. --- gnu/local.mk | 1 + gnu/packages/maths.scm | 25 +- .../arpack-ng-propagate-rng-state.patch | 523 ++++++++++++++++++ 3 files changed, 537 insertions(+), 12 deletions(-) create mode 100644 gnu/packages/patches/arpack-ng-propagate-rng-state.patch diff --git a/gnu/local.mk b/gnu/local.mk index 6470f1abd4..e7c89c83bb 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -905,6 +905,7 @@ dist_patch_DATA = \ %D%/packages/patches/aoflagger-use-system-provided-pybind11.patch \ %D%/packages/patches/apr-skip-getservbyname-test.patch \ %D%/packages/patches/ark-skip-xar-test.patch \ + %D%/packages/patches/arpack-ng-propagate-rng-state.patch \ %D%/packages/patches/aspell-CVE-2019-25051.patch \ %D%/packages/patches/aspell-default-dict-dir.patch \ %D%/packages/patches/ath9k-htc-firmware-binutils.patch \ diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index 653e76027a..05119d2f5f 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -973,7 +973,7 @@ (define-public vinci (define-public arpack-ng (package (name "arpack-ng") - (version "3.8.0") + (version "3.9.0") (home-page "https://github.com/opencollab/arpack-ng") (source (origin (method git-fetch) @@ -981,10 +981,11 @@ (define-public arpack-ng (file-name (git-file-name name version)) (sha256 (base32 - "0l7as5z6xvbxly8alam9s4kws70952qq35a6vkljzayi4b9gbklx")))) - (build-system gnu-build-system) + "09smxilyn8v9xs3kpx3nlj2s7ql3v8z40mpc09kccbb6smyd35iv")) + (patches (search-patches "arpack-ng-propagate-rng-state.patch")))) + (build-system cmake-build-system) (native-inputs - (list autoconf automake libtool pkg-config)) + (list pkg-config)) (inputs (list eigen lapack gfortran)) (synopsis "Fortran subroutines for solving eigenvalue problems") @@ -998,16 +999,16 @@ (define-public arpack-ng-openmpi (package (inherit arpack-ng) (name "arpack-ng-openmpi") (inputs - `(("mpi" ,openmpi) - ,@(package-inputs arpack-ng))) + (modify-inputs (package-inputs arpack-ng) + (prepend openmpi))) (arguments (substitute-keyword-arguments (package-arguments arpack-ng) - ((#:configure-flags _ '()) - ''("--enable-mpi")) - ((#:phases phases '%standard-phases) - `(modify-phases ,phases - (add-before 'check 'mpi-setup - ,%openmpi-setup))))) + ((#:configure-flags _ #~()) + #~'("-DMPI=ON")) + ((#:phases phases #~%standard-phases) + #~(modify-phases #$phases + (add-before 'check 'mpi-setup + #$%openmpi-setup))))) (synopsis "Fortran subroutines for solving eigenvalue problems with MPI"))) (define-public lapack diff --git a/gnu/packages/patches/arpack-ng-propagate-rng-state.patch b/gnu/packages/patches/arpack-ng-propagate-rng-state.patch new file mode 100644 index 0000000000..4466bb8e50 --- /dev/null +++ b/gnu/packages/patches/arpack-ng-propagate-rng-state.patch @@ -0,0 +1,523 @@ +Fix a bug that manifests while running the test suite of 'python-igraph': + + https://github.com/opencollab/arpack-ng/issues/401 + https://github.com/opencollab/arpack-ng/pull/414 + +From d885b7be4ecdc9c1496f2d6f256f6c0d34962459 Mon Sep 17 00:00:00 2001 +From: =?UTF-8?q?Szabolcs=20Horva=CC=81t?= +Date: Sun, 9 Apr 2023 16:36:35 +0200 +Subject: [PATCH] fix: ensure that LAPACK RNG state is propagated + + - fixes #401, #410, #411 + - restores 'inits' variable removed in ce2e69a849da1d10dad5d6d3ec4db6120b3ecf50, ensuring that the RNG state is propagated + - reverts e0d67054f573da351f12a226f7c7cc65a690ef3d to ensure that seed is different on each parallel thread + - updates seed initialization of parallel pdgetv0/psgetv0 so that they match that of pzgetv0/pcgetv0 +--- + PARPACK/SRC/MPI/pcgetv0.f | 48 +++++++++++++++++++++++---------------- + PARPACK/SRC/MPI/pdgetv0.f | 40 ++++++++++++++++++++++++++------ + PARPACK/SRC/MPI/psgetv0.f | 43 ++++++++++++++++++++++++++--------- + PARPACK/SRC/MPI/pzgetv0.f | 48 +++++++++++++++++++++++---------------- + SRC/cgetv0.f | 21 ++++++++++++----- + SRC/dgetv0.f | 21 ++++++++++++----- + SRC/sgetv0.f | 21 ++++++++++++----- + SRC/zgetv0.f | 21 ++++++++++++----- + 8 files changed, 183 insertions(+), 80 deletions(-) + +diff --git a/PARPACK/SRC/MPI/pcgetv0.f b/PARPACK/SRC/MPI/pcgetv0.f +index 59e3d1658..24fe8a0f1 100644 +--- a/PARPACK/SRC/MPI/pcgetv0.f ++++ b/PARPACK/SRC/MPI/pcgetv0.f +@@ -176,13 +176,13 @@ subroutine pcgetv0 + c | Local Scalars & Arrays | + c %------------------------% + c +- logical first, orth ++ logical first, inits, orth + integer idist, iseed(4), iter, msglvl, jj, myid, igen + Real + & rnorm0 + Complex + & cnorm, cnorm2 +- save first, iseed, iter, msglvl, orth, rnorm0 ++ save first, iseed, inits, iter, msglvl, orth, rnorm0 + c + Complex + & cnorm_buf, buf2(1) +@@ -203,6 +203,12 @@ subroutine pcgetv0 + & ccdotc + external ccdotc, pscnorm2, slapy2 + c ++c %-----------------% ++c | Data Statements | ++c %-----------------% ++c ++ data inits /.true./ ++c + c %-----------------------% + c | Executable Statements | + c %-----------------------% +@@ -213,26 +219,30 @@ subroutine pcgetv0 + c | random number generator | + c %-----------------------------------% + c ++ if (inits) then + c +-c %-----------------------------------% +-c | Generate a seed on each processor | +-c | using process id (myid). | +-c | Note: the seed must be between 1 | +-c | and 4095. iseed(4) must be odd. | +-c %-----------------------------------% ++c %-----------------------------------% ++c | Generate a seed on each processor | ++c | using process id (myid). | ++c | Note: the seed must be between 1 | ++c | and 4095. iseed(4) must be odd. | ++c %-----------------------------------% + c +- call MPI_COMM_RANK(comm, myid, ierr) +- igen = 1000 + 2*myid + 1 +- if (igen .gt. 4095) then +- write(0,*) 'Error in p_getv0: seed exceeds 4095!' +- end if ++ call MPI_COMM_RANK(comm, myid, ierr) ++ igen = 1000 + 2*myid + 1 ++ if (igen .gt. 4095) then ++ write(0,*) 'Error in p_getv0: seed exceeds 4095!' ++ end if ++c ++ iseed(1) = igen/1000 ++ igen = mod(igen,1000) ++ iseed(2) = igen/100 ++ igen = mod(igen,100) ++ iseed(3) = igen/10 ++ iseed(4) = mod(igen,10) + c +- iseed(1) = igen/1000 +- igen = mod(igen,1000) +- iseed(2) = igen/100 +- igen = mod(igen,100) +- iseed(3) = igen/10 +- iseed(4) = 7 ++ inits = .false. ++ end if + c + if (ido .eq. 0) then + c +diff --git a/PARPACK/SRC/MPI/pdgetv0.f b/PARPACK/SRC/MPI/pdgetv0.f +index 0f348b820..5a1956997 100644 +--- a/PARPACK/SRC/MPI/pdgetv0.f ++++ b/PARPACK/SRC/MPI/pdgetv0.f +@@ -177,11 +177,11 @@ subroutine pdgetv0 + c | Local Scalars & Arrays | + c %------------------------% + c +- logical first, orth +- integer idist, iseed(4), iter, msglvl, jj ++ logical first, inits, orth ++ integer idist, iseed(4), iter, msglvl, jj, myid, igen + Double precision + & rnorm0, buf2(1) +- save first, iseed, iter, msglvl, orth, rnorm0 ++ save first, iseed, inits, iter, msglvl, orth, rnorm0 + c + Double precision + & rnorm_buf +@@ -206,6 +206,12 @@ subroutine pdgetv0 + c + intrinsic abs, sqrt + c ++c %-----------------% ++c | Data Statements | ++c %-----------------% ++c ++ data inits /.true./ ++c + c %-----------------------% + c | Executable Statements | + c %-----------------------% +@@ -216,10 +222,30 @@ subroutine pdgetv0 + c | random number generator | + c %-----------------------------------% + c +- iseed(1) = 1 +- iseed(2) = 3 +- iseed(3) = 5 +- iseed(4) = 7 ++ if (inits) then ++c ++c %-----------------------------------% ++c | Generate a seed on each processor | ++c | using process id (myid). | ++c | Note: the seed must be between 1 | ++c | and 4095. iseed(4) must be odd. | ++c %-----------------------------------% ++c ++ call MPI_COMM_RANK(comm, myid, ierr) ++ igen = 1000 + 2*myid + 1 ++ if (igen .gt. 4095) then ++ write(0,*) 'Error in p_getv0: seed exceeds 4095!' ++ end if ++c ++ iseed(1) = igen/1000 ++ igen = mod(igen,1000) ++ iseed(2) = igen/100 ++ igen = mod(igen,100) ++ iseed(3) = igen/10 ++ iseed(4) = mod(igen,10) ++c ++ inits = .false. ++ end if + c + if (ido .eq. 0) then + c +diff --git a/PARPACK/SRC/MPI/psgetv0.f b/PARPACK/SRC/MPI/psgetv0.f +index d79a513b2..078e4fa8c 100644 +--- a/PARPACK/SRC/MPI/psgetv0.f ++++ b/PARPACK/SRC/MPI/psgetv0.f +@@ -177,11 +177,11 @@ subroutine psgetv0 + c | Local Scalars & Arrays | + c %------------------------% + c +- logical first, orth +- integer idist, iseed(4), iter, msglvl, jj ++ logical first, inits, orth ++ integer idist, iseed(4), iter, msglvl, jj, myid, igen + Real + & rnorm0 +- save first, iseed, iter, msglvl, orth, rnorm0 ++ save first, iseed, inits, iter, msglvl, orth, rnorm0 + c + Real + & rnorm_buf +@@ -206,20 +206,41 @@ subroutine psgetv0 + c + intrinsic abs, sqrt + c ++c %-----------------% ++c | Data Statements | ++c %-----------------% ++c ++ data inits /.true./ ++c + c %-----------------------% + c | Executable Statements | + c %-----------------------% + c + c +-c %-----------------------------------% +-c | Initialize the seed of the LAPACK | +-c | random number generator | +-c %-----------------------------------% ++ if (inits) then + c +- iseed(1) = 1 +- iseed(2) = 3 +- iseed(3) = 5 +- iseed(4) = 7 ++c %-----------------------------------% ++c | Generate a seed on each processor | ++c | using process id (myid). | ++c | Note: the seed must be between 1 | ++c | and 4095. iseed(4) must be odd. | ++c %-----------------------------------% ++c ++ call MPI_COMM_RANK(comm, myid, ierr) ++ igen = 1000 + 2*myid + 1 ++ if (igen .gt. 4095) then ++ write(0,*) 'Error in p_getv0: seed exceeds 4095!' ++ end if ++c ++ iseed(1) = igen/1000 ++ igen = mod(igen,1000) ++ iseed(2) = igen/100 ++ igen = mod(igen,100) ++ iseed(3) = igen/10 ++ iseed(4) = mod(igen,10) ++c ++ inits = .false. ++ end if + c + if (ido .eq. 0) then + c +diff --git a/PARPACK/SRC/MPI/pzgetv0.f b/PARPACK/SRC/MPI/pzgetv0.f +index 731fb319f..94fb705f3 100644 +--- a/PARPACK/SRC/MPI/pzgetv0.f ++++ b/PARPACK/SRC/MPI/pzgetv0.f +@@ -176,13 +176,13 @@ subroutine pzgetv0 + c | Local Scalars & Arrays | + c %------------------------% + c +- logical first, orth ++ logical first, inits, orth + integer idist, iseed(4), iter, msglvl, jj, myid, igen + Double precision + & rnorm0 + Complex*16 + & cnorm, cnorm2 +- save first, iseed, iter, msglvl, orth, rnorm0 ++ save first, iseed, inits, iter, msglvl, orth, rnorm0 + c + Complex*16 + & cnorm_buf, buf2(1) +@@ -203,6 +203,12 @@ subroutine pzgetv0 + & zzdotc + external zzdotc , pdznorm2 , dlapy2 + c ++c %-----------------% ++c | Data Statements | ++c %-----------------% ++c ++ data inits /.true./ ++c + c %-----------------------% + c | Executable Statements | + c %-----------------------% +@@ -213,26 +219,30 @@ subroutine pzgetv0 + c | random number generator | + c %-----------------------------------% + c ++ if (inits) then + c +-c %-----------------------------------% +-c | Generate a seed on each processor | +-c | using process id (myid). | +-c | Note: the seed must be between 1 | +-c | and 4095. iseed(4) must be odd. | +-c %-----------------------------------% ++c %-----------------------------------% ++c | Generate a seed on each processor | ++c | using process id (myid). | ++c | Note: the seed must be between 1 | ++c | and 4095. iseed(4) must be odd. | ++c %-----------------------------------% + c +- call MPI_COMM_RANK(comm, myid, ierr) +- igen = 1000 + 2*myid + 1 +- if (igen .gt. 4095) then +- write(0,*) 'Error in p_getv0: seed exceeds 4095!' +- end if ++ call MPI_COMM_RANK(comm, myid, ierr) ++ igen = 1000 + 2*myid + 1 ++ if (igen .gt. 4095) then ++ write(0,*) 'Error in p_getv0: seed exceeds 4095!' ++ end if ++c ++ iseed(1) = igen/1000 ++ igen = mod(igen,1000) ++ iseed(2) = igen/100 ++ igen = mod(igen,100) ++ iseed(3) = igen/10 ++ iseed(4) = mod(igen,10) + c +- iseed(1) = igen/1000 +- igen = mod(igen,1000) +- iseed(2) = igen/100 +- igen = mod(igen,100) +- iseed(3) = igen/10 +- iseed(4) = 7 ++ inits = .false. ++ end if + c + if (ido .eq. 0) then + c +diff --git a/SRC/cgetv0.f b/SRC/cgetv0.f +index b49e66708..c231eadcb 100644 +--- a/SRC/cgetv0.f ++++ b/SRC/cgetv0.f +@@ -156,13 +156,13 @@ subroutine cgetv0 + c | Local Scalars & Arrays | + c %------------------------% + c +- logical first, orth ++ logical first, inits, orth + integer idist, iseed(4), iter, msglvl, jj + Real + & rnorm0 + Complex + & cnorm +- save first, iseed, iter, msglvl, orth, rnorm0 ++ save first, iseed, inits, iter, msglvl, orth, rnorm0 + c + c %----------------------% + c | External Subroutines | +@@ -180,6 +180,12 @@ subroutine cgetv0 + & ccdotc + external ccdotc, scnrm2, slapy2 + c ++c %-----------------% ++c | Data Statements | ++c %-----------------% ++c ++ data inits /.true./ ++c + c %-----------------------% + c | Executable Statements | + c %-----------------------% +@@ -190,10 +196,13 @@ subroutine cgetv0 + c | random number generator | + c %-----------------------------------% + c +- iseed(1) = 1 +- iseed(2) = 3 +- iseed(3) = 5 +- iseed(4) = 7 ++ if (inits) then ++ iseed(1) = 1 ++ iseed(2) = 3 ++ iseed(3) = 5 ++ iseed(4) = 7 ++ inits = .false. ++ end if + c + if (ido .eq. 0) then + c +diff --git a/SRC/dgetv0.f b/SRC/dgetv0.f +index 8be4fa26d..1d6dc01bd 100644 +--- a/SRC/dgetv0.f ++++ b/SRC/dgetv0.f +@@ -157,11 +157,11 @@ subroutine dgetv0 + c | Local Scalars & Arrays | + c %------------------------% + c +- logical first, orth ++ logical first, inits, orth + integer idist, iseed(4), iter, msglvl, jj + Double precision + & rnorm0 +- save first, iseed, iter, msglvl, orth, rnorm0 ++ save first, iseed, inits, iter, msglvl, orth, rnorm0 + c + c %----------------------% + c | External Subroutines | +@@ -183,6 +183,12 @@ subroutine dgetv0 + c + intrinsic abs, sqrt + c ++c %-----------------% ++c | Data Statements | ++c %-----------------% ++c ++ data inits /.true./ ++c + c %-----------------------% + c | Executable Statements | + c %-----------------------% +@@ -193,10 +199,13 @@ subroutine dgetv0 + c | random number generator | + c %-----------------------------------% + c +- iseed(1) = 1 +- iseed(2) = 3 +- iseed(3) = 5 +- iseed(4) = 7 ++ if (inits) then ++ iseed(1) = 1 ++ iseed(2) = 3 ++ iseed(3) = 5 ++ iseed(4) = 7 ++ inits = .false. ++ end if + c + if (ido .eq. 0) then + c +diff --git a/SRC/sgetv0.f b/SRC/sgetv0.f +index 26130a014..d861b2d6d 100644 +--- a/SRC/sgetv0.f ++++ b/SRC/sgetv0.f +@@ -157,11 +157,11 @@ subroutine sgetv0 + c | Local Scalars & Arrays | + c %------------------------% + c +- logical first, orth ++ logical first, inits, orth + integer idist, iseed(4), iter, msglvl, jj + Real + & rnorm0 +- save first, iseed, iter, msglvl, orth, rnorm0 ++ save first, iseed, inits, iter, msglvl, orth, rnorm0 + c + c %----------------------% + c | External Subroutines | +@@ -183,6 +183,12 @@ subroutine sgetv0 + c + intrinsic abs, sqrt + c ++c %-----------------% ++c | Data Statements | ++c %-----------------% ++c ++ data inits /.true./ ++c + c %-----------------------% + c | Executable Statements | + c %-----------------------% +@@ -193,10 +199,13 @@ subroutine sgetv0 + c | random number generator | + c %-----------------------------------% + c +- iseed(1) = 1 +- iseed(2) = 3 +- iseed(3) = 5 +- iseed(4) = 7 ++ if (inits) then ++ iseed(1) = 1 ++ iseed(2) = 3 ++ iseed(3) = 5 ++ iseed(4) = 7 ++ inits = .false. ++ end if + c + if (ido .eq. 0) then + c +diff --git a/SRC/zgetv0.f b/SRC/zgetv0.f +index cc13c3cfb..1fbd50851 100644 +--- a/SRC/zgetv0.f ++++ b/SRC/zgetv0.f +@@ -156,13 +156,13 @@ subroutine zgetv0 + c | Local Scalars & Arrays | + c %------------------------% + c +- logical first, orth ++ logical first, inits, orth + integer idist, iseed(4), iter, msglvl, jj + Double precision + & rnorm0 + Complex*16 + & cnorm +- save first, iseed, iter, msglvl, orth, rnorm0 ++ save first, iseed, inits, iter, msglvl, orth, rnorm0 + c + c %----------------------% + c | External Subroutines | +@@ -180,6 +180,12 @@ subroutine zgetv0 + & zzdotc + external zzdotc, dznrm2, dlapy2 + c ++c %-----------------% ++c | Data Statements | ++c %-----------------% ++c ++ data inits /.true./ ++c + c %-----------------------% + c | Executable Statements | + c %-----------------------% +@@ -190,10 +196,13 @@ subroutine zgetv0 + c | random number generator | + c %-----------------------------------% + c +- iseed(1) = 1 +- iseed(2) = 3 +- iseed(3) = 5 +- iseed(4) = 7 ++ if (inits) then ++ iseed(1) = 1 ++ iseed(2) = 3 ++ iseed(3) = 5 ++ iseed(4) = 7 ++ inits = .false. ++ end if + c + if (ido .eq. 0) then + c base-commit: 2426e51688d479042ea115a634c6be2d8b9f3b99 -- 2.40.1 From debbugs-submit-bounces@debbugs.gnu.org Thu Jul 13 18:19:06 2023 Received: (at 64107-done) by debbugs.gnu.org; 13 Jul 2023 22:19:06 +0000 Received: from localhost ([127.0.0.1]:40974 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qK4eP-0000Wq-Lg for submit@debbugs.gnu.org; Thu, 13 Jul 2023 18:19:05 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:53202) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qK4eK-0000WH-AO for 64107-done@debbugs.gnu.org; Thu, 13 Jul 2023 18:19:04 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qK4eD-00055c-NI; Thu, 13 Jul 2023 18:18:53 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:In-Reply-To:Date:References:Subject:To: From; bh=YGS5YMo2wG22rHg3DDrefHnwYx6IbHrP6zt4oomW5FU=; b=CgyfcKVvy6vErupdJLpE aklVZPWKZ/xlBq6mAr+MucHfrJhj8dwL0OgwvHTusEJMTzyvtC2S++vw0rm+ijdQd/NeaWl6Ru2u7 8FlRGrw6/7tFQ73a0Srfxth9ojM9WjC/kfnk0UmbglnaZ488024Gvn9B5x/9qoTU93AxoBSPGfSVI qKwIzL6VY3PnnUq40Sm+ufnrZ71tv5StO+PRBEtXqLCPLK6bUTdAU3VoarjM/u2VIJW1RBen2tu8j sIq49mnFnyTFcYJUx5u1pkDUZ2BR4OY+Vv5AYnfre/i+zW3jDHDMrhHwwL9SbDpCEe+kQ6xhhfin3 jK0Z2Bj8agoDJw==; Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201] helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qK4eD-0005Bp-9u; Thu, 13 Jul 2023 18:18:53 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: 64107-done@debbugs.gnu.org Subject: Re: bug#64107: [PATCH] gnu: arpack-ng: Update to 3.9.0. References: <30555c3ed595e2d89849fb2ea60710ef3b0e2b4a.1686922052.git.ludo@gnu.org> <3b29429467473163c018d008862873e732fccfd4.1688648664.git.ludo@gnu.org> Date: Fri, 14 Jul 2023 00:18:50 +0200 In-Reply-To: <3b29429467473163c018d008862873e732fccfd4.1688648664.git.ludo@gnu.org> ("Ludovic =?utf-8?Q?Court=C3=A8s=22's?= message of "Thu, 6 Jul 2023 15:05:09 +0200") Message-ID: <87o7kfxxo5.fsf_-_@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 64107-done Cc: Andreas Enge , Efraim Flashner , Eric Bavier X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Ludovic Court=C3=A8s skribis: > From: Ludovic Court=C3=A8s > > * gnu/packages/maths.scm (arpack-ng): Update to 3.9.0. > [source]: Add 'patches'. > [build-system]: Switch to CMAKE-BUILD-SYSTEM. > [native-inputs]: Remove AUTOCONF, AUTOMAKE, and LIBTOOL. > (arpack-ng-openmpi)[inputs]: Use 'modify-inputs'. > [arguments]: Use gexps. > * gnu/packages/patches/arpack-ng-propagate-rng-state.patch: New file. > * gnu/local.mk (dist_patch_DATA): Add it. Pushed as ff208b4b629a15ce0b72555db1cda9fcb7eec1c9. Ludo'. From unknown Tue Jun 17 22:28:03 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Fri, 11 Aug 2023 11:24:07 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator