PARPACK: Initialize machine dependent constants only once in PDNAITR

The current implementation checks the value of the variable `aitr_first` but
sets `first`.

Change that to set `aitr_first` to false after the initialization has run.

This also brings that part of the implementation of `PDNAITR` in line with
the corresponding logic that is used in the implementation of the other
`P?NAITR`.
This commit is contained in:
Markus Mützel
2026-08-01 15:59:19 +02:00
committed by Franck HOUSSEN
parent 8a4ede774e
commit 6ae2072b0c
2 changed files with 2 additions and 1 deletions
+1
View File
@@ -22,6 +22,7 @@ arpack-ng - next
[ Markus Mützel ]
* CMake: Fix running CTests on Windows.
* Use GNU Fortran ABI in CI tests on macOS.
* Initialize machine dependent constants only once in `PDNAITR`.
[ Szabolcs Horvát ]
* fix obsolescent character length warnings
+1 -1
View File
@@ -331,7 +331,7 @@ c
call dlabad( unfl, ovfl )
ulp = pdlamch10( comm, 'precision' )
smlnum = unfl*( n / ulp )
first = .false.
aitr_first = .false.
end if
c
if (ido .eq. 0) then