Diff of the two buildlogs: -- --- b1/build.log 2025-10-12 08:18:59.481892198 +0000 +++ b2/build.log 2025-10-12 08:24:48.358374475 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Sat Oct 11 20:12:37 -12 2025 -I: pbuilder-time-stamp: 1760256757 +I: Current time: Sun Nov 15 04:42:00 +14 2026 +I: pbuilder-time-stamp: 1794667320 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/forky-reproducible-base.tgz] I: copying local configuration @@ -27,53 +27,85 @@ dpkg-source: info: applying drop-pkg_resources.patch I: Not using root during the build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/2053827/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/4055804/tmp/hooks/D01_modify_environment starting +debug: Running on ionos5-amd64. +I: Changing host+domainname to test build reproducibility +I: Adding a custom variable just for the fun of it... +I: Changing /bin/sh to bash +'/bin/sh' -> '/bin/bash' +lrwxrwxrwx 1 root root 9 Nov 14 14:42 /bin/sh -> /bin/bash +I: Setting pbuilder2's login shell to /bin/bash +I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other +I: user script /srv/workspace/pbuilder/4055804/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/4055804/tmp/hooks/D02_print_environment starting I: set - BUILDDIR='/build/reproducible-path' - BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' - BUILDUSERNAME='pbuilder1' - BUILD_ARCH='amd64' - DEBIAN_FRONTEND='noninteractive' - DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=40 ' - DISTRIBUTION='forky' - HOME='/root' - HOST_ARCH='amd64' + BASH=/bin/sh + BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:globskipdots:hostcomplete:interactive_comments:patsub_replacement:progcomp:promptvars:sourcepath + BASH_ALIASES=() + BASH_ARGC=() + BASH_ARGV=() + BASH_CMDS=() + BASH_LINENO=([0]="12" [1]="0") + BASH_LOADABLES_PATH=/usr/local/lib/bash:/usr/lib/bash:/opt/local/lib/bash:/usr/pkg/lib/bash:/opt/pkg/lib/bash:. + BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") + BASH_VERSINFO=([0]="5" [1]="3" [2]="3" [3]="1" [4]="release" [5]="x86_64-pc-linux-gnu") + BASH_VERSION='5.3.3(1)-release' + BUILDDIR=/build/reproducible-path + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=amd64 + DEBIAN_FRONTEND=noninteractive + DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=42 ' + DIRSTACK=() + DISTRIBUTION=forky + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=x86_64 + HOST_ARCH=amd64 IFS=' ' - INVOCATION_ID='e99123ffb05e47f68abf4e3e92d2a3c5' - LANG='C' - LANGUAGE='en_US:en' - LC_ALL='C' - MAIL='/var/mail/root' - OPTIND='1' - PATH='/usr/sbin:/usr/bin:/sbin:/bin:/usr/games' - PBCURRENTCOMMANDLINEOPERATION='build' - PBUILDER_OPERATION='build' - PBUILDER_PKGDATADIR='/usr/share/pbuilder' - PBUILDER_PKGLIBDIR='/usr/lib/pbuilder' - PBUILDER_SYSCONFDIR='/etc' - PPID='2053827' - PS1='# ' - PS2='> ' + INVOCATION_ID=54441bf245814a90aff16cd422deadb5 + LANG=C + LANGUAGE=et_EE:et + LC_ALL=C + MACHTYPE=x86_64-pc-linux-gnu + MAIL=/var/mail/root + OPTERR=1 + OPTIND=1 + OSTYPE=linux-gnu + PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path + PBCURRENTCOMMANDLINEOPERATION=build + PBUILDER_OPERATION=build + PBUILDER_PKGDATADIR=/usr/share/pbuilder + PBUILDER_PKGLIBDIR=/usr/lib/pbuilder + PBUILDER_SYSCONFDIR=/etc + PIPESTATUS=([0]="0") + POSIXLY_CORRECT=y + PPID=4055804 PS4='+ ' - PWD='/' - SHELL='/bin/bash' - SHLVL='2' - SUDO_COMMAND='/usr/bin/timeout -k 18.1h 18h /usr/bin/ionice -c 3 /usr/bin/nice /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.1XadPt9t/pbuilderrc_zfJJ --distribution forky --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/forky-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.1XadPt9t/b1 --logfile b1/build.log feff85exafs_0.2+dfsg-3.dsc' - SUDO_GID='111' - SUDO_HOME='/var/lib/jenkins' - SUDO_UID='106' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/bin/systemd-run' - http_proxy='http://46.16.76.132:3128' + PWD=/ + SHELL=/bin/bash + SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix + SHLVL=3 + SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.1XadPt9t/pbuilderrc_nT9Z --distribution forky --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/forky-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.1XadPt9t/b2 --logfile b2/build.log feff85exafs_0.2+dfsg-3.dsc' + SUDO_GID=110 + SUDO_HOME=/var/lib/jenkins + SUDO_UID=105 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://213.165.73.152:3128 I: uname -a - Linux ionos11-amd64 6.12.48+deb13-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.12.48-1 (2025-09-20) x86_64 GNU/Linux + Linux i-capture-the-hostname 6.12.48+deb13-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.12.48-1 (2025-09-20) x86_64 GNU/Linux I: ls -l /bin - lrwxrwxrwx 1 root root 7 Aug 10 12:30 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/2053827/tmp/hooks/D02_print_environment finished + lrwxrwxrwx 1 root root 7 Aug 10 2025 /bin -> usr/bin +I: user script /srv/workspace/pbuilder/4055804/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -168,7 +200,7 @@ Get: 50 http://deb.debian.org/debian forky/main amd64 gfortran-x86-64-linux-gnu amd64 4:15.2.0-4 [1276 B] Get: 51 http://deb.debian.org/debian forky/main amd64 gfortran amd64 4:15.2.0-4 [1436 B] Get: 52 http://deb.debian.org/debian forky/main amd64 help2man amd64 1.49.3 [198 kB] -Fetched 98.7 MB in 2s (65.7 MB/s) +Fetched 98.7 MB in 2s (44.6 MB/s) Preconfiguring packages ... Selecting previously unselected package libexpat1:amd64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 19898 files and directories currently installed.) @@ -352,8 +384,8 @@ Setting up tzdata (2025b-5) ... Current default time zone: 'Etc/UTC' -Local time is now: Sun Oct 12 08:17:58 UTC 2025. -Universal Time is now: Sun Oct 12 08:17:58 UTC 2025. +Local time is now: Sat Nov 14 14:46:47 UTC 2026. +Universal Time is now: Sat Nov 14 14:46:47 UTC 2026. Run 'dpkg-reconfigure tzdata' if you wish to change it. Setting up autotools-dev (20240727.1) ... @@ -405,7 +437,11 @@ Building tag database... -> Finished parsing the build-deps I: Building the package -I: Running cd /build/reproducible-path/feff85exafs-0.2+dfsg/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-genchanges -S > ../feff85exafs_0.2+dfsg-3_source.changes +I: user script /srv/workspace/pbuilder/4055804/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for forky +I: user script /srv/workspace/pbuilder/4055804/tmp/hooks/A99_set_merged_usr finished +hostname: Name or service not known +I: Running cd /build/reproducible-path/feff85exafs-0.2+dfsg/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-genchanges -S > ../feff85exafs_0.2+dfsg-3_source.changes dpkg-buildpackage: info: source package feff85exafs dpkg-buildpackage: info: source version 0.2+dfsg-3 dpkg-buildpackage: info: source distribution unstable @@ -415,7 +451,7 @@ debian/rules clean dh clean --with python3 dh_auto_clean - make -j40 clean + make -j42 clean make[1]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg' make -C src/ATOM clean make[2]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/ATOM' @@ -493,7 +529,7 @@ dh_autoreconf dh_auto_configure dh_auto_build - make -j40 INSTALL="install --strip-program=true" + make -j42 INSTALL="install --strip-program=true" make[1]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg' make -C src/PAR -j4 make[2]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/PAR' @@ -703,18 +739,16 @@ 124 | do 180 ie = 1, ne | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o str.o str.f rdxsph.f:52:18: 52 | complex*16 temp(nex*(2*ltot+1)) | 1~~~~~~~~~~~~~~~~~~~ Warning: Array 'temp' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o str.o str.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o xx.o xx.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o fixdsp.o fixdsp.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o getorb.o getorb.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o iniptz.o iniptz.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o nxtunt.o nxtunt.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o pijump.o pijump.f getorb.f:830:72: 830 | 10 if (iscr.eq.0 .and. (iocc(index1,i)-iocc(index,i)).gt.0.5) iscr=i @@ -725,6 +759,8 @@ 852 | 19 iorb(i) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o nxtunt.o nxtunt.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o pijump.o pijump.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o rdhead.o rdhead.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o setgam.o setgam.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o str2dp.o str2dp.f @@ -829,11 +865,6 @@ 12 | d1=da+mm | 1 Warning: Possible change of value in conversion from COMPLEX(8) to REAL(8) at (1) [-Wconversion] -conv.f:36:72: - - 36 | 200 xsec(ie) = xsec0(ie) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) bcoef.f:91:72: 91 | do 10 i5 = 0 ,1 @@ -849,6 +880,11 @@ 93 | do 10 i3 = 1, 8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) +conv.f:36:72: + + 36 | 200 xsec(ie) = xsec0(ie) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) bcoef.f:94:72: 94 | do 10 i2 = 0 ,1 @@ -1093,13 +1129,13 @@ gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o cpl0.o cpl0.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o csomm2.o csomm2.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o czeros.o czeros.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o dist.o dist.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o lu.o lu.f czeros.f:29:16: 29 | Root = Sqrt(Coef(2)**2-4.d0*Coef(1)*Coef(3)) | 1 Warning: Possible change of value in conversion from COMPLEX(8) to REAL(4) at (1) [-Wconversion] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o dist.o dist.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o lu.o lu.f lu.f:7971:17: 7971 | LBETA = C + QTR @@ -1128,6 +1164,16 @@ gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o polint.o polint.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o rotwig.o rotwig.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o somm.o somm.f +somm.f:20:72: + + 20 | if (dc) 20,40,30 + | 1 +Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) +somm.f:25:72: + + 25 | if (dc) 50,70,60 + | 1 +Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) rotwig.f:22:72: 22 | 11 al(i+1)=al(i)+ log(b) @@ -1139,16 +1185,6 @@ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o strap.o strap.f -somm.f:20:72: - - 20 | if (dc) 20,40,30 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -somm.f:25:72: - - 25 | if (dc) 50,70,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o terpc.o terpc.f lu.f:8561:72: @@ -1480,6 +1516,7 @@ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 325 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o wfirdf.o wfirdf.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o aprdev.o aprdev.f wfirdf.f:48:72: 48 | 11 fix(j) = dr(1)**(fl(j)-abs(kap(j))) @@ -1510,7 +1547,6 @@ 101 | 271 cp(i,j)=dp(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 271 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o aprdev.o aprdev.f aprdev.f:11:72: 11 | 11 aprdev=aprdev+a(m)*b(l+1-m) @@ -1536,7 +1572,6 @@ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 171 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ortdat.o ortdat.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o s02at.o s02at.f ortdat.f:28:72: 28 | 15 dp(i)=0.0d 00 @@ -1572,6 +1607,7 @@ 57 | 75 bp(i,l)=ap(i)/a | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 75 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o s02at.o s02at.f s02at.f:12:72: 12 | do 10 j = 1,7 @@ -1619,7 +1655,6 @@ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 251 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o yzkrdf.o yzkrdf.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o bkmrdf.o bkmrdf.f yzkrdf.f:36:72: 36 | 5 bpj(l) = bp(l,j) @@ -1645,29 +1680,14 @@ 49 | 41 ag(l)=aprdev(bgi,bpj,l) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o bkmrdf.o bkmrdf.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o dsordf.o dsordf.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o fdrirk.o fdrirk.f bkmrdf.f:18:72: 18 | 12 cret(l)=0.0d 00 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) -bkmrdf.f:28:72: - - 28 | if (m-2) 14,16,17 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -bkmrdf.f:63:72: - - 63 | 51 l=l+1 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o dsordf.o dsordf.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o fdrirk.o fdrirk.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o intdir.o intdir.f -fdrirk.f:31:72: - - 31 | 21 hg(n)=0.0d 00 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) dsordf.f:44:72: 44 | 15 bpj(l) = bp(l,j) @@ -1678,16 +1698,11 @@ 45 | if ( abs(jnd)-2) 21,55,101 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -fdrirk.f:35:72: - - 35 | 31 nn=nn+1 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) -fdrirk.f:37:72: +bkmrdf.f:28:72: - 37 | 41 ag(n)=hg(n) + 28 | if (m-2) 14,16,17 | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) +Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) dsordf.f:47:72: 47 | 31 hg(l)=cg(l,i)*cg(l,j)+cp(l,i)*cp(l,j) @@ -1708,6 +1723,11 @@ 55 | 71 chg(l)=aprdev(bgi,bpj,l) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 71 at (1) +bkmrdf.f:63:72: + + 63 | 51 l=l+1 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) dsordf.f:60:72: 60 | 85 hg(l)=hg(l)*dg(l) @@ -1763,6 +1783,24 @@ 94 | 331 dsordf=dsordf+chg(l)*(dr(1)**b)/b | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 331 at (1) +fdrirk.f:31:72: + + 31 | 21 hg(n)=0.0d 00 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) +fdrirk.f:35:72: + + 35 | 31 nn=nn+1 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) +fdrirk.f:37:72: + + 37 | 41 ag(n)=hg(n) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o intdir.o intdir.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o muatco.o muatco.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o potrdf.o potrdf.f intdir.f:41:72: 41 | 1 f=g @@ -1808,7 +1846,6 @@ 163 | 91 dp(i)=b*dg(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 91 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o muatco.o muatco.f muatco.f:16:72: 16 | do 511 j=1,30 @@ -1824,7 +1861,6 @@ 22 | do 701 j=1,i | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 701 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o potrdf.o potrdf.f potrdf.f:23:72: 23 | 9 av(i)=anoy(i) @@ -2007,6 +2043,8 @@ 381 | 730 ap(ir) = adpc(ir, i0, iph1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 730 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o yzkteg.o yzkteg.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../EXCH/vbh.o ../EXCH/vbh.f vlda.f:75:72: 75 | 1 vxcvl * srho(i) @@ -2017,8 +2055,6 @@ 61 | call vbh(rsc, xm, vxcvl) | ^ note: 'vxcvl' declared here -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o yzkteg.o yzkteg.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../EXCH/vbh.o ../EXCH/vbh.f yzkteg.f:40:72: 40 | 21 f(i)=f(i)*dr(i) @@ -2097,14 +2133,14 @@ 64 | do 800 jl=il,nleg | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 800 at (1) -sigcl.f:213:72: +sigms.f:211:72: - 213 | 20 sum=sum+fn2(zi) + 211 | 20 sum=sum+fn(zi) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) -sigms.f:211:72: +sigcl.f:213:72: - 211 | 20 sum=sum+fn(zi) + 213 | 20 sum=sum+fn2(zi) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) sigrem.f:175:72: @@ -2212,7 +2248,6 @@ 355 | 247 xx = xx + gr(kw)*dw | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 247 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sigte3.o sigte3.f sigrem.f:632:72: 632 | do 250 i = 1,3 @@ -2423,6 +2458,7 @@ 735 | dimension str(natx,natx) | 1 Warning: Array 'str' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sigte3.o sigte3.f ar rvc libfeffdw.a sigcl.o sigm3.o sigms.o sigrem.o sigte3.o ../COMMON/wlog.o ../COMMON/str.o ../COMMON/itoken.o ../COMMON/pertab.o ../COMMON/chopen.o ../MATH/dist.o ../PAR/sequential.o a - sigcl.o a - sigm3.o @@ -2450,12 +2486,12 @@ 826 | do 1 j=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o fndsng.o fndsng.f csigma.f:785:32: 785 | complex*16 fn,value,valu,fval(3,mx),xmax,xmin,del,del1 | 1~~~~~~~~~ Warning: Array 'fval' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o fndsng.o fndsng.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o imhl.o imhl.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o mpse.o mpse.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o qsorti.o qsorti.f @@ -2568,6 +2604,21 @@ 46 | 331 dsordc=dsordc+chg(l)*(dr(1)**b)/b | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 331 at (1) +intout.f:123:72: + + 123 | 51 dp(i) = dp(i)/hx + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) +intout.f:144:72: + + 144 | 61 dp(j)=dp(j+1) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1) +intout.f:169:72: + + 169 | 741 gp(i)=0.0d 00 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 741 at (1) dfovrg.f:85:72: 85 | 9 vxcval(i)=vxc(jri+1) @@ -2593,21 +2644,11 @@ 113 | 15 cp(i,j)=dpcn(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) -intout.f:123:72: - - 123 | 51 dp(i) = dp(i)/hx - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) dfovrg.f:123:72: 123 | 18 vm(i)=0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) -intout.f:144:72: - - 144 | 61 dp(j)=dp(j+1) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1) dfovrg.f:137:72: 137 | 40 xnel(i) = xnel(i) - xnval(i) @@ -2618,11 +2659,6 @@ 141 | 50 dv(i)=vxcval(i)/cl | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) -intout.f:169:72: - - 169 | 741 gp(i)=0.0d 00 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 741 at (1) dfovrg.f:183:72: 183 | 151 qs(i)=gp(i) @@ -2741,7 +2777,6 @@ 59 | 527 av(i)=av(i)/cl | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 527 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o wfirdc.o wfirdc.f solin.f:53:72: 53 | 115 ap(i)=0.0d0 @@ -2757,6 +2792,10 @@ 170 | 741 gp(i)=0.0d 00 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 741 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o wfirdc.o wfirdc.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o yzktec.o yzktec.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o aprdep.o aprdep.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o diff.o diff.f wfirdc.f:49:72: 49 | 11 fix(j) = dr(1)**(fl(j)-abs(kap(j))) @@ -2787,9 +2826,11 @@ 114 | 271 qs(i)=dp(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 271 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o yzktec.o yzktec.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o aprdep.o aprdep.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o diff.o diff.f +aprdep.f:12:72: + + 12 | 11 aprdep=aprdep+a(m)*b(l+1-m) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) yzktec.f:47:72: 47 | 21 f(i)=f(i)*dr(i) @@ -2805,11 +2846,6 @@ 72 | 75 f(i) = f(i+1)*ehk+b0*g(i+1)+b1*g(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 75 at (1) -aprdep.f:12:72: - - 12 | 11 aprdep=aprdep+a(m)*b(l+1-m) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) diff.f:11:72: 11 | 5 vt(i) = v(i) * dr(i)**2 @@ -2827,7 +2863,6 @@ Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o inmuac.o inmuac.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o muatcc.o muatcc.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ortdac.o ortdac.f muatcc.f:17:72: 17 | do 511 j=1,30 @@ -2843,6 +2878,7 @@ 19 | 511 afgkc(i,j,k)=0.0d 00 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 511 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ortdac.o ortdac.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o potex.o potex.f ortdac.f:25:72: @@ -2900,37 +2936,22 @@ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 532 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o solout.o solout.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o yzkrdc.o yzkrdc.f solout.f:57:72: 57 | 115 ap(i)=cep(i-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) -solout.f:82:72: - - 82 | 31 g=g-av(i+1)*ag(j-i) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) -solout.f:85:72: - - 85 | 35 ap(j)=(av(1)*f-a*g)/eph - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) -solout.f:90:72: - - 90 | do 41 j=1,ndor - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 41 at (1) -solout.f:94:72: - - 94 | 41 gp(i)=gp(i)+b*ap(j) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o yzkrdc.o yzkrdc.f yzkrdc.f:41:72: 41 | 5 bpi(l) = bp(l,i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) +solout.f:82:72: + + 82 | 31 g=g-av(i+1)*ag(j-i) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) yzkrdc.f:45:72: 45 | 11 dg(l)=cg(l,i)*ps(l)+cp(l,i)*qs(l) @@ -2941,11 +2962,26 @@ 47 | 12 dg(l) = 0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) +solout.f:85:72: + + 85 | 35 ap(j)=(av(1)*f-a*g)/eph + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) yzkrdc.f:49:72: 49 | 21 ag(l) = aprdec(aps,bgi,l) + aprdec(aqs,bpi,l) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) +solout.f:90:72: + + 90 | do 41 j=1,ndor + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 41 at (1) +solout.f:94:72: + + 94 | 41 gp(i)=gp(i)+b*ap(j) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) ar rvc libfeffpha.a aprdec.o dfovrg.o dsordc.o intout.o nucdec.o potdvp.o solin.o wfirdc.o yzktec.o aprdep.o diff.o inmuac.o muatcc.o ortdac.o potex.o solout.o yzkrdc.o a - aprdec.o a - dfovrg.o @@ -2973,6 +3009,16 @@ gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o fmspack.o fmspack.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ggbi.o ggbi.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o gggm.o gggm.f +ggbi.f:45:72: + + 45 | do 10 irow = 1,istatx + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) +ggbi.f:46:72: + + 46 | 10 g0t(irow,icol) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) fmsie.f:50:72: 50 | do 30 j=1,3 @@ -2983,21 +3029,16 @@ 51 | 30 rat(j,iat) = real (rath(j,iat)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) -ggbi.f:45:72: +gggm.f:45:72: 45 | do 10 irow = 1,istatx | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) -ggbi.f:46:72: - - 46 | 10 g0t(irow,icol) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) -gggm.f:45:72: +ggbi.f:84:72: - 45 | do 10 irow = 1,istatx + 84 | 40 xvec(is) = 0 | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gggm.f:46:72: 46 | 10 g0t(irow,icol) = 0 @@ -3008,26 +3049,31 @@ 90 | 1011 lcalc(ill) = .true. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1011 at (1) -ggbi.f:84:72: - - 84 | 40 xvec(is) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) ggbi.f:92:72: 92 | 90 rvec(is) = - avec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) +ggbi.f:106:72: + + 106 | 95 pvec(is) = rvec(is) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) gggm.f:84:72: 84 | 40 xvec(is) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) -ggbi.f:106:72: +ggbi.f:118:72: - 106 | 95 pvec(is) = rvec(is) + 118 | 96 yvec(is) = rvec(is) / ww | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 96 at (1) +ggbi.f:123:72: + + 123 | 97 yvec(is) = rvec(is) * aa + avec(is) * ww + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 97 at (1) gggm.f:94:72: 94 | 60 xvec(is) = xvec(is) + x0(is) / q0 @@ -3038,36 +3084,31 @@ 97 | 70 bvec(is) = avec(is) - xvec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) +ggbi.f:134:72: + + 134 | 120 svec(is) = rvec(is) - omega * avec(is) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) gggm.f:101:72: 101 | 80 r0(is) = bvec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) -ggbi.f:118:72: - - 118 | 96 yvec(is) = rvec(is) / ww - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 96 at (1) gggm.f:103:72: 103 | 90 x0(is) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) -ggbi.f:123:72: - - 123 | 97 yvec(is) = rvec(is) * aa + avec(is) * ww - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 97 at (1) gggm.f:105:72: 105 | 95 x1(is) = bvec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) -ggbi.f:134:72: +ggbi.f:145:72: - 134 | 120 svec(is) = rvec(is) - omega * avec(is) + 145 | 124 xvec(is) = xvec(is) + omega*pvec(is) | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 124 at (1) gggm.f:117:72: 117 | 96 wvec(is) = r0(is) / ww @@ -3078,26 +3119,26 @@ 122 | 97 wvec(is) = r0(is) * aa + r1(is) * ww | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 97 at (1) -ggbi.f:145:72: - - 145 | 124 xvec(is) = xvec(is) + omega*pvec(is) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 124 at (1) ggbi.f:155:72: 155 | 125 xvec(is) = xvec(is) + omega*pvec(is) + chi*svec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1) +ggbi.f:158:72: + + 158 | 130 rvec(is) = svec(is) - chi* asve(is) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gggm.f:145:72: 145 | 100 xvec(is) = xvec(is) + x1(is) / q1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) -ggbi.f:158:72: +ggbi.f:175:72: - 158 | 130 rvec(is) = svec(is) - chi* asve(is) + 175 | 135 pvec(is) = rvec(is) + psi * (pvec(is)-chi*avec(is)) | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1) gggm.f:151:72: 151 | 130 t0(is) = r1(is) - alpha* r0(is) @@ -3113,11 +3154,6 @@ 165 | 150 x0(is) = t0(is) + dd * (x1(is) - alpha*x0(is)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) -ggbi.f:175:72: - - 175 | 135 pvec(is) = rvec(is) + psi * (pvec(is)-chi*avec(is)) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1) gggm.f:179:72: 179 | 390 xvec(is) = xvec(is) + x0(is) / q0 @@ -3230,33 +3266,16 @@ | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~ Warning: Array 'g0s' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ggrm.o ggrm.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ggtf.o ggtf.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o xstaff.o xstaff.f ggrm.f:46:72: 46 | do 10 irow = 1,istatx | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) -ggtf.f:46:72: - - 46 | do 10 irow = 1,istatx - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) ggrm.f:47:72: 47 | 10 g0t(irow,icol) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) -ggtf.f:47:72: - - 47 | 10 g0t(irow,icol) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) -ggtf.f:86:72: - - 86 | 40 xvec(is) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) ggrm.f:85:72: 85 | 40 xvec(is) = 0 @@ -3267,6 +3286,77 @@ 95 | 90 xket(is) = - rvec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) +ggrm.f:101:72: + + 101 | 91 xbra(is) = xket(is) * xfnorm + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 91 at (1) +ggrm.f:120:72: + + 120 | 120 svec(is) = tket(is) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) +ggrm.f:122:72: + + 122 | 130 rvec(is) = rvec(is) + svec(is) / betac + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) +ggrm.f:129:72: + + 129 | 140 tket(is) = tket(is) - aa*xket(is) - bb*xketp(is) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) +ggrm.f:132:72: + + 132 | 150 tbra(is) = tbra(is) - aac*xbra(is) - bbc*xbrap(is) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) +ggrm.f:155:72: + + 155 | 210 zvec(is) = xket(is) - alphac * zvec(is) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) +ggrm.f:157:72: + + 157 | 220 svec(is) = tket(is) - alphac * svec(is) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) +ggrm.f:163:72: + + 163 | 230 xvec(is) = xvec(is) + gamma * zvec(is) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) +ggrm.f:165:72: + + 165 | 240 rvec(is) = rvec(is) + gamma * svec(is) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) +ggrm.f:254:72: + + 254 | 10 cvec(is) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) +ggrm.f:258:72: + + 258 | do 20 irow = 1,istate + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ggtf.o ggtf.f +ggtf.f:46:72: + + 46 | do 10 irow = 1,istatx + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) +ggtf.f:47:72: + + 47 | 10 g0t(irow,icol) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) +ggtf.f:86:72: + + 86 | 40 xvec(is) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) ggtf.f:94:72: 94 | 90 uvec(is) = - avec(is) @@ -3277,11 +3367,6 @@ 100 | 95 wvec(is) = uvec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) -ggrm.f:101:72: - - 101 | 91 xbra(is) = xket(is) * xfnorm - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 91 at (1) ggtf.f:102:72: 102 | 96 vvec(is) = avec(is) @@ -3292,36 +3377,16 @@ 104 | 97 dvec(is) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 97 at (1) -ggrm.f:120:72: - - 120 | 120 svec(is) = tket(is) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) ggtf.f:111:72: 111 | 98 rvec(is) = uvec(is) / aa | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 98 at (1) -ggrm.f:122:72: - - 122 | 130 rvec(is) = rvec(is) + svec(is) / betac - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) -ggrm.f:129:72: - - 129 | 140 tket(is) = tket(is) - aa*xket(is) - bb*xketp(is) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) ggtf.f:126:72: 126 | 115 wvec(is) = wvec(is) - alpha * avec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) -ggrm.f:132:72: - - 132 | 150 tbra(is) = tbra(is) - aac*xbra(is) - bbc*xbrap(is) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) ggtf.f:130:72: 130 | 120 dvec(is) = uvec(is) + aa * dvec(is) @@ -3332,26 +3397,33 @@ 138 | 140 xvec(is) = xvec(is) + eta * dvec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) -ggrm.f:155:72: +ggtf.f:150:72: - 155 | 210 zvec(is) = xket(is) - alphac * zvec(is) + 150 | 210 uvec(is) = wvec(is) + beta * uvec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) -ggrm.f:157:72: +ggtf.f:153:72: - 157 | 220 svec(is) = tket(is) - alphac * svec(is) + 153 | 215 vvec(is) = beta * ( avec(is) + beta * vvec(is)) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1) +ggtf.f:157:72: + + 157 | 220 vvec(is) = avec(is) + vvec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) -ggrm.f:163:72: +ggtf.f:160:72: - 163 | 230 xvec(is) = xvec(is) + gamma * zvec(is) + 160 | 230 uvec(is) = uvec(is) - alpha * vvec(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) -ggrm.f:165:72: +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o xstaff.o xstaff.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o yprep.o yprep.f +yprep.f:181:72: - 165 | 240 rvec(is) = rvec(is) + gamma * svec(is) + 181 | do 200 iat1=1,nclusx | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) +Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) xstaff.f:281:72: 281 | do 85 m1 = -il, il @@ -3362,51 +3434,21 @@ 282 | do 85 m2 = -il, il | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 85 at (1) -ggtf.f:150:72: - - 150 | 210 uvec(is) = wvec(is) + beta * uvec(is) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) xstaff.f:294:72: 294 | do 150 im = 1, 2*lxx+1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) -ggtf.f:153:72: - - 153 | 215 vvec(is) = beta * ( avec(is) + beta * vvec(is)) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1) xstaff.f:295:72: 295 | do 150 il = 1, lxx+1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) -ggtf.f:157:72: - - 157 | 220 vvec(is) = avec(is) + vvec(is) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) -ggtf.f:160:72: - - 160 | 230 uvec(is) = uvec(is) - alpha * vvec(is) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) xstaff.f:346:72: 346 | do 310 m1 = -lx, lx | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 310 at (1) -ggrm.f:254:72: - - 254 | 10 cvec(is) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) -ggrm.f:258:72: - - 258 | do 20 irow = 1,istate - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) xstaff.f:347:72: 347 | do 310 m2 = -lx, lx @@ -3442,12 +3484,6 @@ 270 | dimension dri0 (lxx+1, 2*lxx+1, 2*lxx+1) | 1 Warning: Array 'dri0' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o yprep.o yprep.f -yprep.f:181:72: - - 181 | do 200 iat1=1,nclusx - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) ar rvc libfefffms.a fmsie.o fmspack.o ggbi.o gggm.o gglu.o ggrm.o ggtf.o xstaff.o yprep.o a - fmsie.o a - fmspack.o @@ -3464,13 +3500,13 @@ make[2]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/RDINP' make[2]: warning: -j4 forced in submake: resetting jobserver mode. make -C ../json-fortran libjsonfortran.a +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ffsort.o ffsort.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o iniall.o iniall.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o mkptz.o mkptz.f make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran' make[3]: 'libjsonfortran.a' is up to date. make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran' -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ffsort.o ffsort.f make -C ../COMMON libfeffcom.a -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o iniall.o iniall.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o mkptz.o mkptz.f make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/COMMON' make[3]: 'libfeffcom.a' is up to date. make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/COMMON' @@ -3517,16 +3553,16 @@ 154 | 170 iphatx(i) = -1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) -ffsort.f:211:72: - - 211 | 316 iatph(iph) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 316 at (1) mkptz.f:177:72: 177 | do 110 j = -1,1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) +ffsort.f:211:72: + + 211 | 316 iatph(iph) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 316 at (1) mkptz.f:216:72: 216 | 120 call rotate (rat(1,i), cst, snt, csf, snf) @@ -3594,10 +3630,15 @@ make[2]: warning: -j4 forced in submake: resetting jobserver mode. make -C ../POT libfeffint.a gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o istprm.o istprm.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o movrlp.o movrlp.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ovp2mt.o ovp2mt.f make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/POT' gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o istprm.o istprm.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o movrlp.o movrlp.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o movrlp.o movrlp.f +ovp2mt.f:51:72: + + 51 | do 25 i=1,novp + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 25 at (1) movrlp.f:45:72: 45 | 20 ri(i)=exp(-8.8d0+(i-1)*0.05d0) @@ -3608,16 +3649,21 @@ 51 | do 30 i1=1,ncp | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) +movrlp.f:57:72: + + 57 | do 40 i1=1,nph+1 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) istprm.f:67:72: 67 | 10 lnear(iph)=.false. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) -movrlp.f:57:72: +ovp2mt.f:125:72: - 57 | do 40 i1=1,nph+1 + 125 | 505 vtot(j,iph) = vint | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 505 at (1) istprm.f:67:72: 67 | 10 lnear(iph)=.false. @@ -3633,6 +3679,17 @@ 220 | 270 cmovp(ncp,ix1) = cmovp(ncp, ix1) + bmat(iph+1,ix1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) +istprm.f:41:15: + + 41 | complex cmovp(novp*(nphx+1)+1,novp*(nphx+1)+1) + | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Warning: Array 'cmovp' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +istprm.f:41:15: + + 41 | complex cmovp(novp*(nphx+1)+1,novp*(nphx+1)+1) + | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Warning: Array 'cmovp' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o movrlp.o movrlp.f movrlp.f:45:72: 45 | 20 ri(i)=exp(-8.8d0+(i-1)*0.05d0) @@ -3648,16 +3705,6 @@ 57 | do 40 i1=1,nph+1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) -istprm.f:41:15: - - 41 | complex cmovp(novp*(nphx+1)+1,novp*(nphx+1)+1) - | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Warning: Array 'cmovp' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -istprm.f:41:15: - - 41 | complex cmovp(novp*(nphx+1)+1,novp*(nphx+1)+1) - | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Warning: Array 'cmovp' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] movrlp.f:215:72: 215 | & cmplx(real(aa)*bmat(iph+1,ix1)) @@ -3668,33 +3715,13 @@ 220 | 270 cmovp(ncp,ix1) = cmovp(ncp, ix1) + bmat(iph+1,ix1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ovp2mt.o ovp2mt.f -ovp2mt.f:51:72: - - 51 | do 25 i=1,novp - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 25 at (1) -ovp2mt.f:125:72: - - 125 | 505 vtot(j,iph) = vint - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 505 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ovp2mt.o ovp2mt.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o fermi.o fermi.f -ovp2mt.f:51:72: - - 51 | do 25 i=1,novp - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 25 at (1) -ovp2mt.f:125:72: - - 125 | 505 vtot(j,iph) = vint - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 505 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o sidx.o sidx.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o fermi.o fermi.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o libpotph.o libpotph.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o sidx.o sidx.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o sidx.o sidx.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o libpotph.o libpotph.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o inipotph.o inipotph.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ffsort_potph.o ffsort_potph.f libpotph.f:160:19: 160 | dimension dgc(251,30,0:nphx+1), dpc(251,30,0:nphx+1) @@ -3705,60 +3732,14 @@ 160 | dimension dgc(251,30,0:nphx+1), dpc(251,30,0:nphx+1) | 1 Warning: Array 'dpc' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o inipotph.o inipotph.f -ar rvc libfeffint.a istprm.o movrlp.o ovp2mt.o fermi.o sidx.o -a - istprm.o -a - movrlp.o -a - ovp2mt.o -a - fermi.o -a - sidx.o -ranlib libfeffint.a -make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/POT' -make -C ../ATOM libfeffatom.a -make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/ATOM' -make[3]: 'libfeffatom.a' is up to date. -make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/ATOM' -make -C ../FOVRG libfeffpha.a -make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/FOVRG' -make[3]: 'libfeffpha.a' is up to date. -make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/FOVRG' -make -C ../COMMON libfeffcom.a -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ffsort_potph.o ffsort_potph.f -make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/COMMON' -make[3]: 'libfeffcom.a' is up to date. -make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/COMMON' -make -C ../PAR libfeffpar.a -make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/PAR' -make[3]: 'libfeffpar.a' is up to date. -make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/PAR' -make -C ../MATH libfeffmath.a -make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/MATH' -make[3]: 'libfeffmath.a' is up to date. -make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/MATH' -make -C ../JSON libfeffjson.a -make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/JSON' -make[3]: 'libfeffjson.a' is up to date. -make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/JSON' -make -C ../EXCH libfeffexch.a -make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/EXCH' -make[3]: Circular xcpot.o <- xcpot.o dependency dropped. -make[3]: 'libfeffexch.a' is up to date. -make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/EXCH' -make -C ../FMS libfefffms.a -make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/FMS' -make[3]: 'libfefffms.a' is up to date. -make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/FMS' -make -C ../json-fortran libjsonfortran.a -make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran' -make[3]: 'libjsonfortran.a' is up to date. -make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran' -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o wlog_potph.o wlog_potph.f ffsort_potph.f:174:72: 174 | 316 iatph(iph) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 316 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o wlog_potph.o wlog_potph.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o pot.o pot.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o afolp.o afolp.f pot.f:270:72: 270 | 12 folp(i) = folp0(i) @@ -3819,8 +3800,14 @@ 226 | complex*16 yrhole(251 * (lx + 1) * (nphx + 1) * Maxprocs ) | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Warning: Array 'yrhole' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o afolp.o afolp.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o inipot.o inipot.f +ar rvc libfeffint.a istprm.o movrlp.o ovp2mt.o fermi.o sidx.o +a - istprm.o +a - movrlp.o +a - ovp2mt.o +a - fermi.o +a - sidx.o +ranlib libfeffint.a inipot.f:12:72: 12 | do 10 iorb = 1,30 @@ -3881,7 +3868,45 @@ 31 | 50 xnmues (ll, iph) = zero | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) +make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/POT' +make -C ../ATOM libfeffatom.a +make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/ATOM' +make[3]: 'libfeffatom.a' is up to date. +make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/ATOM' +make -C ../FOVRG libfeffpha.a +make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/FOVRG' +make[3]: 'libfeffpha.a' is up to date. +make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/FOVRG' +make -C ../COMMON libfeffcom.a gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o moveh.o moveh.f +make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/COMMON' +make[3]: 'libfeffcom.a' is up to date. +make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/COMMON' +make -C ../PAR libfeffpar.a +make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/PAR' +make[3]: 'libfeffpar.a' is up to date. +make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/PAR' +make -C ../MATH libfeffmath.a +make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/MATH' +make[3]: 'libfeffmath.a' is up to date. +make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/MATH' +make -C ../JSON libfeffjson.a +make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/JSON' +make[3]: 'libfeffjson.a' is up to date. +make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/JSON' +make -C ../EXCH libfeffexch.a +make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/EXCH' +make[3]: Circular xcpot.o <- xcpot.o dependency dropped. +make[3]: 'libfeffexch.a' is up to date. +make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/EXCH' +make -C ../FMS libfefffms.a +make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/FMS' +make[3]: 'libfefffms.a' is up to date. +make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/FMS' +make -C ../json-fortran libjsonfortran.a +make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran' +make[3]: 'libjsonfortran.a' is up to date. +make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran' gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o wpot.o wpot.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ovrlp.o ovrlp.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o broydn.o broydn.f @@ -3937,12 +3962,12 @@ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 840 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o grids.o grids.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o corval.o corval.f grids.f:43:72: 43 | 20 emg(i) = emg(i-1) + de | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o corval.o corval.f corval.f:81:72: 81 | 15 ri05(i) = exp (-8.8d0+0.05d0*(i-1)) @@ -4031,61 +4056,6 @@ 115 | 870 yrhocp(i,iph) = yrhoce(i,iph) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 870 at (1) -scmt.f:129:72: - - 129 | 35 dmag0(i) = 0.d0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) -scmt.f:149:72: - - 149 | 40 vtotph(i) = vtotph(i) - dble(eref) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) -scmt.f:152:72: - - 152 | 50 vvalph(i) = vvalph(i) - dble(eref) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) -scmt.f:155:72: - - 155 | 60 vvalph(i) = vtotph(i) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) -scmt.f:175:72: - - 175 | do 195 il = 0, lx - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 195 at (1) -scmt.f:176:72: - - 176 | 195 gtr(il,iph0) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 195 at (1) -scmt.f:185:72: - - 185 | 1 rfms1, lfms1, nat, iphat, rat, gtr) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) -scmt.f:329:72: - - 329 | do 320 il = 0,lx - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) -scmt.f:39:20: - - 39 | dimension dgcn(nrptx,30), dpcn(nrptx,30) - | 1 -Warning: Array 'dgcn' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -scmt.f:39:36: - - 39 | dimension dgcn(nrptx,30), dpcn(nrptx,30) - | 1 -Warning: Array 'dpcn' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -scmt.f:43:18: - - 43 | complex*16 yrhole(251,0:lx,0:nphx) - | 1~~~~~~~~~~~~~~~~~~~~~~ -Warning: Array 'yrhole' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] scmtmp.f:81:72: 81 | 15 ri05(i) = exp (-8.8d0+0.05d0*(i-1)) @@ -4101,6 +4071,11 @@ 96 | 16 rhoval(ir,iph) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) +scmt.f:129:72: + + 129 | 35 dmag0(i) = 0.d0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) scmtmp.f:107:72: 107 | do 21 iph=0,nph @@ -4116,16 +4091,31 @@ 109 | 21 xrhoce(il,iph, ipr) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) +scmt.f:149:72: + + 149 | 40 vtotph(i) = vtotph(i) - dble(eref) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) scmtmp.f:111:72: 111 | do 22 il=0,lx | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 22 at (1) +scmt.f:152:72: + + 152 | 50 vvalph(i) = vvalph(i) - dble(eref) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) scmtmp.f:112:72: 112 | 22 xnmues(il,iph) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1) +scmt.f:155:72: + + 155 | 60 vvalph(i) = vtotph(i) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) scmtmp.f:114:72: 114 | do 23 iph=0,nph @@ -4141,11 +4131,26 @@ 116 | 23 yrhoce(ir,iph,ipr) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1) +scmt.f:175:72: + + 175 | do 195 il = 0, lx + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 195 at (1) +scmt.f:176:72: + + 176 | 195 gtr(il,iph0) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 195 at (1) scmtmp.f:146:72: 146 | 35 dmag0(i) = 0.d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) +scmt.f:185:72: + + 185 | 1 rfms1, lfms1, nat, iphat, rat, gtr) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) scmtmp.f:166:72: 166 | 40 vtotph(i) = vtotph(i) - dble(eref) @@ -4176,6 +4181,11 @@ 205 | 1 rfms1, lfms1, nat, iphat, rat, gtr(0,0,ipr)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) +scmt.f:329:72: + + 329 | do 320 il = 0,lx + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) scmtmp.f:276:72: 276 | do 206 il = 0,lx @@ -4196,11 +4206,26 @@ 280 | 207 yrhocp(i,iph) = yrhoce(i,iph, ipr) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 207 at (1) +scmt.f:39:20: + + 39 | dimension dgcn(nrptx,30), dpcn(nrptx,30) + | 1 +Warning: Array 'dgcn' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +scmt.f:39:36: + + 39 | dimension dgcn(nrptx,30), dpcn(nrptx,30) + | 1 +Warning: Array 'dpcn' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] scmtmp.f:350:72: 350 | do 256 il = 0,lx | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 256 at (1) +scmt.f:43:18: + + 43 | complex*16 yrhole(251,0:lx,0:nphx) + | 1~~~~~~~~~~~~~~~~~~~~~~ +Warning: Array 'yrhole' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] scmtmp.f:351:72: 351 | 256 xrhocp(il,iph) = xrhoce(il,iph, ipr) @@ -4238,8 +4263,6 @@ Warning: Array 'dpcn' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o sumax.o sumax.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o rholie.o rholie.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o frnrm.o frnrm.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o coulom.o coulom.f rholie.f:91:72: 91 | do 10 j = 1, 251 @@ -4255,6 +4278,8 @@ 114 | 110 yrhole(i,lll) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o frnrm.o frnrm.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o coulom.o coulom.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../FF2X/xscorr.o ../FF2X/xscorr.f coulom.f:83:72: @@ -4404,6 +4429,9 @@ | ^ note: 'ee' declared here gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/fmssz.o ../XSPH/fmssz.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/phase.o ../XSPH/phase.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/phmesh.o ../XSPH/phmesh.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/radint.o ../XSPH/radint.f ../XSPH/fmssz.f:35:72: 35 | do 25 j=1,3 @@ -4429,9 +4457,6 @@ 91 | do 100 i1 = 1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/phase.o ../XSPH/phase.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/phmesh.o ../XSPH/phmesh.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/radint.o ../XSPH/radint.f ../XSPH/phmesh.f:43:72: 43 | 10 em(nemax+1-i) = -xim*i + edge + coni*xloss @@ -4457,6 +4482,11 @@ 81 | 50 em(i) = em(i) + edge + coni*xloss | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) +../XSPH/radint.f:176:72: + + 176 | 80 xrc(i) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) ../XSPH/phase.f:267:72: 267 | 230 eref(ie) = eref(ne1) @@ -4482,11 +4512,6 @@ 215 | 150 em(ie) = 2*(edge + coni*xloss) - em(ie) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) -../XSPH/radint.f:176:72: - - 176 | 80 xrc(i) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/rholsz.o ../XSPH/rholsz.f ../XSPH/rholsz.f:89:72: @@ -4599,6 +4624,26 @@ 37 | dimension dgcn(nrptx,30), dpcn(nrptx,30) | 1 Warning: Array 'dpcn' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +../XSPH/rholsz.f:170:72: + + 170 | temp = 2*ck / (1+factor**2) / pi + | ^ +Warning: 'REALPART_EXPR ' may be used uninitialized [-Wmaybe-uninitialized] +../XSPH/rholsz.f:58:41: + + 58 | complex*16 temp, phx, phm(2,2), factor + | ^~~~~~ +note: 'REALPART_EXPR ' was declared here +../XSPH/rholsz.f:170:72: + + 170 | temp = 2*ck / (1+factor**2) / pi + | ^ +Warning: 'IMAGPART_EXPR ' may be used uninitialized [-Wmaybe-uninitialized] +../XSPH/rholsz.f:58:41: + + 58 | complex*16 temp, phx, phm(2,2), factor + | ^~~~~~ +note: 'IMAGPART_EXPR ' was declared here gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/wphase.o ../XSPH/wphase.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/wrxsph.o ../XSPH/wrxsph.f ../XSPH/wrxsph.f:72:72: @@ -4626,28 +4671,9 @@ 47 | complex*16 temp(nex*(2*ltot+1)) | 1~~~~~~~~~~~~~~~~~~~ Warning: Array 'temp' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -../XSPH/rholsz.f:170:72: - - 170 | temp = 2*ck / (1+factor**2) / pi - | ^ -Warning: 'REALPART_EXPR ' may be used uninitialized [-Wmaybe-uninitialized] -../XSPH/rholsz.f:58:41: - - 58 | complex*16 temp, phx, phm(2,2), factor - | ^~~~~~ -note: 'REALPART_EXPR ' was declared here -../XSPH/rholsz.f:170:72: - - 170 | temp = 2*ck / (1+factor**2) / pi - | ^ -Warning: 'IMAGPART_EXPR ' may be used uninitialized [-Wmaybe-uninitialized] -../XSPH/rholsz.f:58:41: - - 58 | complex*16 temp, phx, phm(2,2), factor - | ^~~~~~ -note: 'IMAGPART_EXPR ' was declared here gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/xmult.o ../XSPH/xmult.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/xsect.o ../XSPH/xsect.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/xsph.o ../XSPH/xsph.f ../XSPH/xsect.f:178:72: 178 | do 20 k1 = 1,8 @@ -4663,29 +4689,17 @@ 181 | 30 phx(k1) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) -../XSPH/xsect.f:317:72: - - 317 | 159 fscf(i) = 1.d0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 159 at (1) -../XSPH/xsect.f:681:72: - - 681 | 360 rkk(ie,kdif)= rkk(ie,kdif) * ck/xnorm * exp(coni*phx(kdif)) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) -../XSPH/xsect.f:68:18: - - 68 | complex*16 bmat(-lx:lx,0:1,8, -lx:lx,0:1,8) - | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Warning: Array 'bmat' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../XSPH/xsph.o ../XSPH/xsph.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../JSON/json_read_libpotph.o ../JSON/json_read_libpotph.f -gcc -c -g -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o feffphases.o feffphases.c ../XSPH/xsph.f:173:72: 173 | 15 novr(iph) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) +../XSPH/xsect.f:317:72: + + 317 | 159 fscf(i) = 1.d0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 159 at (1) ../XSPH/xsph.f:279:72: 279 | 95 ri(i) = exp(-x0+dx*(i-1)) @@ -4696,6 +4710,11 @@ 443 | 334 vchp(i) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 334 at (1) +../XSPH/xsect.f:681:72: + + 681 | 360 rkk(ie,kdif)= rkk(ie,kdif) * ck/xnorm * exp(coni*phx(kdif)) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) ../XSPH/xsph.f:120:20: 120 | dimension dgcn(nrptx,30), dpcn(nrptx,30) @@ -4711,11 +4730,26 @@ 106 | complex*16 ph( nex, -ltot:ltot, nspx, 0:nphx) | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Warning: Array 'ph' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +../XSPH/xsect.f:68:18: + + 68 | complex*16 bmat(-lx:lx,0:1,8, -lx:lx,0:1,8) + | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Warning: Array 'bmat' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] ../JSON/json_read_libpotph.f:23:46: 23 | 1 inters, totvol, jumprm, nohole, iplsmn) | 1~~~~~ Warning: Unused dummy argument 'iplsmn' at (1) [-Wunused-dummy-argument] +gcc -c -g -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o feffphases.o feffphases.c +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ffmod1.o ffmod1.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o istval.o istval.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o reapot.o reapot.f +ar rvc libfeffint.a istprm.o movrlp.o ovp2mt.o fermi.o sidx.o +r - istprm.o +r - movrlp.o +r - ovp2mt.o +r - fermi.o +r - sidx.o ../XSPH/xsect.f:314:72: 314 | wse = dble(p2-eng(1,ihole)) @@ -4726,15 +4760,7 @@ 105 | dimension eng(nex, 30) | ^ note: 'eng' declared here -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ffmod1.o ffmod1.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o istval.o istval.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o reapot.o reapot.f -ar rvc libfeffint.a istprm.o movrlp.o ovp2mt.o fermi.o sidx.o -r - istprm.o -r - movrlp.o -r - ovp2mt.o -r - fermi.o -r - sidx.o +ranlib libfeffint.a reapot.f:235:72: 235 | do 210 i = 1,3 @@ -4745,13 +4771,12 @@ 239 | do 220 iovr = 1, novr(iph) | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 220 at (1) -ranlib libfeffint.a gfortran ffmod1.o pot.o scmtmp.o afolp.o broydn.o corval.o coulom.o ff2g.o frnrm.o grids.o inipot.o istval.o moveh.o ovrlp.o reapot.o rholie.o scmt.o sumax.o wpot.o wrpot.o ../POT/libfeffint.a ../ATOM/libfeffatom.a ../FOVRG/libfeffpha.a ../COMMON/libfeffcom.a ../PAR/libfeffpar.a ../MATH/libfeffmath.a ../JSON/libfeffjson.a ../EXCH/libfeffexch.a ../FMS/libfefffms.a ../json-fortran/libjsonfortran.a -o feff8l_pot +/usr/bin/ld: warning: json_module.o: requires executable stack (because the .note.GNU-stack section is executable) gfortran -shared libpotph.o inipotph.o ffsort_potph.o wlog_potph.o pot.o afolp.o inipot.o moveh.o wpot.o ovrlp.o broydn.o ff2g.o grids.o corval.o wrpot.o scmt.o scmtmp.o sumax.o rholie.o frnrm.o coulom.o istprm.o movrlp.o ovp2mt.o fermi.o sidx.o ../RDINP/mkptz.o ../COMMON/chopen.o ../COMMON/fixdsp.o ../COMMON/fixdsx.o ../COMMON/fixvar.o ../COMMON/getorb.o ../COMMON/getxk.o ../COMMON/head.o ../COMMON/padlib.o ../COMMON/setkap.o ../COMMON/rdcmt.o ../COMMON/str.o ../COMMON/xx.o ../ATOM/akeato.o ../ATOM/aprdev.o ../ATOM/cofcon.o ../ATOM/bkmrdf.o ../ATOM/dentfa.o ../ATOM/dsordf.o ../ATOM/etotal.o ../ATOM/fdmocc.o ../ATOM/fdrirk.o ../ATOM/inmuat.o ../ATOM/intdir.o ../ATOM/lagdat.o ../ATOM/messer.o ../ATOM/muatco.o ../ATOM/nucdev.o ../ATOM/ortdat.o ../ATOM/potrdf.o ../ATOM/potslw.o ../ATOM/scfdat.o ../ATOM/soldir.o ../ATOM/s02at.o ../ATOM/tabrat.o ../ATOM/vlda.o ../ATOM/wfirdf.o ../ATOM/yzkteg.o ../ATOM/yzkrdf.o ../MATH/bcoef.o ../MATH/besjh.o ../MATH/besjn.o ../MATH/bjnser.o ../MATH/csomm.o ../MATH/csomm2.o ../MATH/cwig3j.o ../MATH/czeros.o ../MATH/determ.o ../MATH/dist.o ../MATH/exjlnl.o ../MATH/lu.o ../MATH/phamp.o ../MATH/polint.o ../MATH/rotwig.o ../MATH/somm.o ../MATH/somm2.o ../MATH/terp.o ../MATH/terpc.o ../FMS/fmspack.o ../FMS/fmsie.o ../FMS/gglu.o ../FMS/ggbi.o ../FMS/ggrm.o ../FMS/gggm.o ../FMS/ggtf.o ../FMS/yprep.o ../FMS/xstaff.o ../FF2X/xscorr.o ../EXCH/cubic.o ../EXCH/csigma.o ../EXCH/csigz.o ../EXCH/edp.o ../EXCH/ffq.o ../EXCH/fndsng.o ../EXCH/imhl.o ../EXCH/qsorti.o ../EXCH/quinn.o ../EXCH/rhl.o ../EXCH/rhlbp.o ../EXCH/vbh.o ../EXCH/xcpot.o ../FOVRG/dfovrg.o ../FOVRG/inmuac.o ../FOVRG/diff.o ../FOVRG/wfirdc.o ../FOVRG/potex.o ../FOVRG/solin.o ../FOVRG/solout.o ../FOVRG/muatcc.o ../FOVRG/nucdec.o ../FOVRG/potdvp.o ../FOVRG/yzkrdc.o ../FOVRG/yzktec.o ../FOVRG/aprdep.o ../FOVRG/aprdec.o ../FOVRG/intout.o ../PAR/sequential.o ../XSPH/acoef.o ../XSPH/axafs.o ../XSPH/fmssz.o ../XSPH/phase.o ../XSPH/phmesh.o ../XSPH/radint.o ../XSPH/rholsz.o ../XSPH/szlz.o ../XSPH/wphase.o ../XSPH/wrxsph.o ../XSPH/xmult.o ../XSPH/xsect.o ../XSPH/xsph.o ../JSON/json_read_libpotph.o ../JSON/json_xsect.o ../JSON/bailout.o ../json-fortran/libjsonfortran.a -o libpotph.so gfortran -shared feffphases.o libpotph.o inipotph.o ffsort_potph.o wlog_potph.o pot.o afolp.o inipot.o moveh.o wpot.o ovrlp.o broydn.o ff2g.o grids.o corval.o wrpot.o scmt.o scmtmp.o sumax.o rholie.o frnrm.o coulom.o istprm.o movrlp.o ovp2mt.o fermi.o sidx.o ../RDINP/mkptz.o ../COMMON/chopen.o ../COMMON/fixdsp.o ../COMMON/fixdsx.o ../COMMON/fixvar.o ../COMMON/getorb.o ../COMMON/getxk.o ../COMMON/head.o ../COMMON/padlib.o ../COMMON/setkap.o ../COMMON/rdcmt.o ../COMMON/str.o ../COMMON/xx.o ../ATOM/akeato.o ../ATOM/aprdev.o ../ATOM/cofcon.o ../ATOM/bkmrdf.o ../ATOM/dentfa.o ../ATOM/dsordf.o ../ATOM/etotal.o ../ATOM/fdmocc.o ../ATOM/fdrirk.o ../ATOM/inmuat.o ../ATOM/intdir.o ../ATOM/lagdat.o ../ATOM/messer.o ../ATOM/muatco.o ../ATOM/nucdev.o ../ATOM/ortdat.o ../ATOM/potrdf.o ../ATOM/potslw.o ../ATOM/scfdat.o ../ATOM/soldir.o ../ATOM/s02at.o ../ATOM/tabrat.o ../ATOM/vlda.o ../ATOM/wfirdf.o ../ATOM/yzkteg.o ../ATOM/yzkrdf.o ../MATH/bcoef.o ../MATH/besjh.o ../MATH/besjn.o ../MATH/bjnser.o ../MATH/csomm.o ../MATH/csomm2.o ../MATH/cwig3j.o ../MATH/czeros.o ../MATH/determ.o ../MATH/dist.o ../MATH/exjlnl.o ../MATH/lu.o ../MATH/phamp.o ../MATH/polint.o ../MATH/rotwig.o ../MATH/somm.o ../MATH/somm2.o ../MATH/terp.o ../MATH/terpc.o ../FMS/fmspack.o ../FMS/fmsie.o ../FMS/gglu.o ../FMS/ggbi.o ../FMS/ggrm.o ../FMS/gggm.o ../FMS/ggtf.o ../FMS/yprep.o ../FMS/xstaff.o ../FF2X/xscorr.o ../EXCH/cubic.o ../EXCH/csigma.o ../EXCH/csigz.o ../EXCH/edp.o ../EXCH/ffq.o ../EXCH/fndsng.o ../EXCH/imhl.o ../EXCH/qsorti.o ../EXCH/quinn.o ../EXCH/rhl.o ../EXCH/rhlbp.o ../EXCH/vbh.o ../EXCH/xcpot.o ../FOVRG/dfovrg.o ../FOVRG/inmuac.o ../FOVRG/diff.o ../FOVRG/wfirdc.o ../FOVRG/potex.o ../FOVRG/solin.o ../FOVRG/solout.o ../FOVRG/muatcc.o ../FOVRG/nucdec.o ../FOVRG/potdvp.o ../FOVRG/yzkrdc.o ../FOVRG/yzktec.o ../FOVRG/aprdep.o ../FOVRG/aprdec.o ../FOVRG/intout.o ../PAR/sequential.o ../XSPH/acoef.o ../XSPH/axafs.o ../XSPH/fmssz.o ../XSPH/phase.o ../XSPH/phmesh.o ../XSPH/radint.o ../XSPH/rholsz.o ../XSPH/szlz.o ../XSPH/wphase.o ../XSPH/wrxsph.o ../XSPH/xmult.o ../XSPH/xsect.o ../XSPH/xsph.o ../JSON/json_read_libpotph.o ../JSON/json_xsect.o ../JSON/bailout.o ../json-fortran/libjsonfortran.a -o libfeff8lpotph.so /usr/bin/ld: warning: json_module.o: requires executable stack (because the .note.GNU-stack section is executable) /usr/bin/ld: warning: json_module.o: requires executable stack (because the .note.GNU-stack section is executable) -/usr/bin/ld: warning: json_module.o: requires executable stack (because the .note.GNU-stack section is executable) make[2]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/POT' make -C src/XSPH -j4 make[2]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/XSPH' @@ -4856,8 +4881,8 @@ make -C ../json-fortran libjsonfortran.a gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ccrit.o ccrit.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o heap.o heap.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o mcrith.o mcrith.f make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran' +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o mcrith.o mcrith.f make[3]: 'libjsonfortran.a' is up to date. make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran' make -C ../COMMON libfeffcom.a @@ -4884,7 +4909,6 @@ Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 700 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o mrb.o mrb.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o paths.o paths.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o phash.o phash.f paths.f:51:17: 51 | integer index(nx), npx, np, n, ip, i, iat0, idum @@ -4925,6 +4949,7 @@ 54 | dimension r(nx), mi(nx), mj(nx) | 1 Warning: Array 'r' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o phash.o phash.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o repath.o repath.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o timrep.o timrep.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ffmod4.o ffmod4.f @@ -4954,21 +4979,7 @@ gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o outcrt.o outcrt.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o pathsd.o pathsd.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o prcrit.o prcrit.f -pathsd.f:18:24: - - 18 | double precision dhash(np1x), dcurr, ddum - | 1~~~~~~~~~~ -Warning: Array 'dhash' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -pathsd.f:17:21: - - 17 | dimension index(np1x) - | 1 -Warning: Array 'index' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -pathsd.f:15:20: - - 15 | dimension iout(3,np1x), iout0(3) - | 1 -Warning: Array 'iout' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o sortix.o sortix.f prcrit.f:61:72: 61 | 10 eref(ie) = eref2(ie,1) @@ -4999,7 +5010,21 @@ 49 | complex*16 ph4(nex, -ltot:ltot, nspx, 0:nphx) | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Warning: Array 'ph4' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o sortix.o sortix.f +pathsd.f:18:24: + + 18 | double precision dhash(np1x), dcurr, ddum + | 1~~~~~~~~~~ +Warning: Array 'dhash' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +pathsd.f:17:21: + + 17 | dimension index(np1x) + | 1 +Warning: Array 'index' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +pathsd.f:15:20: + + 15 | dimension iout(3,np1x), iout0(3) + | 1 +Warning: Array 'iout' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] gfortran ccrit.o heap.o mcrith.o mpprmd.o mrb.o paths.o phash.o repath.o timrep.o ffmod4.o ipack.o mcritk.o mpprmp.o outcrt.o pathsd.o prcrit.o sortix.o ../json-fortran/libjsonfortran.a ../COMMON/libfeffcom.a ../PAR/libfeffpar.a ../MATH/libfeffmath.a ../JSON/libfeffjson.a -o feff8l_pathfinder /usr/bin/ld: warning: json_module.o: requires executable stack (because the .note.GNU-stack section is executable) make[2]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/PATH' @@ -5121,71 +5146,6 @@ | 1~~~~~~~~~~~~~ Warning: Array 'ri' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ff2chi.o ff2chi.f -ff2chi.f:148:72: - - 148 | 120 title(ntitle+ihead) = head(ihead) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) -ff2chi.f:297:72: - - 297 | 640 read(1) chia(ie) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) -ff2chi.f:311:72: - - 311 | 760 write(1) chia(ie) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1) -ff2chi.f:373:72: - - 373 | 625 ckck(i) = dble(real(ck(i))) +coni*dble(aimag(ck(i))) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 625 at (1) -ff2chi.f:404:72: - - 404 | 710 chia(ie) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1) -ff2chi.f:425:72: - - 425 | 711 omega(ie) = dimag(kxsec(ie)+cchi(ie)) !KJ xsec to kxsec 7/06 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 711 at (1) -ff2chi.f:54:12: - - 54 | real achi(nex,npx), phchi(nex,npx) - | 1~~~~~~~~~~~~ -Warning: Array 'achi' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -ff2chi.f:52:31: - - 52 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) - | 1~~~~~~~~~~~~~~~ -Warning: Array 'beta' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -ff2chi.f:52:49: - - 52 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) - | 1~~~~~~~~~~~~~~ -Warning: Array 'eta' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -ff2chi.f:51:20: - - 51 | dimension ipot(legtot,npx) - | 1 -Warning: Array 'ipot' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -ff2chi.f:54:27: - - 54 | real achi(nex,npx), phchi(nex,npx) - | 1~~~~~~~~~~~~~ -Warning: Array 'phchi' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -ff2chi.f:52:12: - - 52 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) - | 1~~~~~~~~~~~~~~~~ -Warning: Array 'rat' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -ff2chi.f:53:12: - - 53 | real ri(legtot,npx) - | 1~~~~~~~~~~~~~ -Warning: Array 'ri' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ff2xmu.o ff2xmu.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ffmod6.o ffmod6.f ff2xmu.f:72:72: @@ -5203,6 +5163,11 @@ 172 | 120 title(ntitle+ihead) = head(ihead) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) +ff2chi.f:148:72: + + 148 | 120 title(ntitle+ihead) = head(ihead) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) ff2xmu.f:285:72: 285 | 640 read(1) chia(ie) @@ -5218,6 +5183,16 @@ 372 | 856 cchi(ie) = dimag(kxsec(ie)+cchi(ie)) * coni+rchtot(ie) !KJ id. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 856 at (1) +ff2chi.f:297:72: + + 297 | 640 read(1) chia(ie) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) +ff2chi.f:311:72: + + 311 | 760 write(1) chia(ie) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1) ff2xmu.f:53:12: 53 | real achi(nex,npx), phchi(nex,npx) @@ -5253,6 +5228,56 @@ 52 | real ri(legtot,npx) | 1~~~~~~~~~~~~~ Warning: Array 'ri' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +ff2chi.f:373:72: + + 373 | 625 ckck(i) = dble(real(ck(i))) +coni*dble(aimag(ck(i))) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 625 at (1) +ff2chi.f:404:72: + + 404 | 710 chia(ie) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1) +ff2chi.f:425:72: + + 425 | 711 omega(ie) = dimag(kxsec(ie)+cchi(ie)) !KJ xsec to kxsec 7/06 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 711 at (1) +ff2chi.f:54:12: + + 54 | real achi(nex,npx), phchi(nex,npx) + | 1~~~~~~~~~~~~ +Warning: Array 'achi' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +ff2chi.f:52:31: + + 52 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) + | 1~~~~~~~~~~~~~~~ +Warning: Array 'beta' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +ff2chi.f:52:49: + + 52 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) + | 1~~~~~~~~~~~~~~ +Warning: Array 'eta' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +ff2chi.f:51:20: + + 51 | dimension ipot(legtot,npx) + | 1 +Warning: Array 'ipot' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +ff2chi.f:54:27: + + 54 | real achi(nex,npx), phchi(nex,npx) + | 1~~~~~~~~~~~~~ +Warning: Array 'phchi' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +ff2chi.f:52:12: + + 52 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) + | 1~~~~~~~~~~~~~~~~ +Warning: Array 'rat' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +ff2chi.f:53:12: + + 53 | real ri(legtot,npx) + | 1~~~~~~~~~~~~~ +Warning: Array 'ri' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o fprime.o fprime.f fprime.f:47:72: @@ -5305,8 +5330,6 @@ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ff2gen.o ff2gen.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o rdfbin.o rdfbin.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o reff2x.o reff2x.f ff2gen.f:201:72: 201 | do 400 iph2=0,nphx @@ -5317,6 +5340,8 @@ 202 | 400 sig2x(iph1, iph2) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o rdfbin.o rdfbin.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o reff2x.o reff2x.f gfortran exconv.o feffdt.o fdtarr.o fdthea.o ff2afs.o ff2chi.o ff2xmu.o ffmod6.o fprime.o ff2gen.o rdfbin.o reff2x.o xscorr.o ../json-fortran/libjsonfortran.a ../DEBYE/libfeffdw.a ../COMMON/libfeffcom.a ../PAR/libfeffpar.a ../MATH/libfeffmath.a ../JSON/libfeffjson.a -o feff8l_ff2x /usr/bin/ld: warning: json_module.o: requires executable stack (because the .note.GNU-stack section is executable) make[2]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/FF2X' @@ -5347,10 +5372,14 @@ make[3]: 'libfeffmath.a' is up to date. make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/MATH' make -C ../JSON libfeffjson.a +fmtrxi.f:83:72: + + 83 | do 60 lam2 = 1, lam2x + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 60 at (1) make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/JSON' make[3]: 'libfeffjson.a' is up to date. make[3]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/JSON' -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o mmtrxi.o mmtrxi.f mmtr.f:37:72: 37 | do 10 k = -mtot,mtot @@ -5371,11 +5400,6 @@ 59 | do 40 k2= 1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) -fmtrxi.f:83:72: - - 83 | do 60 lam2 = 1, lam2x - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 60 at (1) mmtr.f:63:72: 63 | do 35 m2 = -lind(k2), lind(k2) @@ -5386,6 +5410,7 @@ 30 | complex*16 bmati, bmat | 1~~~ Warning: Array 'bmat' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o mmtrxi.o mmtrxi.f mmtrxi.f:93:72: 93 | do 40 k2 = 1, 8 @@ -5393,12 +5418,6 @@ Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o import.o import.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o rot3i.o rot3i.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o sclmz.o sclmz.f -sclmz.f:43:72: - - 43 | do 20 il = imp1, lmax - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) rot3i.f:46:72: 46 | do 200 im = 1, 2*ltot+1 @@ -5419,17 +5438,23 @@ 121 | do 90 m2 = 1, 2*mtot+1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 90 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o setlam.o setlam.f rot3i.f:42:21: 42 | dimension dri0 (ltot+1, 2*ltot+1, 2*ltot+1) | 1 Warning: Array 'dri0' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o sclmz.o sclmz.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o setlam.o setlam.f setlam.f:88:72: 88 | do 20 im = 1, mmax+1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) +sclmz.f:43:72: + + 43 | do 20 il = imp1, lmax + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o snlm.o snlm.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o xstar.o xstar.f snlm.f:20:72: @@ -5450,7 +5475,6 @@ gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o trig.o trig.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o onepath.o onepath.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o pathgeom.o pathgeom.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../FF2X/fdtxdi.o ../FF2X/fdtxdi.f onepath.f:151:19: 151 | complex*16 bmati(-mtot:mtot, 8, -mtot:mtot, 8) @@ -5471,10 +5495,12 @@ 150 | complex*16 eref2(nex,nspx), ph4(nex,-ltot:ltot, nspx, 0:nphx) | 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Warning: Array 'ph4' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ../FF2X/fdtxdi.o ../FF2X/fdtxdi.f gcc -c -g -fPIC -o feffpath.o feffpath.c gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o ffmod5.o ffmod5.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o genfmt.o genfmt.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o rdpath.o rdpath.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o regenf.o regenf.f genfmt.f:72:41: 72 | complex*16 eref2(nex,nspx), ph4, bmati @@ -5495,7 +5521,6 @@ 72 | complex*16 eref2(nex,nspx), ph4, bmati | 1~~ Warning: Array 'ph4' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -I/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -J/build/reproducible-path/feff85exafs-0.2+dfsg/src/json-fortran -o regenf.o regenf.f ar rvc libfeffgenfmt.a genfmt_prep.o fmtrxi.o mmtr.o mmtrxi.o import.o rot3i.o sclmz.o setlam.o snlm.o xstar.o trig.o a - genfmt_prep.o a - fmtrxi.o @@ -5522,6 +5547,26 @@ gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o chopen.o chopen.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mkptz.o mkptz.f f951: Warning: Nonconforming tab character in column 1 of line 13 [-Wtabs] +mkptz.f:79:72: + + 79 | do 298 j = -1,1 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 298 at (1) +mkptz.f:63:14: + + 63 | e2(1) = ivec(2)*evec(3)-ivec(3)*evec(2) + | 1 +Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] +mkptz.f:64:14: + + 64 | e2(2) = ivec(3)*evec(1)-ivec(1)*evec(3) + | 1 +Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] +mkptz.f:65:14: + + 65 | e2(3) = ivec(1)*evec(2)-ivec(2)*evec(1) + | 1 +Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] feff.f:39:5: 39 | 10 format (1x, a) @@ -5557,26 +5602,6 @@ 14 | character*128 title(ntitx), tmpstr*32, fname*64 | 1~~~~~ Warning: Unused variable 'tmpstr' declared at (1) [-Wunused-variable] -mkptz.f:79:72: - - 79 | do 298 j = -1,1 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 298 at (1) -mkptz.f:63:14: - - 63 | e2(1) = ivec(2)*evec(3)-ivec(3)*evec(2) - | 1 -Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] -mkptz.f:64:14: - - 64 | e2(2) = ivec(3)*evec(1)-ivec(1)*evec(3) - | 1 -Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] -mkptz.f:65:14: - - 65 | e2(3) = ivec(1)*evec(2)-ivec(2)*evec(1) - | 1 -Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] rdinp.f:53:5: 53 | 10 format (a) @@ -5709,16 +5734,16 @@ 357 | 680 dc(l)=dgc(l,i)*dgc(l,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 680 at (1) -atom.f:371:72: - - 371 | 720 dc(i)=harryd*dv(i)*dr(i)**2 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1) indata.f:317:72: 317 | do 620 j=1,k | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 620 at (1) +atom.f:371:72: + + 371 | 720 dc(i)=harryd*dv(i)*dr(i)**2 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1) indata.f:328:5: 328 | 630 iz1=iz @@ -5819,9 +5844,6 @@ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o potsl.o potsl.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o somm.o somm.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o totale.o totale.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o cdsld.o cdsld.f potsl.f:14:72: 14 | 10 dv(i)=d(i)*dr(i) @@ -5832,39 +5854,42 @@ 22 | 20 dp(i)=dp(i-1)+das*(13.0*(dv(i)+dv(i-1))-(dv(i-2)+dv(i+1))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) -totale.f:12:72: +potsl.f:29:72: - 12 | 10 dp(i)=d(i)/dr(i) + 29 | 1 (k-1)*dlo)) | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) +potsl.f:37:72: + + 37 | 40 dv(i)=dv(i)/dr(i) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o somm.o somm.f somm.f:21:72: 21 | if (dc) 20,40,30 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -totale.f:15:72: - - 15 | 20 dp(i)=d(i)*(3.0-dr(i)*dr(i)/(dr(nuc)*dr(nuc)))/(dr(nuc)+dr(nuc)) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) somm.f:26:72: 26 | if (dc) 50,70,60 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -potsl.f:29:72: +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o totale.o totale.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o cdsld.o cdsld.f +totale.f:12:72: - 29 | 1 (k-1)*dlo)) + 12 | 10 dp(i)=d(i)/dr(i) | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) -totale.f:22:72: +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) +totale.f:15:72: - 22 | 40 d(i)=d(i)*exchee(d(i),dr(i)) + 15 | 20 dp(i)=d(i)*(3.0-dr(i)*dr(i)/(dr(nuc)*dr(nuc)))/(dr(nuc)+dr(nuc)) | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) -potsl.f:37:72: +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) +totale.f:22:72: - 37 | 40 dv(i)=dv(i)/dr(i) + 22 | 40 d(i)=d(i)*exchee(d(i),dr(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) cdsld.f:59:72: @@ -5877,6 +5902,7 @@ 65 | 100 dq(i)=dpc(i,i1)*dpc(i,i2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ykdir.o ykdir.f cdsld.f:69:72: 69 | 120 dq(i)=dgc(i,i2)*dpc(i,i1) @@ -5967,10 +5993,6 @@ 109 | 280 format (a40) | 1 Warning: Label 280 at (1) defined but not used [-Wunused-label] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ykdir.o ykdir.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o renorm.o renorm.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o potslw.o potslw.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ovrlp.o ovrlp.f ykdir.f:19:72: 19 | 10 dq(i)=dr(i)*(dgc(i,ia)*dgc(i,ib)+dpc(i,ia)*dpc(i,ib)) @@ -5981,11 +6003,6 @@ 22 | do 20 j=1,i | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) -potslw.f:14:72: - - 14 | 10 dv(i)=d(i)*dr(i) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) ykdir.f:24:72: 24 | 1 ) @@ -5996,41 +6013,16 @@ 27 | 40 dq(i)=dr(i)*dgc(i,ia)*dpc(i,ib) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) -potslw.f:22:72: - - 22 | 20 dp(i)=dp(i-1)+das*(13.0*(dv(i)+dv(i-1))-(dv(i-2)+dv(i+1))) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) -renorm.f:40:72: - - 40 | do 30 i=1,np - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) -renorm.f:41:72: - - 41 | 30 d(i)=d(i)+nel(j)*(dgc(i,j)**2+dpc(i,j)**2) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) ykdir.f:30:72: 30 | do 50 j=1,i | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1) -potslw.f:29:72: - - 29 | 1 (k-1)*dlo)) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) ykdir.f:31:72: 31 | 50 dpn1(i)=dpn1(i)+dpno(j,ia)*dqno(i+1-j,ib) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) -potslw.f:32:72: - - 32 | 40 dv(i)=dv(i)/dr(i) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) ykdir.f:38:72: 38 | 70 dp(2)=dp(2)+(dr(2)**di)*dpn1(i)/di @@ -6051,6 +6043,18 @@ 58 | if (i-1) 110,110,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o renorm.o renorm.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o potslw.o potslw.f +renorm.f:40:72: + + 40 | do 30 i=1,np + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) +renorm.f:41:72: + + 41 | 30 d(i)=d(i)+nel(j)*(dgc(i,j)**2+dpc(i,j)**2) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) renorm.f:101:72: 101 | 120 dv(i)=dvn(i)+dumm @@ -6061,7 +6065,30 @@ 26 | jri=1.0+ddjri | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] +potslw.f:14:72: + + 14 | 10 dv(i)=d(i)*dr(i) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) +potslw.f:22:72: + + 22 | 20 dp(i)=dp(i-1)+das*(13.0*(dv(i)+dv(i-1))-(dv(i-2)+dv(i+1))) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) +potslw.f:29:72: + + 29 | 1 (k-1)*dlo)) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) +potslw.f:32:72: + + 32 | 40 dv(i)=dv(i)/dr(i) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ovrlp.o ovrlp.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sumax.o sumax.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o frnrm.o frnrm.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o istprm.o istprm.f sumax.f:54:15: 54 | jbl = 2.0+20.0*(blx+8.8) @@ -6077,7 +6104,11 @@ 31 | subroutine sumax (npts, rn, ann, aa2, aasum) | 1~~~ Warning: Unused dummy argument 'npts' at (1) [-Wunused-dummy-argument] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o frnrm.o frnrm.f +istprm.f:5:53: + + 5 | 3 vint, rs, xf, xmu, rnrmav, intclc) + | 1~~~~~ +Warning: Unused dummy argument 'intclc' at (1) [-Wunused-dummy-argument] sumax.f:75:72: 75 | fz1 = fzn+20.0*(fz3-fzn)*(blx-xbl+0.05) @@ -6088,13 +6119,7 @@ 59 | xbl = 0.05 * (xjbl-1.0) - 8.8 | ^~~ note: 'xbl' was declared here -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o istprm.o istprm.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sidx.o sidx.f -istprm.f:5:53: - - 5 | 3 vint, rs, xf, xmu, rnrmav, intclc) - | 1~~~~~ -Warning: Unused dummy argument 'intclc' at (1) [-Wunused-dummy-argument] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o istval.o istval.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o fermi.o fermi.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o head.o head.f @@ -6111,7 +6136,6 @@ | 1~ Warning: Unused dummy argument 'x0' at (1) [-Wunused-dummy-argument] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o fixvar.o fixvar.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o phase.o phase.f fixvar.f:2:44: 2 | 1 vint, rhoint, nr, dx, x0, ri, @@ -6127,6 +6151,8 @@ 2 | 1 vint, rhoint, nr, dx, x0, ri, | 1~ Warning: Unused dummy argument 'x0' at (1) [-Wunused-dummy-argument] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o phase.o phase.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o besjn.o besjn.f phase.f:59:13: 59 | lmax = rmt * (20 * bohr) @@ -6142,7 +6168,6 @@ 1 | subroutine phase (iph, nr, dx, x0, ri, ne, em, edge, | 1~~~ Warning: Unused dummy argument 'edge' at (1) [-Wunused-dummy-argument] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o besjn.o besjn.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o bjnser.o bjnser.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o xcpot.o xcpot.f xcpot.f:156:5: @@ -6160,8 +6185,6 @@ gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ffq.o ffq.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o cubic.o cubic.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o quinn.o quinn.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o edp.o edp.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o fovrg.o fovrg.f cubic.f:29:12: 29 | qz1 = 2*s1 - a2/3 @@ -6177,6 +6200,9 @@ 31 | qz3 = -(s1 - sqrt(three)*dimag(s1) + a2/3) | 1 Warning: Possible change of value in conversion from COMPLEX(8) to REAL(8) at (1) [-Wconversion] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o edp.o edp.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o fovrg.o fovrg.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o diff.o diff.f fovrg.f:127:72: 127 | if (n-nrk) 20,30,30 @@ -6212,14 +6238,12 @@ 99 | vnp1=v(n+1) | 1 Warning: Possible change of value in conversion from COMPLEX(8) to REAL(8) at (1) [-Wconversion] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o diff.o diff.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o intpol.o intpol.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o wphase.o wphase.f diff.f:10:72: 10 | 10 vm(i)=((v(i-2)+8.0*v(i+1))-(8.0*v(i-1)+v(i+2)))/12.0/dx | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o intpol.o intpol.f intpol.f:17:9: 17 | c2=3.0*(fb-fa)-(fmb+2.0*fma)*dx @@ -6230,12 +6254,14 @@ 18 | c3=2.0*(fa-fb)+(fma+fmb)*dx | 1 Warning: Possible change of value in conversion from COMPLEX(8) to REAL(8) at (1) [-Wconversion] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o wphase.o wphase.f wphase.f:30:17: 30 | xp = sqrt(em(ie) - eref(ie)) | 1 Warning: Possible change of value in conversion from COMPLEX(8) to REAL(8) at (1) [-Wconversion] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o prcrit.o prcrit.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o rphbin.o rphbin.f prcrit.f:56:20: 56 | cksp(ie) = abs (sqrt (em(ie) - eref(ie))) / bohr @@ -6246,8 +6272,6 @@ 78 | fbeta(ibeta,iii,ie) = abs(cfbeta) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o rphbin.o rphbin.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o cpl0.o cpl0.f rphbin.f:64:72: 64 | il0 = l0 + 1 @@ -6258,8 +6282,11 @@ 53 | lfinal = 1 | ^~~~~~ note: 'lfinal' was declared here +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o cpl0.o cpl0.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o paths.o paths.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sortix.o sortix.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ccrit.o ccrit.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mrb.o mrb.f paths.f:55:20: 55 | dimension ipat (npatx,nx) @@ -6270,7 +6297,7 @@ 24 | dimension m(-1:natx,0:natx) | 1 Warning: Array 'm' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ccrit.o ccrit.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mcrith.o mcrith.f ccrit.f:48:13: 48 | n = tmp / 0.025 @@ -6281,16 +6308,11 @@ 2 | 1 fbetac, rmax, pcrith, pcritk, nncrit, ipotnn, ipot, | 1~~~~~ Warning: Unused dummy argument 'ipotnn' at (1) [-Wunused-dummy-argument] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mrb.o mrb.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mcrith.o mcrith.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mcritk.o mcritk.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ipack.o ipack.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o heap.o heap.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o pathsd.o pathsd.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o timrep.o timrep.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mpprmp.o mpprmp.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o phash.o phash.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o outcrt.o outcrt.f pathsd.f:340:5: 340 | 601 format (1x, i8, f12.6, 2i9) @@ -6326,6 +6348,7 @@ 3 | 1 pcritk, pcrith, nncrit, potlbl) | 1~~~~~ Warning: Unused dummy argument 'pcritk' at (1) [-Wunused-dummy-argument] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mpprmp.o mpprmp.f mpprmp.f:37:72: 37 | do 20 i = 1, 3 @@ -6336,6 +6359,7 @@ 41 | do 30 i = 1, 3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o phash.o phash.f mpprmp.f:65:72: 65 | do 160 i = 1, 3 @@ -6346,16 +6370,6 @@ 135 | do 400 i =1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 400 at (1) -outcrt.f:37:13: - - 37 | n = tmp / 0.025 - | 1 -Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] -outcrt.f:2:49: - - 2 | 1 nncrit, fbetac, ne, ik0, cksp, fbeta, ipotnn, ipot, - | 1~~~~~ -Warning: Unused dummy argument 'ipotnn' at (1) [-Wunused-dummy-argument] mpprmp.f:178:16: 178 | xp(j) = xp1(j) @@ -6371,7 +6385,18 @@ 180 | zp(j) = zp1(j) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o outcrt.o outcrt.f +outcrt.f:37:13: + + 37 | n = tmp / 0.025 + | 1 +Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o strap.o strap.f +outcrt.f:2:49: + + 2 | 1 nncrit, fbetac, ne, ik0, cksp, fbeta, ipotnn, ipot, + | 1~~~~~ +Warning: Unused dummy argument 'ipotnn' at (1) [-Wunused-dummy-argument] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mpprmd.o mpprmd.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o genfmt.o genfmt.f genfmt.f:185:72: @@ -6405,7 +6430,6 @@ | 1 Warning: Label 50 at (1) defined but not used [-Wunused-label] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o snlm.o snlm.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o rdpath.o rdpath.f snlm.f:18:72: 18 | do 5 im = 1, mtot+1 @@ -6421,7 +6445,33 @@ 48 | 10 flg(i) = flg(i-1) * i * afac | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o rdpath.o rdpath.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o setlam.o setlam.f +setlam.f:76:72: + + 76 | do 20 im = 1, mmax+1 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) +setlam.f:51:19: + + 51 | mag1 = abs(beta(ileg)) + | 1 +Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] +setlam.f:52:19: + + 52 | mag2 = abs(mag1 - pi) + | 1 +Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] +setlam.f:79:16: + + 79 | if (jord .gt. iord) goto 20 + | ^ +Warning: 'iord' may be used uninitialized [-Wmaybe-uninitialized] +setlam.f:37:10: + + 37 | iord = icode/10000 -1 + | ^~~~ +note: 'iord' was declared here gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o rot3i.o rot3i.f rot3i.f:42:72: @@ -6433,11 +6483,6 @@ 43 | do 200 in = 1, 2*ltot+1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) -setlam.f:76:72: - - 76 | do 20 im = 1, mmax+1 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) rot3i.f:116:72: 116 | do 90 m1 = 1, 2*mtot+1 @@ -6453,32 +6498,13 @@ 90 | 40 continue | 1 Warning: Label 40 at (1) defined but not used [-Wunused-label] -setlam.f:51:19: - - 51 | mag1 = abs(beta(ileg)) - | 1 -Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] -setlam.f:52:19: - - 52 | mag2 = abs(mag1 - pi) - | 1 -Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] rot3i.f:38:21: 38 | dimension dri0 (ltot+1, 2*ltot+1, 2*ltot+1) | 1 Warning: Array 'dri0' at (1) is larger than limit set by '-fmax-stack-var-size=', moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the '-fmax-stack-var-size=' limit (or use '-frecursive', which implies unlimited '-fmax-stack-var-size') - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising] -setlam.f:79:16: - - 79 | if (jord .gt. iord) goto 20 - | ^ -Warning: 'iord' may be used uninitialized [-Wmaybe-uninitialized] -setlam.f:37:10: - - 37 | iord = icode/10000 -1 - | ^~~~ -note: 'iord' was declared here gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mmtr.o mmtr.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sclmz.o sclmz.f mmtr.f:26:72: 26 | do 10 j = -mtot,mtot @@ -6489,43 +6515,54 @@ 40 | do 34 j = -1,1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 34 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sclmz.o sclmz.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mmtrxi.o mmtrxi.f sclmz.f:42:72: 42 | do 20 il = imp1, lmax | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o mmtrxi.o mmtrxi.f mmtrxi.f:1:40: 1 | subroutine mmtrxi (lam1x, mmati, ie, ileg, ilegp) | 1~ Warning: Unused dummy argument 'ie' at (1) [-Wunused-dummy-argument] gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o fmtrxi.o fmtrxi.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o trap.o trap.f fmtrxi.f:79:72: 79 | do 60 lam2 = 1, lam2x | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 60 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o trap.o trap.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o pijump.o pijump.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ff2chi.o ff2chi.f pijump.f:15:16: 15 | jump = (abs(xph(1))+ pi) / twopi | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ff2chi.o ff2chi.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sigms.o sigms.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o dist.o dist.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sdist.o sdist.f +sigms.f:64:72: + + 64 | do 800 jl=il,nleg + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 800 at (1) ff2chi.f:276:16: 276 | n = xkpmin / delk | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] +sigms.f:210:72: + + 210 | 20 sum=sum+fn(zi) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) ff2chi.f:25:20: 25 | dimension emxs(nex), omega(nex), xkxs(nex), xsec(nex) | 1 Warning: Unused variable 'emxs' declared at (1) [-Wunused-variable] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sigms.o sigms.f ff2chi.f:33:34: 33 | character*80 head(nheadx), hdxs(nheadx) @@ -6556,47 +6593,36 @@ 25 | dimension emxs(nex), omega(nex), xkxs(nex), xsec(nex) | 1 Warning: Unused variable 'xsec' declared at (1) [-Wunused-variable] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o dist.o dist.f -sigms.f:64:72: - - 64 | do 800 jl=il,nleg - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 800 at (1) -sigms.f:210:72: - - 210 | 20 sum=sum+fn(zi) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sdist.o sdist.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o xx.o xx.f -ff2chi.f:361:72: - - 361 | xk0 = delk * (i-1) + xkmin - | ^ -Warning: 'xkmin' may be used uninitialized [-Wmaybe-uninitialized] -ff2chi.f:280:13: - - 280 | xkmin = n * delk - | ^~~~~ -note: 'xkmin' was declared here gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o getxk.o getxk.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o dalp.o dalp.f xx.f:24:11: 24 | ii = (log(r) + c88) / delta + 1 | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o dalp.o dalp.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o fpot.o fpot.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o exchan.o exchan.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o exchee.o exchee.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o pertab.o pertab.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o genfmt_misc.o genfmt_misc.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o padlib.o padlib.f pertab.f:20:14: 20 | atwts = weight(iz) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o genfmt_misc.o genfmt_misc.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o padlib.o padlib.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o strutils.o strutils.f +ff2chi.f:361:72: + + 361 | xk0 = delk * (i-1) + xkmin + | ^ +Warning: 'xkmin' may be used uninitialized [-Wmaybe-uninitialized] +ff2chi.f:280:13: + + 280 | xkmin = n * delk + | ^~~~~ +note: 'xkmin' was declared here genfmt_misc.f:31:3: 31 | 50 format (a) @@ -6622,9 +6648,10 @@ 330 | integer iexp, itmp, isgn, i, npack, iok, j | 1~~ Warning: Unused variable 'iok' declared at (1) [-Wunused-variable] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o strutils.o strutils.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o echo.o echo.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o get_inpfile.o get_inpfile.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o iread.o iread.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o compat.o compat.f get_inpfile.f:14:22: 14 | character*512 cl_args(3), f @@ -6635,14 +6662,12 @@ 13 | integer n_args, istat, jstat | 1~~~~ Warning: Unused variable 'jstat' declared at (1) [-Wunused-variable] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o iread.o iread.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o compat.o compat.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o misc_io.o misc_io.f compat.f:66:45: 66 | double precision function getsca(str,iwarn) | 1~~~~ Warning: Unused dummy argument 'iwarn' at (1) [-Wunused-dummy-argument] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o misc_io.o misc_io.f gfortran feff.o rdinp.o chopen.o mkptz.o setgam.o terp.o potph.o rpotph.o rdhead.o atom.o indata.o getorb.o dirac.o inouh.o inth.o potsl.o somm.o totale.o cdsld.o ykdir.o renorm.o potslw.o ovrlp.o sumax.o frnrm.o istprm.o sidx.o istval.o fermi.o head.o wpot.o phmesh.o fixvar.o phase.o besjn.o bjnser.o xcpot.o rhl.o imhl.o ffq.o cubic.o quinn.o edp.o fovrg.o diff.o intpol.o wphase.o prcrit.o rphbin.o cpl0.o paths.o sortix.o ccrit.o mrb.o mcrith.o mcritk.o ipack.o heap.o pathsd.o timrep.o mpprmp.o phash.o outcrt.o strap.o mpprmd.o genfmt.o snlm.o rdpath.o setlam.o rot3i.o mmtr.o sclmz.o mmtrxi.o fmtrxi.o trap.o pijump.o ff2chi.o sigms.o dist.o sdist.o xx.o getxk.o dalp.o fpot.o exchan.o exchee.o pertab.o genfmt_misc.o padlib.o strutils.o echo.o get_inpfile.o iread.o compat.o misc_io.o -o feff6l make[2]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/feff6l' make[1]: Leaving directory '/build/reproducible-path/feff85exafs-0.2+dfsg' @@ -6652,7 +6677,7 @@ debian/rules override_dh_auto_install make[1]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg' dh_auto_install - make -j40 install DESTDIR=/build/reproducible-path/feff85exafs-0.2\+dfsg/debian/feff85exafs AM_UPDATE_INFO_DIR=no INSTALL="install --strip-program=true" + make -j42 install DESTDIR=/build/reproducible-path/feff85exafs-0.2\+dfsg/debian/feff85exafs AM_UPDATE_INFO_DIR=no INSTALL="install --strip-program=true" make[2]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg' make -C src/PAR -j4 make[3]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg/src/PAR' @@ -7055,12 +7080,14 @@ dpkg-buildpackage: info: binary-only upload (no source included) dpkg-genchanges: info: not including original source code in upload I: copying local configuration +I: user script /srv/workspace/pbuilder/4055804/tmp/hooks/B01_cleanup starting +I: user script /srv/workspace/pbuilder/4055804/tmp/hooks/B01_cleanup finished I: unmounting dev/ptmx filesystem I: unmounting dev/pts filesystem I: unmounting dev/shm filesystem I: unmounting proc filesystem I: unmounting sys filesystem I: cleaning the build env -I: removing directory /srv/workspace/pbuilder/2053827 and its subdirectories -I: Current time: Sat Oct 11 20:18:59 -12 2025 -I: pbuilder-time-stamp: 1760257139 +I: removing directory /srv/workspace/pbuilder/4055804 and its subdirectories +I: Current time: Sun Nov 15 04:47:47 +14 2026 +I: pbuilder-time-stamp: 1794667667