qrupdate: dropped

This commit is contained in:
John McQuah 2023-12-06 01:11:04 +00:00
parent cb4c957e06
commit 0b51865c94
5 changed files with 0 additions and 149 deletions

View File

@ -1,6 +0,0 @@
drwxr-xr-x root/root usr/
drwxr-xr-x root/root usr/lib/
-rw-r--r-- root/root usr/lib/libqrupdate.a
lrwxrwxrwx root/root usr/lib/libqrupdate.so -> libqrupdate.so.1.1
lrwxrwxrwx root/root usr/lib/libqrupdate.so.1 -> libqrupdate.so.1.1
-rw-r--r-- root/root usr/lib/libqrupdate.so.1.1

View File

@ -1,7 +0,0 @@
untrusted comment: verify with /etc/ports/jmq.pub
RWTTPlFarK9CxAuboluHqwmyTnnn37UQBGeMEMXFN5jj65ZTocqeuWrwBsk3/tf4wEWZP5QrmVDU3BT6mNeWIw6DVTrmpJLi+wQ=
SHA256 (Pkgfile) = b4a32393874a8ed5caa14f73ca968cbc1a73e520741d59bca3b6f8876883271e
SHA256 (.footprint) = 15f45b7103f954a015b563e240b1ae61b5c34e5f07b41c173b1b279f5cb2c0c9
SHA256 (qrupdate-1.1.2.tar.gz) = e2a1c711dc8ebc418e21195833814cb2f84b878b90a2774365f0166402308e08
SHA256 (r32-drop-awk.patch) = 94e19e60ed49561cf7f54dbd42adcffb8312a159535c58aae9db29a923a70d11
SHA256 (r33-complex-real.patch) = 84566f96cbe7a65f793c96e9258d1151de647bddded89e45a2a342989425c3db

View File

@ -1,21 +0,0 @@
# Description: Fortran library for fast updates of QR and Cholesky decompositions
# URL: https://sourceforge.net/projects/qrupdate
# Maintainer: John McQuah, jmcquah at disroot dot org
# Depends on: lapack
name=qrupdate
version=1.1.2
release=1
source=(https://downloads.sourceforge.net/project/qrupdate/qrupdate/1.2/$name-$version.tar.gz
r32-drop-awk.patch
r33-complex-real.patch)
build() {
cd $name-$version
patch -p1 < $SRC/r32-drop-awk.patch
patch -p1 < $SRC/r33-complex-real.patch
sed -e 's|^FFLAGS.*|FFLAGS=${CFLAGS} ${LDFLAGS}|' -i Makeconf
make PREFIX=/usr solib
make PREFIX=/usr DESTDIR=$PKG install
}

View File

@ -1,35 +0,0 @@
--- a/test/report_results
+++ b/test/report_results
@@ -4,19 +4,27 @@
failed_total=0
cat $OUTS
-# if awk exists, use it to print total statistics
-if which awk > /dev/null ; then
- awk '/total:/ { passed += $3; failed += $5; }
- END { printf " TOTAL: PASSED %3d FAILED %3d\n", passed, failed; }' $OUTS
-fi
+ret=0
for out in $OUTS ; do
if [ ! -s $out ] ; then
echo " $out file empty (test crashed)!"
+ ret=1
else
if grep -q WARNING $out ; then
echo " $out produced warnings:"
grep WARNING $out
+ ret=1
+ fi
+ passed=$(grep total: $out | (read a b num d; echo $num))
+ passed_total=$((passed_total+passed))
+ failed=$(grep total: $out | (read a b c d num f; echo $num))
+ failed_total=$((failed_total+failed))
+ if test "$failed" -gt 0; then
+ echo " $out has failures"
+ ret=1
fi
fi
done
+printf "\n TOTAL: PASSED %3d FAILED %3d\n" "$passed_total" "$failed_total"
+exit $ret

View File

@ -1,80 +0,0 @@
--- a/test/utils.f
+++ b/test/utils.f
@@ -58,18 +58,48 @@
end do
end subroutine
+c In the old days, you would have treated the complex array as twice as
+c much of a real array, but modern compilers do not like that. So
+c resort to a buffer and explicit conversion. This is not
+c performance-relevant code, anyway.
+c Incidentally, this change in random numbers (strides of real and
+c imaginary parts) subtly reduces error in tch1dn to make it pass again.
+c Further hint that the error margin had to be just be a bit widenend.
+
subroutine crandg(m,n,x,ldx)
integer m,n,ldx
complex x(ldx,*)
+ real buf(128,2)
+ integer j,k,b,i
external srandg
- call srandg(2*m,n,x,2*ldx)
+ do j=1,n
+ do k=1,m,128
+ b=min(m-k+1,128)
+ call srandg(b,1,buf(1,1),b)
+ call srandg(b,1,buf(1,2),b)
+ do i=1,b
+ x(k+i-1,j) = cmplx(buf(i,1), buf(i,2))
+ end do
+ end do
+ end do
end subroutine
subroutine zrandg(m,n,x,ldx)
integer m,n,ldx
double complex x(ldx,*)
+ double precision buf(128,2)
+ integer j,k,b,i
external srandg
- call drandg(2*m,n,x,2*ldx)
+ do j=1,n
+ do k=1,m,128
+ b=min(m-k+1,128)
+ call drandg(b,1,buf(1,1),b)
+ call drandg(b,1,buf(1,2),b)
+ do i=1,b
+ x(k+i-1,j) = cmplx(buf(i,1), buf(i,2))
+ end do
+ end do
+ end do
end subroutine
block data xrandi
@@ -218,12 +248,16 @@
1002 format (1x,F6.3,SP,F6.3,'i',$)
end subroutine
+c 200*?lamch('p') is a bit tight, some tests are at the fringe, being pushed
+c over by details of the random number generation. Trying 250 as error
+c limit factor.
+
character*4 function spftol(rnrm)
real rnrm,slamch
external slamch
common /stats/ passed,failed
integer passed,failed
- if (rnrm < 2e2*slamch('p')) then
+ if (rnrm < 2.5e2*slamch('p')) then
spftol = 'PASS'
passed = passed + 1
else
@@ -237,7 +271,7 @@
external dlamch
common /stats/ passed,failed
integer passed,failed
- if (rnrm < 2d2*dlamch('p')) then
+ if (rnrm < 2.5d2*dlamch('p')) then
dpftol = 'PASS'
passed = passed + 1
else