=>> Building math/math77 build started at Sun Apr 7 10:12:05 BST 2024 port directory: /usr/ports/math/math77 package name: math77-6.0_10 building for: FreeBSD pkg-builder.dan.net.uk 13.2-RELEASE-p10 FreeBSD 13.2-RELEASE-p10 amd64 maintained by: ports@FreeBSD.org Makefile datestamp: -rw-r--r-- 1 root wheel 2286 Apr 24 2023 /usr/ports/math/math77/Makefile Ports top last git commit: c2c35d895e Ports top unclean checkout: yes Port dir last git commit: 8d3e020ed0 Port dir unclean checkout: no Poudriere version: poudriere-git-3.4.99.20240122_1 Host OSVERSION: 1400097 Jail OSVERSION: 1302001 Job Id: 11 ---Begin Environment--- SHELL=/bin/csh OSVERSION=1302001 UNAME_v=FreeBSD 13.2-RELEASE-p10 UNAME_r=13.2-RELEASE-p10 BLOCKSIZE=K MAIL=/var/mail/root MM_CHARSET=UTF-8 LANG=C.UTF-8 STATUS=1 HOME=/root PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin MAKE_OBJDIR_CHECK_WRITABLE=0 LOCALBASE=/usr/local USER=root POUDRIERE_NAME=poudriere-git LIBEXECPREFIX=/usr/local/libexec/poudriere POUDRIERE_VERSION=3.4.99.20240122_1 MASTERMNT=/usr/local/poudriere/data/.m/13-amd64-default-dan/ref LC_COLLATE=C POUDRIERE_BUILD_TYPE=bulk PACKAGE_BUILDING=yes SAVED_TERM=screen OUTPUT_REDIRECTED_STDERR=4 OUTPUT_REDIRECTED=1 PWD=/usr/local/poudriere/data/.m/13-amd64-default-dan/11/.p OUTPUT_REDIRECTED_STDOUT=3 P_PORTS_FEATURES=FLAVORS SUBPACKAGES SELECTED_OPTIONS MASTERNAME=13-amd64-default-dan SCRIPTPREFIX=/usr/local/share/poudriere SCRIPTNAME=bulk.sh OLDPWD=/usr/local/poudriere/data/.m/13-amd64-default-dan/ref/.p/pool POUDRIERE_PKGNAME=poudriere-git-3.4.99.20240122_1 SCRIPTPATH=/usr/local/share/poudriere/bulk.sh POUDRIEREPATH=/usr/local/bin/poudriere ---End Environment--- ---Begin Poudriere Port Flags/Env--- PORT_FLAGS= PKGENV= FLAVOR= MAKE_ARGS= ---End Poudriere Port Flags/Env--- ---Begin OPTIONS List--- ---End OPTIONS List--- --MAINTAINER-- ports@FreeBSD.org --End MAINTAINER-- --CONFIGURE_ARGS-- --End CONFIGURE_ARGS-- --CONFIGURE_ENV-- F77="gfortran13" F90="gfortran13" FC="gfortran13" FFLAGS="-O -Wl,-rpath=/usr/local/lib/gcc13" F90FLAGS="-O -Wl,-rpath=/usr/local/lib/gcc13" FCFLAGS="-Wl,-rpath=/usr/local/lib/gcc13" MAKE=gmake XDG_DATA_HOME=/wrkdirs/usr/ports/math/math77/work XDG_CONFIG_HOME=/wrkdirs/usr/ports/math/math77/work XDG_CACHE_HOME=/wrkdirs/usr/ports/math/math77/work/.cache HOME=/wrkdirs/usr/ports/math/math77/work TMPDIR="/tmp" PATH=/ccache/libexec/ccache:/wrkdirs/usr/ports/math/math77/work/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/math/math77/work/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig SHELL=/bin/sh CONFIG_SHELL=/bin/sh CCACHE_DIR="/root/.ccache" --End CONFIGURE_ENV-- --MAKE_ENV-- F77="gfortran13" F90="gfortran13" FC="gfortran13" FFLAGS="-O -Wl,-rpath=/usr/local/lib/gcc13" F90FLAGS="-O -Wl,-rpath=/usr/local/lib/gcc13" FCFLAGS="-Wl,-rpath=/usr/local/lib/gcc13" XDG_DATA_HOME=/wrkdirs/usr/ports/math/math77/work XDG_CONFIG_HOME=/wrkdirs/usr/ports/math/math77/work XDG_CACHE_HOME=/wrkdirs/usr/ports/math/math77/work/.cache HOME=/wrkdirs/usr/ports/math/math77/work TMPDIR="/tmp" PATH=/ccache/libexec/ccache:/wrkdirs/usr/ports/math/math77/work/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/math/math77/work/.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 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 CC="cc" CFLAGS="-O2 -pipe -fstack-protector-strong -fno-strict-aliasing " CPP="cpp" CPPFLAGS="" LDFLAGS=" -Wl,-rpath=/usr/local/lib/gcc13 -L/usr/local/lib/gcc13 -fstack-protector-strong " LIBS="" CXX="c++" CXXFLAGS="-O2 -pipe -fstack-protector-strong -fno-strict-aliasing " CCACHE_DIR="/root/.ccache" 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" --End MAKE_ENV-- --PLIST_SUB-- OSREL=13.2 PREFIX=%D LOCALBASE=/usr/local RESETPREFIX=/usr/local LIB32DIR=lib DOCSDIR="share/doc/math77" EXAMPLESDIR="share/examples/math77" DATADIR="share/math77" WWWDIR="www/math77" ETCDIR="etc/math77" --End PLIST_SUB-- --SUB_LIST-- PREFIX=/usr/local LOCALBASE=/usr/local DATADIR=/usr/local/share/math77 DOCSDIR=/usr/local/share/doc/math77 EXAMPLESDIR=/usr/local/share/examples/math77 WWWDIR=/usr/local/www/math77 ETCDIR=/usr/local/etc/math77 --End SUB_LIST-- ---Begin make.conf--- USE_PACKAGE_DEPENDS=yes BATCH=yes WRKDIRPREFIX=/wrkdirs PORTSDIR=/usr/ports PACKAGES=/packages DISTDIR=/distfiles FORCE_PACKAGE=yes PACKAGE_BUILDING=yes PACKAGE_BUILDING_FLAVORS=yes #### #### CCACHE_CPP2=1 WITH_SSP_PORTS=yes WITH_SSP=yes #WITH_LTO=yes DISABLE_LICENSES=yes LICENSES_ACCEPTED=AGPLv3 APACHE10 APACHE11 APACHE20 ART10 ARTPERL10 ART20 BSD BSD2CLAUSE BSD3CLAUSE BSD4CLAUSE BSL CC0-1.0 CDDL ClArtistic EPL GFDL GMGPL GPLv1 GPLv2 GPLv3 GPLv3RLE ISCL LGPL20 LGPL21 LGPL3 LPPL10 LPPL11 LPPL12 LPPL13 LPPL13a LPPL13b LPPL13c MIT MPL OpenSSL OFL10 OFL11 OWL PostgreSQL PHP202 PHP30 PHP301 PSFL RUBY ZLIB ZPL21 SVM-Light EULA ALASIR Microsoft-exFAT SIMIAN UDEVGAME unknown MTA COMMERCIAL teamspeak NO_LICENSES_DIALOGS=yes #### #### NO_IGNORE=yes DEFAULT_VERSIONS+=ssl=openssl mysql=8.0 imagemagick=7 samba=4.13 java=18 WITH_SETID_MODE=force PHP_ZTS=enabled OPTIONS_UNSET+=OPENJPEG OPTIONS_UNSET+=GSSAPI_BASE OPTIONS_SET+=ZTS OPTIONS_SET+=GSSAPI_NONE WITH_CCACHE_BUILD=yes CCACHE_DIR=/root/.ccache NO_CCACHE_DEPEND=1 CCACHE_WRAPPER_PATH= /ccache/libexec/ccache #### Misc Poudriere #### .include "/etc/make.conf.ports_env" GID=0 UID=0 DISABLE_MAKE_JOBS=poudriere ---End make.conf--- --Resource limits-- cpu time (seconds, -t) unlimited file size (512-blocks, -f) unlimited data seg size (kbytes, -d) 33554432 stack size (kbytes, -s) 524288 core file size (512-blocks, -c) unlimited max memory size (kbytes, -m) unlimited locked memory (kbytes, -l) unlimited max user processes (-u) 89999 open files (-n) 8192 virtual mem size (kbytes, -v) unlimited swap limit (kbytes, -w) unlimited socket buffer size (bytes, -b) unlimited pseudo-terminals (-p) unlimited kqueues (-k) unlimited umtx shared locks (-o) unlimited --End resource limits-- =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> NOTICE: The math77 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 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> math77-6.0_10 depends on file: /usr/local/sbin/pkg - not found ===> Installing existing package /packages/All/pkg-1.20.9_1.pkg [pkg-builder.dan.net.uk] Installing pkg-1.20.9_1... [pkg-builder.dan.net.uk] Extracting pkg-1.20.9_1: .......... done ===> math77-6.0_10 depends on file: /usr/local/sbin/pkg - found ===> Returning to build of math77-6.0_10 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> NOTICE: The math77 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 ===> Fetching all distfiles required by math77-6.0_10 for building =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> NOTICE: The math77 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 ===> Fetching all distfiles required by math77-6.0_10 for building => SHA256 Checksum OK for math77/math77.tgz. =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> NOTICE: The math77 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 ===> Fetching all distfiles required by math77-6.0_10 for building ===> Extracting for math77-6.0_10 => SHA256 Checksum OK for math77/math77.tgz. =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Patching for math77-6.0_10 ===> Applying FreeBSD patches for math77-6.0_10 from /usr/ports/math/math77/files =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> math77-6.0_10 depends on executable: gfortran13 - not found ===> Installing existing package /packages/All/gcc13-13.2.0_4.pkg [pkg-builder.dan.net.uk] Installing gcc13-13.2.0_4... [pkg-builder.dan.net.uk] `-- Installing binutils-2.40_5,1... [pkg-builder.dan.net.uk] | `-- Installing gettext-runtime-0.22.3_1... [pkg-builder.dan.net.uk] | | `-- Installing indexinfo-0.3.1... [pkg-builder.dan.net.uk] | | `-- Extracting indexinfo-0.3.1: . done [pkg-builder.dan.net.uk] | `-- Extracting gettext-runtime-0.22.3_1: .......... done [pkg-builder.dan.net.uk] | `-- Installing zstd-1.5.5_1... [pkg-builder.dan.net.uk] | | `-- Installing liblz4-1.9.4_1,1... [pkg-builder.dan.net.uk] | | `-- Extracting liblz4-1.9.4_1,1: .......... done [pkg-builder.dan.net.uk] | `-- Extracting zstd-1.5.5_1: .......... done [pkg-builder.dan.net.uk] `-- Extracting binutils-2.40_5,1: .......... done [pkg-builder.dan.net.uk] `-- Installing gmp-6.3.0... [pkg-builder.dan.net.uk] `-- Extracting gmp-6.3.0: .......... done [pkg-builder.dan.net.uk] `-- Installing mpc-1.3.1_1... [pkg-builder.dan.net.uk] | `-- Installing mpfr-4.2.1,1... [pkg-builder.dan.net.uk] | `-- Extracting mpfr-4.2.1,1: .......... done [pkg-builder.dan.net.uk] `-- Extracting mpc-1.3.1_1: ...... done [pkg-builder.dan.net.uk] Extracting gcc13-13.2.0_4: .......... done create symlink for gcc13 create symlink for gcc13 (world) create symlink for g++13 create symlink for g++13 (world) create symlink for cpp13 create symlink for cpp13 (world) ===== Message from gcc13-13.2.0_4: -- 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/gcc13 For ports leveraging USE_GCC, USES=compiler, or USES=fortran this happens transparently. ===> math77-6.0_10 depends on executable: gfortran13 - found ===> Returning to build of math77-6.0_10 ===> math77-6.0_10 depends on package: gmake>=4.4.1 - not found ===> Installing existing package /packages/All/gmake-4.4.1.pkg [pkg-builder.dan.net.uk] Installing gmake-4.4.1... [pkg-builder.dan.net.uk] Extracting gmake-4.4.1: .......... done ===> math77-6.0_10 depends on package: gmake>=4.4.1 - found ===> Returning to build of math77-6.0_10 ===> math77-6.0_10 depends on file: /usr/local/bin/as - found =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Configuring for math77-6.0_10 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Building for math77-6.0_10 gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o amach.o amach.f amach.f:521:61: 521 | PARAMETER (RM1 = (RBASE**(IM12/2)) * (RBASE**(IM12-IM12/2-1))) | 1 Warning: Integer division truncated to constant '-62' at (1) [-Winteger-division] amach.f:541:61: 541 | PARAMETER (DM1 = (DBASE**(IM15/2)) * (DBASE**(IM15-IM15/2-1))) | 1 Warning: Integer division truncated to constant '-510' at (1) [-Winteger-division] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o caxpy.o caxpy.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ccoef.o ccoef.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ccopy.o ccopy.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cdotc.o cdotc.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cdotu.o cdotu.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cgam.o cgam.f cgam.f:279:72: 279 | 210 VV1 = B + COEF(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) cgam.f:168:14: 168 | ITEMP = Z1 - 0.5e0 | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] cgam.f:196:11: 196 | N = B + ONE | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] cgam.f:207:11: 207 | K = 6.0E0 - Z2*0.6E0 - ZZ1 | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cgeco.o cgeco.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cged.o cged.f cged.f:89:13: 89 | K = min(log10(R1MACH(2)/TEN), -log10(R1MACH(1)*TEN)) / 2 | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cgefa.o cgefa.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cgefs.o cgefs.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cgefsc.o cgefsc.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cgei.o cgei.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cgesld.o cgesld.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cgeslt.o cgeslt.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cpolz.o cpolz.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cscal.o cscal.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o csort.o csort.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o csortp.o csortp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o csscal.o csscal.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cswap.o cswap.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o cwofz.o cwofz.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o daccum.o daccum.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dasinh.o dasinh.f dasinh.f:1:6: 1 | DOUBLE PRECISION FUNCTION DASINH(X) | 1 Warning: 'dasinh' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] dasinh.f:94:6: 94 | DOUBLE PRECISION FUNCTION DACOSH(X) | 1 Warning: 'dacosh' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] dasinh.f:113:6: 113 | DOUBLE PRECISION FUNCTION DATANH(X) | 1 Warning: 'datanh' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dasum.o dasum.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o daxpy.o daxpy.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbacc.o dbacc.f dbacc.f:144:72: 144 | do 10 J=1,NBP1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) dbacc.f:145:72: 145 | 10 G(IG1,J)=G(IG2,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dbacc.f:150:72: 150 | do 20 J=1,NBP1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) dbacc.f:151:72: 151 | 20 G(IG,J)=ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dbacc.f:169:72: 169 | 40 G(IG,I-K)=G(IG,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dbacc.f:171:72: 171 | do 50 JG = NBP1-K, NB | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1) dbacc.f:172:72: 172 | 50 G(IG,JG)=ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) dbacc.f:189:72: 189 | * G(JTPREV,min(I+1,NBP1)),LDG,NBP1-I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) dbacc.f:197:72: 197 | 90 G(IR-1,I)=ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbesj0.o dbesj0.f dbesj0.f:1:6: 1 | DOUBLE PRECISION FUNCTION DBESJ0 (X) | 1 Warning: 'dbesj0' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbesj1.o dbesj1.f dbesj1.f:1:6: 1 | DOUBLE PRECISION FUNCTION DBESJ1 (X) | 1 Warning: 'dbesj1' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbesjn.o dbesjn.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbespq.o dbespq.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbesy0.o dbesy0.f dbesy0.f:1:6: 1 | DOUBLE PRECISION FUNCTION DBESY0 (X) | 1 Warning: 'dbesy0' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbesy1.o dbesy1.f dbesy1.f:1:6: 1 | DOUBLE PRECISION FUNCTION DBESY1 (X) | 1 Warning: 'dbesy1' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbesyn.o dbesyn.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbi0k0.o dbi0k0.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbi1k1.o dbi1k1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbinom.o dbinom.f dbinom.f:164:16: 164 | I = .2199D0 * dble(NI) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dblse.o dblse.f dblse.f:309:72: 309 | 20008 ASSIGN 20010 TO NPR004 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:323:72: 323 | ASSIGN 20018 TO NPR005 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:327:72: 327 | 20017 ASSIGN 20019 TO NPR004 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:332:72: 332 | 20020 ASSIGN 20021 TO NPR004 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:524:72: 524 | ASSIGN 20070 TO NPR009 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:541:72: 541 | 20075 ASSIGN 20076 TO NPR012 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:554:72: 554 | 20074 ASSIGN 20079 TO NPR009 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:710:72: 710 | ASSIGN 20115 TO NPR014 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:730:19: 730 | GO TO NPR009,(20070,20079) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) dblse.f:800:72: 800 | ASSIGN 20126 TO NPR014 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:803:72: 803 | 20126 ASSIGN 20127 TO NPR012 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:1061:19: 1061 | 31012 GO TO NPR012,(20076,20127) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) dblse.f:1240:72: 1240 | 20232 ASSIGN 20235 TO NPR021 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:1245:72: 1245 | ASSIGN 20237 TO NPR021 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:1250:72: 1250 | ASSIGN 20238 TO NPR022 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:1284:72: 1284 | ASSIGN 20246 TO NPR005 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:1303:72: 1303 | ASSIGN 20252 TO NPR022 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:1306:19: 1306 | 20251 GO TO NPR021,(20235,20237) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) dblse.f:1375:19: 1375 | GO TO NPR022,(20238,20252) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) dblse.f:1437:72: 1437 | ASSIGN 20283 TO NPR004 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:1505:72: 1505 | ASSIGN 20308 TO NPR004 | 1 Warning: Deleted feature: ASSIGN statement at (1) dblse.f:1507:19: 1507 | 20308 GO TO NPR005,(20018,20246) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) dblse.f:1521:19: 1521 | GO TO NPR014,(20115,20126) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) dblse.f:1559:19: 1559 | GO TO NPR004,(20010,20019,20021,20283,20308) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) dblse.f:2:52: 2 | * KPRINT, TOL, IERR, X, RNORM, NSETS, W, SIZE, TNORM, | 1 Warning: Unused dummy argument 'size' at (1) [-Wunused-dummy-argument] dblse.f:289:20: 289 | logical HITBND, MOVEJF, MSG1 | ^ Warning: 'hitbnd' may be used uninitialized [-Wmaybe-uninitialized] dblse.f:269:34: 269 | integer BMODE, I, I1, IBOUND, ID, IERR | ^ Warning: 'ibound' may be used uninitialized [-Wmaybe-uninitialized] dblse.f:1290:15: 1290 | 20246 IF (.NOT.(M1P1 .le. IMAX-1 )) GO TO 20248 | ^ Warning: 'imax' may be used uninitialized [-Wmaybe-uninitialized] dblse.f:271:27: 271 | integer II, IIS, IMAX, INDEX(N), IS, ISNEW, IPUT, IPUT1, IPUT2 | ^ note: 'imax' was declared here dblse.f:1:22: 1 | subroutine DBLSE (A, LDA, MTRUE, N, M1TRUE, B, BND, UNBND, | ^ Warning: 'npr021.26' may be used uninitialized [-Wmaybe-uninitialized] dblse.f:544:72: 544 | KSTEP = KSTEP + 1 | ^ Warning: 'kstep' may be used uninitialized [-Wmaybe-uninitialized] dblse.f:275:27: 275 | integer KPRINT, KSTEP, L, LBOUND, LDA, LEN | ^ note: 'kstep' was declared here dblse.f:945:72: 945 | JSNEW = INDEX(ISNEW) | ^ Warning: 'isnew' may be used uninitialized [-Wmaybe-uninitialized] dblse.f:271:48: 271 | integer II, IIS, IMAX, INDEX(N), IS, ISNEW, IPUT, IPUT1, IPUT2 | ^ note: 'isnew' was declared here dblse.f:1517:72: 1517 | if(IIS .ne. NSETS) call DAXPY(IIS, -Z(IIS+1), A(1,JJS),1, Z,1) | ^ Warning: 'jjs' may be used uninitialized [-Wmaybe-uninitialized] dblse.f:273:34: 273 | integer J, JCOL, JD, JJ, JJS, JS, JPIV, JSNEW, JPUT | ^ note: 'jjs' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbmp0.o dbmp0.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbmp1.o dbmp1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dbsol.o dbsol.f dbsol.f:65:72: 65 | 20 X(J)=G(J,NB+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dbsol.f:71:72: 71 | 30 RSQ=RSQ+G(J,NB+1)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dbsol.f:91:72: 91 | 60 S=S+G(I,JG)*X(IX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) dbsol.f:95:72: 95 | 80 X(I)=(X(I)-S)/G(I,L+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) dbsol.f:107:72: 107 | 100 S=S+X(I)*G(I,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) dbsol.f:114:72: 114 | 120 X(J)=(X(J)-S)/G(J,L+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dc2bas.o dc2bas.f dc2bas.f:91:72: 91 | 20 U(IU)=SCALE*B(IB) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dc2bas.f:114:72: 114 | 80 P(I)= (XS-U(I))**3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) dc2bas.f:118:72: 118 | 100 P(I)=(XS-U(I))**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) dc2bas.f:122:72: 122 | 120 P(I)= XS-U(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) dc2bas.f:126:72: 126 | 140 P(I)= C36 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) dc2bas.f:135:72: 135 | 160 P(I)=(P(I+1)-P(I))/(U(I2)-U(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) dc2bas.f:136:72: 136 | 170 P(4)= -P(4)/(U(J+4)-U(4)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) dc2bas.f:139:72: 139 | 180 P(I)=P(I)*CS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dc2fit.o dc2fit.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcdchi.o dcdchi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcdnml.o dcdnml.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcdpoi.o dcdpoi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcft.o dcft.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dchol.o dchol.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dci.o dci.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dckder.o dckder.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcomqr.o dcomqr.f dcomqr.f:155:10: 155 | 300 IF (L .EQ. EN) GO TO 660 | ^ Warning: 'l' may be used uninitialized [-Wmaybe-uninitialized] dcomqr.f:19:40: 19 | INTEGER EN,ENM1,I,IERR,IGH,ITS,J,L,LL,LOW,LP1,N,NM | ^ note: 'l' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dconcm.o dconcm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dconmc.o dconmc.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcopy.o dcopy.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcos1.o dcos1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcoshm.o dcoshm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcospx.o dcospx.f dcospx.f:97:10: 97 | N = A | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcov2.o dcov2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcov3.o dcov3.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcpdrv.o dcpdrv.f dcpdrv.f:43:72: 43 | 20 FAC=FAC-TWO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dcpdrv.f:47:72: 47 | 40 D(K+2)=D(K+2)/D(2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcpint.o dcpint.f dcpint.f:38:72: 38 | 50 FAC=FAC-TWO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) dcpint.f:44:72: 44 | 70 B(K+2)=B(K+2)*B(2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcplte.o dcplte.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcpltk.o dcpltk.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcpval.o dcpval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcsevl.o dcsevl.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcshmm.o dcshmm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dcspxx.o dcspxx.f dcspxx.f:41:10: 41 | n = f | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dcspxx.f:46:10: 46 | n = g | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddas1.o ddas1.f ddas1.f:137:72: 137 | do 15 i=1,neq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 15 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddasco.o ddasco.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddasdb.o ddasdb.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddasf.o ddasf.f ddasf.f:1:47: 1 | subroutine DDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'c' at (1) [-Wunused-dummy-argument] ddasf.f:1:41: 1 | subroutine DDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'd' at (1) [-Wunused-dummy-argument] ddasf.f:1:39: 1 | subroutine DDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'delta' at (1) [-Wunused-dummy-argument] ddasf.f:1:52: 1 | subroutine DDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'ires' at (1) [-Wunused-dummy-argument] ddasf.f:1:45: 1 | subroutine DDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'ldd' at (1) [-Wunused-dummy-argument] ddasf.f:1:58: 1 | subroutine DDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'rwork' at (1) [-Wunused-dummy-argument] ddasf.f:1:24: 1 | subroutine DDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 't' at (1) [-Wunused-dummy-argument] ddasf.f:1:26: 1 | subroutine DDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'y' at (1) [-Wunused-dummy-argument] ddasf.f:1:33: 1 | subroutine DDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'yprime' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddasgh.o ddasgh.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddasin.o ddasin.f ddasin.f:55:72: 55 | 10 YPOUT(I)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) ddasin.f:65:72: 65 | 20 YPOUT(I)=YPOUT(I)+D*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddasj.o ddasj.f ddasj.f:176:72: 176 | 70 wm(nrow+l) = (e(l)-delta(l))*delinv | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) ddasj.f:245:72: 245 | 160 yprime(n) = yprime(n) + rwork(lcj)*del | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) ddasj.f:283:72: 283 | 190 wm(ii+i) = (e(i)-delta(i))*delinv | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddasls.o ddasls.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddaslv.o ddaslv.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddaslx.o ddaslx.f ddaslx.f:942:49: 942 | $ lerrbc, lerrbd, lerrbe, lerrbf, lerrbg | 1 Warning: Unused variable 'lerrbg' declared at (1) [-Wunused-variable] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddasnm.o ddasnm.f ddasnm.f:77:72: 77 | 20 SUM = SUM + ((V(I)*WT(I))/VMAX)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) ddasnm.f:1:64: 1 | DOUBLE PRECISION FUNCTION DDASNM (NEQ, V, WT, RWORK, IWORK) | 1 Warning: Unused dummy argument 'iwork' at (1) [-Wunused-dummy-argument] ddasnm.f:1:57: 1 | DOUBLE PRECISION FUNCTION DDASNM (NEQ, V, WT, RWORK, IWORK) | 1 Warning: Unused dummy argument 'rwork' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddastp.o ddastp.f ddastp.f:259:72: 259 | 60 phi(i,j) = beta(j)*phi(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) ddastp.f:287:72: 287 | 100 yprime(i) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) ddastp.f:291:72: 291 | 110 yprime(i) = yprime(i) + gamma(j)*phi(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) ddastp.f:360:72: 360 | 160 e(i) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) ddastp.f:370:72: 370 | 180 delta(i) = delta(i)*temp1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) ddastp.f:389:72: 389 | 200 yprime(i) = yprime(i) - rwork(lcj)*delta(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) ddastp.f:492:72: 492 | 270 e(i) = e(i) - delta(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) ddastp.f:496:72: 496 | 280 e(i) = e(i) - (sc/delnrm)*delta(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1) ddastp.f:593:72: 593 | 330 delta(i) = phi(i,k) + delta(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1) ddastp.f:647:72: 647 | 360 delta(i) = e(i) - phi(i,kp2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) ddastp.f:713:72: 713 | 450 phi(i,kp2) = e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 450 at (1) ddastp.f:716:72: 716 | 470 phi(i,kp1) = phi(i,kp1) + e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1) ddastp.f:742:72: 742 | 500 phi(i,j) = temp1*phi(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1) ddastp.f:746:72: 746 | 530 psi(i-1) = psi(i) - h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddaswt.o ddaswt.f ddaswt.f:1:67: 1 | SUBROUTINE DDASWT (NEQ, INFO, RTOL, ATOL, Y, WT, RWORK, IWORK) | 1 Warning: Unused dummy argument 'iwork' at (1) [-Wunused-dummy-argument] ddaswt.f:1:60: 1 | SUBROUTINE DDASWT (NEQ, INFO, RTOL, ATOL, Y, WT, RWORK, IWORK) | 1 Warning: Unused dummy argument 'rwork' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ddot.o ddot.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dei.o dei.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o delefi.o delefi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o delpii.o delpii.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o derf.o derf.f derf.f:1:6: 1 | double precision function DERF(X) | 1 Warning: 'derf' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] derf.f:93:6: 93 | double precision function DERFC(X) | 1 Warning: 'derfc' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o derfi.o derfi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o derm1.o derm1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o derv1.o derv1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o devbh.o devbh.f devbh.f:122:72: 122 | 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) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o devun.o devun.f devun.f:243:72: 243 | 2040 if (P - EVALR(IFLAG(I))) 2070, 2050, 2080 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) devun.f:244:72: 244 | 2050 if (abs(EVALI(K)) - abs(EVALI(IFLAG(I)))) 2070, 2060, 2080 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o devvun.o devvun.f devvun.f:331:72: 331 | if (Q) 710, 600, 800 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) devvun.f:468:72: 468 | do 880 I = LOW, IGH | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1) devvun.f:564:72: 564 | 2040 if (P - EVALR(IFLAG(I))) 2070, 2050, 2080 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) devvun.f:565:72: 565 | 2050 if (abs(EVALI(K)) - abs(EVALI(IFLAG(I)))) 2070, 2060, 2080 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) devvun.f:502:16: 502 | K = WORK(I) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dfft.o dfft.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dfmin.o dfmin.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dfrenl.o dfrenl.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgam1.o dgam1.f dgam1.f:166:72: 166 | IF (T) 30,10,20 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dgam1.f:230:72: 230 | IF (T) 300,100,200 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgami.o dgami.f dgami.f:331:72: 331 | IF (IOP - 4) 260,270,280 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dgami.f:221:19: 221 | M = TWOA | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgamma.o dgamma.f dgamma.f:1:6: 1 | double precision function DGAMMA(X) | 1 Warning: 'dgamma' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgbfa.o dgbfa.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgbsl.o dgbsl.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgeco.o dgeco.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dged.o dged.f dged.f:87:13: 87 | K = min(log10(D1MACH(2)/TEN), -log10(D1MACH(1)*TEN)) / 2 | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgefa.o dgefa.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgefs.o dgefs.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgefsc.o dgefsc.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgei.o dgei.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgemv.o dgemv.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgesl.o dgesl.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgesld.o dgesld.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgeslt.o dgeslt.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgr17.o dgr17.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dgr29.o dgr29.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dherql.o dherql.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dhfti.o dhfti.f dhfti.f:223:72: 223 | 60 A(I,LMAX) = TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) dhfti.f:254:72: 254 | 120 TMP = TMP + B(I,JB)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) dhfti.f:296:72: 296 | 220 B(J,JB) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) dhfti.f:299:72: 299 | * B(1,JB),LDB,1,COL) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dhint.o dhint.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dhtcc.o dhtcc.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dhtgen.o dhtgen.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dilup.o dilup.f dilup.f:456:72: 456 | if (ILI + 2) 1300, 1200, 100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dilup.f:464:72: 464 | if (XT(NTABI) - XT(1)) 110, 1220, 130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dilup.f:814:72: 814 | LEXERR = IOPT(I) | ^ Warning: 'i' may be used uninitialized [-Wmaybe-uninitialized] dilup.f:307:24: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'i' was declared here dilup.f:694:22: 694 | if (INDXED) then | ^ Warning: 'indxed' may be used uninitialized [-Wmaybe-uninitialized] dilup.f:306:29: 306 | logical INDXED, LBADPT, LINC, YTORD, SAVED | ^ note: 'indxed' was declared here dilup.f:693:19: 693 | if (IUI .le. NTABI) then | ^ Warning: 'ntabi' may be used uninitialized [-Wmaybe-uninitialized] dilup.f:308:70: 308 | 1 LDER, LNDEG, LOPT, N, NDEGE, NDEGI, NDEGQ, NTABI | ^ note: 'ntabi' was declared here dilup.f:671:72: 671 | 1020 KK = min(N - IUI - ILI, 2) - 1 | ^ Warning: 'iui' may be used uninitialized [-Wmaybe-uninitialized] dilup.f:307:41: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'iui' was declared here dilup.f:671:72: 671 | 1020 KK = min(N - IUI - ILI, 2) - 1 | ^ Warning: 'n' may be used uninitialized [-Wmaybe-uninitialized] dilup.f:308:42: 308 | 1 LDER, LNDEG, LOPT, N, NDEGE, NDEGI, NDEGQ, NTABI | ^ note: 'n' was declared here dilup.f:665:16: 665 | if (LNDEG .ne. 0) IOPT(LNDEG) = L | ^ Warning: 'lndeg' may be used uninitialized [-Wmaybe-uninitialized] dilup.f:308:33: 308 | 1 LDER, LNDEG, LOPT, N, NDEGE, NDEGI, NDEGQ, NTABI | ^ note: 'lndeg' was declared here dilup.f:527:25: 527 | if (abs(KK) .eq. 1) then | ^ Warning: 'kk' may be used uninitialized [-Wmaybe-uninitialized] dilup.f:307:63: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'kk' was declared here dilup.f:537:72: 537 | IDX(L) = K | ^ Warning: 'k' may be used uninitialized [-Wmaybe-uninitialized] dilup.f:307:48: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'k' was declared here dilup.f:928:10: 928 | if (IO .eq. 1) K = 6 | ^ Warning: 'io' may be used uninitialized [-Wmaybe-uninitialized] dilup.f:307:45: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'io' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dilupm.o dilupm.f dilupm.f:606:72: 606 | if (LDERIV .gt. 0) LEXIT = IOPT(IMAXD+KDIM) + 1 | ^ Warning: 'imaxd' may be used uninitialized [-Wmaybe-uninitialized] dilupm.f:327:54: 327 | integer I, IDXBAS, IEEOPT, IIFLG, IMAXD, INTCHK(0:20), | ^ note: 'imaxd' was declared here dilupm.f:569:72: 569 | IDXBAS = LERTMP+1 | ^ Warning: 'lertmp' may be used uninitialized [-Wmaybe-uninitialized] dilupm.f:329:53: 329 | 2 K, KC(MAXDIM), KDIM, KPTD(0:MAXDIM), L, LERTMP, LI, LT, | ^ note: 'lertmp' was declared here dilupm.f:706:47: 706 | 215 if ((KC(L) .eq. IOPT(IMAXD+L)) .or. (MXD .eq. 0)) then | ^ Warning: 'mtotd' may be used uninitialized [-Wmaybe-uninitialized] dilupm.f:330:32: 330 | 3 LICINF, LOPT, LUPC, MTOTD, NDIMI, NT, NTABM, NTABXT, | ^ note: 'mtotd' was declared here dilupm.f:755:72: 755 | IP(KDIM+1) = NTAB(KDIM) * IP(KDIM) + (IX -1) * IPRAG | ^ Warning: 'iprag' may be used uninitialized [-Wmaybe-uninitialized] dilupm.f:328:29: 328 | 1 IOP2N, IOPTI(3), IPRAG, IRAG, IX, IYBAS, IYDSAV, IYSAV, IYT, J, | ^ note: 'iprag' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dilupmd.o dilupmd.f dilupmd.f:1:34: 1 | subroutine DILUPMD (NDIM,X,Y,NTAB,XT,YT,NDEG,LUP,IOPT,EOPT) | 1 Warning: Unused dummy argument 'y' at (1) [-Wunused-dummy-argument] dilupmd.f:365:72: 365 | MACTIV(3) = LT - NTABXT - 2*NDIMI | ^ Warning: 'lt' may be used uninitialized [-Wmaybe-uninitialized] dilupmd.f:77:27: 77 | 1 L, LR(MAXDIM-1), LT, LX(MAXDIM), NDIMI, NTABM, NTABXT, | ^ note: 'lt' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dimql.o dimql.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dinits.o dinits.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dint1.o dint1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dinta.o dinta.f dinta.f:1259:72: 1259 | IF (ERR.GT.EPS) IF (DISCHK) 220,220,230 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1262:72: 1262 | IF (K-2) 220,220,230 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1378:72: 1378 | * IF (ENDPTS-2) 2750,2760,560 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1395:72: 1395 | IF (K-KAIMT-1) 2740,2740,670 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1398:72: 1398 | IF (ENDPTS-2) 2750,2760,600 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1506:72: 1506 | IF (ENDPTS-2) 2750,2760,2155 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1516:72: 1516 | 750 IF (ENDPTS-2) 2750,2760,760 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1521:72: 1521 | IF (ALOCAL-TA) 980,2240,980 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1580:72: 1580 | IF (JUMPS-3) 920,930,915 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1581:72: 1581 | 915 IF (J2-(NSUB+2)) 930,520,520 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1678:72: 1678 | IF (ABS(SEARCH)-3) 1060,1080,1100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1684:72: 1684 | IF (TPS.LE.0.01d0*S) IF (ERR-S) 2240, 2240, 1150 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1686:72: 1686 | IF (NSUB.NE.0) IF (ABS(XT(4)-ALOCAL)-DELMIN) 1150,1150,1440 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1736:72: 1736 | IF (TPS-S) 2670,2670,1350 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1738:72: 1738 | IF (SEARCH.EQ.3) IF (COUNT) 2237,2237,2190 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1777:72: 1777 | IF (SEARCH-4) 1240,1230,1240 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:1976:72: 1976 | IF (I-J-1) 1390,1450,1410 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2015:72: 2015 | IF (JUMPS.GE.3) IF (ABS(SEARCH)-4) 1555,1530,1555 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2016:72: 2016 | IF (SEARCH.EQ.2.OR.SEARCH.EQ.6) IF (LENDT-9) 1720,1680,1630 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2024:72: 2024 | IF (J1) 1610,1610,1640 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2029:72: 2029 | IF (J2) 1610,1610,1640 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2039:72: 2039 | IF (J2-1) 1580,1570,1640 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2041:72: 2041 | 1580 IF (J1-1) 1600,1590,1640 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2043:72: 2043 | 1600 IF (THROW.NE.0) IF (THROW-2) 1670,1680,1670 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2051:72: 2051 | IF (LENDT+1-J1OLD-J2OLD) 1670,1660,1680 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2134:72: 2134 | IF (KONVRG-6) 2060,2060,2130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2147:72: 2147 | IF (K-I) 100,1950,1960 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2148:72: 2148 | 1950 IF (ENDPTS-2) 2750,2760,1960 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2167:72: 2167 | IF (S.GT.EPS) IF (K-KAIMT) 2730,2050,2050 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2186:72: 2186 | IF (ENDPTS-2) 2750,2760,2235 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2202:72: 2202 | IF (ENDPTS-2) 2750,2760,2250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2210:72: 2210 | IF (ENDPTS-2) 2750,2760,2120 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2254:72: 2254 | IF (IC1+IC1+NSUB-12) 990,2690,2690 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2362:72: 2362 | IF (PART-1) 40,40,50 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2481:72: 2481 | IF (KONVRG-6) 100,100,2240 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2613:72: 2613 | 1 IF (KONVRG+KONVRG-LENDT) 2700,2700,1190 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2645:72: 2645 | 2740 IF (ENDPTS-2) 2750,2760,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dinta.f:2267:21: 2267 | IF (HAVDIF.AND.ABS(JUMPS-3).NE.1) GO TO 2200 | ^ Warning: 'jumps' may be used uninitialized [-Wmaybe-uninitialized] dinta.f:95:66: 95 | INTEGER NSRB,NSRA,NSIB,NSIA,MAXK,NSUBMX,KONVRG,IC1,IC2,JUMPS | ^ note: 'jumps' was declared here dinta.f:2481:72: 2481 | IF (KONVRG-6) 100,100,2240 | ^ Warning: 'konvrg' may be used uninitialized [-Wmaybe-uninitialized] dinta.f:95:52: 95 | INTEGER NSRB,NSRA,NSIB,NSIA,MAXK,NSUBMX,KONVRG,IC1,IC2,JUMPS | ^ note: 'konvrg' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dintdl.o dintdl.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dintdu.o dintdu.f dintdu.f:152:72: 152 | IF (WHERE-5) 200,40,10 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dintdu.f:178:72: 178 | IF (L-LENDT-1) 80,50,50 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dintf.o dintf.f dintf.f:1:42: 1 | SUBROUTINE DINTF (ANSWER, WORK, IOPT) | 1 Warning: Unused dummy argument 'iopt' at (1) [-Wunused-dummy-argument] dintf.f:1:36: 1 | SUBROUTINE DINTF (ANSWER, WORK, IOPT) | 1 Warning: Unused dummy argument 'work' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dintm.o dintm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dintma.o dintma.f dintma.f:463:72: 463 | IF (IFLAG(1)) 80,100,110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dintns.o dintns.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dinto.o dinto.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dintop.o dintop.f dintop.f:234:72: 234 | 10 JPRINT=10*JPRINT+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dintsm.o dintsm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o diva.o diva.f diva.f:1387:72: 1387 | if (J - NTE) 470, 565, 620 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1402:72: 1402 | if (J - NTE) 500, 565, 620 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1403:72: 1403 | 500 if (J) 510, 530, 540 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1627:72: 1627 | 660 if (KORD2I) 670, 1380, 1840 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1630:72: 1630 | if (KORD2I+8) 1840, 710, 1840 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1737:72: 1737 | if (ICF) 1360, 780, 1360 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1742:72: 1742 | if (KORD2I .eq. 0) if (EREP) 2220, 2220, 1430 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1744:72: 1744 | if (LINC + 5) 1490, 810, 1490 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1752:72: 1752 | 820 Y(NYNY + J - 1) = Y(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 820 at (1) diva.f:1766:72: 1766 | 840 if (HH * (TMARK - TN)) 1760, 1760, 850 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1802:72: 1802 | if (LINC .lt. 0) if (LINC + 6) 1860, 1750, 1180 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1808:72: 1808 | if (LINC) 930, 980, 940 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1812:72: 1812 | if (LINC + 5) 1120, 1110, 1120 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1820:72: 1820 | if (abs(HH) .gt. HMAX) if (HMAX) 970, 970, 960 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1839:72: 1839 | if ((EIMAX * EMAX) - C1M3) 1000, 1010, 1010 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1854:72: 1854 | if (LSC - 1) 1040, 1080, 1090 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1856:72: 1856 | if (abs(CP875*XI(1)) .le. HMIN) if (LINC) 1050, 970, 970 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1868:72: 1868 | if (KORD1I - 2) 1420, 1430, 1430 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1877:72: 1877 | if (LINC + 4) 1780, 1180, 1110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2002:72: 2002 | if (KORD1I - 2) 1400, 800, 1390 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2005:72: 2005 | if (ICS - ICF) 1410, 1410, 760 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2029:72: 2029 | if (EMAX .gt. EREP) if (EREP) 2210, 2210, 1670 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2038:72: 2038 | if (LSC) 1450, 1360, 1610 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2045:72: 2045 | 1460 if (METHOD) 800, 1350, 1350 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2066:72: 2066 | if (LINC + 9) 1510, 1520, 1500 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2075:72: 2075 | if ((C16 * TPS1 * TPS2) .ge. DNOISE) if (LINC + 9) 1550, 870, 1550 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2102:72: 2102 | if (LINC + 7) 1180, 1570, 1180 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2104:72: 2104 | 1580 if (LSC) 1460, 1460, 1610 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2125:72: 2125 | if (LSC - 2) 1620, 1640, 1650 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2144:72: 2144 | if (LSC - 4) 1260, 1630, 1260 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2149:72: 2149 | 1670 if (BETA(2) - C1) 1690, 1730, 1680 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2197:72: 2197 | if (KORD1I) 1800, 730, 1810 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2210:72: 2210 | if (IOP7) 740, 1820, 740 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2236:72: 2236 | 1870 if (KORD(1)) 2130, 700, 2100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2244:72: 2244 | 1890 if (KORD1I - 5) 1910, 1930, 1900 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2245:72: 2245 | 1900 if (KORD1I - 8) 840, 1130, 910 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2246:72: 2246 | 1910 if (KORD1I - 3) 1920, 1930, 880 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2255:72: 2255 | if (IOP5) 1940, 1980, 1970 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2259:72: 2259 | if (J1) 1950, 1980, 1960 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2276:72: 2276 | if (LEX) 2020, 2030, 2020 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2279:72: 2279 | 2020 if (HH * (TSPECS(J) - TMARKA(LX))) 2030, 2060, 2060 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2281:72: 2281 | if (HH * (TSPECS(J) - XP)) 2060, 2040, 2050 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2291:72: 2291 | if (HH * (XP - TMARK)) 2070, 2080, 2090 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2292:72: 2292 | 2070 if (KORD2I - 1) 670, 840, 670 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2318:72: 2318 | 2140 if (KORD1I - 2) 2150, 1560, 2160 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2321:72: 2321 | 2160 if (KORD1I - 4) 1700, 2200, 2170 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2322:72: 2322 | 2170 if (KORD1I - 13) 2180, 1930, 2190 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2323:72: 2323 | 2180 if (abs(HH) .ge. HMIN) if (KORD1I - 11) 1030, 1450, 1030 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2324:72: 2324 | if (KORD(2) .eq. 0) if (KORD1I - 11) 1070, 800, 1070 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2331:72: 2331 | if (KORD(2)) 1710, 1730, 1100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2553:72: 2553 | if (I - IOP11 - 1) 2420, 2440, 2450 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2558:72: 2558 | 2430 XI(K - 1) = XI(K) - TPD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2430 at (1) diva.f:2817:72: 2817 | if (I .le. ILGREP) if (KQL) 2600, 3310, 2610 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2829:72: 2829 | if (JLGREP + 1) 2540, 2570, 2510 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2831:72: 2831 | 2510 if (EPS + C1) 2520, 2590, 2520 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2857:72: 2857 | 2590 if (KQL) 2600, 3330, 2610 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2906:72: 2906 | if (LSC .le. 2) if (KQL - 2) 2660, 2710, 2710 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2911:72: 2911 | if (LSC - 4) 2650, 2640, 2620 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2926:72: 2926 | if (S + CP125) 2630, 2700, 2700 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2965:72: 2965 | if (RNOISE .gt. RBQ(KQD)) if (RNOISE - C1) 2760, 2750, 2750 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:2970:72: 2970 | if (TPS5 .lt. abs(E)) if (LSC) 2730, 2730, 2760 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3031:72: 3031 | if (I .gt. 1) if (I - ILGROR) 2900, 2900, 2830 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3038:72: 3038 | if (JLGROR + 1) 2840, 2850, 2890 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3039:72: 3039 | 2840 if (JLGROR .lt. -2) if (KQD + JLGROR) 2850, 2880, 2880 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3044:72: 3044 | 2860 TEMPAO(K) = abs(TEMPA(K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2860 at (1) diva.f:3051:72: 3051 | 2890 if (KQL) 3240, 3270, 3270 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3053:72: 3053 | 2900 if (JLGROR) 2910, 2890, 3090 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3056:72: 3056 | 2920 TEMPAO(K) = TEMPAO(K) + abs(TEMPA(K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2920 at (1) diva.f:3058:72: 3058 | 2930 if (I .ne. ILGROR) if (KQL) 3310, 3290, 3290 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3062:72: 3062 | 2940 TEMPA(K) = TEMPAO(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2940 at (1) diva.f:3069:72: 3069 | if (KQN - abs(KQL)) 2960, 2980, 3020 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3071:72: 3071 | 2960 if (JLGROR .ge. -2) if (KQL) 3010, 3040, 3040 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3075:72: 3075 | 2980 if ((KQL .ne. 1) .or. (LSC .gt. 0)) if (KQL) 3030, 3040, 3040 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3079:72: 3079 | 3000 F(NDTF + K*NUMDT - NUMDT + 3) = C0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3000 at (1) diva.f:3107:72: 3107 | if (KQN - KQL) 3050, 3070, 3060 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3112:72: 3112 | 3080 LL = LL + NUMDT | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3080 at (1) diva.f:3113:72: 3113 | if (KQN - 1) 3270, 2990, 3270 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3120:72: 3120 | if (LSC - 3) 3110, 3210, 3100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3121:72: 3121 | 3100 if (LSC .eq. 5) if (S + .125D0) 3160, 3130, 3130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3122:72: 3122 | if (LSC - 6) 3130, 3130, 3210 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3127:72: 3127 | 1 3130, 3130, 3210 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3138:72: 3138 | if (KQL) 3230, 2950, 3250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3146:72: 3146 | if (KQN - 2) 3210, 3160, 3180 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3149:72: 3149 | if (KQL) 3220, 2950, 3170 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3157:72: 3157 | if (KQL) 3220, 2950, 3200 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3164:72: 3164 | if (KQL) 3240, 2950, 3270 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3234:72: 3234 | 1 3310, 3310, 3300 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3358:40: 3358 | double precision GG(MAXORD - 1 + 1/MAXORD), B(KDIM+MAXORD), | 1 Warning: Integer division truncated to constant '0' at (1) [-Winteger-division] diva.f:3465:72: 3465 | 3480 TP = TP * CP5625 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3480 at (1) diva.f:3497:72: 3497 | 3520 V(K) = V(K) - ALPHA(N) * V(K + 1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3520 at (1) diva.f:3541:72: 3541 | 3570 W(K) = V(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3570 at (1) diva.f:3547:72: 3547 | 3590 W(K) = V(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3590 at (1) diva.f:3555:72: 3555 | 3650 W(K) = W(K) - ALPHA(N) * W(K + 1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3650 at (1) diva.f:3682:72: 3682 | if (L) 3710, 3730, 3780 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3683:72: 3683 | 3710 if (L + 2) 4170, 3730, 3720 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3698:72: 3698 | 3750 F(J) = F(J) + TP1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3750 at (1) diva.f:3711:72: 3711 | if (GAMMA(1)) 3790, 3800, 3810 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3714:72: 3714 | if (abs(HI) - abs(T(2))) 3820, 3820, 4180 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3717:72: 3717 | 3810 if (GAMMA(1) .gt. C2) if (LDT - 2) 4180, 3820, 3820 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3725:72: 3725 | 3830 GAMMA(N) = (HI + XI(N-1)) / XI(N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3830 at (1) diva.f:3728:72: 3728 | if (INTEG .le. 0) if (INTEG + MAXDIF) 4160, 3950, 3950 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3744:72: 3744 | 3870 ETA(N) = HI / XI(N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3870 at (1) diva.f:3752:72: 3752 | 3890 C(N) = ETA(N - INTEG) * C(N) + C(N - 1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3890 at (1) diva.f:3755:72: 3755 | 3910 C(N) = ETA(N - INTEG) * C(N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3910 at (1) diva.f:3762:72: 3762 | 3930 C(INTEG+N) = GAMMA(N)*C(INTEG+N-1) - ETA(N)*C(INTEG+N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3930 at (1) diva.f:3772:72: 3772 | 3960 C(N + 1) = GAMMA(N) * C(N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3960 at (1) diva.f:3773:72: 3773 | if (INTEG + 1) 3970, 3990, 4010 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3790:72: 3790 | 4000 C(N + 1) = (TP1*C(N)) / XI(N - INTEG) + GAMMA(N - INTEG) * C(N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4000 at (1) diva.f:3825:72: 3825 | if (KQQ) 4030, 4130, 4040 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3862:72: 3862 | 4040 if (LNOTM1) if (IYI) 4050, 4060, 4130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3878:72: 3878 | if (INTEG) 4080, 4090, 4100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:3901:72: 3901 | if (INTEG .ge. -MAXDIF) if (INTEG) 3990, 3950, 3920 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4046:72: 4046 | if (IA .le. 21) if (I) 4220, 4520, 4280 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4057:72: 4057 | 4210 IOPTC(J) = IOPTS(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4210 at (1) diva.f:4068:72: 4068 | if (IA - 2) 4400, 4240, 4230 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4090:72: 4090 | if (INCOP(IA) - 2) 4290, 4330, 4300 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4093:72: 4093 | if (IA - 2) 4400, 4400, 4390 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4097:72: 4097 | if (NOUTKO) 4500, 4350, 4350 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4100:72: 4100 | if (NTOLF) 4500, 4500, 4350 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4123:72: 4123 | if (J + 1) 4500, 4370, 4380 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4156:72: 4156 | if (J) 4450, 4470, 4460 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4180:72: 4180 | if (I - 1111) 4400, 4270, 4400 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4288:72: 4288 | if (KQQ) 4530, 4520, 4540 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4310:72: 4310 | if (LDT .ne. 0) if (K - KSC) 4570, 4570, 4550 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4313:72: 4313 | if (K - KSC) 4610, 4610, 4590 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:4389:72: 4389 | if (K) 4670, 4670, 4630 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1236:5: 1236 | 90 METHOD = 0 | 1 Warning: Label 90 at (1) defined but not used [-Wunused-label] diva.f:1209:5: 1209 | 70 if ((KORDI .gt. MAXORD) .or. (KORDI .le. 0)) then | 1 Warning: Label 70 at (1) defined but not used [-Wunused-label] diva.f:1207:5: 1207 | 60 KQQ = 1 | 1 Warning: Label 60 at (1) defined but not used [-Wunused-label] diva.f:1957:5: 1957 | 1290 continue | 1 Warning: Label 1290 at (1) defined but not used [-Wunused-label] diva.f:1945:5: 1945 | 1270 KQMAXD = 0 | 1 Warning: Label 1270 at (1) defined but not used [-Wunused-label] diva.f:2545:5: 2545 | 2400 F(L + KQQ + 1) = F(L + KQQ + 1) / BETA(KQQ + 1) | 1 Warning: Label 2400 at (1) defined but not used [-Wunused-label] diva.f:2525:5: 2525 | 2310 if (KQQ .gt. 2) then | 1 Warning: Label 2310 at (1) defined but not used [-Wunused-label] diva.f:3425:12: 3424 | do 3440 K = 3, MAXINT | 2 3425 | GG(K - 1) = G(1, K - 1) * TP1 | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) diva.f:3426:14: 3424 | do 3440 K = 3, MAXINT | 2 3425 | GG(K - 1) = G(1, K - 1) * TP1 3426 | G(1, K) = GG(K - 1) / dble(K) | 1 Warning: Array reference at (1) out of bounds (3 > 2) in loop beginning at (2) diva.f:3426:22: 3424 | do 3440 K = 3, MAXINT | 2 3425 | GG(K - 1) = G(1, K - 1) * TP1 3426 | G(1, K) = GG(K - 1) / dble(K) | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) diva.f:2964:5: 2964 | 2720 RNOISE = RND / TPS5 | 1 Warning: Label 2720 at (1) defined but not used [-Wunused-label] diva.f:3718:72: 3718 | 3820 KQMXI = KQMAXI + INTERP - 1 | ^ Warning: 'interp' may be used uninitialized [-Wmaybe-uninitialized] diva.f:3636:33: 3636 | integer I, ICI, IDT, INTERP, INTEG, INTEGZ, IY, IYI, IYN, IYNI, J, | ^ note: 'interp' was declared here diva.f:3738:72: 3738 | INTEG = INTEG + KQMXI | ^ Warning: 'kqmxi' may be used uninitialized [-Wmaybe-uninitialized] diva.f:3637:18: 3637 | 1 K, KQMXI, KQMXS, KQQ, L, N | ^ note: 'kqmxi' was declared here diva.f:3636:62: 3636 | integer I, ICI, IDT, INTERP, INTEG, INTEGZ, IY, IYI, IYN, IYNI, J, | ^ Warning: 'iyn' may be used uninitialized [-Wmaybe-uninitialized] diva.f:3031:72: 3031 | if (I .gt. 1) if (I - ILGROR) 2900, 2900, 2830 | ^ Warning: 'ilgror' may be used uninitialized [-Wmaybe-uninitialized] diva.f:2709:55: 2709 | integer L, I, KQL, KQN, KQD, JLGREP, J, K, ILGROR, ITOLOR, JLGROR, | ^ note: 'ilgror' was declared here diva.f:3053:72: 3053 | 2900 if (JLGROR) 2910, 2890, 3090 | ^ Warning: 'jlgror' may be used uninitialized [-Wmaybe-uninitialized] diva.f:2709:71: 2709 | integer L, I, KQL, KQN, KQD, JLGREP, J, K, ILGROR, ITOLOR, JLGROR, | ^ note: 'jlgror' was declared here diva.f:3033:72: 3033 | 2830 JLGROR = KORD(ITOLOR) | ^ Warning: 'itolor' may be used uninitialized [-Wmaybe-uninitialized] diva.f:2709:63: 2709 | integer L, I, KQL, KQN, KQD, JLGREP, J, K, ILGROR, ITOLOR, JLGROR, | ^ note: 'itolor' was declared here diva.f:3104:72: 3104 | 3040 LL = NDTF + NUMDT * IORD - NUMDT | ^ Warning: 'iord' may be used uninitialized [-Wmaybe-uninitialized] diva.f:2710:13: 2710 | 1 IORD, KOUTKO, KQLORD, LL, LKQMAX | ^ note: 'iord' was declared here diva.f:3069:72: 3069 | if (KQN - abs(KQL)) 2960, 2980, 3020 | ^ Warning: 'kqlord' may be used uninitialized [-Wmaybe-uninitialized] diva.f:2710:29: 2710 | 1 IORD, KOUTKO, KQLORD, LL, LKQMAX | ^ note: 'kqlord' was declared here diva.f:4155:72: 4155 | 4430 IOPTS(12) = J * MULTJ | ^ Warning: 'j' may be used uninitialized [-Wmaybe-uninitialized] diva.f:3986:55: 3986 | integer IOPTS(23), INCOP(22), IOPTC(23), I, IA, J, K, LIOPT, MULTJ | ^ note: 'j' was declared here diva.f:1147:72: 1147 | INTCHK(6) = IHI + IOP5 | ^ Warning: 'ihi' may be used uninitialized [-Wmaybe-uninitialized] diva.f:994:17: 994 | integer IHI, JL, J, ILOW, K, KQQ, JLIM, KFERR | ^ note: 'ihi' was declared here diva.f:1425:72: 1425 | INTCHK(NXTCHK-1) = IHI - ILOW + 1 | ^ Warning: 'ilow' may be used uninitialized [-Wmaybe-uninitialized] diva.f:994:30: 994 | integer IHI, JL, J, ILOW, K, KQQ, JLIM, KFERR | ^ note: 'ilow' was declared here diva.f:1407:72: 1407 | IDAT(2) = JLIM | ^ Warning: 'jlim' may be used uninitialized [-Wmaybe-uninitialized] diva.f:994:44: 994 | integer IHI, JL, J, ILOW, K, KQQ, JLIM, KFERR | ^ note: 'jlim' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o divadb.o divadb.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o divag.o divag.f divag.f:115:72: 115 | if (IGFLG - 3) 10, 80, 70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:116:72: 116 | 10 if (IGFLG - 1) 20, 210, 60 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:131:72: 131 | 50 GT(I) = GNEW(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) divag.f:146:72: 146 | if (INGS .gt. NG) if (IGFLG - 4) 400, 380, 480 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:147:72: 147 | if (GNEW(INGS)) 90, 100, 110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:148:72: 148 | 90 if (GT(INGS)) 120, 120, 130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:149:72: 149 | 100 if (GT(INGS)) 130, 80, 130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:150:72: 150 | 110 if (GT(INGS)) 130, 120, 120 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:184:72: 184 | if (HH * (TSPECS(1) - TMARK)) 200, 200, 190 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:202:72: 202 | 210 if (IZFLAG - 1) 350, 220, 310 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:215:72: 215 | if (TSPECS(1) - TOLD) 270, 300, 280 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:216:72: 216 | 270 if (HH) 290, 300, 300 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:217:72: 217 | 280 if (HH) 300, 300, 290 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:223:72: 223 | if (GNEW(INGS)) 320, 340, 330 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:224:72: 224 | 320 if (GT(INGS)) 340, 360, 360 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divag.f:225:72: 225 | 330 if (GT(INGS)) 360, 360, 340 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o divset.o divset.f divset.f:428:72: 428 | 70 X(I) = T*X(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) divset.f:666:72: 666 | 20 T = max(T, abs(DR(K,I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) divset.f:1179:72: 1179 | 10 W(I) = T * WCHMTD(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) divset.f:1183:72: 1183 | 20 U(I) = T*W(I) + Y(I) - SIZE*U(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) divset.f:1392:72: 1392 | IF (KA) 10, 20, 370 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) divset.f:1443:72: 1443 | 100 W(I) = G(I)/D(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) divset.f:1468:72: 1468 | 120 W(I) = ONE | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) divset.f:1572:72: 1572 | 250 STEP(K) = STEP(K)/DFAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) divset.f:1614:72: 1614 | 340 STEP(I) = STEP(I) / sqrt(W(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) divset.f:1653:72: 1653 | 400 STEP(I) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1) divset.f:1942:72: 1942 | 40 W(I) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) divset.f:2096:72: 2096 | 230 W(I) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) divset.f:2225:72: 2225 | 350 W(I) = T*W(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1) divset.f:2230:72: 2230 | 360 W(I) = T2*W(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) divset.f:2472:72: 2472 | 50 X(I) = T*X(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) divset.f:3187:72: 3187 | 400 WRITE(PU,'(1X,I5,g17.6,g14.3)') I, X(I), D(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1) divset.f:3227:72: 3227 | 480 WRITE(PU,490) I, X(I), D(I), G(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 480 at (1) divset.f:3248:72: 3248 | 10 X(I) = Y(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) divset.f:3465:72: 3465 | 10 W(I) = A*X(I) + Y(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) divset.f:3480:72: 3480 | 10 Y(I) = X(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) divset.f:3495:72: 3495 | 10 X(I) = A * Y(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) divset.f:3510:72: 3510 | 10 Y(I) = SS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) divset.f:2208:10: 2208 | IF (KA .GE. KAMIN) GO TO 340 | ^ Warning: 'kamin' may be used uninitialized [-Wmaybe-uninitialized] divset.f:1825:32: 1825 | 1 J, K, KALIM, KAMIN, K1, LK0, PHIPIN, Q, Q0, UK0, X | ^ note: 'kamin' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o djacg.o djacg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dlasum.o dlasum.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dlesum.o dlesum.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dlgama.o dlgama.f dlgama.f:1:6: 1 | double precision function DLGAMA(X) | 1 Warning: 'dlgama' declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dlnrel.o dlnrel.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dmatp.o dmatp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dmatpr.o dmatpr.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dmess.o dmess.f dmess.f:219:17: 219 | KSMA = -log10(FSMA) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dmess.f:222:15: 222 | KBIG = log10(FBIG) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dmess.f:215:72: 215 | IWF = IWF + NEG | ^ Warning: 'neg' may be used uninitialized [-Wmaybe-uninitialized] dmess.f:117:68: 117 | integer ICOL, ID, J, K, KSMA, KBIG, KEXE, LDFDEF, NEG | ^ note: 'neg' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dmlc.o dmlc.f dmlc.f:506:72: 506 | 20 IACT(MTOT)=K | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dmlc.f:637:72: 637 | 10 AM(I)=A(KEQ,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dmlc.f:643:72: 643 | 30 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dmlc.f:648:72: 648 | 40 AM(I)=AM(I)-VMULT*A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dmlc.f:704:72: 704 | 40 XBIG(I)=max(XBIG(I),abs(X(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dmlc.f:940:72: 940 | 50 SUM=SUM+abs(D(I)*GS(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) dmlc.f:952:72: 952 | 60 XBIG(I)=max(XBIG(I),abs(X(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) dmlc.f:1002:72: 1002 | 10 G(I)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dmlc.f:1019:72: 1019 | 20 RESABS=RESABS+abs(XBIG(I)*A(J,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dmlc.f:1042:72: 1042 | 30 SUM=SUM+abs(X(I)*A(J,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dmlc.f:1077:72: 1077 | 40 G(I)=G(I)+A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dmlc.f:1131:72: 1131 | 20 GM(I)=G(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dmlc.f:1142:72: 1142 | 40 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dmlc.f:1154:72: 1154 | 50 GM(I)=GM(I)-TEMP*A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) dmlc.f:1229:72: 1229 | 20 SUM=SUM+ZTG(J)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dmlc.f:1250:72: 1250 | 40 GMNEW(I)=GM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dmlc.f:1256:72: 1256 | 60 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) dmlc.f:1263:72: 1263 | 70 GMNEW(I)=GMNEW(I)-TEMP*A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) dmlc.f:1292:72: 1292 | 90 PAR(K)=min(THETA*PARNEW(K)+RATIO*PAR(K),0.0D0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) dmlc.f:1294:72: 1294 | 100 GM(I)=THETA*GMNEW(I)+RATIO*GM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) dmlc.f:1301:72: 1301 | 110 PAR(K)=PAR(K+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) dmlc.f:1389:72: 1389 | 30 X(I)=XS(I)+STEP*D(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dmlc.f:1428:72: 1428 | 50 GOPT(I)=G(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) dmlc.f:1492:72: 1492 | 80 G(I)=GOPT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) dmlc.f:1517:72: 1517 | 10 ZZDIAG(I)=ZZDIAG(I)+Z(IZ+J)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dmlc.f:1518:72: 1518 | 20 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dmlc.f:1533:72: 1533 | 40 SUMD=SUMD+ZZDIAG(I)*A(J,I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dmlc.f:1568:72: 1568 | 60 GMNEW(I)=A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) dmlc.f:1572:72: 1572 | 70 GMNEW(I)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) dmlc.f:1588:72: 1588 | 90 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) dmlc.f:1593:72: 1593 | 100 GMNEW(I)=GMNEW(I)-TEMP*A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) dmlc.f:1610:72: 1610 | 110 SUMABS=SUMABS+abs(TEMP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) dmlc.f:1664:72: 1664 | 10 RESBIG=RESBIG+abs(TEMPA)*XBIG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dmlc.f:1693:72: 1693 | 20 XBIG(I)=max(XBIG(I),abs(X(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dmlc.f:1744:72: 1744 | 10 ZTC(J)=TEMP*Z(IZNBD+J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dmlc.f:1750:72: 1750 | 20 CGRAD(I)=A(ICON,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dmlc.f:1754:72: 1754 | DO 30 I=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) dmlc.f:1756:72: 1756 | 30 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dmlc.f:1785:72: 1785 | 50 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) dmlc.f:1802:72: 1802 | 60 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) dmlc.f:1810:72: 1810 | 70 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) dmlc.f:1830:72: 1830 | 80 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) dmlc.f:1865:72: 1865 | 10 RESABS=RESABS+abs(A(J,I)*XBIG(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dmlc.f:1887:72: 1887 | 30 XBIG(I)=abs(X(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dmlc.f:1921:72: 1921 | 10 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dmlc.f:1951:72: 1951 | 20 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dmlc.f:1968:72: 1968 | 30 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dmlc.f:1976:72: 1976 | 40 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dmlc.f:2048:72: 2048 | 30 Z(I)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dmlc.f:2062:72: 2062 | 40 XBIG(I)=abs(X(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dmlc.f:2083:72: 2083 | 10 RESKT(I)=G(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dmlc.f:2100:72: 2100 | 30 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dmlc.f:2142:72: 2142 | 60 SSQKT=SSQKT+RESKT(I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) dmlc.f:2150:72: 2150 | 70 PARW(K)=PAR(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) dmlc.f:2152:72: 2152 | 80 RESKTW(I)=RESKT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) dmlc.f:2161:72: 2161 | 90 PAR(K)=PARW(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) dmlc.f:2163:72: 2163 | 100 RESKT(I)=RESKTW(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) dmlc.f:2172:72: 2172 | 110 SSQKT=SSQKT+G(I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) dmlc.f:2214:72: 2214 | 10 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dmlc.f:2216:72: 2216 | 20 ZTG(J)=SUM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dmlc.f:2227:72: 2227 | 30 SUMABS=SUMABS+abs(TEMP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dmlc.f:2230:72: 2230 | 40 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dmlc.f:2238:72: 2238 | 50 SUMABS=SUMABS+abs(TEMP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) dmlc.f:2325:72: 2325 | 90 SP=SP+D(I)*A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) dmlc.f:2359:72: 2359 | 10 DG=DG+GS(I)*XS(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dmlc.f:2378:72: 2378 | 30 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dmlc.f:2399:72: 2399 | 40 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dmlc.f:2407:72: 2407 | 50 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) dmlc.f:2414:72: 2414 | 60 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) dmlc.f:2420:72: 2420 | 70 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) dmlc.f:1813:72: 1813 | Z(IZ)=Z(IZ)-SUM/CGRAD(IPIV) | ^ Warning: 'ipiv' may be used uninitialized [-Wmaybe-uninitialized] dmlc.f:1721:35: 1721 | integer I, ICON, INEWBD, IPIV, IZ, IZNBD, J, JP, NP | ^ note: 'ipiv' was declared here dmlc.f:1978:72: 1978 | IZ=IPIV*N-N+JP | ^ Warning: 'ipiv' may be used uninitialized [-Wmaybe-uninitialized] dmlc.f:1897:32: 1897 | integer I, IBD, ICON, IPIV, ISAVE, IZ, IZBD, J, JP, NM | ^ note: 'ipiv' was declared here dmlc.f:1952:72: 1952 | Z(IZBD+JP)=0.0D0 | ^ Warning: 'izbd' may be used uninitialized [-Wmaybe-uninitialized] dmlc.f:1897:49: 1897 | integer I, IBD, ICON, IPIV, ISAVE, IZ, IZBD, J, JP, NM | ^ note: 'izbd' was declared here dmlc.f:1231:14: 1231 | IF (ITEST .EQ. 1) GOTO 120 | ^ Warning: 'itest' may be used uninitialized [-Wmaybe-uninitialized] dmlc.f:1208:29: 1208 | integer I, IDROP, ITEST, IZ, J, JM, K, KU, MP, NP | ^ note: 'itest' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dmpdrv.o dmpdrv.f dmpdrv.f:40:72: 40 | 20 d(i)=c(i+1)*fac/d(2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dmpint.o dmpint.f dmpint.f:39:72: 39 | 30 B(I+1)=B(2)*A(I)/DIV | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dmpval.o dmpval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dnlafb.o dnlafb.f dnlafb.f:112:72: 112 | IF (IV(1)-2) 30, 50, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dnlafu.o dnlafu.f dnlafu.f:120:72: 120 | IF (IV(1)-2) 30, 50, 100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dnlagb.o dnlagb.f dnlagb.f:130:72: 130 | IF (IV(1)-2) 30, 50, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dnlagu.o dnlagu.f dnlagu.f:173:72: 173 | IF (IV(1)-2) 30, 50, 60 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dnlsfb.o dnlsfb.f dnlsfb.f:237:72: 237 | IF (IV(1)-2) 140, 150, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dnlsfb.f:288:72: 288 | 210 IV(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) dnlsfb.f:175:72: 175 | IWA1 = IN1 + INLEN | ^ Warning: 'inlen' may be used uninitialized [-Wmaybe-uninitialized] dnlsfb.f:69:52: 69 | 1 GRP2, I, I1, IN0, IN1, IN2, INI, INLEN, IPNTR1, IV1, IWA1, | ^ note: 'inlen' was declared here dnlsfb.f:213:10: 213 | IF (IV1 .EQ. 13) GO TO 999 | ^ Warning: 'iv1' may be used uninitialized [-Wmaybe-uninitialized] dnlsfb.f:69:65: 69 | 1 GRP2, I, I1, IN0, IN1, IN2, INI, INLEN, IPNTR1, IV1, IWA1, | ^ note: 'iv1' was declared here dnlsfb.f:154:72: 154 | IV(NEXTV) = IV(XSAVE) + P + RSVLEN | ^ Warning: 'rsvlen' may be used uninitialized [-Wmaybe-uninitialized] dnlsfb.f:71:50: 71 | 3 NGRP1, NGRP2, RSAVE0, RSAVE1, RSVLEN, X0I, XSAVE0, XSAVE1 | ^ note: 'rsvlen' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dnlsfu.o dnlsfu.f dnlsfu.f:226:72: 226 | IF (IV(1)-2) 140, 150, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dnlsfu.f:267:72: 267 | 180 IV(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) dnlsfu.f:166:72: 166 | IWA1 = IN1 + INLEN | ^ Warning: 'inlen' may be used uninitialized [-Wmaybe-uninitialized] dnlsfu.f:72:52: 72 | 1 GRP2, I, I1, IN0, IN1, IN2, INI, INLEN, IPNTR1, IV1, IWA1, | ^ note: 'inlen' was declared here dnlsfu.f:202:10: 202 | IF (IV1 .EQ. 13) GO TO 999 | ^ Warning: 'iv1' may be used uninitialized [-Wmaybe-uninitialized] dnlsfu.f:72:65: 72 | 1 GRP2, I, I1, IN0, IN1, IN2, INI, INLEN, IPNTR1, IV1, IWA1, | ^ note: 'iv1' was declared here dnlsfu.f:146:72: 146 | IV(NEXTV) = IV(XSAVE) + P + RSVLEN | ^ Warning: 'rsvlen' may be used uninitialized [-Wmaybe-uninitialized] dnlsfu.f:74:50: 74 | 3 NGRP1, NGRP2, RSAVE0, RSAVE1, RSVLEN, X0I, XSAVE0, XSAVE1 | ^ note: 'rsvlen' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dnlsgb.o dnlsgb.f dnlsgb.f:298:72: 298 | IF (IV(1)-2) 110, 120, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dnlsgb.f:288:10: 288 | IF (IV1 .EQ. 13) GO TO 999 | ^ Warning: 'iv1' may be used uninitialized [-Wmaybe-uninitialized] dnlsgb.f:216:34: 216 | INTEGER A1, DA1, I, IN1, IV1, K, L1, LP1, M, M0, NF | ^ note: 'iv1' was declared here dnlsgb.f:216:46: 216 | INTEGER A1, DA1, I, IN1, IV1, K, L1, LP1, M, M0, NF | ^ Warning: 'lp1' may be used uninitialized [-Wmaybe-uninitialized] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dnlsgu.o dnlsgu.f dnlsgu.f:300:72: 300 | IF (IV(1)-2) 110, 120, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dnlsgu.f:290:10: 290 | IF (IV1 .EQ. 13) GO TO 999 | ^ Warning: 'iv1' may be used uninitialized [-Wmaybe-uninitialized] dnlsgu.f:213:34: 213 | INTEGER A1, DA1, I, IN1, IV1, K, L1, LP1, M, M0, NF | ^ note: 'iv1' was declared here dnlsgu.f:213:46: 213 | INTEGER A1, DA1, I, IN1, IV1, K, L1, LP1, M, M0, NF | ^ Warning: 'lp1' may be used uninitialized [-Wmaybe-uninitialized] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dnqsol.o dnqsol.f dnqsol.f:883:18: 883 | if(JEVAL) HLIM0 = min(HLIM0, 0.707107d0 * PNORM) | ^ Warning: 'jeval' may be used uninitialized [-Wmaybe-uninitialized] dnqsol.f:516:19: 516 | logical JEVAL, NEWX, NEWTOK, SING, TRYZER | ^ note: 'jeval' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dnrm2.o dnrm2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dpfit.o dpfit.f dpfit.f:165:72: 165 | 30 XMAX = MAX(XMAX,X(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dpfit.f:210:72: 210 | 120 W(LROW,J) = S2 * W(LROW,J-1) - W(LROW,J-2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) dpfit.f:214:72: 214 | 100 W(LROW,J) = S * W(LROW,J-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) dpfit.f:261:72: 261 | 160 P(I+2) = W(I,NP2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) dpfit.f:395:72: 395 | 300 P(I+2) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dplot.o dplot.f dplot.f:2717:22: 2717 | K = log10(TP) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:2720:22: 2720 | J = log10(TP / TLEN) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:4254:18: 4254 | MAXDIG = -log10(V) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:4335:19: 4335 | KTEN = log10(V) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:4741:30: 4741 | 1 MBORD(8,5) = BORLOC(2) - TP1 | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:4743:30: 4743 | 1 MBORD(8,6) = TP2 - BORLOC(4) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:2848:27: 2848 | KURPEN = FP(LWIDTH+3) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:2933:19: 2933 | KDIG = TICMAJ | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:2936:19: 2936 | KDIG = log10(.98D0 * TBASE) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:2937:19: 2937 | KDIG = TICMAJ / 10**KDIG | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:2952:12: 2952 | K =log10(.4 * TLEN) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:2986:21: 2986 | MINTIC = FDIG(KDIG) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:3020:16: 3020 | J = (TPMIN - TBASE) / TICMAJ | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:3033:13: 3033 | J = (TPMIN - TBASE) / TP | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:3055:16: 3055 | J = (TPMAX - TBASE) / TICMAJ | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:3067:13: 3067 | J = (TPMAX - TBASE) / TP | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:3117:15: 3117 | KURPEN = FP(LWIDTH) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:3214:18: 3214 | KURPEN = FP(LWIDTH+min(IP(LTANNO),3)) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:2108:18: 2108 | KURPEN = FP(LWIDRE) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:2113:18: 2113 | KURPEN = FP(LWIDRE) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dplot.f:4751:72: 4751 | 3 XYPOS(2)+PTSIZ*ADJ2(K)) | ^ Warning: 'k' may be used uninitialized [-Wmaybe-uninitialized] dplot.f:4571:26: 4571 | integer I, IAX, J, K, L, LASTL, LFILL2(3), LPAR | ^ note: 'k' was declared here dplot.f:4751:72: 4751 | 3 XYPOS(2)+PTSIZ*ADJ2(K)) | ^ Warning: 'l' may be used uninitialized [-Wmaybe-uninitialized] dplot.f:4571:29: 4571 | integer I, IAX, J, K, L, LASTL, LFILL2(3), LPAR | ^ note: 'l' was declared here dplot.f:3160:18: 3160 | else if (KLOG .eq. 2) then | ^ Warning: 'klog' may be used uninitialized [-Wmaybe-uninitialized] dplot.f:2652:66: 2652 | integer I, I1, I2, IAX, IAXP, IBCAP(6), J, K, KB, KDIG, KLOG, | ^ note: 'klog' was declared here dplot.f:3150:13: 3150 | if (MINTIC .gt. 1) then | ^ Warning: 'mintic' may be used uninitialized [-Wmaybe-uninitialized] dplot.f:2653:15: 2653 | 1 MINTIC | ^ note: 'mintic' was declared here dplot.f:841:72: 841 | K2 = index(BNDTST(NTYP:4), C) | ^ Warning: 'ntyp' may be used uninitialized [-Wmaybe-uninitialized] dplot.f:569:23: 569 | 5 NRULE(18), NTYP, NXI, NY | ^ note: 'ntyp' was declared here dplot.f:2478:72: 2478 | IOTEMP = IOTMP1 | ^ Warning: 'iotmp1' may be used uninitialized [-Wmaybe-uninitialized] dplot.f:563:36: 563 | integer INUNIT, IOTEMP, IOTMP1, IOTMP2, I, I1, IACT, IAOPT, | ^ note: 'iotmp1' was declared here dplot.f:2302:10: 2302 | if (BADPT) then | ^ Warning: 'badpt' may be used uninitialized [-Wmaybe-uninitialized] dplot.f:574:19: 574 | logical BADPT, DATSAV, LKLIP, MOREIY, NOTOUT | ^ note: 'badpt' was declared here dplot.f:2403:21: 2403 | else if (LKLIP) then | ^ Warning: 'lklip' may be used uninitialized [-Wmaybe-uninitialized] dplot.f:574:34: 574 | logical BADPT, DATSAV, LKLIP, MOREIY, NOTOUT | ^ note: 'lklip' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dpolz.o dpolz.f dpolz.f:253:72: 253 | 220 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 220 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dpolz2.o dpolz2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dppnml.o dppnml.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dpquad.o dpquad.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dprpl.o dprpl.f dprpl.f:99:13: 99 | JZ = -A * B + C | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dprpl.f:118:9: 118 | JY=(Y-A) * B + C | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dprpl1.o dprpl1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dprpl2.o dprpl2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dprpl3.o dprpl3.f dprpl3.f:469:13: 469 | KMINOR=EKMN(I) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dprtsv.o dprtsv.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dpsi.o dpsi.f dpsi.f:132:13: 132 | N = X | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dpsi.f:161:16: 161 | n = x + x | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dpsi.f:175:13: 175 | n = x | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dpsi.f:188:10: 188 | n = x + x | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dpval.o dpval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dq7rfh.o dq7rfh.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dqrbd.o dqrbd.f dqrbd.f:131:72: 131 | 10 DNORM = MAX(ABS(Q(J))+ABS(E(J)),DNORM) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dqrbd.f:260:72: 260 | 180 V(J,K) = -V(J,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drane.o drane.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drang.o drang.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drangv.o drangv.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dranr.o dranr.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dranu.o dranu.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drcomp.o drcomp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drcval.o drcval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drdval.o drdval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drexp.o drexp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drft.o drft.f drft.f:398:72: 398 | 320 MU(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drft1.o drft1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drfval.o drfval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drjval.o drjval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drlog.o drlog.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drn2g.o drn2g.f drn2g.f:271:72: 271 | IF (IV(1) - 2) 50, 60, 220 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) drn2g.f:1637:72: 1637 | IF (COV1) 80,110,130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) drn2g.f:1810:72: 1810 | 40 A(J) = LII * L(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) drn2g.f:1564:72: 1564 | 210 IV(FDH) = HES | ^ Warning: 'hes' may be used uninitialized [-Wmaybe-uninitialized] drn2g.f:1364:25: 1364 | INTEGER GSAVE1, HES, HMI, HPI, HPM, I, K, KIND, L, M, MM1, MM1O2, | ^ note: 'hes' was declared here drn2g.f:462:72: 462 | 300 CALL DITSUM(D, V(G1), IV, LIV, LV, P, V, X) | ^ Warning: 'g1' may be used uninitialized [-Wmaybe-uninitialized] drn2g.f:175:16: 175 | INTEGER G1, GI, I, IV1, IVMODE, JTOL1, K, L, LH, NN, QTR1, | ^ note: 'g1' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drn2gb.o drn2gb.f drn2gb.f:186:72: 186 | IF (IV(1) - 2) 50, 60, 260 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) drn2gb.f:1705:72: 1705 | 50 IPIV1(I) = I | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) drn2gb.f:1799:72: 1799 | 20 WW(I) = -STEPX(I) * TD(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) drn2gb.f:1848:72: 1848 | 90 TG(I) = T1 * TG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) drn2gb.f:1969:72: 1969 | 10 X(I) = Y(I) / Z(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) drn2gb.f:1973:72: 1973 | 30 X(I) = Y(I) * Z(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) drn2gb.f:2021:72: 2021 | 10 X(I) = X(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) drn2gb.f:341:72: 341 | 270 CALL DITSUM(D, V(G1), IV, LIV, LV, P, V, X) | ^ Warning: 'g1' may be used uninitialized [-Wmaybe-uninitialized] drn2gb.f:95:16: 95 | INTEGER G1, GI, I, IV1, IVMODE, JTOL1, L, LH, NN, QTR1, | ^ note: 'g1' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drnsg.o drnsg.f drnsg.f:227:72: 227 | IF (IV1-2) 40, 150, 230 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) drnsg.f:298:72: 298 | 130 CALL DV2AXY(N, V(R1), -C(I), A(1,I), V(R1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drnsgb.o drnsgb.f drnsgb.f:196:72: 196 | IF (IV1-2) 40, 150, 230 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) drnsgb.f:267:72: 267 | 130 CALL DV2AXY(N, V(R1), -C(I), A(1,I), V(R1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drot.o drot.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drotg.o drotg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drotm.o drotm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o drotmg.o drotmg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsbasd.o dsbasd.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsbasi.o dsbasi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dscal.o dscal.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsdif.o dsdif.f dsdif.f:31:72: 31 | do 20 I=ID,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsdot.o dsdot.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsfind.o dsfind.f dsfind.f:112:16: 112 | STEP = 2.0d0 * STEP | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dsfind.f:140:16: 140 | STEP = 2.0d0 * STEP | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsfit.o dsfit.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsfitc.o dsfitc.f dsfitc.f:623:35: 623 | if(RELOP .eq. 1) FAC = FAC * WT | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dsfitc.f:643:27: 643 | FAC = -YI(IC+1) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsi.o dsi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsin1.o dsin1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsinhm.o dsinhm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsinpx.o dsinpx.f dsinpx.f:94:10: 94 | N = A | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsnpxx.o dsnpxx.f dsnpxx.f:40:10: 40 | n = f | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dsnpxx.f:45:10: 45 | n = g | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsort.o dsort.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsortp.o dsortp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dspge.o dspge.f dspge.f:995:72: 995 | ISPEC(4) = LFREE - LNEXT - 1 | ^ Warning: 'lfree' may be used uninitialized [-Wmaybe-uninitialized] dspge.f:165:13: 165 | 2 LFREE, LNEXT, LR, LROWL, LROWLI, LRSWSC, LROWSZ, | ^ note: 'lfree' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsquad.o dsquad.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dstat1.o dstat1.f dstat1.f:154:20: 154 | INDEX = TEMP*(X-X1)/(X2-X1) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dstat2.o dstat2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dstop.o dstop.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsva.o dsva.f dsva.f:276:72: 276 | 30 SB = SB + A(I,J)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dsva.f:550:72: 550 | 210 IF (K.GT.1) A(I,K) = A(I,K) + A(I,K-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsval.o dsval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsvala.o dsvala.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsvdrs.o dsvdrs.f dsvdrs.f:188:72: 188 | 30 A(I,J) = A(I,NWORK) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dsvdrs.f:216:72: 216 | 130 A(MWORK,J) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) dsvdrs.f:269:72: 269 | 180 S(J) = A(J,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) dsvdrs.f:271:72: 271 | 190 WORK(J) = A(J-1,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) dsvdrs.f:289:72: 289 | 220 A(I,J) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) dsvdrs.f:290:72: 290 | 230 A(I,I) = ONE | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) dsvdrs.f:305:72: 305 | 250 S(J) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) dsvdrs.f:313:72: 313 | 270 A(I,J) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) dsvdrs.f:321:72: 321 | 290 A(I,J) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1) dsvdrs.f:317:13: 317 | I = S(K) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dswap.o dswap.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dsymql.o dsymql.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtcst.o dtcst.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtgc0.o dtgc0.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtgc1.o dtgc1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtgext.o dtgext.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtgfi.o dtgfi.f dtgfi.f:188:15: 188 | indsgn = savwrk(1) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtgfnd.o dtgfnd.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtggrd.o dtggrd.f dtggrd.f:416:72: 416 | INFO(3) = MBUSED | ^ Warning: 'mbused' may be used uninitialized [-Wmaybe-uninitialized] dtggrd.f:104:35: 104 | integer nb, nt, ntlim, mbused, TRIANG(MT) | ^ note: 'mbused' was declared here dtggrd.f:415:72: 415 | INFO(2) = NB | ^ Warning: 'nb' may be used uninitialized [-Wmaybe-uninitialized] dtggrd.f:104:16: 104 | integer nb, nt, ntlim, mbused, TRIANG(MT) | ^ note: 'nb' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtgpd.o dtgpd.f dtgpd.f:710:10: 710 | 230 if (KP .ge. 5) then | ^ Warning: 'kp' may be used uninitialized [-Wmaybe-uninitialized] dtgpd.f:636:32: 636 | integer i, IROW, J, JJ, KP, LEN, MFIT, MW | ^ note: 'kp' was declared here dtgpd.f:492:12: 492 | if (JUSED(K) .eq. KP) then | ^ Warning: 'kp' may be used uninitialized [-Wmaybe-uninitialized] dtgpd.f:379:41: 379 | integer ADD1(3), i, im1, ip1, k, kp | ^ note: 'kp' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtgprg.o dtgprg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtgrec.o dtgrec.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtgset.o dtgset.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dtrc2c.o dtrc2c.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ducomp.o ducomp.f ducomp.f:164:72: 164 | if(M1-1)230,240,250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) ducomp.f:171:72: 171 | 245 Y9(I+1) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 245 at (1) ducomp.f:180:72: 180 | 252 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 252 at (1) ducomp.f:194:72: 194 | if(M2-1)60,40,10 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) ducomp.f:208:72: 208 | 50 Y(I+1)=U(1)*V(I+1) + U(I+1)*V(1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) ducomp.f:234:72: 234 | if(M1-1)80,90,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) ducomp.f:243:72: 243 | 95 Y1(I+1)=(U1(I+1)-Y1(1)*V1(I+1))*VINV | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) ducomp.f:273:72: 273 | 148 Y3(K)=U3(K)+V3(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 148 at (1) ducomp.f:289:72: 289 | 154 Y4(K)=U4(K)-V4(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 154 at (1) ducomp.f:307:72: 307 | 160 Y5(K)= V5(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) ducomp.f:327:72: 327 | 168 Y6(K)= -V6(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 168 at (1) ducomp.f:348:72: 348 | 176 Y7(K)=C7*V7(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 176 at (1) ducomp.f:368:72: 368 | if(M1-1)204,208,214 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) ducomp.f:376:72: 376 | 212 Y8(I+1) = V8(I+1)*FAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 212 at (1) ducomp.f:384:72: 384 | 220 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) ducomp.f:403:72: 403 | if(M1-1) 4, 6,16 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) ducomp.f:415:72: 415 | 12 Y(I+1)=U(I+1)*D1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) ducomp.f:427:72: 427 | 20 Y(K) = D1*U(K) - Y(J+1)*FAC2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) ducomp.f:442:72: 442 | if(M1-1)30,31,34 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) ducomp.f:448:72: 448 | 32 Y1(I+1)=Y1(1)*U1(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) ducomp.f:454:72: 454 | do 36 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 36 at (1) ducomp.f:456:72: 456 | 36 Y1(K)=Y1(1) * (U1(K) + U1(I+1)*U1(J+1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 36 at (1) ducomp.f:472:72: 472 | if(M1-1)40,42,48 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) ducomp.f:478:72: 478 | 44 Y2(I+1)=U2(I+1) * D1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 44 at (1) ducomp.f:486:72: 486 | do 50 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1) ducomp.f:488:72: 488 | 50 Y2(K) = D1 * U2(K) - Y2(I+1) * Y2(J+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) ducomp.f:517:72: 517 | 56 if(M1-1)64,68,84 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) ducomp.f:524:72: 524 | 70 Y3(I+1)=ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) ducomp.f:527:72: 527 | 78 Y3(I+1)=U3(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 78 at (1) ducomp.f:534:72: 534 | do 94 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 94 at (1) ducomp.f:536:72: 536 | 94 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 94 at (1) ducomp.f:544:72: 544 | 98 Y3(K)=U3(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 98 at (1) ducomp.f:547:72: 547 | 86 Y3(K)=ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 86 at (1) ducomp.f:554:72: 554 | if(M1-1)104,108,112 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) ducomp.f:561:72: 561 | 110 Y3(I+1) = FAC * U3(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) ducomp.f:569:72: 569 | do 116 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 116 at (1) ducomp.f:571:72: 571 | 116 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 116 at (1) ducomp.f:595:72: 595 | 20 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) ducomp.f:601:72: 601 | do 28 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 28 at (1) ducomp.f:603:72: 603 | 28 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 28 at (1) ducomp.f:628:72: 628 | 20 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) ducomp.f:634:72: 634 | do 28 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 28 at (1) ducomp.f:636:72: 636 | 28 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 28 at (1) ducomp.f:660:72: 660 | 20 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) ducomp.f:666:72: 666 | do 28 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 28 at (1) ducomp.f:668:72: 668 | 28 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 28 at (1) ducomp.f:692:72: 692 | 20 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) ducomp.f:698:72: 698 | do 28 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 28 at (1) ducomp.f:700:72: 700 | 28 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 28 at (1) ducomp.f:716:72: 716 | if(M1-1)30,32,36 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) ducomp.f:722:72: 722 | 34 Y1(I+1)=D1*U1(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 34 at (1) ducomp.f:731:72: 731 | do 40 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) ducomp.f:733:72: 733 | 40 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) ducomp.f:768:72: 768 | 52 Y2(I+1)=FAC1*V2(I+1)-FAC2*U2(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 52 at (1) ducomp.f:773:72: 773 | do 56 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 56 at (1) ducomp.f:776:72: 776 | 56 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 56 at (1) ducomp.f:846:72: 846 | 130 Y1(I+1)=FAC*U1(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) ducomp.f:883:72: 883 | 220 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) ducomp.f:889:72: 889 | do 228 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 228 at (1) ducomp.f:891:72: 891 | 228 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 228 at (1) ducomp.f:917:72: 917 | 220 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) ducomp.f:923:72: 923 | do 228 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 228 at (1) ducomp.f:925:72: 925 | 228 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 228 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o durev.o durev.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dvecp.o dvecp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dvecpr.o dvecpr.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dwcomp.o dwcomp.f dwcomp.f:141:72: 141 | 50 S1(I+1) = 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) dwcomp.f:212:72: 212 | 64 S1(I+1) = 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 64 at (1) dwcomp.f:244:72: 244 | IF(N9 - 1) 90,92,94 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dwcomp.f:259:72: 259 | 96 S2(I)= Y9(I)/BIG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 96 at (1) dwcomp.f:281:72: 281 | 10 W(I)=U(I)+V(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dwcomp.f:296:72: 296 | 20 W2(I)=U2(I)-V2(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dwcomp.f:337:72: 337 | 156 S1(I+1)=U15(I+1)*SCALE | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 156 at (1) dwcomp.f:341:72: 341 | 158 Y15(I+1)=Y15(I+1)*SQRTU | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 158 at (1) dwcomp.f:358:72: 358 | 40 Y4(I+1)=Y4(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dwcomp.f:437:72: 437 | 76 S1(I) = -S1(I-2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 76 at (1) dwcomp.f:523:72: 523 | 94 S1(I) = S1(I-2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 94 at (1) dwcomp.f:543:72: 543 | IF(N10-1) 104,102,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dwcomp.f:545:72: 545 | 101 U10(I+1)= 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 101 at (1) dwcomp.f:563:72: 563 | 110 Y11(I+1)=U11(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) dwcomp.f:579:72: 579 | 120 Y12(I+1)=-U12(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) dwcomp.f:594:72: 594 | 130 Y13(I) = C13*U13(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) dwcomp.f:670:72: 670 | IF(M ) 110,35,45 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dwcomp.f:675:72: 675 | 40 Y(J+1) = 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dwcomp.f:686:72: 686 | 47 Y(I+1) = 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 47 at (1) dwcomp.f:691:72: 691 | 48 FAC=FAC*D | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 48 at (1) dwcomp.f:728:72: 728 | 140 Y(J+1)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) dwcomp.f:768:72: 768 | 40 Y(I+1)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dwcomp.f:775:72: 775 | 60 call DWPRO (L, Y(NP1-L), U(2), Y(NP1-L)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dxparg.o dxparg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dxrk8.o dxrk8.f dxrk8.f:2537:31: 2537 | IDAT(IDAT(LINT)+1) = DAT(NEXTT) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] dxrk8.f:1085:72: 1085 | J = nint(OPT(LLERR)) | ^ Warning: 'llerr' may be used uninitialized [-Wmaybe-uninitialized] dxrk8.f:859:20: 859 | 2 LIDAT, LLERR, LO, LWORK, MAXLER, MINLER, N, NEQ, NEQNOE, NEXT | ^ note: 'llerr' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dxrk8f.o dxrk8f.f dxrk8f.f:1:37: 1 | subroutine DXRK8F(T, Y, F, IDAT) | 1 Warning: Unused dummy argument 'idat' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dxrk8g.o dxrk8g.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dxrk8o.o dxrk8o.f dxrk8o.f:1:40: 1 | subroutine DXRK8O(TS, Y, IDAT, DAT) | 1 Warning: Unused dummy argument 'dat' at (1) [-Wunused-dummy-argument] dxrk8o.f:1:35: 1 | subroutine DXRK8O(TS, Y, IDAT, DAT) | 1 Warning: Unused dummy argument 'idat' at (1) [-Wunused-dummy-argument] dxrk8o.f:1:26: 1 | subroutine DXRK8O(TS, Y, IDAT, DAT) | 1 Warning: Unused dummy argument 'ts' at (1) [-Wunused-dummy-argument] dxrk8o.f:1:29: 1 | subroutine DXRK8O(TS, Y, IDAT, DAT) | 1 Warning: Unused dummy argument 'y' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dzabs.o dzabs.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o dzero.o dzero.f dzero.f:289:72: 289 | if (MODE .ne. 0) if (LMODE - 1) 70, 80, 450 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:294:72: 294 | if (LMODE - 1) 70, 80, 450 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:314:72: 314 | if (FL) 40, 75, 50 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:315:72: 315 | 40 if (FF) 60, 230, 100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:316:72: 316 | 50 if (FF) 100, 230, 60 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:361:72: 361 | if (TP) 90, 230, 110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:370:72: 370 | if (TP - C1) 150, 140, 130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:396:72: 396 | if (TOL) 190, 200, 200 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:432:72: 432 | if (MACT(3) - 2) 420, 420, 430 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:438:72: 438 | if (KS) 370, 280, 270 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:459:72: 459 | if (KS - 4) 320, 340, 290 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dzero.f:480:72: 480 | if (KS .eq. 0) if (FFDFO - C1) 350, 370, 360 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o erfin.o erfin.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ermor.o ermor.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ermsg.o ermsg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o exsort.o exsort.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o gsortp.o gsortp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o i7copy.o i7copy.f i7copy.f:23:72: 23 | 10 Y(I) = X(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) i7copy.f:55:72: 55 | 10 X(I) = X(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o icamax.o icamax.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o idamax.o idamax.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o idranp.o idranp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o idsm.o idsm.f idsm.f:1167:72: 1167 | LIST(JCOL) = NUMORD | ^ Warning: 'jcol' may be used uninitialized [-Wmaybe-uninitialized] idsm.f:1093:44: 1093 | INTEGER DEG,HEAD,IC,IP,IPL,IPU,IR,JCOL,JP,JPL,JPU,L,MAXINC, | ^ note: 'jcol' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o idsta1.o idsta1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o idsta2.o idsta2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ierm1.o ierm1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ierv1.o ierv1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o imatp.o imatp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o imatpr.o imatpr.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o insort.o insort.f insort.f:84:72: 84 | 30 heads(i)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) insort.f:91:72: 91 | if (ip1.gt.myn) if (direct) 150,160,160 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) insort.f:104:72: 104 | if (ncomp) 100,90,120 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) insort.f:105:72: 105 | 90 if (direct) 140,110,110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) insort.f:119:72: 119 | 120 if (direct) 140,130,160 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) insort.f:144:72: 144 | 190 m=m+m | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) insort.f:212:72: 212 | if (nchain) 380,360,370 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) insort.f:225:72: 225 | if (nchain) 400,410,420 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o insrtx.o insrtx.f insrtx.f:83:72: 83 | 30 heads(i)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) insrtx.f:90:72: 90 | if (ip1.gt.myn) if (direct) 150,160,160 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) insrtx.f:103:72: 103 | if (ncomp) 100,90,120 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) insrtx.f:104:72: 104 | 90 if (direct) 140,110,110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) insrtx.f:118:72: 118 | 120 if (direct) 140,130,160 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) insrtx.f:143:72: 143 | 190 m=m+m | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) insrtx.f:211:72: 211 | if (nchain) 380,360,370 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) insrtx.f:224:72: 224 | if (nchain) 400,410,420 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o isamax.o isamax.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o isort.o isort.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o isortp.o isortp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o isranp.o isranp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o issta1.o issta1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o issta2.o issta2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ivecp.o ivecp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ivecpr.o ivecpr.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o lsame.o lsame.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o mess.o mess.f mess.f:1979:72: 1979 | do 250 L = LSTRDB + LTXTDB + max(0, KB), LSTRT | ^ Warning: 'lstrdb' may be used uninitialized [-Wmaybe-uninitialized] mess.f:1821:45: 1821 | integer J, K, KB, KK, L, LFLGDB, LSTRDB, LTXTDB | ^ note: 'lstrdb' was declared here mess.f:1979:72: 1979 | do 250 L = LSTRDB + LTXTDB + max(0, KB), LSTRT | ^ Warning: 'ltxtdb' may be used uninitialized [-Wmaybe-uninitialized] mess.f:1821:53: 1821 | integer J, K, KB, KK, L, LFLGDB, LSTRDB, LTXTDB | ^ note: 'ltxtdb' was declared here mess.f:1990:72: 1990 | if (NTEXT .ne. 0) NTEXT = K | ^ Warning: 'k' may be used uninitialized [-Wmaybe-uninitialized] mess.f:1821:18: 1821 | integer J, K, KB, KK, L, LFLGDB, LSTRDB, LTXTDB | ^ note: 'k' was declared here mess.f:928:13: 928 | if (ITEXT - ITEXTR .lt. 4000) go to 480 | ^ Warning: 'itextr' may be used uninitialized [-Wmaybe-uninitialized] mess.f:605:16: 605 | 1 ITEXTR, ITXTSV, J, JJ, K, K1, K2, KDILAB, KK, KNT, KOLWID, KP, | ^ note: 'itextr' was declared here mess.f:871:72: 871 | ERMSG(47:47) = char(KP + ICHAR0) | ^ Warning: 'kp' may be used uninitialized [-Wmaybe-uninitialized] mess.f:605:71: 605 | 1 ITEXTR, ITXTSV, J, JJ, K, K1, K2, KDILAB, KK, KNT, KOLWID, KP, | ^ note: 'kp' was declared here mess.f:864:10: 864 | if (KS .eq. 0) then | ^ Warning: 'ks' may be used uninitialized [-Wmaybe-uninitialized] mess.f:606:12: 606 | 2 KS, LASKNT, LBUF1, LBUF2, LENBUF, LINSTR, M, | ^ note: 'ks' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o optchk.o optchk.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o pvec.o pvec.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ranpk1.o ranpk1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ranpk2.o ranpk2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o saccum.o saccum.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sasinh.o sasinh.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sasum.o sasum.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o saxpy.o saxpy.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbacc.o sbacc.f sbacc.f:144:72: 144 | do 10 J=1,NBP1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) sbacc.f:145:72: 145 | 10 G(IG1,J)=G(IG2,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) sbacc.f:150:72: 150 | do 20 J=1,NBP1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) sbacc.f:151:72: 151 | 20 G(IG,J)=ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sbacc.f:169:72: 169 | 40 G(IG,I-K)=G(IG,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) sbacc.f:171:72: 171 | do 50 JG = NBP1-K, NB | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1) sbacc.f:172:72: 172 | 50 G(IG,JG)=ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) sbacc.f:189:72: 189 | * G(JTPREV,min(I+1,NBP1)),LDG,NBP1-I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) sbacc.f:197:72: 197 | 90 G(IR-1,I)=ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbesj0.o sbesj0.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbesj1.o sbesj1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbesjn.o sbesjn.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbespq.o sbespq.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbesy0.o sbesy0.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbesy1.o sbesy1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbesyn.o sbesyn.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbi0k0.o sbi0k0.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbi1k1.o sbi1k1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbinom.o sbinom.f sbinom.f:164:16: 164 | I = .2199E0 * real(NI) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sblse.o sblse.f sblse.f:309:72: 309 | 20008 ASSIGN 20010 TO NPR004 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:323:72: 323 | ASSIGN 20018 TO NPR005 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:327:72: 327 | 20017 ASSIGN 20019 TO NPR004 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:332:72: 332 | 20020 ASSIGN 20021 TO NPR004 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:524:72: 524 | ASSIGN 20070 TO NPR009 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:541:72: 541 | 20075 ASSIGN 20076 TO NPR012 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:554:72: 554 | 20074 ASSIGN 20079 TO NPR009 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:710:72: 710 | ASSIGN 20115 TO NPR014 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:730:19: 730 | GO TO NPR009,(20070,20079) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) sblse.f:800:72: 800 | ASSIGN 20126 TO NPR014 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:803:72: 803 | 20126 ASSIGN 20127 TO NPR012 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:1061:19: 1061 | 31012 GO TO NPR012,(20076,20127) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) sblse.f:1240:72: 1240 | 20232 ASSIGN 20235 TO NPR021 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:1245:72: 1245 | ASSIGN 20237 TO NPR021 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:1250:72: 1250 | ASSIGN 20238 TO NPR022 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:1284:72: 1284 | ASSIGN 20246 TO NPR005 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:1303:72: 1303 | ASSIGN 20252 TO NPR022 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:1306:19: 1306 | 20251 GO TO NPR021,(20235,20237) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) sblse.f:1375:19: 1375 | GO TO NPR022,(20238,20252) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) sblse.f:1437:72: 1437 | ASSIGN 20283 TO NPR004 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:1505:72: 1505 | ASSIGN 20308 TO NPR004 | 1 Warning: Deleted feature: ASSIGN statement at (1) sblse.f:1507:19: 1507 | 20308 GO TO NPR005,(20018,20246) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) sblse.f:1521:19: 1521 | GO TO NPR014,(20115,20126) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) sblse.f:1559:19: 1559 | GO TO NPR004,(20010,20019,20021,20283,20308) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) sblse.f:2:52: 2 | * KPRINT, TOL, IERR, X, RNORM, NSETS, W, SIZE, TNORM, | 1 Warning: Unused dummy argument 'size' at (1) [-Wunused-dummy-argument] sblse.f:289:20: 289 | logical HITBND, MOVEJF, MSG1 | ^ Warning: 'hitbnd' may be used uninitialized [-Wmaybe-uninitialized] sblse.f:269:34: 269 | integer BMODE, I, I1, IBOUND, ID, IERR | ^ Warning: 'ibound' may be used uninitialized [-Wmaybe-uninitialized] sblse.f:1290:15: 1290 | 20246 IF (.NOT.(M1P1 .le. IMAX-1 )) GO TO 20248 | ^ Warning: 'imax' may be used uninitialized [-Wmaybe-uninitialized] sblse.f:271:27: 271 | integer II, IIS, IMAX, INDEX(N), IS, ISNEW, IPUT, IPUT1, IPUT2 | ^ note: 'imax' was declared here sblse.f:1:22: 1 | subroutine SBLSE (A, LDA, MTRUE, N, M1TRUE, B, BND, UNBND, | ^ Warning: 'npr021.26' may be used uninitialized [-Wmaybe-uninitialized] sblse.f:544:72: 544 | KSTEP = KSTEP + 1 | ^ Warning: 'kstep' may be used uninitialized [-Wmaybe-uninitialized] sblse.f:275:27: 275 | integer KPRINT, KSTEP, L, LBOUND, LDA, LEN | ^ note: 'kstep' was declared here sblse.f:945:72: 945 | JSNEW = INDEX(ISNEW) | ^ Warning: 'isnew' may be used uninitialized [-Wmaybe-uninitialized] sblse.f:271:48: 271 | integer II, IIS, IMAX, INDEX(N), IS, ISNEW, IPUT, IPUT1, IPUT2 | ^ note: 'isnew' was declared here sblse.f:1517:72: 1517 | if(IIS .ne. NSETS) call SAXPY(IIS, -Z(IIS+1), A(1,JJS),1, Z,1) | ^ Warning: 'jjs' may be used uninitialized [-Wmaybe-uninitialized] sblse.f:273:34: 273 | integer J, JCOL, JD, JJ, JJS, JS, JPIV, JSNEW, JPUT | ^ note: 'jjs' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbmp0.o sbmp0.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbmp1.o sbmp1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sbsol.o sbsol.f sbsol.f:65:72: 65 | 20 X(J)=G(J,NB+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sbsol.f:71:72: 71 | 30 RSQ=RSQ+G(J,NB+1)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) sbsol.f:91:72: 91 | 60 S=S+G(I,JG)*X(IX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) sbsol.f:95:72: 95 | 80 X(I)=(X(I)-S)/G(I,L+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) sbsol.f:107:72: 107 | 100 S=S+X(I)*G(I,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) sbsol.f:114:72: 114 | 120 X(J)=(X(J)-S)/G(J,L+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sc2bas.o sc2bas.f sc2bas.f:91:72: 91 | 20 U(IU)=SCALE*B(IB) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sc2bas.f:114:72: 114 | 80 P(I)= (XS-U(I))**3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) sc2bas.f:118:72: 118 | 100 P(I)=(XS-U(I))**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) sc2bas.f:122:72: 122 | 120 P(I)= XS-U(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) sc2bas.f:126:72: 126 | 140 P(I)= C36 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) sc2bas.f:135:72: 135 | 160 P(I)=(P(I+1)-P(I))/(U(I2)-U(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) sc2bas.f:136:72: 136 | 170 P(4)= -P(4)/(U(J+4)-U(4)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) sc2bas.f:139:72: 139 | 180 P(I)=P(I)*CS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sc2fit.o sc2fit.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scasum.o scasum.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scdchi.o scdchi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scdnml.o scdnml.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scdpoi.o scdpoi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scft.o scft.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o schol.o schol.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sci.o sci.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sckder.o sckder.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scnrm2.o scnrm2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scomqr.o scomqr.f scomqr.f:155:10: 155 | 300 IF (L .EQ. EN) GO TO 660 | ^ Warning: 'l' may be used uninitialized [-Wmaybe-uninitialized] scomqr.f:19:40: 19 | INTEGER EN,ENM1,I,IERR,IGH,ITS,J,L,LL,LOW,LP1,N,NM | ^ note: 'l' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sconcm.o sconcm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sconmc.o sconmc.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scopy.o scopy.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scos1.o scos1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scoshm.o scoshm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scospx.o scospx.f scospx.f:97:10: 97 | N = A | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scov2.o scov2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scov3.o scov3.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scpdrv.o scpdrv.f scpdrv.f:43:72: 43 | 20 FAC=FAC-TWO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) scpdrv.f:47:72: 47 | 40 D(K+2)=D(K+2)/D(2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scpint.o scpint.f scpint.f:38:72: 38 | 50 FAC=FAC-TWO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) scpint.f:44:72: 44 | 70 B(K+2)=B(K+2)*B(2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scplte.o scplte.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scpltk.o scpltk.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scpval.o scpval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scsevl.o scsevl.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scshmm.o scshmm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o scspxx.o scspxx.f scspxx.f:41:10: 41 | n = f | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] scspxx.f:46:10: 46 | n = g | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdas1.o sdas1.f sdas1.f:137:72: 137 | do 15 i=1,neq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 15 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdasco.o sdasco.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdasdb.o sdasdb.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdasf.o sdasf.f sdasf.f:1:47: 1 | subroutine SDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'c' at (1) [-Wunused-dummy-argument] sdasf.f:1:41: 1 | subroutine SDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'd' at (1) [-Wunused-dummy-argument] sdasf.f:1:39: 1 | subroutine SDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'delta' at (1) [-Wunused-dummy-argument] sdasf.f:1:52: 1 | subroutine SDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'ires' at (1) [-Wunused-dummy-argument] sdasf.f:1:45: 1 | subroutine SDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'ldd' at (1) [-Wunused-dummy-argument] sdasf.f:1:58: 1 | subroutine SDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'rwork' at (1) [-Wunused-dummy-argument] sdasf.f:1:24: 1 | subroutine SDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 't' at (1) [-Wunused-dummy-argument] sdasf.f:1:26: 1 | subroutine SDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'y' at (1) [-Wunused-dummy-argument] sdasf.f:1:33: 1 | subroutine SDASF(T,Y,YPRIME,DELTA,D,LDD,C,IRES,RWORK,IWORK) | 1 Warning: Unused dummy argument 'yprime' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdasgh.o sdasgh.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdasin.o sdasin.f sdasin.f:55:72: 55 | 10 YPOUT(I)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) sdasin.f:65:72: 65 | 20 YPOUT(I)=YPOUT(I)+D*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdasj.o sdasj.f sdasj.f:176:72: 176 | 70 wm(nrow+l) = (e(l)-delta(l))*delinv | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) sdasj.f:245:72: 245 | 160 yprime(n) = yprime(n) + rwork(lcj)*del | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) sdasj.f:283:72: 283 | 190 wm(ii+i) = (e(i)-delta(i))*delinv | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdasls.o sdasls.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdaslv.o sdaslv.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdaslx.o sdaslx.f sdaslx.f:942:49: 942 | $ lerrbc, lerrbd, lerrbe, lerrbf, lerrbg | 1 Warning: Unused variable 'lerrbg' declared at (1) [-Wunused-variable] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdasnm.o sdasnm.f sdasnm.f:77:72: 77 | 20 SUM = SUM + ((V(I)*WT(I))/VMAX)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sdasnm.f:1:64: 1 | REAL FUNCTION SDASNM (NEQ, V, WT, RWORK, IWORK) | 1 Warning: Unused dummy argument 'iwork' at (1) [-Wunused-dummy-argument] sdasnm.f:1:57: 1 | REAL FUNCTION SDASNM (NEQ, V, WT, RWORK, IWORK) | 1 Warning: Unused dummy argument 'rwork' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdastp.o sdastp.f sdastp.f:259:72: 259 | 60 phi(i,j) = beta(j)*phi(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) sdastp.f:287:72: 287 | 100 yprime(i) = 0.0e0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) sdastp.f:291:72: 291 | 110 yprime(i) = yprime(i) + gamma(j)*phi(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) sdastp.f:360:72: 360 | 160 e(i) = 0.0e0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) sdastp.f:370:72: 370 | 180 delta(i) = delta(i)*temp1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) sdastp.f:389:72: 389 | 200 yprime(i) = yprime(i) - rwork(lcj)*delta(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) sdastp.f:492:72: 492 | 270 e(i) = e(i) - delta(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) sdastp.f:496:72: 496 | 280 e(i) = e(i) - (sc/delnrm)*delta(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1) sdastp.f:594:72: 594 | 330 delta(i) = phi(i,k) + delta(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1) sdastp.f:648:72: 648 | 360 delta(i) = e(i) - phi(i,kp2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) sdastp.f:714:72: 714 | 450 phi(i,kp2) = e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 450 at (1) sdastp.f:717:72: 717 | 470 phi(i,kp1) = phi(i,kp1) + e(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1) sdastp.f:743:72: 743 | 500 phi(i,j) = temp1*phi(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1) sdastp.f:747:72: 747 | 530 psi(i-1) = psi(i) - h | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdaswt.o sdaswt.f sdaswt.f:1:67: 1 | SUBROUTINE SDASWT (NEQ, INFO, RTOL, ATOL, Y, WT, RWORK, IWORK) | 1 Warning: Unused dummy argument 'iwork' at (1) [-Wunused-dummy-argument] sdaswt.f:1:60: 1 | SUBROUTINE SDASWT (NEQ, INFO, RTOL, ATOL, Y, WT, RWORK, IWORK) | 1 Warning: Unused dummy argument 'rwork' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdot.o sdot.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sdsdot.o sdsdot.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sei.o sei.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o selefi.o selefi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o selpii.o selpii.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o serf.o serf.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o serfi.o serfi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o serm1.o serm1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o serv1.o serv1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sevbh.o sevbh.f sevbh.f:122:72: 122 | 180 SCALE(I) = 1.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sevun.o sevun.f sevun.f:243:72: 243 | 2040 if (P - EVALR(IFLAG(I))) 2070, 2050, 2080 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sevun.f:244:72: 244 | 2050 if (abs(EVALI(K)) - abs(EVALI(IFLAG(I)))) 2070, 2060, 2080 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sevvun.o sevvun.f sevvun.f:331:72: 331 | if (Q) 710, 600, 800 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sevvun.f:468:72: 468 | do 880 I = LOW, IGH | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1) sevvun.f:564:72: 564 | 2040 if (P - EVALR(IFLAG(I))) 2070, 2050, 2080 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sevvun.f:565:72: 565 | 2050 if (abs(EVALI(K)) - abs(EVALI(IFLAG(I)))) 2070, 2060, 2080 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sevvun.f:502:16: 502 | K = WORK(I) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sfft.o sfft.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sfmin.o sfmin.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sfrenl.o sfrenl.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgam1.o sgam1.f sgam1.f:166:72: 166 | IF (T) 30,10,20 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sgam1.f:230:72: 230 | IF (T) 300,100,200 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgami.o sgami.f sgami.f:331:72: 331 | IF (IOP - 4) 260,270,280 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sgami.f:221:19: 221 | M = TWOA | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgamma.o sgamma.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgbfa.o sgbfa.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgbsl.o sgbsl.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgeco.o sgeco.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sged.o sged.f sged.f:87:13: 87 | K = min(log10(R1MACH(2)/TEN), -log10(R1MACH(1)*TEN)) / 2 | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgefa.o sgefa.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgefs.o sgefs.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgefsc.o sgefsc.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgei.o sgei.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgemv.o sgemv.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgesl.o sgesl.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgesld.o sgesld.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgeslt.o sgeslt.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgr17.o sgr17.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sgr29.o sgr29.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sherql.o sherql.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o shfti.o shfti.f shfti.f:223:72: 223 | 60 A(I,LMAX) = TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) shfti.f:254:72: 254 | 120 TMP = TMP + B(I,JB)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) shfti.f:296:72: 296 | 220 B(J,JB) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) shfti.f:299:72: 299 | * B(1,JB),LDB,1,COL) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o shint.o shint.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o shtcc.o shtcc.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o shtgen.o shtgen.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o silup.o silup.f silup.f:456:72: 456 | if (ILI + 2) 1300, 1200, 100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) silup.f:464:72: 464 | if (XT(NTABI) - XT(1)) 110, 1220, 130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) silup.f:814:72: 814 | LEXERR = IOPT(I) | ^ Warning: 'i' may be used uninitialized [-Wmaybe-uninitialized] silup.f:307:24: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'i' was declared here silup.f:694:22: 694 | if (INDXED) then | ^ Warning: 'indxed' may be used uninitialized [-Wmaybe-uninitialized] silup.f:306:29: 306 | logical INDXED, LBADPT, LINC, YTORD, SAVED | ^ note: 'indxed' was declared here silup.f:693:19: 693 | if (IUI .le. NTABI) then | ^ Warning: 'ntabi' may be used uninitialized [-Wmaybe-uninitialized] silup.f:308:70: 308 | 1 LDER, LNDEG, LOPT, N, NDEGE, NDEGI, NDEGQ, NTABI | ^ note: 'ntabi' was declared here silup.f:671:72: 671 | 1020 KK = min(N - IUI - ILI, 2) - 1 | ^ Warning: 'iui' may be used uninitialized [-Wmaybe-uninitialized] silup.f:307:41: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'iui' was declared here silup.f:671:72: 671 | 1020 KK = min(N - IUI - ILI, 2) - 1 | ^ Warning: 'n' may be used uninitialized [-Wmaybe-uninitialized] silup.f:308:42: 308 | 1 LDER, LNDEG, LOPT, N, NDEGE, NDEGI, NDEGQ, NTABI | ^ note: 'n' was declared here silup.f:665:16: 665 | if (LNDEG .ne. 0) IOPT(LNDEG) = L | ^ Warning: 'lndeg' may be used uninitialized [-Wmaybe-uninitialized] silup.f:308:33: 308 | 1 LDER, LNDEG, LOPT, N, NDEGE, NDEGI, NDEGQ, NTABI | ^ note: 'lndeg' was declared here silup.f:527:25: 527 | if (abs(KK) .eq. 1) then | ^ Warning: 'kk' may be used uninitialized [-Wmaybe-uninitialized] silup.f:307:63: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'kk' was declared here silup.f:537:72: 537 | IDX(L) = K | ^ Warning: 'k' may be used uninitialized [-Wmaybe-uninitialized] silup.f:307:48: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'k' was declared here silup.f:928:10: 928 | if (IO .eq. 1) K = 6 | ^ Warning: 'io' may be used uninitialized [-Wmaybe-uninitialized] silup.f:307:45: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'io' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o silupm.o silupm.f silupm.f:606:72: 606 | if (LDERIV .gt. 0) LEXIT = IOPT(IMAXD+KDIM) + 1 | ^ Warning: 'imaxd' may be used uninitialized [-Wmaybe-uninitialized] silupm.f:327:54: 327 | integer I, IDXBAS, IEEOPT, IIFLG, IMAXD, INTCHK(0:20), | ^ note: 'imaxd' was declared here silupm.f:569:72: 569 | IDXBAS = LERTMP+1 | ^ Warning: 'lertmp' may be used uninitialized [-Wmaybe-uninitialized] silupm.f:329:53: 329 | 2 K, KC(MAXDIM), KDIM, KPTD(0:MAXDIM), L, LERTMP, LI, LT, | ^ note: 'lertmp' was declared here silupm.f:706:47: 706 | 215 if ((KC(L) .eq. IOPT(IMAXD+L)) .or. (MXD .eq. 0)) then | ^ Warning: 'mtotd' may be used uninitialized [-Wmaybe-uninitialized] silupm.f:330:32: 330 | 3 LICINF, LOPT, LUPC, MTOTD, NDIMI, NT, NTABM, NTABXT, | ^ note: 'mtotd' was declared here silupm.f:755:72: 755 | IP(KDIM+1) = NTAB(KDIM) * IP(KDIM) + (IX -1) * IPRAG | ^ Warning: 'iprag' may be used uninitialized [-Wmaybe-uninitialized] silupm.f:328:29: 328 | 1 IOP2N, IOPTI(3), IPRAG, IRAG, IX, IYBAS, IYDSAV, IYSAV, IYT, J, | ^ note: 'iprag' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o silupmd.o silupmd.f silupmd.f:1:34: 1 | subroutine SILUPMD (NDIM,X,Y,NTAB,XT,YT,NDEG,LUP,IOPT,EOPT) | 1 Warning: Unused dummy argument 'y' at (1) [-Wunused-dummy-argument] silupmd.f:365:72: 365 | MACTIV(3) = LT - NTABXT - 2*NDIMI | ^ Warning: 'lt' may be used uninitialized [-Wmaybe-uninitialized] silupmd.f:77:27: 77 | 1 L, LR(MAXDIM-1), LT, LX(MAXDIM), NDIMI, NTABM, NTABXT, | ^ note: 'lt' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o simql.o simql.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sinits.o sinits.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sint1.o sint1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sinta.o sinta.f sinta.f:1259:72: 1259 | IF (ERR.GT.EPS) IF (DISCHK) 220,220,230 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1262:72: 1262 | IF (K-2) 220,220,230 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1378:72: 1378 | * IF (ENDPTS-2) 2750,2760,560 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1395:72: 1395 | IF (K-KAIMT-1) 2740,2740,670 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1398:72: 1398 | IF (ENDPTS-2) 2750,2760,600 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1506:72: 1506 | IF (ENDPTS-2) 2750,2760,2155 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1516:72: 1516 | 750 IF (ENDPTS-2) 2750,2760,760 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1521:72: 1521 | IF (ALOCAL-TA) 980,2240,980 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1580:72: 1580 | IF (JUMPS-3) 920,930,915 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1581:72: 1581 | 915 IF (J2-(NSUB+2)) 930,520,520 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1678:72: 1678 | IF (ABS(SEARCH)-3) 1060,1080,1100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1684:72: 1684 | IF (TPS.LE.0.01e0*S) IF (ERR-S) 2240, 2240, 1150 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1686:72: 1686 | IF (NSUB.NE.0) IF (ABS(XT(4)-ALOCAL)-DELMIN) 1150,1150,1440 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1736:72: 1736 | IF (TPS-S) 2670,2670,1350 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1738:72: 1738 | IF (SEARCH.EQ.3) IF (COUNT) 2237,2237,2190 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1777:72: 1777 | IF (SEARCH-4) 1240,1230,1240 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1976:72: 1976 | IF (I-J-1) 1390,1450,1410 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2015:72: 2015 | IF (JUMPS.GE.3) IF (ABS(SEARCH)-4) 1555,1530,1555 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2016:72: 2016 | IF (SEARCH.EQ.2.OR.SEARCH.EQ.6) IF (LENDT-9) 1720,1680,1630 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2024:72: 2024 | IF (J1) 1610,1610,1640 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2029:72: 2029 | IF (J2) 1610,1610,1640 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2039:72: 2039 | IF (J2-1) 1580,1570,1640 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2041:72: 2041 | 1580 IF (J1-1) 1600,1590,1640 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2043:72: 2043 | 1600 IF (THROW.NE.0) IF (THROW-2) 1670,1680,1670 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2051:72: 2051 | IF (LENDT+1-J1OLD-J2OLD) 1670,1660,1680 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2134:72: 2134 | IF (KONVRG-6) 2060,2060,2130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2147:72: 2147 | IF (K-I) 100,1950,1960 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2148:72: 2148 | 1950 IF (ENDPTS-2) 2750,2760,1960 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2167:72: 2167 | IF (S.GT.EPS) IF (K-KAIMT) 2730,2050,2050 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2186:72: 2186 | IF (ENDPTS-2) 2750,2760,2235 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2202:72: 2202 | IF (ENDPTS-2) 2750,2760,2250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2210:72: 2210 | IF (ENDPTS-2) 2750,2760,2120 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2254:72: 2254 | IF (IC1+IC1+NSUB-12) 990,2690,2690 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2362:72: 2362 | IF (PART-1) 40,40,50 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2481:72: 2481 | IF (KONVRG-6) 100,100,2240 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2613:72: 2613 | 1 IF (KONVRG+KONVRG-LENDT) 2700,2700,1190 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:2645:72: 2645 | 2740 IF (ENDPTS-2) 2750,2760,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sinta.f:1108:13: 1108 | PAACUM=ABS(PACUM) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] sinta.f:1109:11: 1109 | ERRI=PACUM | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] sinta.f:1111:13: 1111 | PEPSMN=ABS(PACUM*RNDC) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] sinta.f:1117:12: 1117 | AACUM=ABS(ACUM) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] sinta.f:1219:11: 1219 | ERRI=ACUM-PACUM | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] sinta.f:1226:22: 1226 | RELEPS=ABS(ACUM)-ERR | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] sinta.f:2279:17: 2279 | AACUM = abs(ACUM) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] sinta.f:2282:13: 2282 | TPS=ACUM-PACUM | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] sinta.f:2330:13: 2330 | 2320 ANSWER=RESULT(1) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] sinta.f:2267:21: 2267 | IF (HAVDIF.AND.ABS(JUMPS-3).NE.1) GO TO 2200 | ^ Warning: 'jumps' may be used uninitialized [-Wmaybe-uninitialized] sinta.f:95:66: 95 | INTEGER NSRB,NSRA,NSIB,NSIA,MAXK,NSUBMX,KONVRG,IC1,IC2,JUMPS | ^ note: 'jumps' was declared here sinta.f:2481:72: 2481 | IF (KONVRG-6) 100,100,2240 | ^ Warning: 'konvrg' may be used uninitialized [-Wmaybe-uninitialized] sinta.f:95:52: 95 | INTEGER NSRB,NSRA,NSIB,NSIA,MAXK,NSUBMX,KONVRG,IC1,IC2,JUMPS | ^ note: 'konvrg' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sintdl.o sintdl.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sintdu.o sintdu.f sintdu.f:152:72: 152 | IF (WHERE-5) 200,40,10 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sintdu.f:178:72: 178 | IF (L-LENDT-1) 80,50,50 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sintf.o sintf.f sintf.f:1:42: 1 | SUBROUTINE SINTF (ANSWER, WORK, IOPT) | 1 Warning: Unused dummy argument 'iopt' at (1) [-Wunused-dummy-argument] sintf.f:1:36: 1 | SUBROUTINE SINTF (ANSWER, WORK, IOPT) | 1 Warning: Unused dummy argument 'work' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sintm.o sintm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sintma.o sintma.f sintma.f:463:72: 463 | IF (IFLAG(1)) 80,100,110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sintma.f:552:19: 552 | ANSWER=ACUM | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sintns.o sintns.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sinto.o sinto.f sinto.f:493:28: 493 | 120 FDAT(1) = RESULT(I) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] sinto.f:494:31: 494 | FDAT(2) = ACUM | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sintop.o sintop.f sintop.f:234:72: 234 | 10 JPRINT=10*JPRINT+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sintsm.o sintsm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o siva.o siva.f siva.f:1385:72: 1385 | if (J - NTE) 470, 565, 620 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1400:72: 1400 | if (J - NTE) 500, 565, 620 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1401:72: 1401 | 500 if (J) 510, 530, 540 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1625:72: 1625 | 660 if (KORD2I) 670, 1380, 1840 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1628:72: 1628 | if (KORD2I+8) 1840, 710, 1840 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1735:72: 1735 | if (ICF) 1360, 780, 1360 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1740:72: 1740 | if (KORD2I .eq. 0) if (EREP) 2220, 2220, 1430 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1742:72: 1742 | if (LINC + 5) 1490, 810, 1490 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1750:72: 1750 | 820 Y(NYNY + J - 1) = Y(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 820 at (1) siva.f:1764:72: 1764 | 840 if (HH * (TMARK - TN)) 1760, 1760, 850 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1800:72: 1800 | if (LINC .lt. 0) if (LINC + 6) 1860, 1750, 1180 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1806:72: 1806 | if (LINC) 930, 980, 940 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1810:72: 1810 | if (LINC + 5) 1120, 1110, 1120 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1818:72: 1818 | if (abs(HH) .gt. HMAX) if (HMAX) 970, 970, 960 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1837:72: 1837 | if ((EIMAX * EMAX) - C1M3) 1000, 1010, 1010 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1852:72: 1852 | if (LSC - 1) 1040, 1080, 1090 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1854:72: 1854 | if (abs(CP875*XI(1)) .le. HMIN) if (LINC) 1050, 970, 970 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1866:72: 1866 | if (KORD1I - 2) 1420, 1430, 1430 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1875:72: 1875 | if (LINC + 4) 1780, 1180, 1110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2000:72: 2000 | if (KORD1I - 2) 1400, 800, 1390 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2003:72: 2003 | if (ICS - ICF) 1410, 1410, 760 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2027:72: 2027 | if (EMAX .gt. EREP) if (EREP) 2210, 2210, 1670 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2036:72: 2036 | if (LSC) 1450, 1360, 1610 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2043:72: 2043 | 1460 if (METHOD) 800, 1350, 1350 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2064:72: 2064 | if (LINC + 9) 1510, 1520, 1500 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2073:72: 2073 | if ((C16 * TPS1 * TPS2) .ge. DNOISE) if (LINC + 9) 1550, 870, 1550 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2100:72: 2100 | if (LINC + 7) 1180, 1570, 1180 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2102:72: 2102 | 1580 if (LSC) 1460, 1460, 1610 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2123:72: 2123 | if (LSC - 2) 1620, 1640, 1650 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2142:72: 2142 | if (LSC - 4) 1260, 1630, 1260 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2147:72: 2147 | 1670 if (BETA(2) - C1) 1690, 1730, 1680 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2195:72: 2195 | if (KORD1I) 1800, 730, 1810 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2208:72: 2208 | if (IOP7) 740, 1820, 740 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2234:72: 2234 | 1870 if (KORD(1)) 2130, 700, 2100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2242:72: 2242 | 1890 if (KORD1I - 5) 1910, 1930, 1900 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2243:72: 2243 | 1900 if (KORD1I - 8) 840, 1130, 910 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2244:72: 2244 | 1910 if (KORD1I - 3) 1920, 1930, 880 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2253:72: 2253 | if (IOP5) 1940, 1980, 1970 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2257:72: 2257 | if (J1) 1950, 1980, 1960 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2274:72: 2274 | if (LEX) 2020, 2030, 2020 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2277:72: 2277 | 2020 if (HH * (TSPECS(J) - TMARKA(LX))) 2030, 2060, 2060 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2279:72: 2279 | if (HH * (TSPECS(J) - XP)) 2060, 2040, 2050 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2289:72: 2289 | if (HH * (XP - TMARK)) 2070, 2080, 2090 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2290:72: 2290 | 2070 if (KORD2I - 1) 670, 840, 670 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2316:72: 2316 | 2140 if (KORD1I - 2) 2150, 1560, 2160 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2319:72: 2319 | 2160 if (KORD1I - 4) 1700, 2200, 2170 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2320:72: 2320 | 2170 if (KORD1I - 13) 2180, 1930, 2190 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2321:72: 2321 | 2180 if (abs(HH) .ge. HMIN) if (KORD1I - 11) 1030, 1450, 1030 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2322:72: 2322 | if (KORD(2) .eq. 0) if (KORD1I - 11) 1070, 800, 1070 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2329:72: 2329 | if (KORD(2)) 1710, 1730, 1100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2551:72: 2551 | if (I - IOP11 - 1) 2420, 2440, 2450 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2556:72: 2556 | 2430 XI(K - 1) = XI(K) - TPD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2430 at (1) siva.f:2815:72: 2815 | if (I .le. ILGREP) if (KQL) 2600, 3310, 2610 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2827:72: 2827 | if (JLGREP + 1) 2540, 2570, 2510 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2829:72: 2829 | 2510 if (EPS + C1) 2520, 2590, 2520 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2855:72: 2855 | 2590 if (KQL) 2600, 3330, 2610 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2904:72: 2904 | if (LSC .le. 2) if (KQL - 2) 2660, 2710, 2710 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2909:72: 2909 | if (LSC - 4) 2650, 2640, 2620 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2924:72: 2924 | if (S + CP125) 2630, 2700, 2700 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2963:72: 2963 | if (RNOISE .gt. RBQ(KQD)) if (RNOISE - C1) 2760, 2750, 2750 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2968:72: 2968 | if (TPS5 .lt. abs(E)) if (LSC) 2730, 2730, 2760 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3029:72: 3029 | if (I .gt. 1) if (I - ILGROR) 2900, 2900, 2830 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3036:72: 3036 | if (JLGROR + 1) 2840, 2850, 2890 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3037:72: 3037 | 2840 if (JLGROR .lt. -2) if (KQD + JLGROR) 2850, 2880, 2880 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3042:72: 3042 | 2860 TEMPAO(K) = abs(TEMPA(K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2860 at (1) siva.f:3049:72: 3049 | 2890 if (KQL) 3240, 3270, 3270 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3051:72: 3051 | 2900 if (JLGROR) 2910, 2890, 3090 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3054:72: 3054 | 2920 TEMPAO(K) = TEMPAO(K) + abs(TEMPA(K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2920 at (1) siva.f:3056:72: 3056 | 2930 if (I .ne. ILGROR) if (KQL) 3310, 3290, 3290 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3060:72: 3060 | 2940 TEMPA(K) = TEMPAO(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2940 at (1) siva.f:3067:72: 3067 | if (KQN - abs(KQL)) 2960, 2980, 3020 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3069:72: 3069 | 2960 if (JLGROR .ge. -2) if (KQL) 3010, 3040, 3040 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3073:72: 3073 | 2980 if ((KQL .ne. 1) .or. (LSC .gt. 0)) if (KQL) 3030, 3040, 3040 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3077:72: 3077 | 3000 F(NDTF + K*NUMDT - NUMDT + 3) = C0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3000 at (1) siva.f:3105:72: 3105 | if (KQN - KQL) 3050, 3070, 3060 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3110:72: 3110 | 3080 LL = LL + NUMDT | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3080 at (1) siva.f:3111:72: 3111 | if (KQN - 1) 3270, 2990, 3270 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3118:72: 3118 | if (LSC - 3) 3110, 3210, 3100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3119:72: 3119 | 3100 if (LSC .eq. 5) if (S + .125E0) 3160, 3130, 3130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3120:72: 3120 | if (LSC - 6) 3130, 3130, 3210 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3125:72: 3125 | 1 3130, 3130, 3210 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3136:72: 3136 | if (KQL) 3230, 2950, 3250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3144:72: 3144 | if (KQN - 2) 3210, 3160, 3180 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3147:72: 3147 | if (KQL) 3220, 2950, 3170 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3155:72: 3155 | if (KQL) 3220, 2950, 3200 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3162:72: 3162 | if (KQL) 3240, 2950, 3270 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3232:72: 3232 | 1 3310, 3310, 3300 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3356:40: 3356 | real GG(MAXORD - 1 + 1/MAXORD), B(KDIM+MAXORD), | 1 Warning: Integer division truncated to constant '0' at (1) [-Winteger-division] siva.f:3463:72: 3463 | 3480 TP = TP * CP5625 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3480 at (1) siva.f:3495:72: 3495 | 3520 V(K) = V(K) - ALPHA(N) * V(K + 1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3520 at (1) siva.f:3539:72: 3539 | 3570 W(K) = V(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3570 at (1) siva.f:3545:72: 3545 | 3590 W(K) = V(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3590 at (1) siva.f:3553:72: 3553 | 3650 W(K) = W(K) - ALPHA(N) * W(K + 1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3650 at (1) siva.f:3680:72: 3680 | if (L) 3710, 3730, 3780 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3681:72: 3681 | 3710 if (L + 2) 4170, 3730, 3720 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3696:72: 3696 | 3750 F(J) = F(J) + TP1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3750 at (1) siva.f:3709:72: 3709 | if (GAMMA(1)) 3790, 3800, 3810 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3712:72: 3712 | if (abs(HI) - abs(T(2))) 3820, 3820, 4180 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3715:72: 3715 | 3810 if (GAMMA(1) .gt. C2) if (LDT - 2) 4180, 3820, 3820 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3723:72: 3723 | 3830 GAMMA(N) = (HI + XI(N-1)) / XI(N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3830 at (1) siva.f:3726:72: 3726 | if (INTEG .le. 0) if (INTEG + MAXDIF) 4160, 3950, 3950 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3742:72: 3742 | 3870 ETA(N) = HI / XI(N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3870 at (1) siva.f:3750:72: 3750 | 3890 C(N) = ETA(N - INTEG) * C(N) + C(N - 1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3890 at (1) siva.f:3753:72: 3753 | 3910 C(N) = ETA(N - INTEG) * C(N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3910 at (1) siva.f:3760:72: 3760 | 3930 C(INTEG+N) = GAMMA(N)*C(INTEG+N-1) - ETA(N)*C(INTEG+N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3930 at (1) siva.f:3770:72: 3770 | 3960 C(N + 1) = GAMMA(N) * C(N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3960 at (1) siva.f:3771:72: 3771 | if (INTEG + 1) 3970, 3990, 4010 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3788:72: 3788 | 4000 C(N + 1) = (TP1*C(N)) / XI(N - INTEG) + GAMMA(N - INTEG) * C(N) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4000 at (1) siva.f:3823:72: 3823 | if (KQQ) 4030, 4130, 4040 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3860:72: 3860 | 4040 if (LNOTM1) if (IYI) 4050, 4060, 4130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3876:72: 3876 | if (INTEG) 4080, 4090, 4100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:3899:72: 3899 | if (INTEG .ge. -MAXDIF) if (INTEG) 3990, 3950, 3920 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4044:72: 4044 | if (IA .le. 21) if (I) 4220, 4520, 4280 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4055:72: 4055 | 4210 IOPTC(J) = IOPTS(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4210 at (1) siva.f:4066:72: 4066 | if (IA - 2) 4400, 4240, 4230 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4088:72: 4088 | if (INCOP(IA) - 2) 4290, 4330, 4300 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4091:72: 4091 | if (IA - 2) 4400, 4400, 4390 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4095:72: 4095 | if (NOUTKO) 4500, 4350, 4350 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4098:72: 4098 | if (NTOLF) 4500, 4500, 4350 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4121:72: 4121 | if (J + 1) 4500, 4370, 4380 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4154:72: 4154 | if (J) 4450, 4470, 4460 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4178:72: 4178 | if (I - 1111) 4400, 4270, 4400 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4286:72: 4286 | if (KQQ) 4530, 4520, 4540 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4308:72: 4308 | if (LDT .ne. 0) if (K - KSC) 4570, 4570, 4550 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4311:72: 4311 | if (K - KSC) 4610, 4610, 4590 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:4387:72: 4387 | if (K) 4670, 4670, 4630 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:1234:5: 1234 | 90 METHOD = 0 | 1 Warning: Label 90 at (1) defined but not used [-Wunused-label] siva.f:1207:5: 1207 | 70 if ((KORDI .gt. MAXORD) .or. (KORDI .le. 0)) then | 1 Warning: Label 70 at (1) defined but not used [-Wunused-label] siva.f:1205:5: 1205 | 60 KQQ = 1 | 1 Warning: Label 60 at (1) defined but not used [-Wunused-label] siva.f:1955:5: 1955 | 1290 continue | 1 Warning: Label 1290 at (1) defined but not used [-Wunused-label] siva.f:1943:5: 1943 | 1270 KQMAXD = 0 | 1 Warning: Label 1270 at (1) defined but not used [-Wunused-label] siva.f:2543:5: 2543 | 2400 F(L + KQQ + 1) = F(L + KQQ + 1) / BETA(KQQ + 1) | 1 Warning: Label 2400 at (1) defined but not used [-Wunused-label] siva.f:2523:5: 2523 | 2310 if (KQQ .gt. 2) then | 1 Warning: Label 2310 at (1) defined but not used [-Wunused-label] siva.f:3423:12: 3422 | do 3440 K = 3, MAXINT | 2 3423 | GG(K - 1) = G(1, K - 1) * TP1 | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) siva.f:3424:14: 3422 | do 3440 K = 3, MAXINT | 2 3423 | GG(K - 1) = G(1, K - 1) * TP1 3424 | G(1, K) = GG(K - 1) / real(K) | 1 Warning: Array reference at (1) out of bounds (3 > 2) in loop beginning at (2) siva.f:3424:22: 3422 | do 3440 K = 3, MAXINT | 2 3423 | GG(K - 1) = G(1, K - 1) * TP1 3424 | G(1, K) = GG(K - 1) / real(K) | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) siva.f:2962:5: 2962 | 2720 RNOISE = RND / TPS5 | 1 Warning: Label 2720 at (1) defined but not used [-Wunused-label] siva.f:3716:72: 3716 | 3820 KQMXI = KQMAXI + INTERP - 1 | ^ Warning: 'interp' may be used uninitialized [-Wmaybe-uninitialized] siva.f:3634:33: 3634 | integer I, ICI, IDT, INTERP, INTEG, INTEGZ, IY, IYI, IYN, IYNI, J, | ^ note: 'interp' was declared here siva.f:3736:72: 3736 | INTEG = INTEG + KQMXI | ^ Warning: 'kqmxi' may be used uninitialized [-Wmaybe-uninitialized] siva.f:3635:18: 3635 | 1 K, KQMXI, KQMXS, KQQ, L, N | ^ note: 'kqmxi' was declared here siva.f:3634:62: 3634 | integer I, ICI, IDT, INTERP, INTEG, INTEGZ, IY, IYI, IYN, IYNI, J, | ^ Warning: 'iyn' may be used uninitialized [-Wmaybe-uninitialized] siva.f:3029:72: 3029 | if (I .gt. 1) if (I - ILGROR) 2900, 2900, 2830 | ^ Warning: 'ilgror' may be used uninitialized [-Wmaybe-uninitialized] siva.f:2707:55: 2707 | integer L, I, KQL, KQN, KQD, JLGREP, J, K, ILGROR, ITOLOR, JLGROR, | ^ note: 'ilgror' was declared here siva.f:3051:72: 3051 | 2900 if (JLGROR) 2910, 2890, 3090 | ^ Warning: 'jlgror' may be used uninitialized [-Wmaybe-uninitialized] siva.f:2707:71: 2707 | integer L, I, KQL, KQN, KQD, JLGREP, J, K, ILGROR, ITOLOR, JLGROR, | ^ note: 'jlgror' was declared here siva.f:3031:72: 3031 | 2830 JLGROR = KORD(ITOLOR) | ^ Warning: 'itolor' may be used uninitialized [-Wmaybe-uninitialized] siva.f:2707:63: 2707 | integer L, I, KQL, KQN, KQD, JLGREP, J, K, ILGROR, ITOLOR, JLGROR, | ^ note: 'itolor' was declared here siva.f:3102:72: 3102 | 3040 LL = NDTF + NUMDT * IORD - NUMDT | ^ Warning: 'iord' may be used uninitialized [-Wmaybe-uninitialized] siva.f:2708:13: 2708 | 1 IORD, KOUTKO, KQLORD, LL, LKQMAX | ^ note: 'iord' was declared here siva.f:3067:72: 3067 | if (KQN - abs(KQL)) 2960, 2980, 3020 | ^ Warning: 'kqlord' may be used uninitialized [-Wmaybe-uninitialized] siva.f:2708:29: 2708 | 1 IORD, KOUTKO, KQLORD, LL, LKQMAX | ^ note: 'kqlord' was declared here siva.f:4153:72: 4153 | 4430 IOPTS(12) = J * MULTJ | ^ Warning: 'j' may be used uninitialized [-Wmaybe-uninitialized] siva.f:3984:55: 3984 | integer IOPTS(23), INCOP(22), IOPTC(23), I, IA, J, K, LIOPT, MULTJ | ^ note: 'j' was declared here siva.f:1145:72: 1145 | INTCHK(6) = IHI + IOP5 | ^ Warning: 'ihi' may be used uninitialized [-Wmaybe-uninitialized] siva.f:992:17: 992 | integer IHI, JL, J, ILOW, K, KQQ, JLIM, KFERR | ^ note: 'ihi' was declared here siva.f:1423:72: 1423 | INTCHK(NXTCHK-1) = IHI - ILOW + 1 | ^ Warning: 'ilow' may be used uninitialized [-Wmaybe-uninitialized] siva.f:992:30: 992 | integer IHI, JL, J, ILOW, K, KQQ, JLIM, KFERR | ^ note: 'ilow' was declared here siva.f:1405:72: 1405 | IDAT(2) = JLIM | ^ Warning: 'jlim' may be used uninitialized [-Wmaybe-uninitialized] siva.f:992:44: 992 | integer IHI, JL, J, ILOW, K, KQQ, JLIM, KFERR | ^ note: 'jlim' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sivadb.o sivadb.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sivag.o sivag.f sivag.f:115:72: 115 | if (IGFLG - 3) 10, 80, 70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:116:72: 116 | 10 if (IGFLG - 1) 20, 210, 60 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:131:72: 131 | 50 GT(I) = GNEW(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) sivag.f:146:72: 146 | if (INGS .gt. NG) if (IGFLG - 4) 400, 380, 480 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:147:72: 147 | if (GNEW(INGS)) 90, 100, 110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:148:72: 148 | 90 if (GT(INGS)) 120, 120, 130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:149:72: 149 | 100 if (GT(INGS)) 130, 80, 130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:150:72: 150 | 110 if (GT(INGS)) 130, 120, 120 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:184:72: 184 | if (HH * (TSPECS(1) - TMARK)) 200, 200, 190 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:202:72: 202 | 210 if (IZFLAG - 1) 350, 220, 310 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:215:72: 215 | if (TSPECS(1) - TOLD) 270, 300, 280 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:216:72: 216 | 270 if (HH) 290, 300, 300 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:217:72: 217 | 280 if (HH) 300, 300, 290 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:223:72: 223 | if (GNEW(INGS)) 320, 340, 330 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:224:72: 224 | 320 if (GT(INGS)) 340, 360, 360 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivag.f:225:72: 225 | 330 if (GT(INGS)) 360, 360, 340 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sivset.o sivset.f sivset.f:428:72: 428 | 70 X(I) = T*X(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) sivset.f:666:72: 666 | 20 T = max(T, abs(DR(K,I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sivset.f:1179:72: 1179 | 10 W(I) = T * WCHMTD(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) sivset.f:1183:72: 1183 | 20 U(I) = T*W(I) + Y(I) - SIZE*U(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sivset.f:1392:72: 1392 | IF (KA) 10, 20, 370 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sivset.f:1443:72: 1443 | 100 W(I) = G(I)/D(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) sivset.f:1468:72: 1468 | 120 W(I) = ONE | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) sivset.f:1572:72: 1572 | 250 STEP(K) = STEP(K)/DFAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) sivset.f:1614:72: 1614 | 340 STEP(I) = STEP(I) / sqrt(W(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) sivset.f:1653:72: 1653 | 400 STEP(I) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1) sivset.f:1942:72: 1942 | 40 W(I) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) sivset.f:2096:72: 2096 | 230 W(I) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) sivset.f:2225:72: 2225 | 350 W(I) = T*W(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1) sivset.f:2230:72: 2230 | 360 W(I) = T2*W(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) sivset.f:2472:72: 2472 | 50 X(I) = T*X(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) sivset.f:3187:72: 3187 | 400 WRITE(PU,'(1X,I5,g17.6,g14.3)') I, X(I), D(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1) sivset.f:3227:72: 3227 | 480 WRITE(PU,490) I, X(I), D(I), G(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 480 at (1) sivset.f:3248:72: 3248 | 10 X(I) = Y(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) sivset.f:3465:72: 3465 | 10 W(I) = A*X(I) + Y(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) sivset.f:3480:72: 3480 | 10 Y(I) = X(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) sivset.f:3495:72: 3495 | 10 X(I) = A * Y(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) sivset.f:3510:72: 3510 | 10 Y(I) = SS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) sivset.f:2208:10: 2208 | IF (KA .GE. KAMIN) GO TO 340 | ^ Warning: 'kamin' may be used uninitialized [-Wmaybe-uninitialized] sivset.f:1825:32: 1825 | 1 J, K, KALIM, KAMIN, K1, LK0, PHIPIN, Q, Q0, UK0, X | ^ note: 'kamin' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sjacg.o sjacg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o slasum.o slasum.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o slesum.o slesum.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o slgama.o slgama.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o slnrel.o slnrel.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o smatp.o smatp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o smatpr.o smatpr.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o smess.o smess.f smess.f:219:17: 219 | KSMA = -log10(FSMA) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] smess.f:222:15: 222 | KBIG = log10(FBIG) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] smess.f:215:72: 215 | IWF = IWF + NEG | ^ Warning: 'neg' may be used uninitialized [-Wmaybe-uninitialized] smess.f:117:68: 117 | integer ICOL, ID, J, K, KSMA, KBIG, KEXE, LDFDEF, NEG | ^ note: 'neg' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o smlc.o smlc.f smlc.f:506:72: 506 | 20 IACT(MTOT)=K | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) smlc.f:637:72: 637 | 10 AM(I)=A(KEQ,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) smlc.f:643:72: 643 | 30 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) smlc.f:648:72: 648 | 40 AM(I)=AM(I)-VMULT*A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) smlc.f:704:72: 704 | 40 XBIG(I)=max(XBIG(I),abs(X(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) smlc.f:940:72: 940 | 50 SUM=SUM+abs(D(I)*GS(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) smlc.f:952:72: 952 | 60 XBIG(I)=max(XBIG(I),abs(X(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) smlc.f:1002:72: 1002 | 10 G(I)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) smlc.f:1019:72: 1019 | 20 RESABS=RESABS+abs(XBIG(I)*A(J,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) smlc.f:1042:72: 1042 | 30 SUM=SUM+abs(X(I)*A(J,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) smlc.f:1077:72: 1077 | 40 G(I)=G(I)+A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) smlc.f:1131:72: 1131 | 20 GM(I)=G(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) smlc.f:1142:72: 1142 | 40 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) smlc.f:1154:72: 1154 | 50 GM(I)=GM(I)-TEMP*A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) smlc.f:1229:72: 1229 | 20 SUM=SUM+ZTG(J)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) smlc.f:1250:72: 1250 | 40 GMNEW(I)=GM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) smlc.f:1256:72: 1256 | 60 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) smlc.f:1263:72: 1263 | 70 GMNEW(I)=GMNEW(I)-TEMP*A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) smlc.f:1292:72: 1292 | 90 PAR(K)=min(THETA*PARNEW(K)+RATIO*PAR(K),0.0E0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) smlc.f:1294:72: 1294 | 100 GM(I)=THETA*GMNEW(I)+RATIO*GM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) smlc.f:1301:72: 1301 | 110 PAR(K)=PAR(K+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) smlc.f:1389:72: 1389 | 30 X(I)=XS(I)+STEP*D(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) smlc.f:1428:72: 1428 | 50 GOPT(I)=G(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) smlc.f:1492:72: 1492 | 80 G(I)=GOPT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) smlc.f:1517:72: 1517 | 10 ZZDIAG(I)=ZZDIAG(I)+Z(IZ+J)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) smlc.f:1518:72: 1518 | 20 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) smlc.f:1533:72: 1533 | 40 SUMD=SUMD+ZZDIAG(I)*A(J,I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) smlc.f:1568:72: 1568 | 60 GMNEW(I)=A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) smlc.f:1572:72: 1572 | 70 GMNEW(I)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) smlc.f:1588:72: 1588 | 90 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) smlc.f:1593:72: 1593 | 100 GMNEW(I)=GMNEW(I)-TEMP*A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) smlc.f:1610:72: 1610 | 110 SUMABS=SUMABS+abs(TEMP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) smlc.f:1664:72: 1664 | 10 RESBIG=RESBIG+abs(TEMPA)*XBIG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) smlc.f:1693:72: 1693 | 20 XBIG(I)=max(XBIG(I),abs(X(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) smlc.f:1744:72: 1744 | 10 ZTC(J)=TEMP*Z(IZNBD+J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) smlc.f:1750:72: 1750 | 20 CGRAD(I)=A(ICON,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) smlc.f:1754:72: 1754 | DO 30 I=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) smlc.f:1756:72: 1756 | 30 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) smlc.f:1785:72: 1785 | 50 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) smlc.f:1802:72: 1802 | 60 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) smlc.f:1810:72: 1810 | 70 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) smlc.f:1830:72: 1830 | 80 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) smlc.f:1865:72: 1865 | 10 RESABS=RESABS+abs(A(J,I)*XBIG(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) smlc.f:1887:72: 1887 | 30 XBIG(I)=abs(X(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) smlc.f:1921:72: 1921 | 10 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) smlc.f:1951:72: 1951 | 20 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) smlc.f:1968:72: 1968 | 30 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) smlc.f:1976:72: 1976 | 40 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) smlc.f:2048:72: 2048 | 30 Z(I)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) smlc.f:2062:72: 2062 | 40 XBIG(I)=abs(X(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) smlc.f:2083:72: 2083 | 10 RESKT(I)=G(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) smlc.f:2100:72: 2100 | 30 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) smlc.f:2142:72: 2142 | 60 SSQKT=SSQKT+RESKT(I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) smlc.f:2150:72: 2150 | 70 PARW(K)=PAR(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) smlc.f:2152:72: 2152 | 80 RESKTW(I)=RESKT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) smlc.f:2161:72: 2161 | 90 PAR(K)=PARW(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) smlc.f:2163:72: 2163 | 100 RESKT(I)=RESKTW(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) smlc.f:2172:72: 2172 | 110 SSQKT=SSQKT+G(I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) smlc.f:2214:72: 2214 | 10 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) smlc.f:2216:72: 2216 | 20 ZTG(J)=SUM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) smlc.f:2227:72: 2227 | 30 SUMABS=SUMABS+abs(TEMP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) smlc.f:2230:72: 2230 | 40 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) smlc.f:2238:72: 2238 | 50 SUMABS=SUMABS+abs(TEMP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) smlc.f:2325:72: 2325 | 90 SP=SP+D(I)*A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) smlc.f:2359:72: 2359 | 10 DG=DG+GS(I)*XS(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) smlc.f:2378:72: 2378 | 30 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) smlc.f:2399:72: 2399 | 40 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) smlc.f:2407:72: 2407 | 50 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) smlc.f:2414:72: 2414 | 60 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) smlc.f:2420:72: 2420 | 70 IZ=IZ+N | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) smlc.f:1813:72: 1813 | Z(IZ)=Z(IZ)-SUM/CGRAD(IPIV) | ^ Warning: 'ipiv' may be used uninitialized [-Wmaybe-uninitialized] smlc.f:1721:35: 1721 | integer I, ICON, INEWBD, IPIV, IZ, IZNBD, J, JP, NP | ^ note: 'ipiv' was declared here smlc.f:1978:72: 1978 | IZ=IPIV*N-N+JP | ^ Warning: 'ipiv' may be used uninitialized [-Wmaybe-uninitialized] smlc.f:1897:32: 1897 | integer I, IBD, ICON, IPIV, ISAVE, IZ, IZBD, J, JP, NM | ^ note: 'ipiv' was declared here smlc.f:1952:72: 1952 | Z(IZBD+JP)=0.0E0 | ^ Warning: 'izbd' may be used uninitialized [-Wmaybe-uninitialized] smlc.f:1897:49: 1897 | integer I, IBD, ICON, IPIV, ISAVE, IZ, IZBD, J, JP, NM | ^ note: 'izbd' was declared here smlc.f:1231:14: 1231 | IF (ITEST .EQ. 1) GOTO 120 | ^ Warning: 'itest' may be used uninitialized [-Wmaybe-uninitialized] smlc.f:1208:29: 1208 | integer I, IDROP, ITEST, IZ, J, JM, K, KU, MP, NP | ^ note: 'itest' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o smpdrv.o smpdrv.f smpdrv.f:40:72: 40 | 20 d(i)=c(i+1)*fac/d(2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o smpint.o smpint.f smpint.f:39:72: 39 | 30 B(I+1)=B(2)*A(I)/DIV | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o smpval.o smpval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o snlafb.o snlafb.f snlafb.f:112:72: 112 | IF (IV(1)-2) 30, 50, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o snlafu.o snlafu.f snlafu.f:120:72: 120 | IF (IV(1)-2) 30, 50, 100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o snlagb.o snlagb.f snlagb.f:130:72: 130 | IF (IV(1)-2) 30, 50, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o snlagu.o snlagu.f snlagu.f:173:72: 173 | IF (IV(1)-2) 30, 50, 60 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o snlsfb.o snlsfb.f snlsfb.f:237:72: 237 | IF (IV(1)-2) 140, 150, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) snlsfb.f:288:72: 288 | 210 IV(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) snlsfb.f:175:72: 175 | IWA1 = IN1 + INLEN | ^ Warning: 'inlen' may be used uninitialized [-Wmaybe-uninitialized] snlsfb.f:69:52: 69 | 1 GRP2, I, I1, IN0, IN1, IN2, INI, INLEN, IPNTR1, IV1, IWA1, | ^ note: 'inlen' was declared here snlsfb.f:213:10: 213 | IF (IV1 .EQ. 13) GO TO 999 | ^ Warning: 'iv1' may be used uninitialized [-Wmaybe-uninitialized] snlsfb.f:69:65: 69 | 1 GRP2, I, I1, IN0, IN1, IN2, INI, INLEN, IPNTR1, IV1, IWA1, | ^ note: 'iv1' was declared here snlsfb.f:154:72: 154 | IV(NEXTV) = IV(XSAVE) + P + RSVLEN | ^ Warning: 'rsvlen' may be used uninitialized [-Wmaybe-uninitialized] snlsfb.f:71:50: 71 | 3 NGRP1, NGRP2, RSAVE0, RSAVE1, RSVLEN, X0I, XSAVE0, XSAVE1 | ^ note: 'rsvlen' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o snlsfu.o snlsfu.f snlsfu.f:226:72: 226 | IF (IV(1)-2) 140, 150, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) snlsfu.f:267:72: 267 | 180 IV(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) snlsfu.f:166:72: 166 | IWA1 = IN1 + INLEN | ^ Warning: 'inlen' may be used uninitialized [-Wmaybe-uninitialized] snlsfu.f:72:52: 72 | 1 GRP2, I, I1, IN0, IN1, IN2, INI, INLEN, IPNTR1, IV1, IWA1, | ^ note: 'inlen' was declared here snlsfu.f:202:10: 202 | IF (IV1 .EQ. 13) GO TO 999 | ^ Warning: 'iv1' may be used uninitialized [-Wmaybe-uninitialized] snlsfu.f:72:65: 72 | 1 GRP2, I, I1, IN0, IN1, IN2, INI, INLEN, IPNTR1, IV1, IWA1, | ^ note: 'iv1' was declared here snlsfu.f:146:72: 146 | IV(NEXTV) = IV(XSAVE) + P + RSVLEN | ^ Warning: 'rsvlen' may be used uninitialized [-Wmaybe-uninitialized] snlsfu.f:74:50: 74 | 3 NGRP1, NGRP2, RSAVE0, RSAVE1, RSVLEN, X0I, XSAVE0, XSAVE1 | ^ note: 'rsvlen' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o snlsgb.o snlsgb.f snlsgb.f:298:72: 298 | IF (IV(1)-2) 110, 120, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) snlsgb.f:288:10: 288 | IF (IV1 .EQ. 13) GO TO 999 | ^ Warning: 'iv1' may be used uninitialized [-Wmaybe-uninitialized] snlsgb.f:216:34: 216 | INTEGER A1, DA1, I, IN1, IV1, K, L1, LP1, M, M0, NF | ^ note: 'iv1' was declared here snlsgb.f:216:46: 216 | INTEGER A1, DA1, I, IN1, IV1, K, L1, LP1, M, M0, NF | ^ Warning: 'lp1' may be used uninitialized [-Wmaybe-uninitialized] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o snlsgu.o snlsgu.f snlsgu.f:300:72: 300 | IF (IV(1)-2) 110, 120, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) snlsgu.f:290:10: 290 | IF (IV1 .EQ. 13) GO TO 999 | ^ Warning: 'iv1' may be used uninitialized [-Wmaybe-uninitialized] snlsgu.f:213:34: 213 | INTEGER A1, DA1, I, IN1, IV1, K, L1, LP1, M, M0, NF | ^ note: 'iv1' was declared here snlsgu.f:213:46: 213 | INTEGER A1, DA1, I, IN1, IV1, K, L1, LP1, M, M0, NF | ^ Warning: 'lp1' may be used uninitialized [-Wmaybe-uninitialized] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o snqsol.o snqsol.f snqsol.f:883:18: 883 | if(JEVAL) HLIM0 = min(HLIM0, 0.707107e0 * PNORM) | ^ Warning: 'jeval' may be used uninitialized [-Wmaybe-uninitialized] snqsol.f:516:19: 516 | logical JEVAL, NEWX, NEWTOK, SING, TRYZER | ^ note: 'jeval' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o snrm2.o snrm2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o spfit.o spfit.f spfit.f:165:72: 165 | 30 XMAX = MAX(XMAX,X(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) spfit.f:210:72: 210 | 120 W(LROW,J) = S2 * W(LROW,J-1) - W(LROW,J-2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) spfit.f:214:72: 214 | 100 W(LROW,J) = S * W(LROW,J-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) spfit.f:261:72: 261 | 160 P(I+2) = W(I,NP2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) spfit.f:395:72: 395 | 300 P(I+2) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o splot.o splot.f splot.f:2717:22: 2717 | K = log10(TP) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:2720:22: 2720 | J = log10(TP / TLEN) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:4254:18: 4254 | MAXDIG = -log10(V) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:4335:19: 4335 | KTEN = log10(V) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:4741:30: 4741 | 1 MBORD(8,5) = BORLOC(2) - TP1 | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:4743:30: 4743 | 1 MBORD(8,6) = TP2 - BORLOC(4) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:2848:27: 2848 | KURPEN = FP(LWIDTH+3) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:2933:19: 2933 | KDIG = TICMAJ | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:2936:19: 2936 | KDIG = log10(.98E0 * TBASE) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:2937:19: 2937 | KDIG = TICMAJ / 10**KDIG | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:2952:12: 2952 | K =log10(.4 * TLEN) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:2986:21: 2986 | MINTIC = FDIG(KDIG) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:3020:16: 3020 | J = (TPMIN - TBASE) / TICMAJ | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:3033:13: 3033 | J = (TPMIN - TBASE) / TP | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:3055:16: 3055 | J = (TPMAX - TBASE) / TICMAJ | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:3067:13: 3067 | J = (TPMAX - TBASE) / TP | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:3117:15: 3117 | KURPEN = FP(LWIDTH) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:3214:18: 3214 | KURPEN = FP(LWIDTH+min(IP(LTANNO),3)) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:2108:18: 2108 | KURPEN = FP(LWIDRE) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:2113:18: 2113 | KURPEN = FP(LWIDRE) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] splot.f:4751:72: 4751 | 3 XYPOS(2)+PTSIZ*ADJ2(K)) | ^ Warning: 'k' may be used uninitialized [-Wmaybe-uninitialized] splot.f:4571:26: 4571 | integer I, IAX, J, K, L, LASTL, LFILL2(3), LPAR | ^ note: 'k' was declared here splot.f:4751:72: 4751 | 3 XYPOS(2)+PTSIZ*ADJ2(K)) | ^ Warning: 'l' may be used uninitialized [-Wmaybe-uninitialized] splot.f:4571:29: 4571 | integer I, IAX, J, K, L, LASTL, LFILL2(3), LPAR | ^ note: 'l' was declared here splot.f:3160:18: 3160 | else if (KLOG .eq. 2) then | ^ Warning: 'klog' may be used uninitialized [-Wmaybe-uninitialized] splot.f:2652:66: 2652 | integer I, I1, I2, IAX, IAXP, IBCAP(6), J, K, KB, KDIG, KLOG, | ^ note: 'klog' was declared here splot.f:3150:13: 3150 | if (MINTIC .gt. 1) then | ^ Warning: 'mintic' may be used uninitialized [-Wmaybe-uninitialized] splot.f:2653:15: 2653 | 1 MINTIC | ^ note: 'mintic' was declared here splot.f:841:72: 841 | K2 = index(BNDTST(NTYP:4), C) | ^ Warning: 'ntyp' may be used uninitialized [-Wmaybe-uninitialized] splot.f:569:23: 569 | 5 NRULE(18), NTYP, NXI, NY | ^ note: 'ntyp' was declared here splot.f:2478:72: 2478 | IOTEMP = IOTMP1 | ^ Warning: 'iotmp1' may be used uninitialized [-Wmaybe-uninitialized] splot.f:563:36: 563 | integer INUNIT, IOTEMP, IOTMP1, IOTMP2, I, I1, IACT, IAOPT, | ^ note: 'iotmp1' was declared here splot.f:2302:10: 2302 | if (BADPT) then | ^ Warning: 'badpt' may be used uninitialized [-Wmaybe-uninitialized] splot.f:574:19: 574 | logical BADPT, DATSAV, LKLIP, MOREIY, NOTOUT | ^ note: 'badpt' was declared here splot.f:2403:21: 2403 | else if (LKLIP) then | ^ Warning: 'lklip' may be used uninitialized [-Wmaybe-uninitialized] splot.f:574:34: 574 | logical BADPT, DATSAV, LKLIP, MOREIY, NOTOUT | ^ note: 'lklip' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o spolz.o spolz.f spolz.f:253:72: 253 | 220 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 220 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o spolz2.o spolz2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sppnml.o sppnml.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o spquad.o spquad.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sprpl.o sprpl.f sprpl.f:99:13: 99 | JZ = -A * B + C | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] sprpl.f:118:9: 118 | JY=(Y-A) * B + C | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sprpl1.o sprpl1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sprpl2.o sprpl2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sprpl3.o sprpl3.f sprpl3.f:469:13: 469 | KMINOR=EKMN(I) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sprtsv.o sprtsv.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o spsi.o spsi.f spsi.f:132:13: 132 | N = X | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] spsi.f:161:16: 161 | n = x + x | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] spsi.f:175:13: 175 | n = x | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] spsi.f:188:10: 188 | n = x + x | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o spval.o spval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sq7rfh.o sq7rfh.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sqrbd.o sqrbd.f sqrbd.f:131:72: 131 | 10 DNORM = MAX(ABS(Q(J))+ABS(E(J)),DNORM) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) sqrbd.f:260:72: 260 | 180 V(J,K) = -V(J,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srane.o srane.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srang.o srang.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srangv.o srangv.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sranr.o sranr.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sranu.o sranu.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srcomp.o srcomp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srcval.o srcval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srdval.o srdval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srexp.o srexp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srft.o srft.f srft.f:398:72: 398 | 320 MU(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srft1.o srft1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srfval.o srfval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srjval.o srjval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srlog.o srlog.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srn2g.o srn2g.f srn2g.f:271:72: 271 | IF (IV(1) - 2) 50, 60, 220 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) srn2g.f:1637:72: 1637 | IF (COV1) 80,110,130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) srn2g.f:1810:72: 1810 | 40 A(J) = LII * L(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) srn2g.f:1564:72: 1564 | 210 IV(FDH) = HES | ^ Warning: 'hes' may be used uninitialized [-Wmaybe-uninitialized] srn2g.f:1364:25: 1364 | INTEGER GSAVE1, HES, HMI, HPI, HPM, I, K, KIND, L, M, MM1, MM1O2, | ^ note: 'hes' was declared here srn2g.f:462:72: 462 | 300 CALL SITSUM(D, V(G1), IV, LIV, LV, P, V, X) | ^ Warning: 'g1' may be used uninitialized [-Wmaybe-uninitialized] srn2g.f:175:16: 175 | INTEGER G1, GI, I, IV1, IVMODE, JTOL1, K, L, LH, NN, QTR1, | ^ note: 'g1' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srn2gb.o srn2gb.f srn2gb.f:186:72: 186 | IF (IV(1) - 2) 50, 60, 260 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) srn2gb.f:1705:72: 1705 | 50 IPIV1(I) = I | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) srn2gb.f:1799:72: 1799 | 20 WW(I) = -STEPX(I) * TD(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) srn2gb.f:1848:72: 1848 | 90 TG(I) = T1 * TG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) srn2gb.f:1969:72: 1969 | 10 X(I) = Y(I) / Z(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) srn2gb.f:1973:72: 1973 | 30 X(I) = Y(I) * Z(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) srn2gb.f:2021:72: 2021 | 10 X(I) = X(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) srn2gb.f:341:72: 341 | 270 CALL SITSUM(D, V(G1), IV, LIV, LV, P, V, X) | ^ Warning: 'g1' may be used uninitialized [-Wmaybe-uninitialized] srn2gb.f:95:16: 95 | INTEGER G1, GI, I, IV1, IVMODE, JTOL1, L, LH, NN, QTR1, | ^ note: 'g1' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srnsg.o srnsg.f srnsg.f:227:72: 227 | IF (IV1-2) 40, 150, 230 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) srnsg.f:298:72: 298 | 130 CALL SV2AXY(N, V(R1), -C(I), A(1,I), V(R1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srnsgb.o srnsgb.f srnsgb.f:196:72: 196 | IF (IV1-2) 40, 150, 230 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) srnsgb.f:267:72: 267 | 130 CALL SV2AXY(N, V(R1), -C(I), A(1,I), V(R1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srot.o srot.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srotg.o srotg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srotm.o srotm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o srotmg.o srotmg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssbasd.o ssbasd.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssbasi.o ssbasi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sscal.o sscal.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssdif.o ssdif.f ssdif.f:31:72: 31 | do 20 I=ID,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssfind.o ssfind.f ssfind.f:112:16: 112 | STEP = 2.0e0 * STEP | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] ssfind.f:140:16: 140 | STEP = 2.0e0 * STEP | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssfit.o ssfit.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssfitc.o ssfitc.f ssfitc.f:623:35: 623 | if(RELOP .eq. 1) FAC = FAC * WT | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] ssfitc.f:643:27: 643 | FAC = -YI(IC+1) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssi.o ssi.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssin1.o ssin1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssinhm.o ssinhm.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssinpx.o ssinpx.f ssinpx.f:94:10: 94 | N = A | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssnpxx.o ssnpxx.f ssnpxx.f:40:10: 40 | n = f | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] ssnpxx.f:45:10: 45 | n = g | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssort.o ssort.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssortp.o ssortp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sspge.o sspge.f sspge.f:995:72: 995 | ISPEC(4) = LFREE - LNEXT - 1 | ^ Warning: 'lfree' may be used uninitialized [-Wmaybe-uninitialized] sspge.f:165:13: 165 | 2 LFREE, LNEXT, LR, LROWL, LROWLI, LRSWSC, LROWSZ, | ^ note: 'lfree' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssquad.o ssquad.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sstat1.o sstat1.f sstat1.f:154:20: 154 | INDEX = TEMP*(X-X1)/(X2-X1) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sstat2.o sstat2.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sstop.o sstop.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssva.o ssva.f ssva.f:276:72: 276 | 30 SB = SB + A(I,J)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) ssva.f:550:72: 550 | 210 IF (K.GT.1) A(I,K) = A(I,K) + A(I,K-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssval.o ssval.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssvala.o ssvala.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssvdrs.o ssvdrs.f ssvdrs.f:188:72: 188 | 30 A(I,J) = A(I,NWORK) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) ssvdrs.f:216:72: 216 | 130 A(MWORK,J) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) ssvdrs.f:269:72: 269 | 180 S(J) = A(J,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) ssvdrs.f:271:72: 271 | 190 WORK(J) = A(J-1,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) ssvdrs.f:289:72: 289 | 220 A(I,J) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) ssvdrs.f:290:72: 290 | 230 A(I,I) = ONE | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) ssvdrs.f:305:72: 305 | 250 S(J) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) ssvdrs.f:313:72: 313 | 270 A(I,J) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) ssvdrs.f:321:72: 321 | 290 A(I,J) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1) ssvdrs.f:317:13: 317 | I = S(K) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sswap.o sswap.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o ssymql.o ssymql.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stcst.o stcst.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stgc0.o stgc0.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stgc1.o stgc1.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stgext.o stgext.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stgfi.o stgfi.f stgfi.f:188:15: 188 | indsgn = savwrk(1) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stgfnd.o stgfnd.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stggrd.o stggrd.f stggrd.f:416:72: 416 | INFO(3) = MBUSED | ^ Warning: 'mbused' may be used uninitialized [-Wmaybe-uninitialized] stggrd.f:104:35: 104 | integer nb, nt, ntlim, mbused, TRIANG(MT) | ^ note: 'mbused' was declared here stggrd.f:415:72: 415 | INFO(2) = NB | ^ Warning: 'nb' may be used uninitialized [-Wmaybe-uninitialized] stggrd.f:104:16: 104 | integer nb, nt, ntlim, mbused, TRIANG(MT) | ^ note: 'nb' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stgpd.o stgpd.f stgpd.f:710:10: 710 | 230 if (KP .ge. 5) then | ^ Warning: 'kp' may be used uninitialized [-Wmaybe-uninitialized] stgpd.f:636:32: 636 | integer i, IROW, J, JJ, KP, LEN, MFIT, MW | ^ note: 'kp' was declared here stgpd.f:492:12: 492 | if (JUSED(K) .eq. KP) then | ^ Warning: 'kp' may be used uninitialized [-Wmaybe-uninitialized] stgpd.f:379:41: 379 | integer ADD1(3), i, im1, ip1, k, kp | ^ note: 'kp' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stgprg.o stgprg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stgrec.o stgrec.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o stgset.o stgset.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o strc2c.o strc2c.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sucomp.o sucomp.f sucomp.f:164:72: 164 | if(M1-1)230,240,250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sucomp.f:171:72: 171 | 245 Y9(I+1) = ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 245 at (1) sucomp.f:180:72: 180 | 252 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 252 at (1) sucomp.f:194:72: 194 | if(M2-1)60,40,10 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sucomp.f:208:72: 208 | 50 Y(I+1)=U(1)*V(I+1) + U(I+1)*V(1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) sucomp.f:234:72: 234 | if(M1-1)80,90,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sucomp.f:243:72: 243 | 95 Y1(I+1)=(U1(I+1)-Y1(1)*V1(I+1))*VINV | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) sucomp.f:273:72: 273 | 148 Y3(K)=U3(K)+V3(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 148 at (1) sucomp.f:289:72: 289 | 154 Y4(K)=U4(K)-V4(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 154 at (1) sucomp.f:307:72: 307 | 160 Y5(K)= V5(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) sucomp.f:327:72: 327 | 168 Y6(K)= -V6(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 168 at (1) sucomp.f:348:72: 348 | 176 Y7(K)=C7*V7(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 176 at (1) sucomp.f:368:72: 368 | if(M1-1)204,208,214 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sucomp.f:376:72: 376 | 212 Y8(I+1) = V8(I+1)*FAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 212 at (1) sucomp.f:384:72: 384 | 220 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) sucomp.f:403:72: 403 | if(M1-1) 4, 6,16 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sucomp.f:415:72: 415 | 12 Y(I+1)=U(I+1)*D1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) sucomp.f:427:72: 427 | 20 Y(K) = D1*U(K) - Y(J+1)*FAC2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sucomp.f:442:72: 442 | if(M1-1)30,31,34 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sucomp.f:448:72: 448 | 32 Y1(I+1)=Y1(1)*U1(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) sucomp.f:454:72: 454 | do 36 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 36 at (1) sucomp.f:456:72: 456 | 36 Y1(K)=Y1(1) * (U1(K) + U1(I+1)*U1(J+1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 36 at (1) sucomp.f:472:72: 472 | if(M1-1)40,42,48 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sucomp.f:478:72: 478 | 44 Y2(I+1)=U2(I+1) * D1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 44 at (1) sucomp.f:486:72: 486 | do 50 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1) sucomp.f:488:72: 488 | 50 Y2(K) = D1 * U2(K) - Y2(I+1) * Y2(J+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) sucomp.f:517:72: 517 | 56 if(M1-1)64,68,84 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sucomp.f:524:72: 524 | 70 Y3(I+1)=ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) sucomp.f:527:72: 527 | 78 Y3(I+1)=U3(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 78 at (1) sucomp.f:534:72: 534 | do 94 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 94 at (1) sucomp.f:536:72: 536 | 94 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 94 at (1) sucomp.f:544:72: 544 | 98 Y3(K)=U3(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 98 at (1) sucomp.f:547:72: 547 | 86 Y3(K)=ZERO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 86 at (1) sucomp.f:554:72: 554 | if(M1-1)104,108,112 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sucomp.f:561:72: 561 | 110 Y3(I+1) = FAC * U3(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) sucomp.f:569:72: 569 | do 116 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 116 at (1) sucomp.f:571:72: 571 | 116 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 116 at (1) sucomp.f:595:72: 595 | 20 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sucomp.f:601:72: 601 | do 28 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 28 at (1) sucomp.f:603:72: 603 | 28 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 28 at (1) sucomp.f:628:72: 628 | 20 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sucomp.f:634:72: 634 | do 28 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 28 at (1) sucomp.f:636:72: 636 | 28 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 28 at (1) sucomp.f:660:72: 660 | 20 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sucomp.f:666:72: 666 | do 28 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 28 at (1) sucomp.f:668:72: 668 | 28 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 28 at (1) sucomp.f:692:72: 692 | 20 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sucomp.f:698:72: 698 | do 28 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 28 at (1) sucomp.f:700:72: 700 | 28 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 28 at (1) sucomp.f:716:72: 716 | if(M1-1)30,32,36 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sucomp.f:722:72: 722 | 34 Y1(I+1)=D1*U1(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 34 at (1) sucomp.f:731:72: 731 | do 40 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) sucomp.f:733:72: 733 | 40 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) sucomp.f:768:72: 768 | 52 Y2(I+1)=FAC1*V2(I+1)-FAC2*U2(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 52 at (1) sucomp.f:773:72: 773 | do 56 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 56 at (1) sucomp.f:776:72: 776 | 56 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 56 at (1) sucomp.f:846:72: 846 | 130 Y1(I+1)=FAC*U1(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) sucomp.f:883:72: 883 | 220 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) sucomp.f:889:72: 889 | do 228 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 228 at (1) sucomp.f:891:72: 891 | 228 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 228 at (1) sucomp.f:917:72: 917 | 220 Y(I+1) = D1*U(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) sucomp.f:923:72: 923 | do 228 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 228 at (1) sucomp.f:925:72: 925 | 228 K=K+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 228 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o surev.o surev.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o svecp.o svecp.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o svecpr.o svecpr.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o swcomp.o swcomp.f swcomp.f:141:72: 141 | 50 S1(I+1) = 0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) swcomp.f:212:72: 212 | 64 S1(I+1) = 0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 64 at (1) swcomp.f:244:72: 244 | IF(N9 - 1) 90,92,94 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) swcomp.f:259:72: 259 | 96 S2(I)= Y9(I)/BIG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 96 at (1) swcomp.f:281:72: 281 | 10 W(I)=U(I)+V(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) swcomp.f:296:72: 296 | 20 W2(I)=U2(I)-V2(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) swcomp.f:337:72: 337 | 156 S1(I+1)=U15(I+1)*SCALE | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 156 at (1) swcomp.f:341:72: 341 | 158 Y15(I+1)=Y15(I+1)*SQRTU | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 158 at (1) swcomp.f:358:72: 358 | 40 Y4(I+1)=Y4(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) swcomp.f:437:72: 437 | 76 S1(I) = -S1(I-2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 76 at (1) swcomp.f:523:72: 523 | 94 S1(I) = S1(I-2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 94 at (1) swcomp.f:543:72: 543 | IF(N10-1) 104,102,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) swcomp.f:545:72: 545 | 101 U10(I+1)= 0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 101 at (1) swcomp.f:563:72: 563 | 110 Y11(I+1)=U11(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) swcomp.f:579:72: 579 | 120 Y12(I+1)=-U12(I+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) swcomp.f:594:72: 594 | 130 Y13(I) = C13*U13(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) swcomp.f:670:72: 670 | IF(M ) 110,35,45 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) swcomp.f:675:72: 675 | 40 Y(J+1) = 0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) swcomp.f:686:72: 686 | 47 Y(I+1) = 0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 47 at (1) swcomp.f:691:72: 691 | 48 FAC=FAC*D | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 48 at (1) swcomp.f:728:72: 728 | 140 Y(J+1)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) swcomp.f:768:72: 768 | 40 Y(I+1)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) swcomp.f:775:72: 775 | 60 call SWPRO (L, Y(NP1-L), U(2), Y(NP1-L)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sxparg.o sxparg.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sxrk8.o sxrk8.f sxrk8.f:2537:31: 2537 | IDAT(IDAT(LINT)+1) = DAT(NEXTT) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] sxrk8.f:1085:72: 1085 | J = nint(OPT(LLERR)) | ^ Warning: 'llerr' may be used uninitialized [-Wmaybe-uninitialized] sxrk8.f:859:20: 859 | 2 LIDAT, LLERR, LO, LWORK, MAXLER, MINLER, N, NEQ, NEQNOE, NEXT | ^ note: 'llerr' was declared here gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sxrk8f.o sxrk8f.f sxrk8f.f:1:37: 1 | subroutine SXRK8F(T, Y, F, IDAT) | 1 Warning: Unused dummy argument 'idat' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sxrk8g.o sxrk8g.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o sxrk8o.o sxrk8o.f sxrk8o.f:1:40: 1 | subroutine SXRK8O(TS, Y, IDAT, DAT) | 1 Warning: Unused dummy argument 'dat' at (1) [-Wunused-dummy-argument] sxrk8o.f:1:35: 1 | subroutine SXRK8O(TS, Y, IDAT, DAT) | 1 Warning: Unused dummy argument 'idat' at (1) [-Wunused-dummy-argument] sxrk8o.f:1:26: 1 | subroutine SXRK8O(TS, Y, IDAT, DAT) | 1 Warning: Unused dummy argument 'ts' at (1) [-Wunused-dummy-argument] sxrk8o.f:1:29: 1 | subroutine SXRK8O(TS, Y, IDAT, DAT) | 1 Warning: Unused dummy argument 'y' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o szero.o szero.f szero.f:289:72: 289 | if (MODE .ne. 0) if (LMODE - 1) 70, 80, 450 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:294:72: 294 | if (LMODE - 1) 70, 80, 450 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:314:72: 314 | if (FL) 40, 75, 50 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:315:72: 315 | 40 if (FF) 60, 230, 100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:316:72: 316 | 50 if (FF) 100, 230, 60 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:361:72: 361 | if (TP) 90, 230, 110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:370:72: 370 | if (TP - C1) 150, 140, 130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:396:72: 396 | if (TOL) 190, 200, 200 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:432:72: 432 | if (MACT(3) - 2) 420, 420, 430 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:438:72: 438 | if (KS) 370, 280, 270 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:459:72: 459 | if (KS - 4) 320, 340, 290 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) szero.f:480:72: 480 | if (KS .eq. 0) if (FFDFO - C1) 350, 370, 360 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o umess.o umess.f umess.f:1:39: 1 | subroutine UMESS(TEXT, MACT, IVAR) | 1 Warning: Unused dummy argument 'ivar' at (1) [-Wunused-dummy-argument] umess.f:1:33: 1 | subroutine UMESS(TEXT, MACT, IVAR) | 1 Warning: Unused dummy argument 'mact' at (1) [-Wunused-dummy-argument] umess.f:1:27: 1 | subroutine UMESS(TEXT, MACT, IVAR) | 1 Warning: Unused dummy argument 'text' at (1) [-Wunused-dummy-argument] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o xerbla.o xerbla.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o zcoef.o zcoef.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o zdif.o zdif.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o zgam.o zgam.f zgam.f:279:72: 279 | 210 VV1 = B + COEF(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) zgam.f:168:14: 168 | ITEMP = Z1 - 0.5d0 | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] zgam.f:196:11: 196 | N = B + ONE | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] zgam.f:207:11: 207 | K = 6.0D0 - Z2*0.6D0 - ZZ1 | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o zpolz.o zpolz.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o zpro.o zpro.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o zquo.o zquo.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o zsqrtx.o zsqrtx.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o zsum.o zsum.f gfortran13 -c -O -Wl,-rpath=/usr/local/lib/gcc13 -fimplicit-none -fno-f2c -fno-backslash -funroll-loops -ffpe-trap=zero,overflow,invalid -finit-real=NAN -ftree-vectorize -pipe -Wall -o zwofz.o zwofz.f ar r libmath77.a amach.o caxpy.o ccoef.o ccopy.o cdotc.o cdotu.o cgam.o cgeco.o cged.o cgefa.o cgefs.o cgefsc.o cgei.o cgesld.o cgeslt.o cpolz.o cscal.o csort.o csortp.o csscal.o cswap.o cwofz.o daccum.o dasinh.o dasum.o daxpy.o dbacc.o dbesj0.o dbesj1.o dbesjn.o dbespq.o dbesy0.o dbesy1.o dbesyn.o dbi0k0.o dbi1k1.o dbinom.o dblse.o dbmp0.o dbmp1.o dbsol.o dc2bas.o dc2fit.o dcdchi.o dcdnml.o dcdpoi.o dcft.o dchol.o dci.o dckder.o dcomqr.o dconcm.o dconmc.o dcopy.o dcos1.o dcoshm.o dcospx.o dcov2.o dcov3.o dcpdrv.o dcpint.o dcplte.o dcpltk.o dcpval.o dcsevl.o dcshmm.o dcspxx.o ddas1.o ddasco.o ddasdb.o ddasf.o ddasgh.o ddasin.o ddasj.o ddasls.o ddaslv.o ddaslx.o ddasnm.o ddastp.o ddaswt.o ddot.o dei.o delefi.o delpii.o derf.o derfi.o derm1.o derv1.o devbh.o devun.o devvun.o dfft.o dfmin.o dfrenl.o dgam1.o dgami.o dgamma.o dgbfa.o dgbsl.o dgeco.o dged.o dgefa.o dgefs.o dgefsc.o dgei.o dgemv.o dgesl.o dgesld.o dgeslt.o dgr17.o dgr29.o dherql.o dhfti.o dhint.o dhtcc.o dhtgen.o dilup.o dilupm.o dilupmd.o dimql.o dinits.o dint1.o dinta.o dintdl.o dintdu.o dintf.o dintm.o dintma.o dintns.o dinto.o dintop.o dintsm.o diva.o divadb.o divag.o divset.o djacg.o dlasum.o dlesum.o dlgama.o dlnrel.o dmatp.o dmatpr.o dmess.o dmlc.o dmpdrv.o dmpint.o dmpval.o dnlafb.o dnlafu.o dnlagb.o dnlagu.o dnlsfb.o dnlsfu.o dnlsgb.o dnlsgu.o dnqsol.o dnrm2.o dpfit.o dplot.o dpolz.o dpolz2.o dppnml.o dpquad.o dprpl.o dprpl1.o dprpl2.o dprpl3.o dprtsv.o dpsi.o dpval.o dq7rfh.o dqrbd.o drane.o drang.o drangv.o dranr.o dranu.o drcomp.o drcval.o drdval.o drexp.o drft.o drft1.o drfval.o drjval.o drlog.o drn2g.o drn2gb.o drnsg.o drnsgb.o drot.o drotg.o drotm.o drotmg.o dsbasd.o dsbasi.o dscal.o dsdif.o dsdot.o dsfind.o dsfit.o dsfitc.o dsi.o dsin1.o dsinhm.o dsinpx.o dsnpxx.o dsort.o dsortp.o dspge.o dsquad.o dstat1.o dstat2.o dstop.o dsva.o dsval.o dsvala.o dsvdrs.o dswap.o dsymql.o dtcst.o dtgc0.o dtgc1.o dtgext.o dtgfi.o dtgfnd.o dtggrd.o dtgpd.o dtgprg.o dtgrec.o dtgset.o dtrc2c.o ducomp.o durev.o dvecp.o dvecpr.o dwcomp.o dxparg.o dxrk8.o dxrk8f.o dxrk8g.o dxrk8o.o dzabs.o dzero.o erfin.o ermor.o ermsg.o exsort.o gsortp.o i7copy.o icamax.o idamax.o idranp.o idsm.o idsta1.o idsta2.o ierm1.o ierv1.o imatp.o imatpr.o insort.o insrtx.o isamax.o isort.o isortp.o isranp.o issta1.o issta2.o ivecp.o ivecpr.o lsame.o mess.o optchk.o pvec.o ranpk1.o ranpk2.o saccum.o sasinh.o sasum.o saxpy.o sbacc.o sbesj0.o sbesj1.o sbesjn.o sbespq.o sbesy0.o sbesy1.o sbesyn.o sbi0k0.o sbi1k1.o sbinom.o sblse.o sbmp0.o sbmp1.o sbsol.o sc2bas.o sc2fit.o scasum.o scdchi.o scdnml.o scdpoi.o scft.o schol.o sci.o sckder.o scnrm2.o scomqr.o sconcm.o sconmc.o scopy.o scos1.o scoshm.o scospx.o scov2.o scov3.o scpdrv.o scpint.o scplte.o scpltk.o scpval.o scsevl.o scshmm.o scspxx.o sdas1.o sdasco.o sdasdb.o sdasf.o sdasgh.o sdasin.o sdasj.o sdasls.o sdaslv.o sdaslx.o sdasnm.o sdastp.o sdaswt.o sdot.o sdsdot.o sei.o selefi.o selpii.o serf.o serfi.o serm1.o serv1.o sevbh.o sevun.o sevvun.o sfft.o sfmin.o sfrenl.o sgam1.o sgami.o sgamma.o sgbfa.o sgbsl.o sgeco.o sged.o sgefa.o sgefs.o sgefsc.o sgei.o sgemv.o sgesl.o sgesld.o sgeslt.o sgr17.o sgr29.o sherql.o shfti.o shint.o shtcc.o shtgen.o silup.o silupm.o silupmd.o simql.o sinits.o sint1.o sinta.o sintdl.o sintdu.o sintf.o sintm.o sintma.o sintns.o sinto.o sintop.o sintsm.o siva.o sivadb.o sivag.o sivset.o sjacg.o slasum.o slesum.o slgama.o slnrel.o smatp.o smatpr.o smess.o smlc.o smpdrv.o smpint.o smpval.o snlafb.o snlafu.o snlagb.o snlagu.o snlsfb.o snlsfu.o snlsgb.o snlsgu.o snqsol.o snrm2.o spfit.o splot.o spolz.o spolz2.o sppnml.o spquad.o sprpl.o sprpl1.o sprpl2.o sprpl3.o sprtsv.o spsi.o spval.o sq7rfh.o sqrbd.o srane.o srang.o srangv.o sranr.o sranu.o srcomp.o srcval.o srdval.o srexp.o srft.o srft1.o srfval.o srjval.o srlog.o srn2g.o srn2gb.o srnsg.o srnsgb.o srot.o srotg.o srotm.o srotmg.o ssbasd.o ssbasi.o sscal.o ssdif.o ssfind.o ssfit.o ssfitc.o ssi.o ssin1.o ssinhm.o ssinpx.o ssnpxx.o ssort.o ssortp.o sspge.o ssquad.o sstat1.o sstat2.o sstop.o ssva.o ssval.o ssvala.o ssvdrs.o sswap.o ssymql.o stcst.o stgc0.o stgc1.o stgext.o stgfi.o stgfnd.o stggrd.o stgpd.o stgprg.o stgrec.o stgset.o strc2c.o sucomp.o surev.o svecp.o svecpr.o swcomp.o sxparg.o sxrk8.o sxrk8f.o sxrk8g.o sxrk8o.o szero.o umess.o xerbla.o zcoef.o zdif.o zgam.o zpolz.o zpro.o zquo.o zsqrtx.o zsum.o zwofz.o ar: warning: creating libmath77.a =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> math77-6.0_10 depends on executable: gfortran13 - found =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Staging for math77-6.0_10 ===> Generating temporary packing list install -m 0644 /wrkdirs/usr/ports/math/math77/work/MATH77/libmath77.a /wrkdirs/usr/ports/math/math77/work/stage/usr/local/lib ====> Compressing man pages (compress-man) =========================================================================== =================================================== ===== env: 'PKG_NOTES=build_timestamp ports_top_git_hash ports_top_checkout_unclean port_git_hash port_checkout_unclean built_by' 'PKG_NOTE_build_timestamp=2024-04-07T09:12:06+0000' 'PKG_NOTE_ports_top_git_hash=c2c35d895e' 'PKG_NOTE_ports_top_checkout_unclean=yes' 'PKG_NOTE_port_git_hash=8d3e020ed0' 'PKG_NOTE_port_checkout_unclean=no' 'PKG_NOTE_built_by=poudriere-git-3.4.99.20240122_1' NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Building packages for math77-6.0_10 ===> Building math77-6.0_10 =========================================================================== =>> Cleaning up wrkdir ===> Cleaning for math77-6.0_10 build of math/math77 | math77-6.0_10 ended at Sun Apr 7 10:57:35 BST 2024 build time: 00:45:45