=>> Building math/math77 build started at Wed Nov 12 17:19:18 EST 2025 port directory: /usr/ports/math/math77 package name: math77-6.0_10 building for: FreeBSD pkg.DaveG.ca 15.0-ALPHA3 FreeBSD 15.0-ALPHA3 1500064 amd64 maintained by: ports@FreeBSD.org Makefile datestamp: -rw-r--r-- 1 root wheel 2286 Aug 27 2024 /usr/ports/math/math77/Makefile Ports top last git commit: ec159283c191 Ports top unclean checkout: no Port dir last git commit: d0a737fa905e Port dir unclean checkout: no Poudriere version: poudriere-git-3.4.2 Host OSVERSION: 1500068 Jail OSVERSION: 1500064 Job Id: 13 ---Begin Environment--- SHELL=/bin/sh OSVERSION=1500064 UNAME_v=FreeBSD 15.0-ALPHA3 1500064 UNAME_r=15.0-ALPHA3 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.2 MASTERMNT=/usr/local/poudriere/data/.m/freebsd_15_c_x64-HEAD-ALL/ref LC_COLLATE=C POUDRIERE_BUILD_TYPE=bulk PACKAGE_BUILDING=yes SAVED_TERM=tmux-256color OUTPUT_REDIRECTED_STDERR=4 OUTPUT_REDIRECTED=1 PWD=/usr/local/poudriere/data/.m/freebsd_15_c_x64-HEAD-ALL/13/.p OUTPUT_REDIRECTED_STDOUT=3 P_PORTS_FEATURES=FLAVORS SUBPACKAGES SELECTED_OPTIONS MASTERNAME=freebsd_15_c_x64-HEAD-ALL SCRIPTPREFIX=/usr/local/share/poudriere SCRIPTNAME=bulk.sh OLDPWD=/usr/local/poudriere/data/.m/freebsd_15_c_x64-HEAD-ALL/ref/.p/pool POUDRIERE_PKGNAME=poudriere-git-3.4.2 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=/usr/local/bin/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=/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 --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=/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 " LIBS="" CXX="c++" CXXFLAGS="-O2 -pipe -fstack-protector-strong -fno-strict-aliasing " 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=15.0 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--- DEFAULT_VERSIONS+=pgsql=15 DEFAULT_VERSIONS+=php=82 DISABLE_LICENSES=yes SELECTED_OPTIONS+=OPENBLAS ARCHDEF=AMD64K10h64SSE3 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 #### #### DEFAULT_VERSIONS+=pgsql=15 DEFAULT_VERSIONS+=php=82 DISABLE_LICENSES=yes SELECTED_OPTIONS+=OPENBLAS ARCHDEF=AMD64K10h64SSE3 WITH_CCACHE_BUILD=yes CCACHE_DIR=/root/.ccache #### Misc Poudriere #### .include "/etc/make.conf.ports_env" GID=0 UID=0 ---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 pipebuf (-y) 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-2.4.2_1.pkg [pkg.DaveG.ca] Installing pkg-2.4.2_1... [pkg.DaveG.ca] Extracting pkg-2.4.2_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.3.0_3.pkg [pkg.DaveG.ca] Installing gcc13-13.3.0_3... [pkg.DaveG.ca] `-- Installing binutils-2.44,1... [pkg.DaveG.ca] | `-- Installing indexinfo-0.3.1_1... [pkg.DaveG.ca] | `-- Extracting indexinfo-0.3.1_1: . done [pkg.DaveG.ca] | `-- Installing zstd-1.5.7... [pkg.DaveG.ca] | | `-- Installing liblz4-1.10.0_2,1... [pkg.DaveG.ca] | | `-- Extracting liblz4-1.10.0_2,1: .......... done [pkg.DaveG.ca] | `-- Extracting zstd-1.5.7: .......... done [pkg.DaveG.ca] `-- Extracting binutils-2.44,1: .......... done [pkg.DaveG.ca] `-- Installing gmp-6.3.0... [pkg.DaveG.ca] `-- Extracting gmp-6.3.0: .......... done [pkg.DaveG.ca] `-- Installing mpc-1.3.1_1... [pkg.DaveG.ca] | `-- Installing mpfr-4.2.2,1... [pkg.DaveG.ca] | `-- Extracting mpfr-4.2.2,1: .......... done [pkg.DaveG.ca] `-- Extracting mpc-1.3.1_1: ...... done [pkg.DaveG.ca] Extracting gcc13-13.3.0_3: .......... done ===== Message from gcc13-13.3.0_3: -- 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.DaveG.ca] Installing gmake-4.4.1... [pkg.DaveG.ca] `-- Installing gettext-runtime-0.23.1... [pkg.DaveG.ca] `-- Extracting gettext-runtime-0.23.1: .......... done [pkg.DaveG.ca] 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 ===> math77-6.0_10 depends on file: /usr/local/bin/ccache - not found ===> Installing existing package /packages/All/ccache-3.7.12_8.pkg [pkg.DaveG.ca] Installing ccache-3.7.12_8... [pkg.DaveG.ca] Extracting ccache-3.7.12_8: ......... done Create compiler links... create symlink for cc create symlink for cc (world) create symlink for c++ create symlink for c++ (world) create symlink for CC create symlink for CC (world) create symlink for 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) create symlink for clang create symlink for clang (world) create symlink for clang++ create symlink for clang++ (world) ===== Message from ccache-3.7.12_8: -- NOTE: Please read /usr/local/share/doc/ccache/ccache-howto-freebsd.txt for information on using ccache with FreeBSD ports and src. ===> math77-6.0_10 depends on file: /usr/local/bin/ccache - 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 ===> 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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] gfortran13 -c -O -Wl,-rpath=/usr/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 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] 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) 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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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] 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] 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 dbsol.o dbsol.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] gfortran13 -c -O -Wl,-rpath=/usr/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 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] 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] 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] 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 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 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 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 dblse.f:1061:19: 1061 | 31012 GO TO NPR012,(20076,20127) | 1 Warning: Deleted feature: Assigned GOTO 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 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 dblse.f:1559:19: 1559 | GO TO NPR004,(20010,20019,20021,20283,20308) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 dcpdrv.o dcpdrv.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) 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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 ddasin.o ddasin.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 ddasj.o ddasj.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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 ddas1.f:137:72: 137 | do 15 i=1,neq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 15 at (1) 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 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) 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 devun.o devun.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) 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] 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) 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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 ddaslx.f:942:49: 942 | $ lerrbc, lerrbd, lerrbe, lerrbf, lerrbg | 1 Warning: Unused variable 'lerrbg' declared at (1) [-Wunused-variable] 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) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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 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 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 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 devvun.f:331:72: 331 | if (Q) 710, 600, 800 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 dgemv.o dgemv.f devvun.f:468:72: 468 | do 880 I = LOW, IGH | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 880 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 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 dgami.f:331:72: 331 | IF (IOP - 4) 260,270,280 | 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 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 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 dilup.o dilup.f 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 dilupm.o dilupm.f gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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] gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 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 dlnrel.o dlnrel.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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) dinta.f:1521:72: 1521 | IF (ALOCAL-TA) 980,2240,980 | 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) 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) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) dinta.f:2051:72: 2051 | IF (LENDT+1-J1OLD-J2OLD) 1670,1660,1680 | 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 dmpval.o dmpval.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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 dinta.f:2186:72: 2186 | IF (ENDPTS-2) 2750,2760,2235 | 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 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) 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) 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 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) 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) 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) 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 dnlagb.o dnlagb.f 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) 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] 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) 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) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 dnlafb.f:112:72: 112 | IF (IV(1)-2) 30, 50, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) diva.f:1387:72: 1387 | if (J - NTE) 470, 565, 620 | 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 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) diva.f:1402:72: 1402 | if (J - NTE) 500, 565, 620 | 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 dnlsfu.o dnlsfu.f 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 diva.f:1403:72: 1403 | 500 if (J) 510, 530, 540 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) 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) 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) 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) 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) diva.f:1737:72: 1737 | if (ICF) 1360, 780, 1360 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 diva.f:1744:72: 1744 | if (LINC + 5) 1490, 810, 1490 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dnlagb.f:130:72: 130 | IF (IV(1)-2) 30, 50, 999 | 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) 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) diva.f:1839:72: 1839 | if ((EIMAX * EMAX) - C1M3) 1000, 1010, 1010 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) diva.f:1854:72: 1854 | if (LSC - 1) 1040, 1080, 1090 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) 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) 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) 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) 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) diva.f:1868:72: 1868 | if (KORD1I - 2) 1420, 1430, 1430 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) diva.f:1877:72: 1877 | if (LINC + 4) 1780, 1180, 1110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) dnlafu.f:120:72: 120 | IF (IV(1)-2) 30, 50, 100 | 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) dnlagu.f:173:72: 173 | IF (IV(1)-2) 30, 50, 60 | 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) gfortran13 -c -O -Wl,-rpath=/usr/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 diva.f:2125:72: 2125 | if (LSC - 2) 1620, 1640, 1650 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) 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) diva.f:2197:72: 2197 | if (KORD1I) 1800, 730, 1810 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) diva.f:2210:72: 2210 | if (IOP7) 740, 1820, 740 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) dnlsfb.f:237:72: 237 | IF (IV(1)-2) 140, 150, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) gfortran13 -c -O -Wl,-rpath=/usr/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 diva.f:2236:72: 2236 | 1870 if (KORD(1)) 2130, 700, 2100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) 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) 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) 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) diva.f:2281:72: 2281 | if (HH * (TSPECS(J) - XP)) 2060, 2040, 2050 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) diva.f:2321:72: 2321 | 2160 if (KORD1I - 4) 1700, 2200, 2170 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) diva.f:2322:72: 2322 | 2170 if (KORD1I - 13) 2180, 1930, 2190 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) 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) 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) 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) dnlsgu.f:300:72: 300 | IF (IV(1)-2) 110, 120, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) dnlsfu.f:226:72: 226 | IF (IV(1)-2) 140, 150, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) 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) dnlsgb.f:298:72: 298 | IF (IV(1)-2) 110, 120, 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 dppnml.o dppnml.f 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) diva.f:2553:72: 2553 | if (I - IOP11 - 1) 2420, 2440, 2450 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) 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) 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) 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) dilup.f:814:72: 814 | LEXERR = IOPT(I) | ^ Warning: 'i' may be used uninitialized [-Wmaybe-uninitialized] diva.f:3138:72: 3138 | if (KQL) 3230, 2950, 3250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dilup.f:307:24: 307 | integer I, IIFLG, ILI, IUI, IO, K, KDER, KGO, KK, L, | ^ note: 'i' was declared here 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) diva.f:3234:72: 3234 | 1 3310, 3310, 3300 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 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] 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 dpsi.o dpsi.f 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) 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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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] 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] diva.f:3711:72: 3711 | if (GAMMA(1)) 3790, 3800, 3810 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 drane.o drane.f 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) 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] diva.f:4123:72: 4123 | if (J + 1) 4500, 4370, 4380 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 diva.f:4156:72: 4156 | if (J) 4450, 4470, 4460 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 diva.f:4180:72: 4180 | if (I - 1111) 4400, 4270, 4400 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 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) 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] diva.f:4389:72: 4389 | if (K) 4670, 4670, 4630 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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) 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] 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) 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] 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 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 drang.o drang.f 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 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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 drn2g.f:271:72: 271 | IF (IV(1) - 2) 50, 60, 220 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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) drn2gb.f:186:72: 186 | IF (IV(1) - 2) 50, 60, 260 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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) 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] 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] 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] drn2g.f:1637:72: 1637 | IF (COV1) 80,110,130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dsdif.f:31:72: 31 | do 20 I=ID,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 dsinpx.f:94:10: 94 | N = A | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] 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 dstop.o dstop.f 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 dsnpxx.f:40:10: 40 | n = f | 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 dsymql.o dsymql.f 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 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 dtggrd.o dtggrd.f gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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 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) 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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 dxrk8o.o dxrk8o.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) gfortran13 -c -O -Wl,-rpath=/usr/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 dxrk8f.f:1:37: 1 | subroutine DXRK8F(T, Y, F, IDAT) | 1 Warning: Unused dummy argument 'idat' at (1) [-Wunused-dummy-argument] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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] dwcomp.f:670:72: 670 | IF(M ) 110,35,45 | 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 ermsg.o ermsg.f 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 idamax.o idamax.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 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) 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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 idsm.o idsm.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 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 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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) insort.f:212:72: 212 | if (nchain) 380,360,370 | 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 issta2.o issta2.f insort.f:225:72: 225 | if (nchain) 400,410,420 | 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 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 mess.o mess.f gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 sc2fit.o sc2fit.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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 schol.o schol.f sblse.f:1061:19: 1061 | 31012 GO TO NPR012,(20076,20127) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 sblse.f:1375:19: 1375 | GO TO NPR022,(20238,20252) | 1 Warning: Deleted feature: Assigned GOTO 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 scnrm2.o scnrm2.f 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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] gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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 sdas1.o sdas1.f gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 scospx.f:97:10: 97 | N = A | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] 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] 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 sdasnm.o sdasnm.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 sdastp.o sdastp.f gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 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 sevun.o sevun.f gfortran13 -c -O -Wl,-rpath=/usr/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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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] 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) 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 sdaslx.f:942:49: 942 | $ lerrbc, lerrbd, lerrbe, lerrbf, lerrbg | 1 Warning: Unused variable 'lerrbg' declared at (1) [-Wunused-variable] 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) 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) 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 sgam1.f:166:72: 166 | IF (T) 30,10,20 | 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 sgefa.o sgefa.f 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 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 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 sgami.f:331:72: 331 | IF (IOP - 4) 260,270,280 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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] 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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] gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 sintf.o sintf.f gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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] sintdu.f:152:72: 152 | IF (WHERE-5) 200,40,10 | 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) sintdu.f:178:72: 178 | IF (L-LENDT-1) 80,50,50 | 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) sintma.f:463:72: 463 | IF (IFLAG(1)) 80,100,110 | 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) gfortran13 -c -O -Wl,-rpath=/usr/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 sinta.f:2051:72: 2051 | IF (LENDT+1-J1OLD-J2OLD) 1670,1660,1680 | 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 sivag.o sivag.f 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) 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 sinta.f:2148:72: 2148 | 1950 IF (ENDPTS-2) 2750,2760,1960 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 sinta.f:2186:72: 2186 | IF (ENDPTS-2) 2750,2760,2235 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 gfortran13 -c -O -Wl,-rpath=/usr/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 mess.f:864:10: 864 | if (KS .eq. 0) then | ^ Warning: 'ks' may be used uninitialized [-Wmaybe-uninitialized] sinta.f:2202:72: 2202 | IF (ENDPTS-2) 2750,2760,2250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) mess.f:606:12: 606 | 2 KS, LASKNT, LBUF1, LBUF2, LENBUF, LINSTR, M, | ^ note: 'ks' was declared here 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) gfortran13 -c -O -Wl,-rpath=/usr/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 sinta.f:2362:72: 2362 | IF (PART-1) 40,40,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 slesum.o slesum.f 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) gfortran13 -c -O -Wl,-rpath=/usr/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 sinta.f:2645:72: 2645 | 2740 IF (ENDPTS-2) 2750,2760,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 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 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] sblse.f:1:22: 1 | subroutine SBLSE (A, LDA, MTRUE, N, M1TRUE, B, BND, UNBND, | ^ Warning: 'npr021.26' may be used uninitialized [-Wmaybe-uninitialized] 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] sivag.f:115:72: 115 | if (IGFLG - 3) 10, 80, 70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 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) 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] 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) 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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 siva.f:1385:72: 1385 | if (J - NTE) 470, 565, 620 | 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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 smatpr.o smatpr.f 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 smess.o smess.f gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) 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) 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) 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) 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] 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 smpdrv.o smpdrv.f 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) 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) siva.f:2924:72: 2924 | if (S + CP125) 2630, 2700, 2700 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) sivset.f:1392:72: 1392 | IF (KA) 10, 20, 370 | 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) 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) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) siva.f:3232:72: 3232 | 1 3310, 3310, 3300 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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] 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) 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) 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) 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) 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 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) 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) 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) 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 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) silup.f:693:19: 693 | if (IUI .le. NTABI) then | ^ Warning: 'ntabi' may be used uninitialized [-Wmaybe-uninitialized] siva.f:3771:72: 3771 | if (INTEG + 1) 3970, 3990, 4010 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 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) 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) 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 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) siva.f:3823:72: 3823 | if (KQQ) 4030, 4130, 4040 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 siva.f:3860:72: 3860 | 4040 if (LNOTM1) if (IYI) 4050, 4060, 4130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 siva.f:3876:72: 3876 | if (INTEG) 4080, 4090, 4100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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) 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) snlafu.f:120:72: 120 | IF (IV(1)-2) 30, 50, 100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 siva.f:4178:72: 4178 | if (I - 1111) 4400, 4270, 4400 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) siva.f:4286:72: 4286 | if (KQQ) 4530, 4520, 4540 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) 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) 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] gfortran13 -c -O -Wl,-rpath=/usr/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 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 snlagb.f:130:72: 130 | IF (IV(1)-2) 30, 50, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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] gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) 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) snlafb.f:112:72: 112 | IF (IV(1)-2) 30, 50, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) siva.f:2962:5: 2962 | 2720 RNOISE = RND / TPS5 | 1 Warning: Label 2720 at (1) defined but not used [-Wunused-label] 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) snlagu.f:173:72: 173 | IF (IV(1)-2) 30, 50, 60 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) snlsfu.f:226:72: 226 | IF (IV(1)-2) 140, 150, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 snlsfb.f:237:72: 237 | IF (IV(1)-2) 140, 150, 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 splot.o splot.f 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) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) snlsgb.f:298:72: 298 | IF (IV(1)-2) 110, 120, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) snlsgu.f:300:72: 300 | IF (IV(1)-2) 110, 120, 999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 spsi.o spsi.f 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 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 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 sqrbd.o sqrbd.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] 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 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 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 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 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 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 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 srft.o srft.f gfortran13 -c -O -Wl,-rpath=/usr/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 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 srn2gb.o srn2gb.f gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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] srnsg.f:227:72: 227 | IF (IV1-2) 40, 150, 230 | 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 srotm.o srotm.f srn2gb.f:186:72: 186 | IF (IV(1) - 2) 50, 60, 260 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) srn2g.f:271:72: 271 | IF (IV(1) - 2) 50, 60, 220 | 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 srotmg.o srotmg.f 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 srn2g.f:1637:72: 1637 | IF (COV1) 80,110,130 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) srnsgb.f:196:72: 196 | IF (IV1-2) 40, 150, 230 | 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) 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) 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) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 ssdif.f:31:72: 31 | do 20 I=ID,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 ssort.o ssort.f 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] 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 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 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 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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 ssymql.o ssymql.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 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 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) 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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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] 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 stgpd.o stgpd.f gfortran13 -c -O -Wl,-rpath=/usr/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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) 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) 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) 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) swcomp.f:244:72: 244 | IF(N9 - 1) 90,92,94 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) 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) 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) 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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) 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 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 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 zpolz.o zpolz.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) 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] 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) gfortran13 -c -O -Wl,-rpath=/usr/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 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 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 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 gfortran13 -c -O -Wl,-rpath=/usr/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 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] 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] 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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=2025-11-12T22:19:18+0000' 'PKG_NOTE_ports_top_git_hash=ec159283c191' 'PKG_NOTE_ports_top_checkout_unclean=no' 'PKG_NOTE_port_git_hash=d0a737fa905e' 'PKG_NOTE_port_checkout_unclean=no' 'PKG_NOTE_built_by=poudriere-git-3.4.2' 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 Wed Nov 12 17:19:30 EST 2025 build time: 00:00:12