------------------------------------------------------------------------------- -- Phase: Environment ------------------------------------------------------------------------------- NO_DEPENDS=1 UNAME_r=6.5 UNAME_m=x86_64 UNAME_p=x86_64 UNAME_v=unknown UNAME_s=DragonFly PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin SSL_NO_VERIFY_PEER=1 LANG=C HOME=/root USER=root TERM=dumb SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: showconfig ------------------------------------------------------------------------------- ===> The following configuration options are available for eispack-1.0_15: PROFILE=off: Build with profiling support ===> Use 'make config' to modify these settings SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: CONFIGURE_ENV ------------------------------------------------------------------------------- F77="gfortran12" F90="gfortran12" FC="gfortran12" FFLAGS="-O -Wl,-rpath=/usr/local/lib/gcc12" F90FLAGS="-O -Wl,-rpath=/usr/local/lib/gcc12" FCFLAGS="-Wl,-rpath=/usr/local/lib/gcc12" XDG_DATA_HOME=/construction/math/eispack XDG_CONFIG_HOME=/construction/math/eispack XDG_CACHE_HOME=/construction/math/eispack/.cache HOME=/construction/math/eispack TMPDIR="/tmp" PATH=/construction/math/eispack/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin PKG_CONFIG_LIBDIR=/construction/math/eispack/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig SHELL=/bin/sh CONFIG_SHELL=/bin/sh CCVER=gcc80 SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: CONFIGURE_ARGS ------------------------------------------------------------------------------- SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: MAKE_ENV ------------------------------------------------------------------------------- SHLIB_MAJOR="2" SRCCONF="/dev/null" WITHOUT_PROFILE=yes F77="gfortran12" F90="gfortran12" FC="gfortran12" FFLAGS="-O -Wl,-rpath=/usr/local/lib/gcc12" F90FLAGS="-O -Wl,-rpath=/usr/local/lib/gcc12" FCFLAGS="-Wl,-rpath=/usr/local/lib/gcc12" XDG_DATA_HOME=/construction/math/eispack XDG_CONFIG_HOME=/construction/math/eispack XDG_CACHE_HOME=/construction/math/eispack/.cache HOME=/construction/math/eispack TMPDIR="/tmp" PATH=/construction/math/eispack/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin PKG_CONFIG_LIBDIR=/construction/math/eispack/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig MK_DEBUG_FILES=no MK_KERNEL_SYMBOLS=no SHELL=/bin/sh NO_LINT=YES CCVER=gcc80 ADDR2LINE="/usr/local/bin/addr2line" AR="/usr/local/bin/ar" AS="/usr/local/bin/as" CPPFILT="/usr/local/bin/c++filt" GPROF="/usr/local/bin/gprof" LD="/usr/local/bin/ld" NM="/usr/local/bin/nm" OBJCOPY="/usr/local/bin/objcopy" OBJDUMP="/usr/local/bin/objdump" RANLIB="/usr/local/bin/ranlib" READELF="/usr/local/bin/readelf" SIZE="/usr/local/bin/size" STRINGS="/usr/local/bin/strings" PREFIX=/usr/local LOCALBASE=/usr/local NOPROFILE=1 CC="cc" CFLAGS="-pipe -O2 -fno-strict-aliasing " CPP="cpp" CPPFLAGS="" LDFLAGS=" -O -Wl,-rpath=/usr/local/lib/gcc12 -Wl,-rpath=/usr/local/lib/gcc12 -L/usr/local/lib/gcc12 -B/usr/local/bin " LIBS="" CXX="c++" CXXFLAGS=" -pipe -O2 -fno-strict-aliasing " MANPREFIX="/usr/local" BSD_INSTALL_PROGRAM="install -s -m 555" BSD_INSTALL_LIB="install -s -m 0644" BSD_INSTALL_SCRIPT="install -m 555" BSD_INSTALL_DATA="install -m 0644" BSD_INSTALL_MAN="install -m 444" SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: MAKE_ARGS ------------------------------------------------------------------------------- DESTDIR=/construction/math/eispack/stage SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: PLIST_SUB ------------------------------------------------------------------------------- OSREL=6.5 PREFIX=%D LOCALBASE=/usr/local RESETPREFIX=/usr/local LIB32DIR=lib PROFILE="@comment " DOCSDIR="share/doc/eispack" EXAMPLESDIR="share/examples/eispack" DATADIR="share/eispack" WWWDIR="www/eispack" ETCDIR="etc/eispack" SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: SUB_LIST ------------------------------------------------------------------------------- PREFIX=/usr/local LOCALBASE=/usr/local DATADIR=/usr/local/share/eispack DOCSDIR=/usr/local/share/doc/eispack EXAMPLESDIR=/usr/local/share/examples/eispack WWWDIR=/usr/local/www/eispack ETCDIR=/usr/local/etc/eispack SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: /etc/make.conf ------------------------------------------------------------------------------- DPORTS_BUILDER=yes DISABLE_LICENSES=yes DEFAULT_VERSIONS=ssl=openssl FORCE_PACKAGE=yes DEVELOPER=yes DFLY_STING_XFAIL=yes USE_PACKAGE_DEPENDS_ONLY=yes PORTSDIR=/xports PORT_DBDIR=/options PKG_DBDIR=/var/db/pkg PKG_CACHEDIR=/var/cache/pkg PKG_COMPRESSION_FORMAT=.tgz DEVELOPER=1 WITH_CCACHE_BUILD=yes CCACHE_DIR=/ccache UID=0 ARCH=x86_64 OPSYS=DragonFly DFLYVERSION=600503 OSVERSION=9999999 OSREL=6.5 _OSRELEASE=6.5-SYNTH DISTDIR=/distfiles WRKDIRPREFIX=/construction BATCH=yes PACKAGE_BUILDING=yes PKG_CREATE_VERBOSE=yes MAKE_JOBS_NUMBER=13 SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: setup ------------------------------------------------------------------------------- Installing /packages/All/indexinfo-0.3.1.pkg Installing /packages/All/gmp-6.2.1.pkg Installing /packages/All/mpfr-4.2.0_1,1.pkg Installing /packages/All/mpc-1.3.1_1.pkg UNFLAVORED devel/binutils -> use devel/binutils@native Installing /packages/All/liblz4-1.9.4,1.pkg Installing /packages/All/zstd-1.5.5.pkg Installing /packages/All/gettext-runtime-0.21.1.pkg Installing /packages/All/binutils-2.40_4,1.pkg Installing /packages/All/gcc12-12.2.0_6.pkg ===== Message from gcc12-12.2.0_6: -- To ensure binaries built with this toolchain find appropriate versions of the necessary run-time libraries, you may want to link using -Wl,-rpath=/usr/local/lib/gcc12 For ports leveraging USE_GCC, USES=compiler, or USES=fortran this happens transparently. Installing /packages/All/ccache-3.7.12_4.pkg Create compiler links... create symlink for cc create symlink for cc (world) create symlink for c++ create symlink for c++ (world) create symlink for CC create symlink for CC (world) create symlink for gcc create symlink for gcc (world) create symlink for g++ create symlink for g++ (world) create symlink for gcc12 create symlink for gcc12 (world) create symlink for g++12 create symlink for g++12 (world) create symlink for cpp12 create symlink for cpp12 (world) ===== Message from ccache-3.7.12_4: -- NOTE: Please read /usr/local/share/doc/ccache/ccache-howto-freebsd.txt for information on using ccache with FreeBSD ports and src. UNFLAVORED devel/binutils -> use devel/binutils@native SUCCEEDED 00:00:11 ------------------------------------------------------------------------------- -- Phase: check-sanity ------------------------------------------------------------------------------- ===> NOTICE: The eispack port currently does not have a maintainer. As a result, it is more likely to have unresolved issues, not be up-to-date, or even be removed in the future. To volunteer to maintain this port, please create an issue at: https://bugs.freebsd.org/bugzilla More information about port maintainership is available at: https://docs.freebsd.org/en/articles/contributing/#ports-contributing SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: pkg-depends ------------------------------------------------------------------------------- ===> eispack-1.0_15 depends on file: /usr/local/sbin/pkg - found SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: fetch-depends ------------------------------------------------------------------------------- SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: fetch ------------------------------------------------------------------------------- ===> NOTICE: The eispack port currently does not have a maintainer. As a result, it is more likely to have unresolved issues, not be up-to-date, or even be removed in the future. To volunteer to maintain this port, please create an issue at: https://bugs.freebsd.org/bugzilla More information about port maintainership is available at: https://docs.freebsd.org/en/articles/contributing/#ports-contributing ===> eispack-1.0_15 depends on file: /usr/local/sbin/pkg - found ===> Fetching all distfiles required by eispack-1.0_15 for building SUCCEEDED 00:00:04 ------------------------------------------------------------------------------- -- Phase: checksum ------------------------------------------------------------------------------- ===> NOTICE: The eispack port currently does not have a maintainer. As a result, it is more likely to have unresolved issues, not be up-to-date, or even be removed in the future. To volunteer to maintain this port, please create an issue at: https://bugs.freebsd.org/bugzilla More information about port maintainership is available at: https://docs.freebsd.org/en/articles/contributing/#ports-contributing ===> eispack-1.0_15 depends on file: /usr/local/sbin/pkg - found ===> Fetching all distfiles required by eispack-1.0_15 for building => SHA256 Checksum OK for eispack/csroot.f. => SHA256 Checksum OK for eispack/epslon.f. => SHA256 Checksum OK for eispack/pythag.f. => SHA256 Checksum OK for eispack/bakvec.f. => SHA256 Checksum OK for eispack/balanc.f. => SHA256 Checksum OK for eispack/balbak.f. => SHA256 Checksum OK for eispack/bandr.f. => SHA256 Checksum OK for eispack/bandv.f. => SHA256 Checksum OK for eispack/bisect.f. => SHA256 Checksum OK for eispack/bqr.f. => SHA256 Checksum OK for eispack/cbabk2.f. => SHA256 Checksum OK for eispack/cbal.f. => SHA256 Checksum OK for eispack/cg.f. => SHA256 Checksum OK for eispack/ch.f. => SHA256 Checksum OK for eispack/cinvit.f. => SHA256 Checksum OK for eispack/combak.f. => SHA256 Checksum OK for eispack/comhes.f. => SHA256 Checksum OK for eispack/comlr.f. => SHA256 Checksum OK for eispack/comlr2.f. => SHA256 Checksum OK for eispack/comqr.f. => SHA256 Checksum OK for eispack/comqr2.f. => SHA256 Checksum OK for eispack/cortb.f. => SHA256 Checksum OK for eispack/corth.f. => SHA256 Checksum OK for eispack/elmbak.f. => SHA256 Checksum OK for eispack/elmhes.f. => SHA256 Checksum OK for eispack/eltran.f. => SHA256 Checksum OK for eispack/figi.f. => SHA256 Checksum OK for eispack/figi2.f. => SHA256 Checksum OK for eispack/hqr.f. => SHA256 Checksum OK for eispack/hqr2.f. => SHA256 Checksum OK for eispack/htrib3.f. => SHA256 Checksum OK for eispack/htribk.f. => SHA256 Checksum OK for eispack/htrid3.f. => SHA256 Checksum OK for eispack/htridi.f. => SHA256 Checksum OK for eispack/imtql1.f. => SHA256 Checksum OK for eispack/imtql2.f. => SHA256 Checksum OK for eispack/imtqlv.f. => SHA256 Checksum OK for eispack/invit.f. => SHA256 Checksum OK for eispack/minfit.f. => SHA256 Checksum OK for eispack/ortbak.f. => SHA256 Checksum OK for eispack/orthes.f. => SHA256 Checksum OK for eispack/ortran.f. => SHA256 Checksum OK for eispack/otqlrat.f. => SHA256 Checksum OK for eispack/qzhes.f. => SHA256 Checksum OK for eispack/qzit.f. => SHA256 Checksum OK for eispack/qzval.f. => SHA256 Checksum OK for eispack/qzvec.f. => SHA256 Checksum OK for eispack/ratqr.f. => SHA256 Checksum OK for eispack/rebak.f. => SHA256 Checksum OK for eispack/rebakb.f. => SHA256 Checksum OK for eispack/reduc.f. => SHA256 Checksum OK for eispack/reduc2.f. => SHA256 Checksum OK for eispack/rg.f. => SHA256 Checksum OK for eispack/rgg.f. => SHA256 Checksum OK for eispack/rs.f. => SHA256 Checksum OK for eispack/rsb.f. => SHA256 Checksum OK for eispack/rsg.f. => SHA256 Checksum OK for eispack/rsgab.f. => SHA256 Checksum OK for eispack/rsgba.f. => SHA256 Checksum OK for eispack/rsm.f. => SHA256 Checksum OK for eispack/rsp.f. => SHA256 Checksum OK for eispack/rst.f. => SHA256 Checksum OK for eispack/rt.f. => SHA256 Checksum OK for eispack/svd.f. => SHA256 Checksum OK for eispack/tinvit.f. => SHA256 Checksum OK for eispack/tql1.f. => SHA256 Checksum OK for eispack/tql2.f. => SHA256 Checksum OK for eispack/tqlrat.f. => SHA256 Checksum OK for eispack/trbak1.f. => SHA256 Checksum OK for eispack/trbak3.f. => SHA256 Checksum OK for eispack/tred1.f. => SHA256 Checksum OK for eispack/tred2.f. => SHA256 Checksum OK for eispack/tred3.f. => SHA256 Checksum OK for eispack/tridib.f. => SHA256 Checksum OK for eispack/tsturm.f. => SHA256 Checksum OK for eispack/cdiv.f. SUCCEEDED 00:00:05 ------------------------------------------------------------------------------- -- Phase: extract-depends ------------------------------------------------------------------------------- SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: extract ------------------------------------------------------------------------------- ===> NOTICE: The eispack port currently does not have a maintainer. As a result, it is more likely to have unresolved issues, not be up-to-date, or even be removed in the future. To volunteer to maintain this port, please create an issue at: https://bugs.freebsd.org/bugzilla More information about port maintainership is available at: https://docs.freebsd.org/en/articles/contributing/#ports-contributing ===> eispack-1.0_15 depends on file: /usr/local/sbin/pkg - found ===> Fetching all distfiles required by eispack-1.0_15 for building ===> Extracting for eispack-1.0_15 => SHA256 Checksum OK for eispack/csroot.f. => SHA256 Checksum OK for eispack/epslon.f. => SHA256 Checksum OK for eispack/pythag.f. => SHA256 Checksum OK for eispack/bakvec.f. => SHA256 Checksum OK for eispack/balanc.f. => SHA256 Checksum OK for eispack/balbak.f. => SHA256 Checksum OK for eispack/bandr.f. => SHA256 Checksum OK for eispack/bandv.f. => SHA256 Checksum OK for eispack/bisect.f. => SHA256 Checksum OK for eispack/bqr.f. => SHA256 Checksum OK for eispack/cbabk2.f. => SHA256 Checksum OK for eispack/cbal.f. => SHA256 Checksum OK for eispack/cg.f. => SHA256 Checksum OK for eispack/ch.f. => SHA256 Checksum OK for eispack/cinvit.f. => SHA256 Checksum OK for eispack/combak.f. => SHA256 Checksum OK for eispack/comhes.f. => SHA256 Checksum OK for eispack/comlr.f. => SHA256 Checksum OK for eispack/comlr2.f. => SHA256 Checksum OK for eispack/comqr.f. => SHA256 Checksum OK for eispack/comqr2.f. => SHA256 Checksum OK for eispack/cortb.f. => SHA256 Checksum OK for eispack/corth.f. => SHA256 Checksum OK for eispack/elmbak.f. => SHA256 Checksum OK for eispack/elmhes.f. => SHA256 Checksum OK for eispack/eltran.f. => SHA256 Checksum OK for eispack/figi.f. => SHA256 Checksum OK for eispack/figi2.f. => SHA256 Checksum OK for eispack/hqr.f. => SHA256 Checksum OK for eispack/hqr2.f. => SHA256 Checksum OK for eispack/htrib3.f. => SHA256 Checksum OK for eispack/htribk.f. => SHA256 Checksum OK for eispack/htrid3.f. => SHA256 Checksum OK for eispack/htridi.f. => SHA256 Checksum OK for eispack/imtql1.f. => SHA256 Checksum OK for eispack/imtql2.f. => SHA256 Checksum OK for eispack/imtqlv.f. => SHA256 Checksum OK for eispack/invit.f. => SHA256 Checksum OK for eispack/minfit.f. => SHA256 Checksum OK for eispack/ortbak.f. => SHA256 Checksum OK for eispack/orthes.f. => SHA256 Checksum OK for eispack/ortran.f. => SHA256 Checksum OK for eispack/otqlrat.f. => SHA256 Checksum OK for eispack/qzhes.f. => SHA256 Checksum OK for eispack/qzit.f. => SHA256 Checksum OK for eispack/qzval.f. => SHA256 Checksum OK for eispack/qzvec.f. => SHA256 Checksum OK for eispack/ratqr.f. => SHA256 Checksum OK for eispack/rebak.f. => SHA256 Checksum OK for eispack/rebakb.f. => SHA256 Checksum OK for eispack/reduc.f. => SHA256 Checksum OK for eispack/reduc2.f. => SHA256 Checksum OK for eispack/rg.f. => SHA256 Checksum OK for eispack/rgg.f. => SHA256 Checksum OK for eispack/rs.f. => SHA256 Checksum OK for eispack/rsb.f. => SHA256 Checksum OK for eispack/rsg.f. => SHA256 Checksum OK for eispack/rsgab.f. => SHA256 Checksum OK for eispack/rsgba.f. => SHA256 Checksum OK for eispack/rsm.f. => SHA256 Checksum OK for eispack/rsp.f. => SHA256 Checksum OK for eispack/rst.f. => SHA256 Checksum OK for eispack/rt.f. => SHA256 Checksum OK for eispack/svd.f. => SHA256 Checksum OK for eispack/tinvit.f. => SHA256 Checksum OK for eispack/tql1.f. => SHA256 Checksum OK for eispack/tql2.f. => SHA256 Checksum OK for eispack/tqlrat.f. => SHA256 Checksum OK for eispack/trbak1.f. => SHA256 Checksum OK for eispack/trbak3.f. => SHA256 Checksum OK for eispack/tred1.f. => SHA256 Checksum OK for eispack/tred2.f. => SHA256 Checksum OK for eispack/tred3.f. => SHA256 Checksum OK for eispack/tridib.f. => SHA256 Checksum OK for eispack/tsturm.f. => SHA256 Checksum OK for eispack/cdiv.f. /bin/cp /xports/math/eispack/files/Makefile.lib /construction/math/eispack/eispack-1.0_15/Makefile Extracted Memory Use: 0.48M SUCCEEDED 00:00:06 ------------------------------------------------------------------------------- -- Phase: patch-depends ------------------------------------------------------------------------------- SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: patch ------------------------------------------------------------------------------- ===> Patching for eispack-1.0_15 ===> Applying ports patches for eispack-1.0_15 from /xports/math/eispack/files SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: build-depends ------------------------------------------------------------------------------- ===> eispack-1.0_15 depends on executable: gfortran12 - found ===> eispack-1.0_15 depends on file: /usr/local/bin/as - found ===> eispack-1.0_15 depends on file: /usr/local/bin/ccache - found SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: lib-depends ------------------------------------------------------------------------------- SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: configure ------------------------------------------------------------------------------- ===> eispack-1.0_15 depends on executable: gfortran12 - found ===> eispack-1.0_15 depends on file: /usr/local/bin/as - found ===> eispack-1.0_15 depends on file: /usr/local/bin/ccache - found ===> Configuring for eispack-1.0_15 SUCCEEDED 00:00:01 ------------------------------------------------------------------------------- -- Phase: build ------------------------------------------------------------------------------- ===> Building for eispack-1.0_15 --- objwarn --- --- csroot.So --- --- epslon.So --- --- pythag.So --- --- bakvec.So --- --- balanc.So --- --- balbak.So --- --- bandr.So --- --- bandv.So --- --- bisect.So --- --- bqr.So --- --- cbabk2.So --- --- cbal.So --- --- objwarn --- Warning: Object directory not changed from original /construction/math/eispack/eispack-1.0_15 --- csroot.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o csroot.So -c csroot.f --- epslon.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o epslon.So -c epslon.f --- pythag.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o pythag.So -c pythag.f --- bakvec.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o bakvec.So -c bakvec.f --- balanc.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o balanc.So -c balanc.f balanc.f:120:72: 120 | 180 scale(i) = 1.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) balanc.f:154:72: 154 | 250 a(i,j) = a(i,j) * g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) balanc.f:157:72: 157 | 260 a(j,i) = a(j,i) * f | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) --- balbak.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o balbak.So -c balbak.f balbak.f:54:72: 54 | 100 z(i,j) = z(i,j) * s | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) --- bandr.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o bandr.So -c bandr.f --- bqr.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o bqr.So -c bqr.f --- cg.So --- --- cbabk2.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o cbabk2.So -c cbabk2.f --- cbal.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o cbal.So -c cbal.f --- cg.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o cg.So -c cg.f --- bqr.So --- bqr.f:127:72: 127 | 80 a(i,mb) = a(i,mb) - g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) bqr.f:130:72: 130 | 100 rv(k) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) bqr.f:140:72: 140 | 110 rv(k) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) --- cbal.So --- cbal.f:131:72: 131 | 180 scale(i) = 1.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) --- bqr.So --- bqr.f:195:72: 195 | 180 scale = scale + dabs(rv(k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) bqr.f:200:72: 200 | 190 s = s + (rv(k)/scale)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) bqr.f:225:72: 225 | 240 rv(k) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) bqr.f:253:72: 253 | do 320 k = 1, m1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) bqr.f:266:72: 266 | 380 a(i,mb) = a(i,mb) - g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1) --- ch.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o ch.So -c ch.f --- bakvec.So --- bakvec.f:70:72: 70 | do 120 i = 2, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 120 at (1) --- cinvit.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o cinvit.So -c cinvit.f --- combak.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o combak.So -c combak.f --- comhes.So --- --- comlr.So --- --- comhes.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o comhes.So -c comhes.f --- bandv.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o bandv.So -c bandv.f --- comlr.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o comlr.So -c comlr.f --- bisect.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o bisect.So -c bisect.f --- cinvit.So --- cinvit.f:100:72: 100 | 160 x = x + pythag(ar(i,j),ai(i,j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) --- comlr2.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o comlr2.So -c comlr2.f --- cinvit.So --- cinvit.f:228:72: 228 | 860 rv1(i) = y | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) --- comqr.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o comqr.So -c comqr.f --- bandv.So --- bandv.f:276:72: 276 | 640 xu = xu + rv6(i) * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) bandv.f:279:72: 279 | 660 rv6(i) = rv6(i) - xu * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 660 at (1) bandv.f:286:72: 286 | 720 norm = norm + dabs(rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1) bandv.f:297:72: 297 | 760 rv6(i) = xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1) bandv.f:310:72: 310 | 860 u = pythag(u,rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) bandv.f:315:72: 315 | 900 z(i,r) = rv6(i) * xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1) --- comlr2.So --- comlr2.f:81:72: 81 | do 100 j = 1, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) comlr2.f:275:72: 275 | do 720 j = i, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 720 at (1) comlr2.f:344:72: 344 | do 880 i = low, igh | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1) --- comqr2.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o comqr2.So -c comqr2.f --- cortb.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o cortb.So -c cortb.f --- comqr2.So --- comqr2.f:95:72: 95 | if (iend) 180, 150, 105 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) comqr2.f:323:72: 323 | do 720 j = i, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 720 at (1) comqr2.f:391:72: 391 | do 880 i = low, igh | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1) --- corth.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o corth.So -c corth.f corth.f:63:72: 63 | 90 scale = scale + dabs(ar(i,m-1)) + dabs(ai(i,m-1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) --- bandr.So --- bandr.f:69:72: 69 | 30 d(j) = 1.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) bandr.f:76:72: 76 | 40 z(j,k) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) bandr.f:82:72: 82 | if (m1 - 1) 900, 800, 70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) bandr.f:207:72: 207 | 610 a(j,l) = dminrt * a(j,l) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) bandr.f:221:72: 221 | 640 z(l,j) = dminrt * z(l,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) bandr.f:230:72: 230 | 810 e(j) = dsqrt(d(j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 810 at (1) bandr.f:237:72: 237 | 820 z(j,k) = e(k) * z(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 820 at (1) --- elmbak.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o elmbak.So -c elmbak.f --- elmhes.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o elmhes.So -c elmhes.f --- elmbak.So --- elmbak.f:65:72: 65 | 100 z(i,j) = z(i,j) + x * z(mp,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) --- elmhes.So --- elmhes.f:88:72: 88 | 140 a(i,j) = a(i,j) - y * a(m,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) elmhes.f:91:72: 91 | 150 a(j,m) = a(j,m) + y * a(j,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) --- eltran.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o eltran.So -c eltran.f --- figi.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o figi.So -c figi.f --- figi2.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o figi2.So -c figi2.f --- figi.So --- figi.f:59:72: 59 | if (e2(i)) 1000, 60, 80 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) --- hqr.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o hqr.So -c hqr.f --- figi2.So --- figi2.f:57:72: 57 | 50 z(i,j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) figi2.f:61:72: 61 | if (h) 900, 60, 80 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) --- hqr.So --- hqr.f:67:72: 67 | 40 norm = norm + dabs(h(i,j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) hqr.f:106:72: 106 | 120 h(i,i) = h(i,i) - x | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- eltran.So --- eltran.f:51:72: 51 | 60 z(i,j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) eltran.f:64:72: 64 | 100 z(i,mp) = a(i,mp-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) --- hqr2.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o hqr2.So -c hqr2.f hqr2.f:82:72: 82 | 40 norm = norm + dabs(h(i,j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) hqr2.f:121:72: 121 | 120 h(i,i) = h(i,i) - x | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- htrib3.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o htrib3.So -c htrib3.f --- hqr2.So --- hqr2.f:297:72: 297 | if (q) 710, 600, 800 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) hqr2.f:309:72: 309 | 610 r = r + h(i,j) * h(j,en) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) hqr2.f:425:72: 425 | 820 z(i,j) = h(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 820 at (1) hqr2.f:435:72: 435 | do 880 i = low, igh | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1) hqr2.f:439:72: 439 | 860 zz = zz + z(i,k) * h(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) --- htribk.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o htribk.So -c htribk.f --- htrib3.So --- htrib3.f:56:72: 56 | do 50 j = 1, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1) --- htribk.So --- htribk.f:57:72: 57 | do 50 j = 1, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1) --- htrid3.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o htrid3.So -c htrid3.f htrid3.f:66:72: 66 | 120 scale = scale + dabs(a(i,k)) + dabs(a(k,i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- htridi.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o htridi.So -c htridi.f --- imtql1.So --- --- htridi.So --- htridi.f:58:72: 58 | 100 d(i) = ar(i,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) htridi.f:68:72: 68 | 120 scale = scale + dabs(ar(i,k)) + dabs(ai(i,k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) htridi.f:134:72: 134 | do 260 k = 1, j | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1) --- imtql1.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o imtql1.So -c imtql1.f --- imtql2.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o imtql2.So -c imtql2.f --- imtql1.So --- imtql1.f:51:72: 51 | 100 e(i-1) = e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) --- imtql2.So --- imtql2.f:67:72: 67 | 100 e(i-1) = e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) --- imtqlv.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o imtqlv.So -c imtqlv.f --- invit.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o invit.So -c invit.f --- minfit.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o minfit.So -c minfit.f --- invit.So --- invit.f:121:72: 121 | 160 x = x + dabs(a(i,j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) invit.f:160:72: 160 | 300 rm1(j,i) = a(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) invit.f:189:72: 189 | 380 rm1(j,i) = rm1(j,i) - x * rm1(j,mp) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1) invit.f:203:72: 203 | 460 y = y - rm1(j,i) * rv1(j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 460 at (1) invit.f:222:72: 222 | 540 rm1(1,i) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1) invit.f:358:72: 358 | 860 rv1(i) = y | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) --- ortbak.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o ortbak.So -c ortbak.f --- minfit.So --- minfit.f:85:72: 85 | 120 scale = scale + dabs(a(k,i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) minfit.f:104:72: 104 | 140 s = s + a(k,i) * a(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) minfit.f:108:72: 108 | do 150 k = i, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) minfit.f:118:72: 118 | 170 s = s + a(k,i) * b(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) minfit.f:122:72: 122 | do 180 k = i, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1) minfit.f:127:72: 127 | 200 a(k,i) = scale * a(k,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) minfit.f:136:72: 136 | 220 scale = scale + dabs(a(i,k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) minfit.f:151:72: 151 | 240 rv1(k) = a(i,k) / h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) minfit.f:159:72: 159 | 250 s = s + a(j,k) * a(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) minfit.f:161:72: 161 | do 260 k = l, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1) minfit.f:166:72: 166 | 280 a(i,k) = scale * a(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1) minfit.f:179:72: 179 | 320 a(j,i) = (a(i,j) / a(i,l)) / g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) minfit.f:185:72: 185 | 340 s = s + a(i,k) * a(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) minfit.f:187:72: 187 | do 350 k = l, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 350 at (1) minfit.f:206:72: 206 | do 500 j = 1, ip | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 500 at (1) --- ortbak.So --- ortbak.f:65:72: 65 | 100 ort(i) = a(i,mp-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) ortbak.f:71:72: 71 | 110 g = g + ort(i) * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) ortbak.f:77:72: 77 | 120 z(i,j) = z(i,j) + g * ort(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- minfit.So --- minfit.f:320:72: 320 | 690 a(j,k) = -a(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 690 at (1) --- orthes.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o orthes.So -c orthes.f --- ortran.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o ortran.So -c ortran.f ortran.f:53:72: 53 | 60 z(i,j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) ortran.f:67:72: 67 | 100 ort(i) = a(i,mp-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) ortran.f:73:72: 73 | 110 g = g + ort(i) * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) ortran.f:79:72: 79 | 120 z(i,j) = z(i,j) + g * ort(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- qzhes.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o qzhes.So -c qzhes.f --- qzit.So --- --- orthes.So --- orthes.f:57:72: 57 | 90 scale = scale + dabs(a(i,m-1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) --- qzit.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o qzit.So -c qzit.f --- orthes.So --- orthes.f:83:72: 83 | 120 a(i,j) = a(i,j) - f * ort(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) orthes.f:98:72: 98 | 150 a(i,j) = a(i,j) - f * ort(j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) --- qzval.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o qzval.So -c qzval.f --- qzvec.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o qzvec.So -c qzvec.f qzvec.f:92:72: 92 | 610 r = r + (betm * a(i,j) - alfm * b(i,j)) * b(j,en) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) qzvec.f:207:72: 207 | do 880 i = 1, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1) qzvec.f:211:72: 211 | 860 zz = zz + z(i,k) * b(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) qzvec.f:228:72: 228 | 900 z(i,j) = z(i,j) / d | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1) --- ratqr.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o ratqr.So -c ratqr.f --- rebak.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rebak.So -c rebak.f --- ratqr.So --- ratqr.f:104:72: 104 | 20 w(i) = d(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) ratqr.f:135:72: 135 | 110 w(i) = w(i) - tot | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) ratqr.f:220:72: 220 | 500 w(i) = -w(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1) --- rebak.So --- rebak.f:50:72: 50 | do 100 ii = 1, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) rebak.f:57:72: 57 | 60 x = x - b(k,i) * z(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) --- rebakb.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rebakb.So -c rebakb.f rebakb.f:50:72: 50 | do 100 ii = 1, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) rebakb.f:57:72: 57 | 60 x = x + b(i,k) * z(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) --- reduc.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o reduc.So -c reduc.f --- reduc2.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o reduc2.So -c reduc2.f --- reduc.So --- reduc.f:62:72: 62 | do 80 j = i, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 80 at (1) reduc.f:67:72: 67 | 20 x = x - b(i,k) * b(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) reduc.f:82:72: 82 | do 200 j = i, nn | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) reduc.f:87:72: 87 | 160 x = x - b(i,k) * a(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) reduc.f:95:72: 95 | do 300 i = j, nn | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 300 at (1) --- rg.So --- --- reduc.So --- reduc.f:101:72: 101 | 220 x = x - a(k,j) * b(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) --- rg.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rg.So -c rg.f --- reduc.So --- reduc.f:106:72: 106 | 260 x = x - a(j,k) * b(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) --- reduc2.So --- reduc2.f:63:72: 63 | do 80 j = i, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 80 at (1) reduc2.f:68:72: 68 | 20 x = x - b(i,k) * b(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) reduc2.f:82:72: 82 | do 200 j = 1, i | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) reduc2.f:88:72: 88 | 120 x = x + a(k,i) * b(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) reduc2.f:93:72: 93 | 160 x = x + a(i,k) * b(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) reduc2.f:102:72: 102 | do 300 j = 1, i | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 300 at (1) reduc2.f:107:72: 107 | 260 x = x + a(k,j) * b(k,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) --- rgg.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rgg.So -c rgg.f --- rs.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rs.So -c rs.f --- rsb.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsb.So -c rsb.f --- rsg.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsg.So -c rsg.f --- rsgab.So --- --- rsgba.So --- --- rsgab.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsgab.So -c rsgab.f --- rsgba.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsgba.So -c rsgba.f --- rsm.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsm.So -c rsm.f --- rsp.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsp.So -c rsp.f --- rst.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rst.So -c rst.f --- rt.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o rt.So -c rt.f --- svd.So --- --- tinvit.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o tinvit.So -c tinvit.f --- svd.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o svd.So -c svd.f --- tql1.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o tql1.So -c tql1.f --- tql2.So --- --- tqlrat.So --- --- tql2.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o tql2.So -c tql2.f --- tqlrat.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o tqlrat.So -c tqlrat.f --- trbak1.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o trbak1.So -c trbak1.f --- tinvit.So --- tinvit.f:104:72: 104 | 500 norm = dmax1(norm, dabs(d(i))+dabs(e(i))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1) --- trbak3.So --- --- trbak1.So --- trbak1.f:60:72: 60 | 110 s = s + a(i,k) * z(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) trbak1.f:66:72: 66 | 120 z(k,j) = z(k,j) + s * a(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- trbak3.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o trbak3.So -c trbak3.f --- tqlrat.So --- tqlrat.f:56:72: 56 | 100 E2(I-1) = E2(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) tqlrat.f:97:72: 97 | 140 D(I) = D(I) - H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) --- tql2.So --- tql2.f:67:72: 67 | 100 e(i-1) = e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) tql2.f:101:72: 101 | 140 d(i) = d(i) - h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) --- svd.So --- svd.f:77:72: 77 | do 100 j = 1, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) svd.f:94:72: 94 | 120 scale = scale + dabs(u(k,i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) svd.f:113:72: 113 | 140 s = s + u(k,i) * u(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) svd.f:117:72: 117 | do 150 k = i, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) svd.f:122:72: 122 | 200 u(k,i) = scale * u(k,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) svd.f:131:72: 131 | 220 scale = scale + dabs(u(i,k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) svd.f:146:72: 146 | 240 rv1(k) = u(i,k) / h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) svd.f:154:72: 154 | 250 s = s + u(j,k) * u(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) svd.f:156:72: 156 | do 260 k = l, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1) svd.f:161:72: 161 | 280 u(i,k) = scale * u(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1) svd.f:175:72: 175 | 320 v(j,i) = (u(i,j) / u(i,l)) / g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) svd.f:181:72: 181 | 340 s = s + u(i,k) * v(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) svd.f:183:72: 183 | do 350 k = l, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 350 at (1) svd.f:209:72: 209 | 420 u(i,j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1) svd.f:218:72: 218 | 440 s = s + u(k,i) * u(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1) svd.f:222:72: 222 | do 450 k = i, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 450 at (1) svd.f:227:72: 227 | 470 u(j,i) = u(j,i) / g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1) svd.f:232:72: 232 | 480 u(j,i) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 480 at (1) --- tinvit.So --- tinvit.f:172:72: 172 | 640 xu = xu + rv6(i) * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) tinvit.f:175:72: 175 | 660 rv6(i) = rv6(i) - xu * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 660 at (1) tinvit.f:182:72: 182 | 720 norm = norm + dabs(rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1) --- svd.So --- svd.f:349:72: 349 | 690 v(j,k) = -v(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 690 at (1) --- tinvit.So --- tinvit.f:195:72: 195 | 760 rv6(i) = rv6(i) * xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1) tinvit.f:220:72: 220 | 860 u = pythag(u,rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) tinvit.f:225:72: 225 | 880 z(i,r) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 880 at (1) tinvit.f:228:72: 228 | 900 z(i,r) = rv6(i) * xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1) --- tred1.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o tred1.So -c tred1.f tred1.f:60:72: 60 | 120 scale = scale + dabs(d(k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) tred1.f:88:72: 88 | 170 e(j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) tred1.f:114:72: 114 | 250 e(j) = e(j) - h * d(j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) tred1.f:121:72: 121 | 260 a(k,j) = a(k,j) - f * e(k) - g * d(k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) --- tql1.So --- tql1.f:51:72: 51 | 100 e(i-1) = e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) tql1.f:85:72: 85 | 140 d(i) = d(i) - h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) --- tred2.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o tred2.So -c tred2.f --- tred3.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o tred3.So -c tred3.f --- tred2.So --- tred2.f:48:72: 48 | 80 z(j,i) = a(j,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) tred2.f:63:72: 63 | 120 scale = scale + dabs(d(k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) tred2.f:88:72: 88 | 170 e(j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) tred2.f:115:72: 115 | 250 e(j) = e(j) - hh * d(j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) tred2.f:122:72: 122 | 260 z(k,j) = z(k,j) - f * e(k) - g * d(k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) tred2.f:139:72: 139 | 330 d(k) = z(k,i) / h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1) tred2.f:145:72: 145 | 340 g = g + z(k,i) * z(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) tred2.f:147:72: 147 | do 360 k = 1, l | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 360 at (1) tred2.f:152:72: 152 | 400 z(k,i) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1) --- tred3.So --- tred3.f:107:72: 107 | 250 e(j) = e(j) - hh * d(j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) --- tridib.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o tridib.So -c tridib.f tridib.f:119:72: 119 | 60 if (s - m1) 65, 73, 70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) tridib.f:131:72: 131 | 80 if (s - m22) 65, 85, 70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) --- tsturm.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o tsturm.So -c tsturm.f tsturm.f:149:72: 149 | 160 z(i,r) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) tsturm.f:230:72: 230 | 500 norm = dmax1(norm, dabs(d(i)) + dabs(e(i))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1) tsturm.f:300:72: 300 | 640 xu = xu + rv6(i) * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) tsturm.f:303:72: 303 | 660 rv6(i) = rv6(i) - xu * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 660 at (1) tsturm.f:310:72: 310 | 720 norm = norm + dabs(rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1) tsturm.f:323:72: 323 | 760 rv6(i) = rv6(i) * xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1) tsturm.f:344:72: 344 | 860 u = pythag(u,rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) tsturm.f:349:72: 349 | 880 z(i,r) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 880 at (1) tsturm.f:352:72: 352 | 900 z(i,r) = rv6(i) * xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1) --- cdiv.So --- gfortran12 -fpic -DPIC -O -Wl,-rpath=/usr/local/lib/gcc12 -o cdiv.So -c cdiv.f --- csroot.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o csroot.o -c csroot.f --- epslon.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o epslon.o -c epslon.f --- pythag.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o pythag.o -c pythag.f --- bakvec.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o bakvec.o -c bakvec.f --- balanc.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o balanc.o -c balanc.f balanc.f:120:72: 120 | 180 scale(i) = 1.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) balanc.f:154:72: 154 | 250 a(i,j) = a(i,j) * g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) balanc.f:157:72: 157 | 260 a(j,i) = a(j,i) * f | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) --- balbak.o --- --- bandr.o --- --- balbak.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o balbak.o -c balbak.f --- bandr.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o bandr.o -c bandr.f --- bakvec.o --- bakvec.f:70:72: 70 | do 120 i = 2, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 120 at (1) --- bandv.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o bandv.o -c bandv.f --- bandr.o --- bandr.f:69:72: 69 | 30 d(j) = 1.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) bandr.f:76:72: 76 | 40 z(j,k) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) bandr.f:82:72: 82 | if (m1 - 1) 900, 800, 70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) --- bisect.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o bisect.o -c bisect.f --- balbak.o --- balbak.f:54:72: 54 | 100 z(i,j) = z(i,j) * s | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) --- bqr.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o bqr.o -c bqr.f --- cbabk2.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o cbabk2.o -c cbabk2.f --- bandv.o --- bandv.f:276:72: 276 | 640 xu = xu + rv6(i) * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) bandv.f:279:72: 279 | 660 rv6(i) = rv6(i) - xu * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 660 at (1) bandv.f:286:72: 286 | 720 norm = norm + dabs(rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1) bandv.f:297:72: 297 | 760 rv6(i) = xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1) bandv.f:310:72: 310 | 860 u = pythag(u,rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) bandv.f:315:72: 315 | 900 z(i,r) = rv6(i) * xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1) --- cbal.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o cbal.o -c cbal.f --- bandr.o --- bandr.f:207:72: 207 | 610 a(j,l) = dminrt * a(j,l) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) bandr.f:221:72: 221 | 640 z(l,j) = dminrt * z(l,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) bandr.f:230:72: 230 | 810 e(j) = dsqrt(d(j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 810 at (1) bandr.f:237:72: 237 | 820 z(j,k) = e(k) * z(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 820 at (1) --- bqr.o --- bqr.f:127:72: 127 | 80 a(i,mb) = a(i,mb) - g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) bqr.f:130:72: 130 | 100 rv(k) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) bqr.f:140:72: 140 | 110 rv(k) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) bqr.f:195:72: 195 | 180 scale = scale + dabs(rv(k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) bqr.f:200:72: 200 | 190 s = s + (rv(k)/scale)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) bqr.f:225:72: 225 | 240 rv(k) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) bqr.f:253:72: 253 | do 320 k = 1, m1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) bqr.f:266:72: 266 | 380 a(i,mb) = a(i,mb) - g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1) --- cbal.o --- cbal.f:131:72: 131 | 180 scale(i) = 1.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) --- cg.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o cg.o -c cg.f --- ch.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o ch.o -c ch.f --- cinvit.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o cinvit.o -c cinvit.f --- combak.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o combak.o -c combak.f --- cinvit.o --- cinvit.f:100:72: 100 | 160 x = x + pythag(ar(i,j),ai(i,j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) cinvit.f:228:72: 228 | 860 rv1(i) = y | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) --- comhes.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o comhes.o -c comhes.f --- comlr.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o comlr.o -c comlr.f --- comlr2.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o comlr2.o -c comlr2.f comlr2.f:81:72: 81 | do 100 j = 1, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) --- comqr.o --- --- comqr2.o --- --- comqr.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o comqr.o -c comqr.f --- comqr2.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o comqr2.o -c comqr2.f --- comlr2.o --- comlr2.f:275:72: 275 | do 720 j = i, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 720 at (1) comlr2.f:344:72: 344 | do 880 i = low, igh | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1) --- cortb.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o cortb.o -c cortb.f --- corth.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o corth.o -c corth.f corth.f:63:72: 63 | 90 scale = scale + dabs(ar(i,m-1)) + dabs(ai(i,m-1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) --- comqr2.o --- comqr2.f:95:72: 95 | if (iend) 180, 150, 105 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) comqr2.f:323:72: 323 | do 720 j = i, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 720 at (1) comqr2.f:391:72: 391 | do 880 i = low, igh | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1) --- elmbak.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o elmbak.o -c elmbak.f --- elmhes.o --- --- elmbak.o --- elmbak.f:65:72: 65 | 100 z(i,j) = z(i,j) + x * z(mp,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) --- elmhes.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o elmhes.o -c elmhes.f elmhes.f:88:72: 88 | 140 a(i,j) = a(i,j) - y * a(m,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) elmhes.f:91:72: 91 | 150 a(j,m) = a(j,m) + y * a(j,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) --- eltran.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o eltran.o -c eltran.f --- figi.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o figi.o -c figi.f --- figi2.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o figi2.o -c figi2.f --- hqr.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o hqr.o -c hqr.f --- eltran.o --- eltran.f:51:72: 51 | 60 z(i,j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) eltran.f:64:72: 64 | 100 z(i,mp) = a(i,mp-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) --- hqr2.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o hqr2.o -c hqr2.f --- figi.o --- figi.f:59:72: 59 | if (e2(i)) 1000, 60, 80 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) --- figi2.o --- figi2.f:57:72: 57 | 50 z(i,j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) --- htrib3.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o htrib3.o -c htrib3.f --- htribk.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o htribk.o -c htribk.f --- hqr2.o --- hqr2.f:82:72: 82 | 40 norm = norm + dabs(h(i,j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) hqr2.f:121:72: 121 | 120 h(i,i) = h(i,i) - x | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- htrib3.o --- htrib3.f:56:72: 56 | do 50 j = 1, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1) --- hqr2.o --- hqr2.f:297:72: 297 | if (q) 710, 600, 800 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) hqr2.f:309:72: 309 | 610 r = r + h(i,j) * h(j,en) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) hqr2.f:425:72: 425 | 820 z(i,j) = h(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 820 at (1) hqr2.f:435:72: 435 | do 880 i = low, igh | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1) hqr2.f:439:72: 439 | 860 zz = zz + z(i,k) * h(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) --- htrid3.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o htrid3.o -c htrid3.f htrid3.f:66:72: 66 | 120 scale = scale + dabs(a(i,k)) + dabs(a(k,i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- htribk.o --- htribk.f:57:72: 57 | do 50 j = 1, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1) --- htridi.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o htridi.o -c htridi.f --- hqr.o --- hqr.f:67:72: 67 | 40 norm = norm + dabs(h(i,j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) hqr.f:106:72: 106 | 120 h(i,i) = h(i,i) - x | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- figi2.o --- figi2.f:61:72: 61 | if (h) 900, 60, 80 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) --- htridi.o --- htridi.f:58:72: 58 | 100 d(i) = ar(i,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) htridi.f:68:72: 68 | 120 scale = scale + dabs(ar(i,k)) + dabs(ai(i,k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) htridi.f:134:72: 134 | do 260 k = 1, j | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1) --- imtql1.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o imtql1.o -c imtql1.f --- imtql2.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o imtql2.o -c imtql2.f --- imtql1.o --- imtql1.f:51:72: 51 | 100 e(i-1) = e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) --- imtql2.o --- imtql2.f:67:72: 67 | 100 e(i-1) = e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) --- imtqlv.o --- --- invit.o --- --- imtqlv.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o imtqlv.o -c imtqlv.f --- invit.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o invit.o -c invit.f invit.f:121:72: 121 | 160 x = x + dabs(a(i,j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) invit.f:160:72: 160 | 300 rm1(j,i) = a(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) invit.f:189:72: 189 | 380 rm1(j,i) = rm1(j,i) - x * rm1(j,mp) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1) invit.f:203:72: 203 | 460 y = y - rm1(j,i) * rv1(j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 460 at (1) invit.f:222:72: 222 | 540 rm1(1,i) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1) invit.f:358:72: 358 | 860 rv1(i) = y | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) --- minfit.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o minfit.o -c minfit.f minfit.f:85:72: 85 | 120 scale = scale + dabs(a(k,i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) minfit.f:104:72: 104 | 140 s = s + a(k,i) * a(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) minfit.f:108:72: 108 | do 150 k = i, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) minfit.f:118:72: 118 | 170 s = s + a(k,i) * b(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) minfit.f:122:72: 122 | do 180 k = i, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1) minfit.f:127:72: 127 | 200 a(k,i) = scale * a(k,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) minfit.f:136:72: 136 | 220 scale = scale + dabs(a(i,k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) minfit.f:151:72: 151 | 240 rv1(k) = a(i,k) / h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) minfit.f:159:72: 159 | 250 s = s + a(j,k) * a(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) minfit.f:161:72: 161 | do 260 k = l, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1) minfit.f:166:72: 166 | 280 a(i,k) = scale * a(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1) minfit.f:179:72: 179 | 320 a(j,i) = (a(i,j) / a(i,l)) / g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) minfit.f:185:72: 185 | 340 s = s + a(i,k) * a(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) minfit.f:187:72: 187 | do 350 k = l, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 350 at (1) minfit.f:206:72: 206 | do 500 j = 1, ip | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 500 at (1) minfit.f:320:72: 320 | 690 a(j,k) = -a(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 690 at (1) --- ortbak.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o ortbak.o -c ortbak.f ortbak.f:65:72: 65 | 100 ort(i) = a(i,mp-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) ortbak.f:71:72: 71 | 110 g = g + ort(i) * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) ortbak.f:77:72: 77 | 120 z(i,j) = z(i,j) + g * ort(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- orthes.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o orthes.o -c orthes.f orthes.f:57:72: 57 | 90 scale = scale + dabs(a(i,m-1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) orthes.f:83:72: 83 | 120 a(i,j) = a(i,j) - f * ort(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) orthes.f:98:72: 98 | 150 a(i,j) = a(i,j) - f * ort(j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) --- ortran.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o ortran.o -c ortran.f --- qzhes.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o qzhes.o -c qzhes.f --- ortran.o --- ortran.f:53:72: 53 | 60 z(i,j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) ortran.f:67:72: 67 | 100 ort(i) = a(i,mp-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) ortran.f:73:72: 73 | 110 g = g + ort(i) * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) ortran.f:79:72: 79 | 120 z(i,j) = z(i,j) + g * ort(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- qzit.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o qzit.o -c qzit.f --- qzval.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o qzval.o -c qzval.f --- qzvec.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o qzvec.o -c qzvec.f qzvec.f:92:72: 92 | 610 r = r + (betm * a(i,j) - alfm * b(i,j)) * b(j,en) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) qzvec.f:207:72: 207 | do 880 i = 1, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1) qzvec.f:211:72: 211 | 860 zz = zz + z(i,k) * b(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) qzvec.f:228:72: 228 | 900 z(i,j) = z(i,j) / d | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1) --- ratqr.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o ratqr.o -c ratqr.f --- rebak.o --- --- ratqr.o --- ratqr.f:104:72: 104 | 20 w(i) = d(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) --- rebak.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rebak.o -c rebak.f --- ratqr.o --- ratqr.f:135:72: 135 | 110 w(i) = w(i) - tot | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) ratqr.f:220:72: 220 | 500 w(i) = -w(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1) --- rebak.o --- rebak.f:50:72: 50 | do 100 ii = 1, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) rebak.f:57:72: 57 | 60 x = x - b(k,i) * z(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) --- rebakb.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rebakb.o -c rebakb.f rebakb.f:50:72: 50 | do 100 ii = 1, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) rebakb.f:57:72: 57 | 60 x = x + b(i,k) * z(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) --- reduc.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o reduc.o -c reduc.f reduc.f:62:72: 62 | do 80 j = i, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 80 at (1) reduc.f:67:72: 67 | 20 x = x - b(i,k) * b(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) reduc.f:82:72: 82 | do 200 j = i, nn | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) reduc.f:87:72: 87 | 160 x = x - b(i,k) * a(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) reduc.f:95:72: 95 | do 300 i = j, nn | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 300 at (1) reduc.f:101:72: 101 | 220 x = x - a(k,j) * b(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) reduc.f:106:72: 106 | 260 x = x - a(j,k) * b(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) --- reduc2.o --- --- rg.o --- --- reduc2.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o reduc2.o -c reduc2.f --- rg.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rg.o -c rg.f --- reduc2.o --- reduc2.f:63:72: 63 | do 80 j = i, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 80 at (1) reduc2.f:68:72: 68 | 20 x = x - b(i,k) * b(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) reduc2.f:82:72: 82 | do 200 j = 1, i | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) reduc2.f:88:72: 88 | 120 x = x + a(k,i) * b(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) reduc2.f:93:72: 93 | 160 x = x + a(i,k) * b(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) reduc2.f:102:72: 102 | do 300 j = 1, i | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 300 at (1) reduc2.f:107:72: 107 | 260 x = x + a(k,j) * b(k,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) --- rgg.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rgg.o -c rgg.f --- rs.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rs.o -c rs.f --- rsb.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsb.o -c rsb.f --- rsg.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsg.o -c rsg.f --- rsgab.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsgab.o -c rsgab.f --- rsgba.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsgba.o -c rsgba.f --- rsm.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsm.o -c rsm.f --- rsp.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rsp.o -c rsp.f --- rst.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rst.o -c rst.f --- rt.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o rt.o -c rt.f --- svd.o --- --- tinvit.o --- --- svd.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o svd.o -c svd.f --- tinvit.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o tinvit.o -c tinvit.f tinvit.f:104:72: 104 | 500 norm = dmax1(norm, dabs(d(i))+dabs(e(i))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1) --- tql1.o --- --- tinvit.o --- tinvit.f:172:72: 172 | 640 xu = xu + rv6(i) * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) tinvit.f:175:72: 175 | 660 rv6(i) = rv6(i) - xu * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 660 at (1) tinvit.f:182:72: 182 | 720 norm = norm + dabs(rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1) --- tql1.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o tql1.o -c tql1.f --- tinvit.o --- tinvit.f:195:72: 195 | 760 rv6(i) = rv6(i) * xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1) tinvit.f:220:72: 220 | 860 u = pythag(u,rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) tinvit.f:225:72: 225 | 880 z(i,r) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 880 at (1) tinvit.f:228:72: 228 | 900 z(i,r) = rv6(i) * xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1) --- tql1.o --- tql1.f:51:72: 51 | 100 e(i-1) = e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) tql1.f:85:72: 85 | 140 d(i) = d(i) - h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) --- svd.o --- svd.f:77:72: 77 | do 100 j = 1, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) --- tql2.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o tql2.o -c tql2.f --- tqlrat.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o tqlrat.o -c tqlrat.f --- trbak1.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o trbak1.o -c trbak1.f --- tql2.o --- tql2.f:67:72: 67 | 100 e(i-1) = e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) tql2.f:101:72: 101 | 140 d(i) = d(i) - h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) --- tqlrat.o --- tqlrat.f:56:72: 56 | 100 E2(I-1) = E2(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) tqlrat.f:97:72: 97 | 140 D(I) = D(I) - H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) --- trbak3.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o trbak3.o -c trbak3.f --- tred1.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o tred1.o -c tred1.f --- trbak1.o --- trbak1.f:60:72: 60 | 110 s = s + a(i,k) * z(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) --- tred2.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o tred2.o -c tred2.f --- tred1.o --- tred1.f:60:72: 60 | 120 scale = scale + dabs(d(k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) tred1.f:88:72: 88 | 170 e(j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) tred1.f:114:72: 114 | 250 e(j) = e(j) - h * d(j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) tred1.f:121:72: 121 | 260 a(k,j) = a(k,j) - f * e(k) - g * d(k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) --- tred2.o --- tred2.f:48:72: 48 | 80 z(j,i) = a(j,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) tred2.f:63:72: 63 | 120 scale = scale + dabs(d(k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) tred2.f:88:72: 88 | 170 e(j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) tred2.f:115:72: 115 | 250 e(j) = e(j) - hh * d(j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) tred2.f:122:72: 122 | 260 z(k,j) = z(k,j) - f * e(k) - g * d(k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) tred2.f:139:72: 139 | 330 d(k) = z(k,i) / h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1) tred2.f:145:72: 145 | 340 g = g + z(k,i) * z(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) tred2.f:147:72: 147 | do 360 k = 1, l | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 360 at (1) tred2.f:152:72: 152 | 400 z(k,i) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1) --- trbak1.o --- trbak1.f:66:72: 66 | 120 z(k,j) = z(k,j) + s * a(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- tred3.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o tred3.o -c tred3.f --- tridib.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o tridib.o -c tridib.f --- tsturm.o --- --- svd.o --- svd.f:94:72: 94 | 120 scale = scale + dabs(u(k,i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) --- tsturm.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o tsturm.o -c tsturm.f --- svd.o --- svd.f:113:72: 113 | 140 s = s + u(k,i) * u(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) svd.f:117:72: 117 | do 150 k = i, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) svd.f:122:72: 122 | 200 u(k,i) = scale * u(k,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) svd.f:131:72: 131 | 220 scale = scale + dabs(u(i,k)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) --- cdiv.o --- --- svd.o --- svd.f:146:72: 146 | 240 rv1(k) = u(i,k) / h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) svd.f:154:72: 154 | 250 s = s + u(j,k) * u(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) svd.f:156:72: 156 | do 260 k = l, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1) svd.f:161:72: 161 | 280 u(i,k) = scale * u(i,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1) svd.f:175:72: 175 | 320 v(j,i) = (u(i,j) / u(i,l)) / g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) svd.f:181:72: 181 | 340 s = s + u(i,k) * v(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) svd.f:183:72: 183 | do 350 k = l, n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 350 at (1) --- cdiv.o --- gfortran12 -O -Wl,-rpath=/usr/local/lib/gcc12 -o cdiv.o -c cdiv.f --- svd.o --- svd.f:209:72: 209 | 420 u(i,j) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1) svd.f:218:72: 218 | 440 s = s + u(k,i) * u(k,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1) svd.f:222:72: 222 | do 450 k = i, m | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 450 at (1) svd.f:227:72: 227 | 470 u(j,i) = u(j,i) / g | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1) svd.f:232:72: 232 | 480 u(j,i) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 480 at (1) svd.f:349:72: 349 | 690 v(j,k) = -v(j,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 690 at (1) --- tsturm.o --- tsturm.f:149:72: 149 | 160 z(i,r) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) tsturm.f:230:72: 230 | 500 norm = dmax1(norm, dabs(d(i)) + dabs(e(i))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1) tsturm.f:300:72: 300 | 640 xu = xu + rv6(i) * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) tsturm.f:303:72: 303 | 660 rv6(i) = rv6(i) - xu * z(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 660 at (1) tsturm.f:310:72: 310 | 720 norm = norm + dabs(rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1) tsturm.f:323:72: 323 | 760 rv6(i) = rv6(i) * xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1) tsturm.f:344:72: 344 | 860 u = pythag(u,rv6(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) tsturm.f:349:72: 349 | 880 z(i,r) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 880 at (1) tsturm.f:352:72: 352 | 900 z(i,r) = rv6(i) * xu | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1) --- libeispack.so.2 --- building shared library libeispack.so.2 rm -f libeispack.so.2 libeispack.so ln -fs libeispack.so.2 libeispack.so cc -O -Wl,-rpath=/usr/local/lib/gcc12 -Wl,-rpath=/usr/local/lib/gcc12 -L/usr/local/lib/gcc12 -B/usr/local/bin -shared -Wl,-x -o libeispack.so.2 -Wl,-soname,libeispack.so.2 `lorder csroot.So epslon.So pythag.So bakvec.So balanc.So balbak.So bandr.So bandv.So bisect.So bqr.So cbabk2.So cbal.So cg.So ch.So cinvit.So combak.So comhes.So comlr.So comlr2.So comqr.So comqr2.So cortb.So corth.So elmbak.So elmhes.So eltran.So figi.So figi2.So hqr.So hqr2.So htrib3.So htribk.So htrid3.So htridi.So imtql1.So imtql2.So imtqlv.So invit.So minfit.So ortbak.So orthes.So ortran.So qzhes.So qzit.So qzval.So qzvec.So ratqr.So rebak.So rebakb.So reduc.So reduc2.So rg.So rgg.So rs.So rsb.So rsg.So rsgab.So rsgba.So rsm.So rsp.So rst.So rt.So svd.So tinvit.So tql1.So tql2.So tqlrat.So trbak1.So trbak3.So tred1.So tred2.So tred3.So tridib.So tsturm.So cdiv.So | tsort -q` --- tred3.o --- tred3.f:107:72: 107 | 250 e(j) = e(j) - hh * d(j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) --- tridib.o --- tridib.f:119:72: 119 | 60 if (s - m1) 65, 73, 70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) tridib.f:131:72: 131 | 80 if (s - m22) 65, 85, 70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) --- libeispack.a --- building static eispack library rm -f libeispack.a /usr/local/bin/ar rc libeispack.a `lorder csroot.o epslon.o pythag.o bakvec.o balanc.o balbak.o bandr.o bandv.o bisect.o bqr.o cbabk2.o cbal.o cg.o ch.o cinvit.o combak.o comhes.o comlr.o comlr2.o comqr.o comqr2.o cortb.o corth.o elmbak.o elmhes.o eltran.o figi.o figi2.o hqr.o hqr2.o htrib3.o htribk.o htrid3.o htridi.o imtql1.o imtql2.o imtqlv.o invit.o minfit.o ortbak.o orthes.o ortran.o qzhes.o qzit.o qzval.o qzvec.o ratqr.o rebak.o rebakb.o reduc.o reduc2.o rg.o rgg.o rs.o rsb.o rsg.o rsgab.o rsgba.o rsm.o rsp.o rst.o rt.o svd.o tinvit.o tql1.o tql2.o tqlrat.o trbak1.o trbak3.o tred1.o tred2.o tred3.o tridib.o tsturm.o cdiv.o | tsort -q` /usr/local/bin/ranlib libeispack.a SUCCEEDED 00:00:07 ------------------------------------------------------------------------------- -- Phase: run-depends ------------------------------------------------------------------------------- ===> eispack-1.0_15 depends on executable: gfortran12 - found SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: stage ------------------------------------------------------------------------------- ===> Staging for eispack-1.0_15 ===> eispack-1.0_15 depends on executable: gfortran12 - found ===> Generating temporary packing list install -C -o root -g wheel -m 444 libeispack.a /construction/math/eispack/stage/usr/local/lib install -s -o root -g wheel -m 444 libeispack.so.2 /construction/math/eispack/stage/usr/local/lib ln -fs libeispack.so.2 /construction/math/eispack/stage/usr/local/lib/libeispack.so ====> Compressing man pages (compress-man) ====> Running Q/A tests (stage-qa) Warning: You have disabled the licenses framework with DISABLE_LICENSES, unable to run checks SUCCEEDED 00:00:01 ------------------------------------------------------------------------------- -- Phase: check-plist ------------------------------------------------------------------------------- ====> Checking for pkg-plist issues (check-plist) ===> Parsing plist ===> Checking for items in STAGEDIR missing from pkg-plist ===> Checking for items in pkg-plist which are not in STAGEDIR ===> No pkg-plist issues found (check-plist) SUCCEEDED 00:00:00 ------------------------------------------------------------------------------- -- Phase: package ------------------------------------------------------------------------------- ===> Building package for eispack-1.0_15 file sizes/checksums [3]: 0% file sizes/checksums [3]: 100% Service unavailablepacking files [3]: 0% packing files [3]: 100% packing directories [0]: 0% packing directories [0]: 100% SUCCEEDED 00:00:00 TOTAL TIME 00:00:35