Diff of the two buildlogs: -- --- b1/build.log 2025-08-28 01:08:56.859667763 +0000 +++ b2/build.log 2025-08-28 01:10:04.627750840 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Tue Sep 29 19:29:27 -12 2026 -I: pbuilder-time-stamp: 1790753367 +I: Current time: Thu Aug 28 15:08:58 +14 2025 +I: pbuilder-time-stamp: 1756343338 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/3982156/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/3868476/tmp/hooks/D01_modify_environment starting +debug: Running on ionos1-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 Aug 28 01:09 /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/3868476/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/3868476/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=42 ' - 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]="2" [2]="37" [3]="1" [4]="release" [5]="x86_64-pc-linux-gnu") + BASH_VERSION='5.2.37(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=40 ' + 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='3d46a8981a654b4babb57bd5a92d9448' - 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='3982156' - PS1='# ' - PS2='> ' + INVOCATION_ID=a879ba1ba14a4d2faf7abd706c6b1641 + 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=3868476 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.AZpgD4Mg/pbuilderrc_tE4C --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.AZpgD4Mg/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://213.165.73.152: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.AZpgD4Mg/pbuilderrc_e3bS --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.AZpgD4Mg/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://46.16.76.132:3128 I: uname -a - Linux ionos15-amd64 6.12.41+deb13-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.12.41-1 (2025-08-12) x86_64 GNU/Linux + Linux i-capture-the-hostname 6.12.41+deb13-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.12.41-1 (2025-08-12) x86_64 GNU/Linux I: ls -l /bin - lrwxrwxrwx 1 root root 7 Aug 10 2025 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/3982156/tmp/hooks/D02_print_environment finished + lrwxrwxrwx 1 root root 7 Aug 10 12:30 /bin -> usr/bin +I: user script /srv/workspace/pbuilder/3868476/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:14.2.0-1 [1284 B] Get: 51 http://deb.debian.org/debian forky/main amd64 gfortran amd64 4:14.2.0-1 [1436 B] Get: 52 http://deb.debian.org/debian forky/main amd64 help2man amd64 1.49.3 [198 kB] -Fetched 31.5 MB in 9s (3476 kB/s) +Fetched 31.5 MB in 0s (146 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 ... 19855 files and directories currently installed.) @@ -352,8 +384,8 @@ Setting up tzdata (2025b-5) ... Current default time zone: 'Etc/UTC' -Local time is now: Wed Sep 30 07:30:52 UTC 2026. -Universal Time is now: Wed Sep 30 07:30:52 UTC 2026. +Local time is now: Thu Aug 28 01:09:23 UTC 2025. +Universal Time is now: Thu Aug 28 01:09:23 UTC 2025. 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/3868476/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for forky +I: user script /srv/workspace/pbuilder/3868476/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 -j42 clean + make -j40 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 -j42 "INSTALL=install --strip-program=true" + make -j40 "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' @@ -678,7 +714,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 pertab.o pertab.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 rdcmt.o rdcmt.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 rdxsph.o rdxsph.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 str.o str.f rdxsph.f:89:72: 89 | do 60 ie=1, ne @@ -709,6 +744,7 @@ 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 @@ -732,12 +768,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 getxk.o getxk.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 isnum.o isnum.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 padlib.o padlib.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 -qsorti.f:51:72: - - 51 | 1 ORD(I)=I - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) padlib.f:270:33: 270 | array(ipts) = cmplx(tmpr, tmpi) @@ -748,13 +778,19 @@ 313 | array(ipts) = cmplx(tmpr, tmpi) | 1 Warning: Conversion from REAL(8) to default-kind COMPLEX(4) at (1) might lose precision, consider using the KIND argument [-Wconversion] +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 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 rdpot.o rdpot.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 setkap.o setkap.f +qsorti.f:51:72: + + 51 | 1 ORD(I)=I + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) rdpot.f:144:72: 144 | 50 read (3, 60) (iorb(i,iph),i=-4,3) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 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 setkap.o setkap.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 wlog.o wlog.f ar rvc libfeffcom.a chopen.o fixvar.o head.o itoken.o pertab.o rdcmt.o rdxsph.o str.o xx.o fixdsp.o getorb.o iniptz.o nxtunt.o pijump.o rdhead.o setgam.o str2dp.o fixdsx.o getxk.o isnum.o padlib.o qsorti.o rdpot.o setkap.o wlog.o a - chopen.o @@ -854,6 +890,11 @@ 95 | do 10 i1 = -lx,lx | 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:142:72: 142 | do 100 ms = 0 ,1 @@ -934,11 +975,6 @@ 209 | do 230 i=-1,1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 230 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:232:72: 232 | do 270 ms=0,1 @@ -1093,14 +1129,36 @@ 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 -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o polint.o polint.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 +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 +rotwig.f:22:72: + + 22 | 11 al(i+1)=al(i)+ log(b) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) +rotwig.f:64:72: + + 64 | 110 factor = factor + al(m(i))/2.d0 - al(m(i+4)) + | 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 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) lu.f:7971:17: 7971 | LBETA = C + QTR @@ -1116,6 +1174,7 @@ 1650 | INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, & | 1 Warning: Unused dummy argument 'opts' at (1) [-Wunused-dummy-argument] +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o strap.o strap.f lu.f:5918:48: 5918 | COMPLEX*16 WORK13( LDWORK, NBMAX ), & @@ -1126,29 +1185,6 @@ 5919 | & WORK31( LDWORK, NBMAX ) | 1 Warning: Array 'work31' 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 rotwig.o rotwig.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 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) -rotwig.f:22:72: - - 22 | 11 al(i+1)=al(i)+ log(b) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 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:64:72: - - 64 | 110 factor = factor + al(m(i))/2.d0 - al(m(i+4)) - | 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 terpc.o terpc.f lu.f:8561:72: @@ -1334,6 +1370,8 @@ Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 97 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 potslw.o potslw.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 soldir.o soldir.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 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 potslw.f:14:72: 14 | 10 dv(i)=d(i)*dr(i) @@ -1349,16 +1387,41 @@ 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) -soldir.f:103:72: - - 103 | 111 gp(i)=ep(i) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 111 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) +aprdev.f:11:72: + + 11 | 11 aprdev=aprdev+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) +wfirdf.f:48:72: + + 48 | 11 fix(j) = dr(1)**(fl(j)-abs(kap(j))) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) +wfirdf.f:51:72: + + 51 | 21 dv(i)=(dentfa(dr(i),dz,ch)+dvn(i))/cl + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) +wfirdf.f:55:72: + + 55 | 51 ep(i)=0.0d 00 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) +wfirdf.f:59:72: + + 59 | 61 av(i)=anoy(i)/cl + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1) +soldir.f:103:72: + + 103 | 111 gp(i)=ep(i) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 111 at (1) soldir.f:106:72: 106 | 115 ap(i)=cep(i-1) @@ -1379,6 +1442,16 @@ 128 | 155 aph(i)=0.0d 00 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1) +wfirdf.f:98:72: + + 98 | 261 bp(i,j)=ap(i) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 261 at (1) +wfirdf.f:101:72: + + 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) soldir.f:145:72: 145 | 165 ap(i)=ap(i)+c*aph(i) @@ -1479,43 +1552,6 @@ 362 | 325 b=b+ag(j)*g*ag(i+1-j)+ap(j)*g*ap(i+1-j) | 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 -wfirdf.f:48:72: - - 48 | 11 fix(j) = dr(1)**(fl(j)-abs(kap(j))) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) -wfirdf.f:51:72: - - 51 | 21 dv(i)=(dentfa(dr(i),dz,ch)+dvn(i))/cl - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) -wfirdf.f:55:72: - - 55 | 51 ep(i)=0.0d 00 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) -wfirdf.f:59:72: - - 59 | 61 av(i)=anoy(i)/cl - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1) -wfirdf.f:98:72: - - 98 | 261 bp(i,j)=ap(i) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 261 at (1) -wfirdf.f:101:72: - - 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) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 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 dentfa.o dentfa.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 fdmocc.o fdmocc.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 inmuat.o inmuat.f @@ -1537,26 +1573,27 @@ 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 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) -ortdat.f:32:72: - - 32 | 21 dp(i)=cp(i,l) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 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 tabrat.o tabrat.f s02at.f:12:72: 12 | do 10 j = 1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) +ortdat.f:28:72: + + 28 | 15 dp(i)=0.0d 00 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) s02at.f:14:72: 14 | 10 m2(i,j) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) +ortdat.f:32:72: + + 32 | 21 dp(i)=cp(i,l) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) ortdat.f:35:72: 35 | 25 ap(i)=bp(i,l) @@ -1567,26 +1604,26 @@ 18 | 20 m2(i,i) = 1.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) -s02at.f:32:72: - - 32 | 50 m1(j,morb) = ovpint(iorb(j), iorb(morb)) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) ortdat.f:42:72: 42 | 41 dp(i)=dp(i)-a*cp(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) -s02at.f:34:72: +s02at.f:32:72: - 34 | 60 m1(morb,j) = m1(j,morb) + 32 | 50 m1(j,morb) = ovpint(iorb(j), iorb(morb)) | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) ortdat.f:45:72: 45 | 45 ap(i)=ap(i)-a*bp(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 45 at (1) +s02at.f:34:72: + + 34 | 60 m1(morb,j) = m1(j,morb) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) ortdat.f:54:72: 54 | 71 cp(i,l)=dp(i)/a @@ -1597,17 +1634,16 @@ 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) -s02at.f:72:72: - - 72 | do 10 j = 1,7 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 10 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 tabrat.o tabrat.f tabrat.f:33:72: 33 | 201 mbi(i)=8-i-i/3-i/4+i/8 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) +s02at.f:72:72: + + 72 | do 10 j = 1,7 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) tabrat.f:45:72: 45 | 241 at(k)=dsordf(i,i,mbi(k),1, zero) @@ -1621,56 +1657,42 @@ 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 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 -yzkrdf.f:36:72: +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: - 36 | 5 bpj(l) = bp(l,j) + 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 5 at (1) -yzkrdf.f:41:72: +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) +dsordf.f:44:72: - 41 | 11 dg(l)=cg(l,i)*cg(l,j)+cp(l,i)*cp(l,j) + 44 | 15 bpj(l) = bp(l,j) | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) -yzkrdf.f:43:72: +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) +fdrirk.f:31:72: - 43 | 21 ag(l)=aprdev(bgi,bgj,l)+aprdev(bpi,bpj,l) + 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) -yzkrdf.f:47:72: - - 47 | 35 dg(l)=cg(l,i)*cp(l,j) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) -yzkrdf.f:49:72: +dsordf.f:45:72: - 49 | 41 ag(l)=aprdev(bgi,bpj,l) + 45 | if ( abs(jnd)-2) 21,55,101 | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) -bkmrdf.f:18:72: +Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) +fdrirk.f:35:72: - 18 | 12 cret(l)=0.0d 00 + 35 | 31 nn=nn+1 | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 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) -dsordf.f:44:72: - - 44 | 15 bpj(l) = bp(l,j) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) -dsordf.f:45:72: +fdrirk.f:37:72: - 45 | if ( abs(jnd)-2) 21,55,101 + 37 | 41 ag(n)=hg(n) | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) dsordf.f:47:72: 47 | 31 hg(l)=cg(l,i)*cg(l,j)+cp(l,i)*cp(l,j) @@ -1701,6 +1723,11 @@ 62 | 87 ap(l)=chg(l) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 87 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:65:72: 65 | 95 chg(l)=aprdev(ap,ag,l) @@ -1746,70 +1773,39 @@ 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) -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 -fdrirk.f:31:72: +yzkrdf.f:36:72: - 31 | 21 hg(n)=0.0d 00 + 36 | 5 bpj(l) = bp(l,j) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) +yzkrdf.f:41:72: + + 41 | 11 dg(l)=cg(l,i)*cg(l,j)+cp(l,i)*cp(l,j) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) +yzkrdf.f:43:72: + + 43 | 21 ag(l)=aprdev(bgi,bgj,l)+aprdev(bpi,bpj,l) | 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: +yzkrdf.f:47:72: - 35 | 31 nn=nn+1 + 47 | 35 dg(l)=cg(l,i)*cp(l,j) | 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: +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) +yzkrdf.f:49:72: - 37 | 41 ag(n)=hg(n) + 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 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 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) -intdir.f:48:72: - - 48 | if (imm) 81,15,26 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -intdir.f:67:72: - - 67 | if (f) 25,25,16 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -intdir.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) -intdir.f:85:72: - - 85 | 35 ap(j)=(av(1)*f-a*g)/ep - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) -intdir.f:91:72: - - 91 | do 41 j=1,ndor - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 41 at (1) -intdir.f:98:72: - - 98 | 41 dp(i)=dp(i)+a*ap(j) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) -intdir.f:121:72: - - 121 | 61 dp(j-1)=dp(j) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1) -intdir.f:163:72: - - 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 potrdf.o potrdf.f muatco.f:16:72: 16 | do 511 j=1,30 @@ -1820,6 +1816,11 @@ 17 | do 511 k=0,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 511 at (1) +intdir.f:48:72: + + 48 | if (imm) 81,15,26 + | 1 +Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) muatco.f:22:72: 22 | do 701 j=1,i @@ -1845,11 +1846,31 @@ 37 | 31 ag(i)=0.0d 00 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) +intdir.f:67:72: + + 67 | if (f) 25,25,16 + | 1 +Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) potrdf.f:42:72: 42 | 33 bpj(i) = bp(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 33 at (1) +intdir.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) +intdir.f:85:72: + + 85 | 35 ap(j)=(av(1)*f-a*g)/ep + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) +intdir.f:91:72: + + 91 | do 41 j=1,ndor + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 41 at (1) potrdf.f:49:72: 49 | 35 dg(i)=dg(i)+a*(cg(i,j)*cg(i,j)+cp(i,j)*cp(i,j)) @@ -1860,11 +1881,21 @@ 58 | 1 aprdev(bpj,bpj,i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) +intdir.f:98:72: + + 98 | 41 dp(i)=dp(i)+a*ap(j) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) potrdf.f:59:72: 59 | 51 max0= max(max0,nmax(j)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) +intdir.f:121:72: + + 121 | 61 dp(j-1)=dp(j) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1) potrdf.f:67:72: 67 | 81 dv(i)=dv(i)+dg(i) @@ -1885,6 +1916,11 @@ 92 | 135 cep(i)=cep(i)+bp(i+1-n,j)*a*ap(1) *fix(j)/fix(ia) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1) +intdir.f:163:72: + + 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) potrdf.f:97:72: 97 | 143 bpj(ix) = bp(ix,j) @@ -2222,6 +2258,7 @@ 636 | 251 rat(i,iat0) = 0.d0 | 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 -o sigte3.o sigte3.f sigrem.f:757:72: 757 | do 40 j=1, natom @@ -2247,7 +2284,6 @@ 935 | do 320 l=k+1, natom | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sigte3.o sigte3.f sigrem.f:973:72: 973 | do 326 jj=1, natom @@ -2533,6 +2569,11 @@ gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o dfovrg.o dfovrg.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o dsordc.o dsordc.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o intout.o intout.f +aprdec.f:13:72: + + 13 | 11 aprdec = aprdec + ala(m) * bla(lla+1-m) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) dsordc.f:28:72: 28 | 15 bpj(l) = bp(l,j) @@ -2548,6 +2589,11 @@ 34 | 241 chg(l) = aprdec(ag,bgj,l) + aprdec(ap,bpj,l) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 241 at (1) +dfovrg.f:85:72: + + 85 | 9 vxcval(i)=vxc(jri+1) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1) dsordc.f:39:72: 39 | 305 hg(l)=hg(l)*dr(l) @@ -2558,26 +2604,16 @@ 41 | 311 dsordc=dsordc+hg(l)+hg(l)+hg(l+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 311 at (1) -dsordc.f:46:72: - - 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) -dfovrg.f:85:72: - - 85 | 9 vxcval(i)=vxc(jri+1) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1) -aprdec.f:13:72: - - 13 | 11 aprdec = aprdec + ala(m) * bla(lla+1-m) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) dfovrg.f:107:72: 107 | do 13 i=1,10 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 13 at (1) +dsordc.f:46:72: + + 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) dfovrg.f:109:72: 109 | 13 bp(i,j)=adpc(i,j) @@ -2608,6 +2644,11 @@ 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: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:183:72: 183 | 151 qs(i)=gp(i) @@ -2618,11 +2659,6 @@ 186 | 155 aqs(i) =ap(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 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) @@ -2634,8 +2670,6 @@ | 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 nucdec.o nucdec.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o potdvp.o potdvp.f -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o solin.o solin.f nucdec.f:46:72: 46 | 181 dr(l)=dr(1)* exp(hx*(l-1)) @@ -2671,36 +2705,16 @@ 91 | 41 av(i)=b*av(i)*(epai**n)/nf | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) -potdvp.f:22:72: - - 22 | 9 av(i)=anoy(i) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1) -potdvp.f:26:72: - - 26 | 31 ag(i)=0.0d 00 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) nucdec.f:96:72: 96 | 47 l=i | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 47 at (1) -potdvp.f:30:72: - - 30 | 33 bpj(i) = bp(i,j) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 33 at (1) nucdec.f:100:72: 100 | 55 dv(i)=0.0d 00 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 55 at (1) -potdvp.f:37:72: - - 37 | 1 aprdep(bpj,bpj,i))*fix(j)**2 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) nucdec.f:107:72: 107 | 58 at(j)=at(j)+av(i)*(dr(j)**k)/k @@ -2721,11 +2735,6 @@ 117 | 75 dv(i)=dv(l) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 75 at (1) -potdvp.f:59:72: - - 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) nucdec.f:123:72: 123 | if (i-1) 85,85,83 @@ -2741,6 +2750,33 @@ 131 | 97 dv(i)=a*dv(i)/dr(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 97 at (1) +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o potdvp.o potdvp.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o solin.o solin.f +potdvp.f:22:72: + + 22 | 9 av(i)=anoy(i) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1) +potdvp.f:26:72: + + 26 | 31 ag(i)=0.0d 00 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) +potdvp.f:30:72: + + 30 | 33 bpj(i) = bp(i,j) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 33 at (1) +potdvp.f:37:72: + + 37 | 1 aprdep(bpj,bpj,i))*fix(j)**2 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) +potdvp.f:59:72: + + 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) solin.f:53:72: 53 | 115 ap(i)=0.0d0 @@ -2757,8 +2793,6 @@ | 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 wfirdc.f:49:72: 49 | 11 fix(j) = dr(1)**(fl(j)-abs(kap(j))) @@ -2789,6 +2823,7 @@ 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 yzktec.f:47:72: 47 | 21 f(i)=f(i)*dr(i) @@ -2804,12 +2839,13 @@ 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) +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) -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 inmuac.o inmuac.f diff.f:11:72: @@ -2827,9 +2863,6 @@ | 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 muatcc.o muatcc.f -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 -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o solout.o solout.f muatcc.f:17:72: 17 | do 511 j=1,30 @@ -2845,6 +2878,8 @@ 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: 25 | 41 qs(i)=qs(i)-a*cp(i,j) @@ -2870,11 +2905,6 @@ 51 | 121 ep(i)=ep(i)+a*dg(i)*cp(i,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 121 at (1) -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) potex.f:58:72: 58 | 135 cep(i)=cep(i)+bp(i+1-n,j)*a*ap(1)*fix(j)/fix(norb) @@ -2885,36 +2915,16 @@ 63 | 143 bpj(ix) = bp(ix,j) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 143 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) potex.f:67:72: 67 | 145 cep(n) = cep(n) - a * aprdec(ag,bpj,nx)*fix(j)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 145 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) potex.f:76:72: 76 | 527 ceg(i)=ceg(i)/cl | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 527 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) potex.f:79:72: 79 | 531 eg(i)=eg(i)/cl @@ -2925,6 +2935,32 @@ 82 | 532 eg(i)=0.0d0 | 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 +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: @@ -2993,61 +3029,56 @@ 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:90:72: - - 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) gggm.f:45:72: 45 | do 10 irow = 1,istatx | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) +fmsie.f:90:72: + + 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) gggm.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) +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: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:94:72: 94 | 60 xvec(is) = xvec(is) + x0(is) / q0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 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:97:72: 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:123:72: +ggbi.f:118:72: - 123 | 97 yvec(is) = rvec(is) * aa + avec(is) * ww + 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 97 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 96 at (1) gggm.f:101:72: 101 | 80 r0(is) = bvec(is) @@ -3063,56 +3094,61 @@ 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:123:72: - 134 | 120 svec(is) = rvec(is) - omega * avec(is) + 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 120 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 97 at (1) gggm.f:117:72: 117 | 96 wvec(is) = r0(is) / ww | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 96 at (1) -ggbi.f:145:72: +ggbi.f:134:72: - 145 | 124 xvec(is) = xvec(is) + omega*pvec(is) + 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 124 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) gggm.f:122:72: 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) -gggm.f:151:72: +ggbi.f:158:72: - 151 | 130 t0(is) = r1(is) - alpha* r0(is) + 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) -ggbi.f:175:72: +gggm.f:151:72: - 175 | 135 pvec(is) = rvec(is) + psi * (pvec(is)-chi*avec(is)) + 151 | 130 t0(is) = r1(is) - alpha* r0(is) | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1) +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gggm.f:162:72: 162 | 145 r0(is) = t1(is) - theta * t0(is) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 145 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:165:72: 165 | 150 x0(is) = t0(is) + dd * (x1(is) - alpha*x0(is)) @@ -3486,6 +3522,7 @@ 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 rdinp_l.o rdinp_l.f mkptz.f:62:72: 62 | 10 xivec(i) = spvec(i) @@ -3516,39 +3553,31 @@ 177 | do 110 j = -1,1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) -iniall.f:154:72: - - 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) mkptz.f:216:72: 216 | 120 call rotate (rat(1,i), cst, snt, csf, snf) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) -mkptz.f:235:72: +iniall.f:154:72: - 235 | 10 vec(i) = temp(i) + 154 | 170 iphatx(i) = -1 | 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 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) -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 rdinp_l.o rdinp_l.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 rdline.o rdline.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 setedg.o setedg.f +mkptz.f:235:72: + + 235 | 10 vec(i) = temp(i) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) rdinp_l.f:84:72: 84 | 95 iatph(iph) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) -setedg.f:19:72: - - 19 | 10 if (a2 .eq. edglbl(i) .or. a2 .eq. edglbp(i) ) ihole = i - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) rdinp_l.f:957:72: 957 | 351 xnatph(iph) = xnatph(iph) /xnatph(0) @@ -3564,8 +3593,14 @@ 1058 | 485 folp(i) = folpx | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 485 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 rdline.o rdline.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 setedg.o setedg.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 wrtall.o wrtall.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 wrtjsn.o wrtjsn.f +setedg.f:19:72: + + 19 | 10 if (a2 .eq. edglbl(i) .or. a2 .eq. edglbp(i) ) ihole = i + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) wrtall.f:66:72: 66 | 110 write(3,10) title(ititle) @@ -3586,6 +3621,7 @@ 80 | 150 write(3,140) iphovr(iovr, iph), nnovr(iovr,iph), rovr(iovr,iph) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 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 wrtjsn.o wrtjsn.f gfortran ffsort.o iniall.o mkptz.o rdinp_l.o rdline.o setedg.o wrtall.o wrtjsn.o ../json-fortran/libjsonfortran.a ../COMMON/libfeffcom.a ../PAR/libfeffpar.a ../MATH/libfeffmath.a ../JSON/libfeffjson.a -o feff8l_rdinp /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/RDINP' @@ -3653,9 +3689,6 @@ 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 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 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 movrlp.o movrlp.f movrlp.f:45:72: @@ -3672,16 +3705,6 @@ 57 | do 40 i1=1,nph+1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) -libpotph.f:160:19: - - 160 | dimension dgc(251,30,0:nphx+1), dpc(251,30,0:nphx+1) - | 1 -Warning: Array 'dgc' 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] -libpotph.f:160:41: - - 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] movrlp.f:215:72: 215 | & cmplx(real(aa)*bmat(iph+1,ix1)) @@ -3693,7 +3716,21 @@ | 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 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 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 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 +libpotph.f:160:19: + + 160 | dimension dgc(251,30,0:nphx+1), dpc(251,30,0:nphx+1) + | 1 +Warning: Array 'dgc' 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] +libpotph.f:160:41: + + 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 ffsort_potph.o ffsort_potph.f ffsort_potph.f:174:72: @@ -3702,6 +3739,7 @@ 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) @@ -3762,14 +3800,8 @@ 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 inipot.f:12:72: 12 | do 10 iorb = 1,30 @@ -3830,19 +3862,23 @@ 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) +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 -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/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 -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 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' @@ -3871,20 +3907,15 @@ 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 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 ff2g.o ff2g.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 grids.o grids.f broydn.f:48:72: 48 | do 30 ir = 1, ilast(iph) | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) -ff2g.f:50:72: - - 50 | do 840 ir = 1,ilast - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 840 at (1) broydn.f:68:72: 68 | do 510 ir = 1,ilast(iph) @@ -3925,13 +3956,18 @@ 135 | 810 rhoval(ir,iph) = rhoval(ir,iph) - aa*edenvl(ir,iph) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 810 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 +ff2g.f:50:72: + + 50 | do 840 ir = 1,ilast + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 840 at (1) 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 -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 wrpot.o wrpot.f corval.f:81:72: 81 | 15 ri05(i) = exp (-8.8d0+0.05d0*(i-1)) @@ -3977,6 +4013,7 @@ 49 | 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] +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 wrpot.o wrpot.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 scmt.o scmt.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 scmtmp.o scmtmp.f scmt.f:69:72: @@ -3984,16 +4021,6 @@ 69 | 15 ri05(i) = exp (-8.8d0+0.05d0*(i-1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) -scmtmp.f:81:72: - - 81 | 15 ri05(i) = exp (-8.8d0+0.05d0*(i-1)) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) -scmtmp.f:95:72: - - 95 | do 16 ir=1,251 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 16 at (1) scmt.f:83:72: 83 | do 16 ir=1,251 @@ -4004,16 +4031,81 @@ 84 | 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) -scmtmp.f:96:72: - - 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:97:72: 97 | do 22 il=0,lx | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 22 at (1) +scmt.f:102:72: + + 102 | do 23 ir = 1,251 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 23 at (1) +scmt.f:103:72: + + 103 | 23 yrhoce(ir,iph) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1) +scmt.f:113:72: + + 113 | 860 xrhocp(il,iph) = xrhoce(il,iph) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) +scmt.f:115:72: + + 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) +scmtmp.f:81:72: + + 81 | 15 ri05(i) = exp (-8.8d0+0.05d0*(i-1)) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) +scmtmp.f:95:72: + + 95 | do 16 ir=1,251 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 16 at (1) +scmtmp.f:96:72: + + 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) scmtmp.f:107:72: 107 | do 21 iph=0,nph @@ -4039,21 +4131,11 @@ 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:102:72: - - 102 | do 23 ir = 1,251 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 23 at (1) scmtmp.f:114:72: 114 | do 23 iph=0,nph | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 23 at (1) -scmt.f:103:72: - - 103 | 23 yrhoce(ir,iph) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1) scmtmp.f:115:72: 115 | do 23 ir = 1,251 @@ -4064,26 +4146,11 @@ 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:113:72: - - 113 | 860 xrhocp(il,iph) = xrhoce(il,iph) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1) -scmt.f:115:72: - - 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) 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: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:166:72: 166 | 40 vtotph(i) = vtotph(i) - dble(eref) @@ -4099,21 +4166,11 @@ 172 | 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: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: +scmt.f:329:72: - 155 | 60 vvalph(i) = vtotph(i) + 329 | do 320 il = 0,lx | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) +Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) scmtmp.f:192:72: 192 | do 115 il = 0, lx @@ -4124,26 +4181,26 @@ 193 | 115 gtr(il,iph0,ipr) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 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) scmtmp.f:205:72: 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: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:40: + + 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:276:72: 276 | do 206 il = 0,lx @@ -4164,11 +4221,6 @@ 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:329:72: - - 329 | do 320 il = 0,lx - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) scmtmp.f:350:72: 350 | do 256 il = 0,lx @@ -4199,21 +4251,6 @@ 386 | 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:40: - - 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:42:20: 42 | dimension dgcn(nrptx,30), dpcn(nrptx,30) @@ -4226,9 +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 -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 rholie.f:91:72: 91 | do 10 j = 1, 251 @@ -4244,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 coulom.f:83:72: 83 | 710 drho(i) = edens(i,ip) - edenvl (i,ip) +rhoval(i,ip) @@ -4254,7 +4290,9 @@ 112 | 590 vclap(ir,ip)=0.0d0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 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 ../FF2X/xscorr.o ../FF2X/xscorr.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/acoef.o ../XSPH/acoef.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/axafs.o ../XSPH/axafs.f ../XSPH/acoef.f:19:72: 19 | do 10 i4 = 1,3 @@ -4305,23 +4343,11 @@ 98 | do 60 m1=0,1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 60 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/axafs.o ../XSPH/axafs.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/fmssz.o ../XSPH/fmssz.f ../XSPH/axafs.f:44:72: 44 | 30 xx(i) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) -../XSPH/fmssz.f:35:72: - - 35 | do 25 j=1,3 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 25 at (1) -../XSPH/fmssz.f:36:72: - - 36 | 25 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 25 at (1) ../XSPH/axafs.f:46:72: 46 | 40 yy(i) = 0 @@ -4347,11 +4373,6 @@ 57 | 105 xm(i,j) = xx(i+j-2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) -../XSPH/fmssz.f:76:72: - - 76 | 55 lcalc(ill) = .true. - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 55 at (1) ../XSPH/axafs.f:61:72: 61 | do 110 j=1,3 @@ -4367,16 +4388,6 @@ 64 | 120 xm(i,1) = yy (i-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) -../XSPH/fmssz.f:90:72: - - 90 | do 100 i2 = 1,2 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) -../XSPH/fmssz.f:91:72: - - 91 | do 100 i1 = 1,2 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) ../XSPH/axafs.f:69:72: 69 | do 210 j=1,3 @@ -4407,12 +4418,32 @@ 80 | 320 xm(i,3) = yy (i-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 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 -../XSPH/phase.f:267:72: +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 +../XSPH/fmssz.f:35:72: - 267 | 230 eref(ie) = eref(ne1) + 35 | do 25 j=1,3 | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) +Warning: Fortran 2018 deleted feature: Shared DO termination label 25 at (1) +../XSPH/fmssz.f:36:72: + + 36 | 25 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 25 at (1) +../XSPH/fmssz.f:76:72: + + 76 | 55 lcalc(ill) = .true. + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 55 at (1) +../XSPH/fmssz.f:90:72: + + 90 | do 100 i2 = 1,2 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) +../XSPH/fmssz.f:91:72: + + 91 | do 100 i1 = 1,2 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) ../XSPH/axafs.f:85:72: 85 | eee = ee(1) + 100/hart @@ -4423,7 +4454,14 @@ 20 | dimension ee(nex), xmu(nex), wt(nex) | ^ 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/phase.o ../XSPH/phase.f +../XSPH/phase.f:267:72: + + 267 | 230 eref(ie) = eref(ne1) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 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/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 @@ -4469,14 +4507,43 @@ 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) -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 -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 -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/szlz.o ../XSPH/szlz.f ../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: + + 89 | do 10 j = -4,3 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) +../XSPH/rholsz.f:94:72: + + 94 | 15 ph(i) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) +../XSPH/rholsz.f:52:54: + + 52 | complex*16 pr(nrx,2,2), qr(nrx,2,2), pn(nrx,2,2), qn(nrx,2,2) + | 1 +Warning: Array 'pn' 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:52:28: + + 52 | complex*16 pr(nrx,2,2), qr(nrx,2,2), pn(nrx,2,2), qn(nrx,2,2) + | 1 +Warning: Array 'pr' 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:52:67: + + 52 | complex*16 pr(nrx,2,2), qr(nrx,2,2), pn(nrx,2,2), qn(nrx,2,2) + | 1 +Warning: Array 'qn' 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:52:41: + + 52 | complex*16 pr(nrx,2,2), qr(nrx,2,2), pn(nrx,2,2), qn(nrx,2,2) + | 1 +Warning: Array 'qr' 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/szlz.o ../XSPH/szlz.f ../XSPH/szlz.f:79:72: 79 | do 22 il=0,lx @@ -4542,52 +4609,11 @@ 185 | do 200 i2=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) -../XSPH/rholsz.f:89:72: - - 89 | do 10 j = -4,3 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) -../XSPH/rholsz.f:94:72: - - 94 | 15 ph(i) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) ../XSPH/szlz.f:245:72: 245 | do 320 il = 0,lx | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) -../XSPH/szlz.f:37:20: - - 37 | 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] -../XSPH/szlz.f:37:36: - - 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:52:54: - - 52 | complex*16 pr(nrx,2,2), qr(nrx,2,2), pn(nrx,2,2), qn(nrx,2,2) - | 1 -Warning: Array 'pn' 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:52:28: - - 52 | complex*16 pr(nrx,2,2), qr(nrx,2,2), pn(nrx,2,2), qn(nrx,2,2) - | 1 -Warning: Array 'pr' 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:52:67: - - 52 | complex*16 pr(nrx,2,2), qr(nrx,2,2), pn(nrx,2,2), qn(nrx,2,2) - | 1 -Warning: Array 'qn' 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:52:41: - - 52 | complex*16 pr(nrx,2,2), qr(nrx,2,2), pn(nrx,2,2), qn(nrx,2,2) - | 1 -Warning: Array 'qr' 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/wphase.o ../XSPH/wphase.f ../XSPH/rholsz.f:170:72: 170 | temp = 2*ck / (1+factor**2) / pi @@ -4608,6 +4634,17 @@ 58 | complex*16 temp, phx, phm(2,2), factor | ^ note: 'IMAGPART_EXPR ' was declared here +../XSPH/szlz.f:37:20: + + 37 | 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] +../XSPH/szlz.f:37:36: + + 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] +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: @@ -4636,7 +4673,6 @@ 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 ../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 @@ -4657,26 +4693,28 @@ 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: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: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:279:72: - - 279 | 95 ri(i) = exp(-x0+dx*(i-1)) - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) ../XSPH/xsect.f:68:49: 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 +../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/xsph.f:279:72: + + 279 | 95 ri(i) = exp(-x0+dx*(i-1)) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) ../XSPH/xsph.f:443:72: 443 | 334 vchp(i) = 0 @@ -4697,13 +4735,12 @@ 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] -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 ../JSON/json_read_libpotph.f:23:51: 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 @@ -4872,8 +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 -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 paths.f:51:25: 51 | integer index(nx), npx, np, n, ip, i, iat0, idum @@ -4914,11 +4949,14 @@ 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 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 ipack.o ipack.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 mcritk.o mcritk.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 mpprmp.o mpprmp.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 outcrt.o outcrt.f mpprmp.f:111:72: 111 | do 20 i = 1, 3 @@ -4939,7 +4977,6 @@ 222 | do 400 i =1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination 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 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 pathsd.f:18:34: @@ -5014,20 +5051,20 @@ 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 exconv.f:48:72: 48 | 20 slope(i) = ed * (xmu(i+1) - xmu(i)) / (omega(i+1) - omega(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) -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' exconv.f:59:72: 59 | 55 xmup(i) = s02 * xmu(i) + sm1 * dmu(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 55 at (1) -make -C ../JSON libfeffjson.a exconv.f:63:72: 63 | 60 slope(i) = slope(i) / ed * edp @@ -5048,8 +5085,6 @@ | 1 Warning: Array 'fname' 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 ff2afs.o ff2afs.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 ff2chi.o ff2chi.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 ff2xmu.o ff2xmu.f ff2afs.f:75:72: 75 | do 112 iip =ipmin,ipmax !KJ I added this variable ip 1-06 @@ -5110,27 +5145,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 ffmod6.o ffmod6.f -ff2xmu.f:72:72: - - 72 | do 112 iip =ipmin,ipmax !KJ I added this variable ip 1-06 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 112 at (1) -ff2xmu.f:73:72: - - 73 | 112 gtrful(iip,ie) = 0 - | 1 -Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 112 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 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) -ff2xmu.f:172:72: - - 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:297:72: 297 | 640 read(1) chia(ie) @@ -5141,16 +5161,6 @@ 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:285:72: - - 285 | 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) -ff2xmu.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))) @@ -5161,84 +5171,111 @@ 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) -ff2xmu.f:372:72: - - 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: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) -ff2xmu.f:53:24: +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 +ff2chi.f:54:24: - 53 | real achi(nex,npx), phchi(nex,npx) + 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] -ff2xmu.f:51:46: +ff2chi.f:52:46: - 51 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) + 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] -ff2xmu.f:51:63: +ff2chi.f:52:63: - 51 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) + 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] -ff2xmu.f:50:20: +ff2chi.f:51:20: - 50 | dimension ipot(legtot,npx) + 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] -ff2xmu.f:53:40: +ff2chi.f:54:40: - 53 | real achi(nex,npx), phchi(nex,npx) + 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] -ff2xmu.f:51:28: +ff2chi.f:52:28: - 51 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) + 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] -ff2xmu.f:52:25: +ff2chi.f:53:25: - 52 | real ri(legtot,npx) + 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] -ff2chi.f:54:24: +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: - 54 | real achi(nex,npx), phchi(nex,npx) + 72 | do 112 iip =ipmin,ipmax !KJ I added this variable ip 1-06 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 112 at (1) +ff2xmu.f:73:72: + + 73 | 112 gtrful(iip,ie) = 0 + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 112 at (1) +ff2xmu.f:172:72: + + 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) +ff2xmu.f:285:72: + + 285 | 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) +ff2xmu.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:372:72: + + 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) +ff2xmu.f:53:24: + + 53 | 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:46: +ff2xmu.f:51:46: - 52 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) + 51 | 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:63: +ff2xmu.f:51:63: - 52 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) + 51 | 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: +ff2xmu.f:50:20: - 51 | dimension ipot(legtot,npx) + 50 | 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:40: +ff2xmu.f:53:40: - 54 | real achi(nex,npx), phchi(nex,npx) + 53 | 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:28: +ff2xmu.f:51:28: - 52 | real rat(3,legtot,npx), beta(legtot,npx), eta(legtot,npx) + 51 | 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:25: +ff2xmu.f:52:25: - 53 | real ri(legtot,npx) + 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] 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 @@ -5294,6 +5331,7 @@ 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 @@ -5304,7 +5342,6 @@ 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 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' @@ -5335,6 +5372,15 @@ 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' +fmtrxi.f:83:72: + + 83 | 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 -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 @@ -5355,20 +5401,11 @@ 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) -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' mmtr.f:63:72: 63 | do 35 m2 = -lind(k2), lind(k2) | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 35 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 mmtrxi.o mmtrxi.f mmtr.f:30:28: 30 | complex*16 bmati, bmat @@ -5413,13 +5450,12 @@ | 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 setlam.o setlam.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 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 setlam.f:88:72: 88 | do 20 im = 1, mmax+1 | 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 snlm.f:20:72: 20 | do 5 im = 1, mtot+1 @@ -5435,11 +5471,10 @@ 49 | 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 -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 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 -gcc -c -g -fPIC -o feffpath.o feffpath.c onepath.f:151:53: 151 | complex*16 bmati(-mtot:mtot, 8, -mtot:mtot, 8) @@ -5460,10 +5495,11 @@ 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:45: 72 | complex*16 eref2(nex,nspx), ph4, bmati @@ -5484,6 +5520,7 @@ 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 gfortran -shared onepath.o pathgeom.o genfmt_prep.o fmtrxi.o mmtr.o mmtrxi.o import.o rot3i.o sclmz.o setlam.o snlm.o xstar.o trig.o ../FF2X/fdtarr.o ../FF2X/fdthea.o ../FF2X/fdtxdi.o ../RDINP/mkptz.o ../COMMON/wlog.o ../COMMON/chopen.o ../COMMON/getxk.o ../COMMON/head.o ../COMMON/padlib.o ../COMMON/pertab.o ../COMMON/pijump.o ../COMMON/rdxsph.o ../COMMON/setgam.o ../COMMON/setkap.o ../COMMON/str.o ../MATH/bcoef.o ../MATH/cwig3j.o ../MATH/dist.o ../MATH/polint.o ../MATH/rotwig.o ../MATH/terp.o ../MATH/trap.o ../PAR/sequential.o -o libonepath.so a - genfmt_prep.o @@ -5497,8 +5534,8 @@ a - snlm.o a - xstar.o a - trig.o -gcc -O2 -fPIC -shared -o libfeff8lpath.so feffpath.o onepath.o pathgeom.o genfmt_prep.o fmtrxi.o mmtr.o mmtrxi.o import.o rot3i.o sclmz.o setlam.o snlm.o xstar.o trig.o ../FF2X/fdtarr.o ../FF2X/fdthea.o ../FF2X/fdtxdi.o ../RDINP/mkptz.o ../COMMON/wlog.o ../COMMON/chopen.o ../COMMON/getxk.o ../COMMON/head.o ../COMMON/padlib.o ../COMMON/pertab.o ../COMMON/pijump.o ../COMMON/rdxsph.o ../COMMON/setgam.o ../COMMON/setkap.o ../COMMON/str.o ../MATH/bcoef.o ../MATH/cwig3j.o ../MATH/dist.o ../MATH/polint.o ../MATH/rotwig.o ../MATH/terp.o ../MATH/trap.o ../PAR/sequential.o -lgfortran ranlib libfeffgenfmt.a +gcc -O2 -fPIC -shared -o libfeff8lpath.so feffpath.o onepath.o pathgeom.o genfmt_prep.o fmtrxi.o mmtr.o mmtrxi.o import.o rot3i.o sclmz.o setlam.o snlm.o xstar.o trig.o ../FF2X/fdtarr.o ../FF2X/fdthea.o ../FF2X/fdtxdi.o ../RDINP/mkptz.o ../COMMON/wlog.o ../COMMON/chopen.o ../COMMON/getxk.o ../COMMON/head.o ../COMMON/padlib.o ../COMMON/pertab.o ../COMMON/pijump.o ../COMMON/rdxsph.o ../COMMON/setgam.o ../COMMON/setkap.o ../COMMON/str.o ../MATH/bcoef.o ../MATH/cwig3j.o ../MATH/dist.o ../MATH/polint.o ../MATH/rotwig.o ../MATH/terp.o ../MATH/trap.o ../PAR/sequential.o -lgfortran gfortran ffmod5.o genfmt.o rdpath.o regenf.o libfeffgenfmt.a ../json-fortran/libjsonfortran.a ../DEBYE/libfeffdw.a ../COMMON/libfeffcom.a ../PAR/libfeffpar.a ../MATH/libfeffmath.a ../JSON/libfeffjson.a -o feff8l_genfmt /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/GENFMT' @@ -5606,6 +5643,8 @@ gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o rpotph.o rpotph.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o rdhead.o rdhead.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o atom.o atom.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o indata.o indata.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o getorb.o getorb.f atom.f:121:72: 121 | do 30 j=1,norb @@ -5701,7 +5740,6 @@ 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) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o indata.o indata.f indata.f:317:72: 317 | do 620 j=1,k @@ -5712,7 +5750,6 @@ 328 | 630 iz1=iz | 1 Warning: Label 630 at (1) defined but not used [-Wunused-label] -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o getorb.o getorb.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o dirac.o dirac.f dirac.f:46:72: @@ -5766,11 +5803,17 @@ Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1) gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o inouh.o inouh.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o inth.o inth.f +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o potsl.o potsl.f inouh.f:24:72: 24 | 10 dq(i)=0.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) +inth.f:23:72: + + 23 | 10 deq(i-1)=deq(i) + | 1 +Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) inouh.f:25:72: 25 | if (nuc) 20,20,60 @@ -5801,12 +5844,6 @@ 76 | 150 dqno(i,jc)=dq(i+9) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) -inth.f:23:72: - - 23 | 10 deq(i-1)=deq(i) - | 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 potsl.f:14:72: 14 | 10 dv(i)=d(i)*dr(i) @@ -5839,6 +5876,8 @@ | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) 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 +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o ykdir.o ykdir.f totale.f:12:72: 12 | 10 dp(i)=d(i)/dr(i) @@ -5854,7 +5893,6 @@ 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) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o cdsld.o cdsld.f cdsld.f:59:72: 59 | if (n1) 170,170,60 @@ -5955,7 +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 ykdir.f:19:72: @@ -5987,7 +6024,6 @@ 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) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o potslw.o potslw.f ykdir.f:38:72: 38 | 70 dp(2)=dp(2)+(dr(2)**di)*dpn1(i)/di @@ -6008,7 +6044,6 @@ 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 ovrlp.o ovrlp.f renorm.f:40:72: 40 | do 30 i=1,np @@ -6029,6 +6064,7 @@ 26 | jri=1.0+ddjri | 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 potslw.o potslw.f potslw.f:14:72: 14 | 10 dv(i)=d(i)*dr(i) @@ -6049,10 +6085,10 @@ 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 -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sidx.o sidx.f sumax.f:54:15: 54 | jbl = 2.0+20.0*(blx+8.8) @@ -6083,12 +6119,14 @@ 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 sidx.o sidx.f 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 gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o wpot.o wpot.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o phmesh.o phmesh.f 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:45: 2 | 1 vint, rhoint, nr, dx, x0, ri, @@ -6114,10 +6152,6 @@ 9 | subroutine phmesh (nr, dx, x0, nemax, iprint, | 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 -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 phase.f:59:13: 59 | lmax = rmt * (20 * bohr) @@ -6133,6 +6167,10 @@ 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 +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o rhl.o rhl.f xcpot.f:156:5: 156 | 19 continue @@ -6143,10 +6181,12 @@ 124 | xk2 = em + xf**2 - xmu - delta | 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 rhl.o rhl.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o imhl.o imhl.f 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 @@ -6162,15 +6202,6 @@ 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 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 -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o diff.o diff.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) fovrg.f:127:72: 127 | if (n-nrk) 20,30,30 @@ -6206,8 +6237,14 @@ 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) intpol.f:17:9: 17 | c2=3.0*(fb-fa)-(fmb+2.0*fma)*dx @@ -6225,6 +6262,7 @@ 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 +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o cpl0.o cpl0.f prcrit.f:56:20: 56 | cksp(ie) = abs (sqrt (em(ie) - eref(ie))) / bohr @@ -6235,7 +6273,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 cpl0.o cpl0.f rphbin.f:64:72: 64 | il0 = l0 + 1 @@ -6259,6 +6296,7 @@ | 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 mrb.o mrb.f ccrit.f:48:13: 48 | n = tmp / 0.025 @@ -6269,12 +6307,14 @@ 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 pathsd.f:340:5: 340 | 601 format (1x, i8, f12.6, 2i9) @@ -6310,9 +6350,6 @@ 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 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 mpprmp.f:37:72: 37 | do 20 i = 1, 3 @@ -6363,6 +6400,21 @@ 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 gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o snlm.o snlm.f +snlm.f:18:72: + + 18 | do 5 im = 1, mtot+1 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) +snlm.f:24:72: + + 24 | do 10 im = 1, mmxp1 + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) +snlm.f:48:72: + + 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) genfmt.f:185:72: 185 | do 440 il = 1, ltot+1 @@ -6395,21 +6447,6 @@ Warning: Label 50 at (1) defined but not used [-Wunused-label] 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 -snlm.f:18:72: - - 18 | do 5 im = 1, mtot+1 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) -snlm.f:24:72: - - 24 | do 10 im = 1, mmxp1 - | 1 -Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) -snlm.f:48:72: - - 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) setlam.f:76:72: 76 | do 20 im = 1, mmax+1 @@ -6425,16 +6462,6 @@ 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:13: - - 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: @@ -6446,6 +6473,16 @@ 43 | do 200 in = 1, 2*ltot+1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) +setlam.f:79:16: + + 79 | if (jord .gt. iord) goto 20 + | ^ +Warning: 'iord' may be used uninitialized [-Wmaybe-uninitialized] +setlam.f:37:13: + + 37 | iord = icode/10000 -1 + | ^ +note: 'iord' was declared here rot3i.f:116:72: 116 | do 90 m1 = 1, 2*mtot+1 @@ -6468,6 +6505,11 @@ 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 mmtr.o mmtr.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sclmz.o sclmz.f +sclmz.f:42:72: + + 42 | do 20 il = imp1, lmax + | 1 +Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) mmtr.f:26:72: 26 | do 10 j = -mtot,mtot @@ -6478,14 +6520,8 @@ 40 | do 34 j = -1,1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 34 at (1) -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 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 mmtrxi.f:1:41: 1 | subroutine mmtrxi (lam1x, mmati, ie, ileg, ilegp) @@ -6496,27 +6532,15 @@ 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 +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o sigms.o sigms.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) -gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o xx.o xx.f -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:276:16: 276 | n = xkpmin / delk @@ -6557,11 +6581,19 @@ 25 | dimension emxs(nex), omega(nex), xkxs(nex), xsec(nex) | 1 Warning: Unused variable 'xsec' declared at (1) [-Wunused-variable] -xx.f:24:11: +sigms.f:64:72: - 24 | ii = (log(r) + c88) / delta + 1 - | 1 -Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] + 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 dist.o dist.f +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 @@ -6572,6 +6604,11 @@ 280 | xkmin = n * delk | ^ note: 'xkmin' was declared here +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 getxk.o getxk.f 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 @@ -6596,6 +6633,7 @@ Warning: Unused variable 'ckmag' declared at (1) [-Wunused-variable] 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 +gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o echo.o echo.f padlib.f:270:33: 270 | array(ipts) = cmplx(tmpr, tmpi) @@ -6611,7 +6649,6 @@ 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 echo.o echo.f gfortran -c -O3 -ffree-line-length-none -g -Wall -fPIC -o get_inpfile.o get_inpfile.f get_inpfile.f:14:31: @@ -6640,7 +6677,7 @@ debian/rules override_dh_auto_install make[1]: Entering directory '/build/reproducible-path/feff85exafs-0.2+dfsg' dh_auto_install - make -j42 install DESTDIR=/build/reproducible-path/feff85exafs-0.2\+dfsg/debian/feff85exafs AM_UPDATE_INFO_DIR=no "INSTALL=install --strip-program=true" + make -j40 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' @@ -7043,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/3868476/tmp/hooks/B01_cleanup starting +I: user script /srv/workspace/pbuilder/3868476/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/3982156 and its subdirectories -I: Current time: Tue Sep 29 19:31:56 -12 2026 -I: pbuilder-time-stamp: 1790753516 +I: removing directory /srv/workspace/pbuilder/3868476 and its subdirectories +I: Current time: Thu Aug 28 15:10:04 +14 2025 +I: pbuilder-time-stamp: 1756343404