https://launchpad.net/ubuntu/+archive/test-rebuild-20191220-focal/+build/18328613 RUN: /usr/share/launchpad-buildd/bin/builder-prep Kernel version: Linux bos02-arm64-004 4.4.0-170-generic #199-Ubuntu SMP Thu Nov 14 01:46:18 UTC 2019 aarch64 Buildd toolchain package versions: launchpad-buildd_183 python-lpbuildd_183 sbuild_0.67.0-2ubuntu7.1 bzr-builder_0.7.3+bzr174~ppa13~ubuntu14.10.1 bzr_2.7.0-2ubuntu3.1 git-build-recipe_0.3.6~git201906051340.ff11471~ubuntu16.04.1 git_1:2.7.4-0ubuntu1.7 dpkg-dev_1.18.4ubuntu1.6 python-debian_0.1.27ubuntu2. Syncing the system clock with the buildd NTP service... 5 Jan 13:31:00 ntpdate[1914]: adjust time server 10.211.37.1 offset -0.011518 sec RUN: /usr/share/launchpad-buildd/bin/in-target unpack-chroot --backend=chroot --series=focal --arch=arm64 PACKAGEBUILD-18328613 --image-type chroot /home/buildd/filecache-default/9d93b4075e16ce7cfbdf01f21507152b0a173b17 Creating target for build PACKAGEBUILD-18328613 RUN: /usr/share/launchpad-buildd/bin/in-target mount-chroot --backend=chroot --series=focal --arch=arm64 PACKAGEBUILD-18328613 Starting target for build PACKAGEBUILD-18328613 RUN: /usr/share/launchpad-buildd/bin/in-target override-sources-list --backend=chroot --series=focal --arch=arm64 PACKAGEBUILD-18328613 'deb http://ftpmaster.internal/ubuntu focal main restricted universe multiverse' Overriding sources.list in build-PACKAGEBUILD-18328613 RUN: /usr/share/launchpad-buildd/bin/in-target update-debian-chroot --backend=chroot --series=focal --arch=arm64 PACKAGEBUILD-18328613 Updating target for build PACKAGEBUILD-18328613 Get:1 http://ftpmaster.internal/ubuntu focal InRelease [255 kB] Get:2 http://ftpmaster.internal/ubuntu focal/main arm64 Packages [938 kB] Get:3 http://ftpmaster.internal/ubuntu focal/main Translation-en [499 kB] Get:4 http://ftpmaster.internal/ubuntu focal/restricted arm64 Packages [1512 B] Get:5 http://ftpmaster.internal/ubuntu focal/restricted Translation-en [5768 B] Get:6 http://ftpmaster.internal/ubuntu focal/universe arm64 Packages [8504 kB] Get:7 http://ftpmaster.internal/ubuntu focal/universe Translation-en [5195 kB] Get:8 http://ftpmaster.internal/ubuntu focal/multiverse arm64 Packages [122 kB] Get:9 http://ftpmaster.internal/ubuntu focal/multiverse Translation-en [110 kB] Fetched 15.6 MB in 6s (2653 kB/s) Reading package lists... Reading package lists... Building dependency tree... Reading state information... Calculating upgrade... The following packages were automatically installed and are no longer required: libhogweed4 libisl21 libnettle6 libperl5.28 perl-modules-5.28 Use 'sudo apt autoremove' to remove them. The following NEW packages will be installed: libhogweed5 libisl22 libnettle7 libperl5.30 perl-modules-5.30 The following packages will be upgraded: apt base-files base-passwd bash binutils binutils-aarch64-linux-gnu binutils-common bsdutils bzip2 cpp-9 debianutils fdisk g++-9 gcc-9 gcc-9-base gpg gpg-agent gpgconf gpgv gzip hostname libacl1 libapparmor1 libapt-pkg5.90 libasan5 libatomic1 libattr1 libaudit-common libaudit1 libbinutils libblkid1 libbz2-1.0 libc-bin libc-dev-bin libc6 libc6-dev libcap-ng0 libcap2 libcc1-0 libcryptsetup12 libdebconfclient0 libdevmapper1.02.1 libfdisk1 libgcc-9-dev libgcc1 libgcrypt20 libgnutls30 libgomp1 libitm1 libjson-c4 libkmod2 liblockfile-bin liblockfile1 liblsan0 liblz4-1 libmount1 libncurses6 libncursesw6 libp11-kit0 libpam-modules libpam-modules-bin libpam-runtime libpam0g libpcre2-8-0 libseccomp2 libselinux1 libsemanage-common libsemanage1 libsepol1 libsmartcols1 libsqlite3-0 libstdc++-9-dev libstdc++6 libsystemd0 libtasn1-6 libtinfo6 libtsan0 libubsan1 libudev1 libuuid1 libzstd1 linux-libc-dev lsb-base mount ncurses-base ncurses-bin perl perl-base sensible-utils systemd systemd-sysv sysvinit-utils util-linux 93 upgraded, 5 newly installed, 0 to remove and 0 not upgraded. Need to get 62.3 MB of archives. After this operation, 44.7 MB of additional disk space will be used. Get:1 http://ftpmaster.internal/ubuntu focal/main arm64 libc6-dev arm64 2.30-0ubuntu3 [2091 kB] Get:2 http://ftpmaster.internal/ubuntu focal/main arm64 libc-dev-bin arm64 2.30-0ubuntu3 [64.1 kB] Get:3 http://ftpmaster.internal/ubuntu focal/main arm64 linux-libc-dev arm64 5.3.0-24.26 [1077 kB] Get:4 http://ftpmaster.internal/ubuntu focal/main arm64 libisl22 arm64 0.22-2 [536 kB] Get:5 http://ftpmaster.internal/ubuntu focal/main arm64 libcc1-0 arm64 9.2.1-21ubuntu1 [46.4 kB] Get:6 http://ftpmaster.internal/ubuntu focal/main arm64 binutils-aarch64-linux-gnu arm64 2.33.1-6ubuntu3 [2021 kB] Get:7 http://ftpmaster.internal/ubuntu focal/main arm64 libbinutils arm64 2.33.1-6ubuntu3 [471 kB] Get:8 http://ftpmaster.internal/ubuntu focal/main arm64 binutils-common arm64 2.33.1-6ubuntu3 [203 kB] Get:9 http://ftpmaster.internal/ubuntu focal/main arm64 binutils arm64 2.33.1-6ubuntu3 [3392 B] Get:10 http://ftpmaster.internal/ubuntu focal/main arm64 gcc-9-base arm64 9.2.1-21ubuntu1 [19.1 kB] Get:11 http://ftpmaster.internal/ubuntu focal/main arm64 libgcc1 arm64 1:9.2.1-21ubuntu1 [34.3 kB] Get:12 http://ftpmaster.internal/ubuntu focal/main arm64 libgomp1 arm64 9.2.1-21ubuntu1 [80.5 kB] Get:13 http://ftpmaster.internal/ubuntu focal/main arm64 libitm1 arm64 9.2.1-21ubuntu1 [25.0 kB] Get:14 http://ftpmaster.internal/ubuntu focal/main arm64 libatomic1 arm64 9.2.1-21ubuntu1 [9168 B] Get:15 http://ftpmaster.internal/ubuntu focal/main arm64 libasan5 arm64 9.2.1-21ubuntu1 [365 kB] Get:16 http://ftpmaster.internal/ubuntu focal/main arm64 liblsan0 arm64 9.2.1-21ubuntu1 [126 kB] Get:17 http://ftpmaster.internal/ubuntu focal/main arm64 libtsan0 arm64 9.2.1-21ubuntu1 [284 kB] Get:18 http://ftpmaster.internal/ubuntu focal/main arm64 libubsan1 arm64 9.2.1-21ubuntu1 [121 kB] Get:19 http://ftpmaster.internal/ubuntu focal/main arm64 g++-9 arm64 9.2.1-21ubuntu1 [9602 kB] Get:20 http://ftpmaster.internal/ubuntu focal/main arm64 libstdc++-9-dev arm64 9.2.1-21ubuntu1 [1674 kB] Get:21 http://ftpmaster.internal/ubuntu focal/main arm64 libgcc-9-dev arm64 9.2.1-21ubuntu1 [915 kB] Get:22 http://ftpmaster.internal/ubuntu focal/main arm64 gcc-9 arm64 9.2.1-21ubuntu1 [9017 kB] Get:23 http://ftpmaster.internal/ubuntu focal/main arm64 cpp-9 arm64 9.2.1-21ubuntu1 [8396 kB] Get:24 http://ftpmaster.internal/ubuntu focal/main arm64 libstdc++6 arm64 9.2.1-21ubuntu1 [466 kB] Get:25 http://ftpmaster.internal/ubuntu focal/main arm64 libc6 arm64 2.30-0ubuntu3 [2273 kB] Get:26 http://ftpmaster.internal/ubuntu focal/main arm64 base-files arm64 11ubuntu2 [60.0 kB] Get:27 http://ftpmaster.internal/ubuntu focal/main arm64 debianutils arm64 4.9.1 [85.6 kB] Get:28 http://ftpmaster.internal/ubuntu focal/main arm64 bash arm64 5.0-5ubuntu1 [603 kB] Get:29 http://ftpmaster.internal/ubuntu focal/main arm64 bsdutils arm64 1:2.34-0.1ubuntu4 [60.8 kB] Get:30 http://ftpmaster.internal/ubuntu focal/main arm64 gzip arm64 1.10-0ubuntu4 [93.0 kB] Get:31 http://ftpmaster.internal/ubuntu focal/main arm64 hostname arm64 3.23 [11.1 kB] Get:32 http://ftpmaster.internal/ubuntu focal/main arm64 ncurses-bin arm64 6.1+20191019-1ubuntu1 [166 kB] Get:33 http://ftpmaster.internal/ubuntu focal/main arm64 perl-modules-5.30 all 5.30.0-9 [2739 kB] Get:34 http://ftpmaster.internal/ubuntu focal/main arm64 libperl5.30 arm64 5.30.0-9 [3764 kB] Get:35 http://ftpmaster.internal/ubuntu focal/main arm64 perl arm64 5.30.0-9 [224 kB] Get:36 http://ftpmaster.internal/ubuntu focal/main arm64 perl-base arm64 5.30.0-9 [1389 kB] Get:37 http://ftpmaster.internal/ubuntu focal/main arm64 bzip2 arm64 1.0.8-2 [33.0 kB] Get:38 http://ftpmaster.internal/ubuntu focal/main arm64 libbz2-1.0 arm64 1.0.8-2 [32.9 kB] Get:39 http://ftpmaster.internal/ubuntu focal/main arm64 libblkid1 arm64 2.34-0.1ubuntu4 [129 kB] Get:40 http://ftpmaster.internal/ubuntu focal/main arm64 libuuid1 arm64 2.34-0.1ubuntu4 [20.0 kB] Get:41 http://ftpmaster.internal/ubuntu focal/main arm64 libfdisk1 arm64 2.34-0.1ubuntu4 [160 kB] Get:42 http://ftpmaster.internal/ubuntu focal/main arm64 libpcre2-8-0 arm64 10.34-7 [170 kB] Get:43 http://ftpmaster.internal/ubuntu focal/main arm64 libselinux1 arm64 3.0-1 [64.8 kB] Get:44 http://ftpmaster.internal/ubuntu focal/main arm64 libmount1 arm64 2.34-0.1ubuntu4 [140 kB] Get:45 http://ftpmaster.internal/ubuntu focal/main arm64 libncurses6 arm64 6.1+20191019-1ubuntu1 [91.8 kB] Get:46 http://ftpmaster.internal/ubuntu focal/main arm64 libtinfo6 arm64 6.1+20191019-1ubuntu1 [80.4 kB] Get:47 http://ftpmaster.internal/ubuntu focal/main arm64 libncursesw6 arm64 6.1+20191019-1ubuntu1 [120 kB] Get:48 http://ftpmaster.internal/ubuntu focal/main arm64 libsmartcols1 arm64 2.34-0.1ubuntu4 [93.5 kB] Get:49 http://ftpmaster.internal/ubuntu focal/main arm64 fdisk arm64 2.34-0.1ubuntu4 [115 kB] Get:50 http://ftpmaster.internal/ubuntu focal/main arm64 util-linux arm64 2.34-0.1ubuntu4 [984 kB] Get:51 http://ftpmaster.internal/ubuntu focal/main arm64 libdebconfclient0 arm64 0.250ubuntu2 [6260 B] Get:52 http://ftpmaster.internal/ubuntu focal/main arm64 base-passwd arm64 3.5.47 [47.0 kB] Get:53 http://ftpmaster.internal/ubuntu focal/main arm64 libc-bin arm64 2.30-0ubuntu3 [502 kB] Get:54 http://ftpmaster.internal/ubuntu focal/main arm64 ncurses-base all 6.1+20191019-1ubuntu1 [17.9 kB] Get:55 http://ftpmaster.internal/ubuntu focal/main arm64 lsb-base all 11.1.0ubuntu2 [12.1 kB] Get:56 http://ftpmaster.internal/ubuntu focal/main arm64 sysvinit-utils arm64 2.96-1ubuntu1 [20.5 kB] Get:57 http://ftpmaster.internal/ubuntu focal/main arm64 liblz4-1 arm64 1.9.2-2 [52.7 kB] Get:58 http://ftpmaster.internal/ubuntu focal/main arm64 systemd-sysv arm64 244-3ubuntu1 [9368 B] Get:59 http://ftpmaster.internal/ubuntu focal/main arm64 libacl1 arm64 2.2.53-5ubuntu1 [17.7 kB] Get:60 http://ftpmaster.internal/ubuntu focal/main arm64 libapparmor1 arm64 2.13.3-7ubuntu1 [33.2 kB] Get:61 http://ftpmaster.internal/ubuntu focal/main arm64 libaudit-common all 1:2.8.5-2ubuntu5 [4076 B] Get:62 http://ftpmaster.internal/ubuntu focal/main arm64 libcap-ng0 arm64 0.7.9-2.1 [10.5 kB] Get:63 http://ftpmaster.internal/ubuntu focal/main arm64 libaudit1 arm64 1:2.8.5-2ubuntu5 [38.4 kB] Get:64 http://ftpmaster.internal/ubuntu focal/main arm64 libcap2 arm64 1:2.27-1 [13.9 kB] Get:65 http://ftpmaster.internal/ubuntu focal/main arm64 libudev1 arm64 244-3ubuntu1 [70.2 kB] Get:66 http://ftpmaster.internal/ubuntu focal/main arm64 libdevmapper1.02.1 arm64 2:1.02.155-2ubuntu7 [111 kB] Get:67 http://ftpmaster.internal/ubuntu focal/main arm64 libjson-c4 arm64 0.13.1+dfsg-6 [28.0 kB] Get:68 http://ftpmaster.internal/ubuntu focal/main arm64 libcryptsetup12 arm64 2:2.2.2-1ubuntu1 [166 kB] Get:69 http://ftpmaster.internal/ubuntu focal/main arm64 libnettle7 arm64 3.5.1+really3.5.1-2 [124 kB] Get:70 http://ftpmaster.internal/ubuntu focal/main arm64 libhogweed5 arm64 3.5.1+really3.5.1-2 [134 kB] Get:71 http://ftpmaster.internal/ubuntu focal/main arm64 libp11-kit0 arm64 0.23.18.1-2 [177 kB] Get:72 http://ftpmaster.internal/ubuntu focal/main arm64 libtasn1-6 arm64 4.15.0-2 [36.3 kB] Get:73 http://ftpmaster.internal/ubuntu focal/main arm64 libgnutls30 arm64 3.6.11.1-2 [721 kB] Get:74 http://ftpmaster.internal/ubuntu focal/main arm64 libkmod2 arm64 26-3ubuntu1 [39.5 kB] Get:75 http://ftpmaster.internal/ubuntu focal/main arm64 libpam0g arm64 1.3.1-5ubuntu4 [53.9 kB] Get:76 http://ftpmaster.internal/ubuntu focal/main arm64 libseccomp2 arm64 2.4.2-2ubuntu1 [39.9 kB] Get:77 http://ftpmaster.internal/ubuntu focal/main arm64 mount arm64 2.34-0.1ubuntu4 [112 kB] Get:78 http://ftpmaster.internal/ubuntu focal/main arm64 systemd arm64 244-3ubuntu1 [3382 kB] Get:79 http://ftpmaster.internal/ubuntu focal/main arm64 libsystemd0 arm64 244-3ubuntu1 [240 kB] Get:80 http://ftpmaster.internal/ubuntu focal/main arm64 libzstd1 arm64 1.4.4+dfsg-1 [216 kB] Get:81 http://ftpmaster.internal/ubuntu focal/main arm64 libapt-pkg5.90 arm64 1.9.5 [776 kB] Get:82 http://ftpmaster.internal/ubuntu focal/main arm64 libgcrypt20 arm64 1.8.5-3ubuntu1 [350 kB] Get:83 http://ftpmaster.internal/ubuntu focal/main arm64 gpgv arm64 2.2.17-3ubuntu1 [183 kB] Get:84 http://ftpmaster.internal/ubuntu focal/main arm64 apt arm64 1.9.5 [1231 kB] Get:85 http://ftpmaster.internal/ubuntu focal/main arm64 libpam-modules-bin arm64 1.3.1-5ubuntu4 [35.8 kB] Get:86 http://ftpmaster.internal/ubuntu focal/main arm64 libpam-modules arm64 1.3.1-5ubuntu4 [242 kB] Get:87 http://ftpmaster.internal/ubuntu focal/main arm64 libattr1 arm64 1:2.4.48-5 [12.5 kB] Get:88 http://ftpmaster.internal/ubuntu focal/main arm64 libpam-runtime all 1.3.1-5ubuntu4 [37.3 kB] Get:89 http://ftpmaster.internal/ubuntu focal/main arm64 libsepol1 arm64 3.0-1 [231 kB] Get:90 http://ftpmaster.internal/ubuntu focal/main arm64 libsemanage-common all 3.0-1 [9880 B] Get:91 http://ftpmaster.internal/ubuntu focal/main arm64 libsemanage1 arm64 3.0-1 [79.6 kB] Get:92 http://ftpmaster.internal/ubuntu focal/main arm64 sensible-utils all 0.0.12+nmu1 [15.0 kB] Get:93 http://ftpmaster.internal/ubuntu focal/main arm64 libsqlite3-0 arm64 3.30.1-1ubuntu1 [499 kB] Get:94 http://ftpmaster.internal/ubuntu focal/main arm64 gpg arm64 2.2.17-3ubuntu1 [437 kB] Get:95 http://ftpmaster.internal/ubuntu focal/main arm64 gpgconf arm64 2.2.17-3ubuntu1 [117 kB] Get:96 http://ftpmaster.internal/ubuntu focal/main arm64 gpg-agent arm64 2.2.17-3ubuntu1 [216 kB] Get:97 http://ftpmaster.internal/ubuntu focal/main arm64 liblockfile-bin arm64 1.16-1.1 [11.3 kB] Get:98 http://ftpmaster.internal/ubuntu focal/main arm64 liblockfile1 arm64 1.16-1.1 [6440 B] debconf: delaying package configuration, since apt-utils is not installed Fetched 62.3 MB in 2s (30.4 MB/s) (Reading database ... 12731 files and directories currently installed.) Preparing to unpack .../0-libc6-dev_2.30-0ubuntu3_arm64.deb ... Unpacking libc6-dev:arm64 (2.30-0ubuntu3) over (2.30-0ubuntu2) ... Preparing to unpack .../1-libc-dev-bin_2.30-0ubuntu3_arm64.deb ... Unpacking libc-dev-bin (2.30-0ubuntu3) over (2.30-0ubuntu2) ... Preparing to unpack .../2-linux-libc-dev_5.3.0-24.26_arm64.deb ... Unpacking linux-libc-dev:arm64 (5.3.0-24.26) over (5.3.0-18.19) ... Selecting previously unselected package libisl22:arm64. Preparing to unpack .../3-libisl22_0.22-2_arm64.deb ... Unpacking libisl22:arm64 (0.22-2) ... Preparing to unpack .../4-libcc1-0_9.2.1-21ubuntu1_arm64.deb ... Unpacking libcc1-0:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../5-binutils-aarch64-linux-gnu_2.33.1-6ubuntu3_arm64.deb ... Unpacking binutils-aarch64-linux-gnu (2.33.1-6ubuntu3) over (2.33-2ubuntu1) ... Preparing to unpack .../6-libbinutils_2.33.1-6ubuntu3_arm64.deb ... Unpacking libbinutils:arm64 (2.33.1-6ubuntu3) over (2.33-2ubuntu1) ... Preparing to unpack .../7-binutils-common_2.33.1-6ubuntu3_arm64.deb ... Unpacking binutils-common:arm64 (2.33.1-6ubuntu3) over (2.33-2ubuntu1) ... Preparing to unpack .../8-binutils_2.33.1-6ubuntu3_arm64.deb ... Unpacking binutils (2.33.1-6ubuntu3) over (2.33-2ubuntu1) ... Preparing to unpack .../9-gcc-9-base_9.2.1-21ubuntu1_arm64.deb ... Unpacking gcc-9-base:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Setting up gcc-9-base:arm64 (9.2.1-21ubuntu1) ... (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../libgcc1_1%3a9.2.1-21ubuntu1_arm64.deb ... Unpacking libgcc1:arm64 (1:9.2.1-21ubuntu1) over (1:9.2.1-9ubuntu2) ... Setting up libgcc1:arm64 (1:9.2.1-21ubuntu1) ... (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../00-libgomp1_9.2.1-21ubuntu1_arm64.deb ... Unpacking libgomp1:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../01-libitm1_9.2.1-21ubuntu1_arm64.deb ... Unpacking libitm1:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../02-libatomic1_9.2.1-21ubuntu1_arm64.deb ... Unpacking libatomic1:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../03-libasan5_9.2.1-21ubuntu1_arm64.deb ... Unpacking libasan5:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../04-liblsan0_9.2.1-21ubuntu1_arm64.deb ... Unpacking liblsan0:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../05-libtsan0_9.2.1-21ubuntu1_arm64.deb ... Unpacking libtsan0:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../06-libubsan1_9.2.1-21ubuntu1_arm64.deb ... Unpacking libubsan1:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../07-g++-9_9.2.1-21ubuntu1_arm64.deb ... Unpacking g++-9 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../08-libstdc++-9-dev_9.2.1-21ubuntu1_arm64.deb ... Unpacking libstdc++-9-dev:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../09-libgcc-9-dev_9.2.1-21ubuntu1_arm64.deb ... Unpacking libgcc-9-dev:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../10-gcc-9_9.2.1-21ubuntu1_arm64.deb ... Unpacking gcc-9 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../11-cpp-9_9.2.1-21ubuntu1_arm64.deb ... Unpacking cpp-9 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Preparing to unpack .../12-libstdc++6_9.2.1-21ubuntu1_arm64.deb ... Unpacking libstdc++6:arm64 (9.2.1-21ubuntu1) over (9.2.1-9ubuntu2) ... Setting up libstdc++6:arm64 (9.2.1-21ubuntu1) ... (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../libc6_2.30-0ubuntu3_arm64.deb ... Unpacking libc6:arm64 (2.30-0ubuntu3) over (2.30-0ubuntu2) ... Setting up libc6:arm64 (2.30-0ubuntu3) ... (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../base-files_11ubuntu2_arm64.deb ... Unpacking base-files (11ubuntu2) over (10.2ubuntu7) ... Setting up base-files (11ubuntu2) ... Installing new version of config file /etc/debian_version ... Installing new version of config file /etc/issue ... Installing new version of config file /etc/issue.net ... Installing new version of config file /etc/lsb-release ... Installing new version of config file /etc/update-motd.d/50-motd-news ... Updating /root/.profile to current default. (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../debianutils_4.9.1_arm64.deb ... Unpacking debianutils (4.9.1) over (4.8.6.3) ... Setting up debianutils (4.9.1) ... (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../bash_5.0-5ubuntu1_arm64.deb ... Unpacking bash (5.0-5ubuntu1) over (5.0-4ubuntu1) ... Setting up bash (5.0-5ubuntu1) ... update-alternatives: using /usr/share/man/man7/bash-builtins.7.gz to provide /usr/share/man/man7/builtins.7.gz (builtins.7.gz) in auto mode (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../bsdutils_1%3a2.34-0.1ubuntu4_arm64.deb ... Unpacking bsdutils (1:2.34-0.1ubuntu4) over (1:2.34-0.1ubuntu2) ... Setting up bsdutils (1:2.34-0.1ubuntu4) ... (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../gzip_1.10-0ubuntu4_arm64.deb ... Unpacking gzip (1.10-0ubuntu4) over (1.10-0ubuntu3) ... Setting up gzip (1.10-0ubuntu4) ... (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../hostname_3.23_arm64.deb ... Unpacking hostname (3.23) over (3.22) ... Setting up hostname (3.23) ... (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../ncurses-bin_6.1+20191019-1ubuntu1_arm64.deb ... Unpacking ncurses-bin (6.1+20191019-1ubuntu1) over (6.1+20190803-1ubuntu1) ... Setting up ncurses-bin (6.1+20191019-1ubuntu1) ... (Reading database ... 12737 files and directories currently installed.) Preparing to unpack .../perl_5.30.0-9_arm64.deb ... Unpacking perl (5.30.0-9) over (5.28.1-6build1) ... Replacing files in old package perl-base (5.28.1-6build1) ... Selecting previously unselected package perl-modules-5.30. Preparing to unpack .../perl-modules-5.30_5.30.0-9_all.deb ... Unpacking perl-modules-5.30 (5.30.0-9) ... Selecting previously unselected package libperl5.30:arm64. Preparing to unpack .../libperl5.30_5.30.0-9_arm64.deb ... Unpacking libperl5.30:arm64 (5.30.0-9) ... Preparing to unpack .../perl-base_5.30.0-9_arm64.deb ... Unpacking perl-base (5.30.0-9) over (5.28.1-6build1) ... Setting up perl-base (5.30.0-9) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../bzip2_1.0.8-2_arm64.deb ... Unpacking bzip2 (1.0.8-2) over (1.0.6-9.2) ... Preparing to unpack .../libbz2-1.0_1.0.8-2_arm64.deb ... Unpacking libbz2-1.0:arm64 (1.0.8-2) over (1.0.6-9.2) ... Setting up libbz2-1.0:arm64 (1.0.8-2) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libblkid1_2.34-0.1ubuntu4_arm64.deb ... Unpacking libblkid1:arm64 (2.34-0.1ubuntu4) over (2.34-0.1ubuntu2) ... Setting up libblkid1:arm64 (2.34-0.1ubuntu4) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libuuid1_2.34-0.1ubuntu4_arm64.deb ... Unpacking libuuid1:arm64 (2.34-0.1ubuntu4) over (2.34-0.1ubuntu2) ... Setting up libuuid1:arm64 (2.34-0.1ubuntu4) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libfdisk1_2.34-0.1ubuntu4_arm64.deb ... Unpacking libfdisk1:arm64 (2.34-0.1ubuntu4) over (2.34-0.1ubuntu2) ... Setting up libfdisk1:arm64 (2.34-0.1ubuntu4) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libpcre2-8-0_10.34-7_arm64.deb ... Unpacking libpcre2-8-0:arm64 (10.34-7) over (10.32-5) ... Setting up libpcre2-8-0:arm64 (10.34-7) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libselinux1_3.0-1_arm64.deb ... Unpacking libselinux1:arm64 (3.0-1) over (2.9-2) ... Setting up libselinux1:arm64 (3.0-1) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libmount1_2.34-0.1ubuntu4_arm64.deb ... Unpacking libmount1:arm64 (2.34-0.1ubuntu4) over (2.34-0.1ubuntu2) ... Setting up libmount1:arm64 (2.34-0.1ubuntu4) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libncurses6_6.1+20191019-1ubuntu1_arm64.deb ... Unpacking libncurses6:arm64 (6.1+20191019-1ubuntu1) over (6.1+20190803-1ubuntu1) ... Preparing to unpack .../libtinfo6_6.1+20191019-1ubuntu1_arm64.deb ... Unpacking libtinfo6:arm64 (6.1+20191019-1ubuntu1) over (6.1+20190803-1ubuntu1) ... Setting up libtinfo6:arm64 (6.1+20191019-1ubuntu1) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libncursesw6_6.1+20191019-1ubuntu1_arm64.deb ... Unpacking libncursesw6:arm64 (6.1+20191019-1ubuntu1) over (6.1+20190803-1ubuntu1) ... Setting up libncursesw6:arm64 (6.1+20191019-1ubuntu1) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libsmartcols1_2.34-0.1ubuntu4_arm64.deb ... Unpacking libsmartcols1:arm64 (2.34-0.1ubuntu4) over (2.34-0.1ubuntu2) ... Setting up libsmartcols1:arm64 (2.34-0.1ubuntu4) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../fdisk_2.34-0.1ubuntu4_arm64.deb ... Unpacking fdisk (2.34-0.1ubuntu4) over (2.34-0.1ubuntu2) ... Setting up fdisk (2.34-0.1ubuntu4) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../util-linux_2.34-0.1ubuntu4_arm64.deb ... Unpacking util-linux (2.34-0.1ubuntu4) over (2.34-0.1ubuntu2) ... Setting up util-linux (2.34-0.1ubuntu4) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libdebconfclient0_0.250ubuntu2_arm64.deb ... Unpacking libdebconfclient0:arm64 (0.250ubuntu2) over (0.249ubuntu1) ... Setting up libdebconfclient0:arm64 (0.250ubuntu2) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../base-passwd_3.5.47_arm64.deb ... Unpacking base-passwd (3.5.47) over (3.5.46) ... Setting up base-passwd (3.5.47) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../libc-bin_2.30-0ubuntu3_arm64.deb ... Unpacking libc-bin (2.30-0ubuntu3) over (2.30-0ubuntu2) ... Setting up libc-bin (2.30-0ubuntu3) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../ncurses-base_6.1+20191019-1ubuntu1_all.deb ... Unpacking ncurses-base (6.1+20191019-1ubuntu1) over (6.1+20190803-1ubuntu1) ... Setting up ncurses-base (6.1+20191019-1ubuntu1) ... (Reading database ... 14647 files and directories currently installed.) Preparing to unpack .../lsb-base_11.1.0ubuntu2_all.deb ... Unpacking lsb-base (11.1.0ubuntu2) over (11.0.1ubuntu1) ... Setting up lsb-base (11.1.0ubuntu2) ... (Reading database ... 14646 files and directories currently installed.) Preparing to unpack .../sysvinit-utils_2.96-1ubuntu1_arm64.deb ... Unpacking sysvinit-utils (2.96-1ubuntu1) over (2.95-5ubuntu2) ... Setting up sysvinit-utils (2.96-1ubuntu1) ... (Reading database ... 14646 files and directories currently installed.) Preparing to unpack .../liblz4-1_1.9.2-2_arm64.deb ... Unpacking liblz4-1:arm64 (1.9.2-2) over (1.9.1-1) ... Setting up liblz4-1:arm64 (1.9.2-2) ... (Reading database ... 14646 files and directories currently installed.) Preparing to unpack .../systemd-sysv_244-3ubuntu1_arm64.deb ... Unpacking systemd-sysv (244-3ubuntu1) over (242-7ubuntu3) ... Preparing to unpack .../libacl1_2.2.53-5ubuntu1_arm64.deb ... Unpacking libacl1:arm64 (2.2.53-5ubuntu1) over (2.2.53-4) ... Setting up libacl1:arm64 (2.2.53-5ubuntu1) ... (Reading database ... 14646 files and directories currently installed.) Preparing to unpack .../libapparmor1_2.13.3-7ubuntu1_arm64.deb ... Unpacking libapparmor1:arm64 (2.13.3-7ubuntu1) over (2.13.3-5ubuntu1) ... Preparing to unpack .../libaudit-common_1%3a2.8.5-2ubuntu5_all.deb ... Unpacking libaudit-common (1:2.8.5-2ubuntu5) over (1:2.8.5-2ubuntu1) ... Setting up libaudit-common (1:2.8.5-2ubuntu5) ... (Reading database ... 14646 files and directories currently installed.) Preparing to unpack .../libcap-ng0_0.7.9-2.1_arm64.deb ... Unpacking libcap-ng0:arm64 (0.7.9-2.1) over (0.7.9-2) ... Setting up libcap-ng0:arm64 (0.7.9-2.1) ... (Reading database ... 14646 files and directories currently installed.) Preparing to unpack .../libaudit1_1%3a2.8.5-2ubuntu5_arm64.deb ... Unpacking libaudit1:arm64 (1:2.8.5-2ubuntu5) over (1:2.8.5-2ubuntu1) ... Setting up libaudit1:arm64 (1:2.8.5-2ubuntu5) ... (Reading database ... 14646 files and directories currently installed.) Preparing to unpack .../libcap2_1%3a2.27-1_arm64.deb ... Unpacking libcap2:arm64 (1:2.27-1) over (1:2.25-2) ... Preparing to unpack .../libudev1_244-3ubuntu1_arm64.deb ... Unpacking libudev1:arm64 (244-3ubuntu1) over (242-7ubuntu3) ... Setting up libudev1:arm64 (244-3ubuntu1) ... (Reading database ... 14646 files and directories currently installed.) Preparing to unpack .../libdevmapper1.02.1_2%3a1.02.155-2ubuntu7_arm64.deb ... Unpacking libdevmapper1.02.1:arm64 (2:1.02.155-2ubuntu7) over (2:1.02.155-2ubuntu6) ... Preparing to unpack .../libjson-c4_0.13.1+dfsg-6_arm64.deb ... Unpacking libjson-c4:arm64 (0.13.1+dfsg-6) over (0.13.1+dfsg-4) ... Preparing to unpack .../libcryptsetup12_2%3a2.2.2-1ubuntu1_arm64.deb ... Unpacking libcryptsetup12:arm64 (2:2.2.2-1ubuntu1) over (2:2.2.0-3ubuntu1) ... Selecting previously unselected package libnettle7:arm64. Preparing to unpack .../libnettle7_3.5.1+really3.5.1-2_arm64.deb ... Unpacking libnettle7:arm64 (3.5.1+really3.5.1-2) ... Setting up libnettle7:arm64 (3.5.1+really3.5.1-2) ... Selecting previously unselected package libhogweed5:arm64. (Reading database ... 14653 files and directories currently installed.) Preparing to unpack .../libhogweed5_3.5.1+really3.5.1-2_arm64.deb ... Unpacking libhogweed5:arm64 (3.5.1+really3.5.1-2) ... Setting up libhogweed5:arm64 (3.5.1+really3.5.1-2) ... (Reading database ... 14656 files and directories currently installed.) Preparing to unpack .../libp11-kit0_0.23.18.1-2_arm64.deb ... Unpacking libp11-kit0:arm64 (0.23.18.1-2) over (0.23.17-2) ... Setting up libp11-kit0:arm64 (0.23.18.1-2) ... (Reading database ... 14656 files and directories currently installed.) Preparing to unpack .../libtasn1-6_4.15.0-2_arm64.deb ... Unpacking libtasn1-6:arm64 (4.15.0-2) over (4.14-3) ... Setting up libtasn1-6:arm64 (4.15.0-2) ... (Reading database ... 14656 files and directories currently installed.) Preparing to unpack .../libgnutls30_3.6.11.1-2_arm64.deb ... Unpacking libgnutls30:arm64 (3.6.11.1-2) over (3.6.9-5ubuntu1) ... Setting up libgnutls30:arm64 (3.6.11.1-2) ... (Reading database ... 14655 files and directories currently installed.) Preparing to unpack .../libkmod2_26-3ubuntu1_arm64.deb ... Unpacking libkmod2:arm64 (26-3ubuntu1) over (26-1ubuntu1) ... Preparing to unpack .../libpam0g_1.3.1-5ubuntu4_arm64.deb ... Unpacking libpam0g:arm64 (1.3.1-5ubuntu4) over (1.3.1-5ubuntu1) ... Setting up libpam0g:arm64 (1.3.1-5ubuntu4) ... (Reading database ... 14655 files and directories currently installed.) Preparing to unpack .../libseccomp2_2.4.2-2ubuntu1_arm64.deb ... Unpacking libseccomp2:arm64 (2.4.2-2ubuntu1) over (2.4.1-0ubuntu0.19.10.3) ... Setting up libseccomp2:arm64 (2.4.2-2ubuntu1) ... (Reading database ... 14655 files and directories currently installed.) Preparing to unpack .../mount_2.34-0.1ubuntu4_arm64.deb ... Unpacking mount (2.34-0.1ubuntu4) over (2.34-0.1ubuntu2) ... Preparing to unpack .../systemd_244-3ubuntu1_arm64.deb ... Unpacking systemd (244-3ubuntu1) over (242-7ubuntu3) ... Preparing to unpack .../libsystemd0_244-3ubuntu1_arm64.deb ... Unpacking libsystemd0:arm64 (244-3ubuntu1) over (242-7ubuntu3) ... Setting up libsystemd0:arm64 (244-3ubuntu1) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../libzstd1_1.4.4+dfsg-1_arm64.deb ... Unpacking libzstd1:arm64 (1.4.4+dfsg-1) over (1.4.3+dfsg-1) ... Setting up libzstd1:arm64 (1.4.4+dfsg-1) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../libapt-pkg5.90_1.9.5_arm64.deb ... Unpacking libapt-pkg5.90:arm64 (1.9.5) over (1.9.4) ... Setting up libapt-pkg5.90:arm64 (1.9.5) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../libgcrypt20_1.8.5-3ubuntu1_arm64.deb ... Unpacking libgcrypt20:arm64 (1.8.5-3ubuntu1) over (1.8.4-5ubuntu2) ... Setting up libgcrypt20:arm64 (1.8.5-3ubuntu1) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../gpgv_2.2.17-3ubuntu1_arm64.deb ... Unpacking gpgv (2.2.17-3ubuntu1) over (2.2.12-1ubuntu3) ... Setting up gpgv (2.2.17-3ubuntu1) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../archives/apt_1.9.5_arm64.deb ... Unpacking apt (1.9.5) over (1.9.4) ... Setting up apt (1.9.5) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../libpam-modules-bin_1.3.1-5ubuntu4_arm64.deb ... Unpacking libpam-modules-bin (1.3.1-5ubuntu4) over (1.3.1-5ubuntu1) ... Setting up libpam-modules-bin (1.3.1-5ubuntu4) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../libpam-modules_1.3.1-5ubuntu4_arm64.deb ... Unpacking libpam-modules:arm64 (1.3.1-5ubuntu4) over (1.3.1-5ubuntu1) ... Setting up libpam-modules:arm64 (1.3.1-5ubuntu4) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../libattr1_1%3a2.4.48-5_arm64.deb ... Unpacking libattr1:arm64 (1:2.4.48-5) over (1:2.4.48-4) ... Setting up libattr1:arm64 (1:2.4.48-5) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../libpam-runtime_1.3.1-5ubuntu4_all.deb ... Unpacking libpam-runtime (1.3.1-5ubuntu4) over (1.3.1-5ubuntu1) ... Setting up libpam-runtime (1.3.1-5ubuntu4) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../libsepol1_3.0-1_arm64.deb ... Unpacking libsepol1:arm64 (3.0-1) over (2.9-2) ... Setting up libsepol1:arm64 (3.0-1) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../libsemanage-common_3.0-1_all.deb ... Unpacking libsemanage-common (3.0-1) over (2.9-3) ... Setting up libsemanage-common (3.0-1) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../libsemanage1_3.0-1_arm64.deb ... Unpacking libsemanage1:arm64 (3.0-1) over (2.9-3) ... Setting up libsemanage1:arm64 (3.0-1) ... (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../0-sensible-utils_0.0.12+nmu1_all.deb ... Unpacking sensible-utils (0.0.12+nmu1) over (0.0.12) ... Preparing to unpack .../1-libsqlite3-0_3.30.1-1ubuntu1_arm64.deb ... Unpacking libsqlite3-0:arm64 (3.30.1-1ubuntu1) over (3.29.0-2) ... Preparing to unpack .../2-gpg_2.2.17-3ubuntu1_arm64.deb ... Unpacking gpg (2.2.17-3ubuntu1) over (2.2.12-1ubuntu3) ... Preparing to unpack .../3-gpgconf_2.2.17-3ubuntu1_arm64.deb ... Unpacking gpgconf (2.2.17-3ubuntu1) over (2.2.12-1ubuntu3) ... Preparing to unpack .../4-gpg-agent_2.2.17-3ubuntu1_arm64.deb ... Unpacking gpg-agent (2.2.17-3ubuntu1) over (2.2.12-1ubuntu3) ... Preparing to unpack .../5-liblockfile-bin_1.16-1.1_arm64.deb ... Unpacking liblockfile-bin (1.16-1.1) over (1.15-1) ... Preparing to unpack .../6-liblockfile1_1.16-1.1_arm64.deb ... Unpacking liblockfile1:arm64 (1.16-1.1) over (1.15-1) ... Setting up libapparmor1:arm64 (2.13.3-7ubuntu1) ... Setting up liblockfile-bin (1.16-1.1) ... Setting up perl-modules-5.30 (5.30.0-9) ... Setting up libsqlite3-0:arm64 (3.30.1-1ubuntu1) ... Setting up binutils-common:arm64 (2.33.1-6ubuntu3) ... Setting up linux-libc-dev:arm64 (5.3.0-24.26) ... Setting up libgomp1:arm64 (9.2.1-21ubuntu1) ... Setting up bzip2 (1.0.8-2) ... Setting up libcap2:arm64 (1:2.27-1) ... Setting up libasan5:arm64 (9.2.1-21ubuntu1) ... Setting up libncurses6:arm64 (6.1+20191019-1ubuntu1) ... Setting up libatomic1:arm64 (9.2.1-21ubuntu1) ... Setting up libubsan1:arm64 (9.2.1-21ubuntu1) ... Setting up libdevmapper1.02.1:arm64 (2:1.02.155-2ubuntu7) ... Setting up mount (2.34-0.1ubuntu4) ... Setting up sensible-utils (0.0.12+nmu1) ... Setting up gpgconf (2.2.17-3ubuntu1) ... Setting up libperl5.30:arm64 (5.30.0-9) ... Setting up libisl22:arm64 (0.22-2) ... Setting up liblockfile1:arm64 (1.16-1.1) ... Setting up libjson-c4:arm64 (0.13.1+dfsg-6) ... Setting up libbinutils:arm64 (2.33.1-6ubuntu3) ... Setting up libc-dev-bin (2.30-0ubuntu3) ... Setting up libcc1-0:arm64 (9.2.1-21ubuntu1) ... Setting up gpg (2.2.17-3ubuntu1) ... Setting up liblsan0:arm64 (9.2.1-21ubuntu1) ... Setting up libitm1:arm64 (9.2.1-21ubuntu1) ... Setting up libkmod2:arm64 (26-3ubuntu1) ... Setting up libtsan0:arm64 (9.2.1-21ubuntu1) ... Setting up gpg-agent (2.2.17-3ubuntu1) ... Installing new version of config file /etc/logcheck/ignore.d.server/gpg-agent ... Created symlink /etc/systemd/user/sockets.target.wants/gpg-agent-browser.socket -> /usr/lib/systemd/user/gpg-agent-browser.socket. Created symlink /etc/systemd/user/sockets.target.wants/gpg-agent-extra.socket -> /usr/lib/systemd/user/gpg-agent-extra.socket. Created symlink /etc/systemd/user/sockets.target.wants/gpg-agent-ssh.socket -> /usr/lib/systemd/user/gpg-agent-ssh.socket. Created symlink /etc/systemd/user/sockets.target.wants/gpg-agent.socket -> /usr/lib/systemd/user/gpg-agent.socket. Setting up binutils-aarch64-linux-gnu (2.33.1-6ubuntu3) ... Setting up binutils (2.33.1-6ubuntu3) ... Setting up libgcc-9-dev:arm64 (9.2.1-21ubuntu1) ... Setting up perl (5.30.0-9) ... Setting up cpp-9 (9.2.1-21ubuntu1) ... Setting up libc6-dev:arm64 (2.30-0ubuntu3) ... Setting up libcryptsetup12:arm64 (2:2.2.2-1ubuntu1) ... Setting up gcc-9 (9.2.1-21ubuntu1) ... Setting up libstdc++-9-dev:arm64 (9.2.1-21ubuntu1) ... Setting up systemd (244-3ubuntu1) ... Installing new version of config file /etc/dhcp/dhclient-enter-hooks.d/resolved ... Installing new version of config file /etc/systemd/networkd.conf ... Installing new version of config file /etc/systemd/system.conf ... Installing new version of config file /etc/systemd/user.conf ... Initializing machine ID from KVM UUID. Setting up g++-9 (9.2.1-21ubuntu1) ... Setting up systemd-sysv (244-3ubuntu1) ... Processing triggers for libc-bin (2.30-0ubuntu3) ... RUN: /usr/share/launchpad-buildd/bin/sbuild-package PACKAGEBUILD-18328613 arm64 focal -c chroot:build-PACKAGEBUILD-18328613 --arch=arm64 --dist=focal --nolog mclibs_20061220+dfsg3-3.1build3.dsc Initiating build PACKAGEBUILD-18328613 with 4 jobs across 4 processor cores. Kernel reported to sbuild: 4.4.0-170-generic #199-Ubuntu SMP Thu Nov 14 01:46:18 UTC 2019 aarch64 sbuild (Debian sbuild) 0.67.0 (26 Dec 2015) on bos02-arm64-004.buildd +==============================================================================+ | mclibs 20061220+dfsg3-3.1build3 (arm64) 05 Jan 2020 13:31 | +==============================================================================+ Package: mclibs Version: 20061220+dfsg3-3.1build3 Source Version: 20061220+dfsg3-3.1build3 Distribution: focal Machine Architecture: arm64 Host Architecture: arm64 Build Architecture: arm64 I: NOTICE: Log filtering will replace 'build/mclibs-zJzCGt/mclibs-20061220+dfsg3' with '<>' I: NOTICE: Log filtering will replace 'build/mclibs-zJzCGt' with '<>' I: NOTICE: Log filtering will replace 'home/buildd/build-PACKAGEBUILD-18328613/chroot-autobuild' with '<>' +------------------------------------------------------------------------------+ | Fetch source files | +------------------------------------------------------------------------------+ Local sources ------------- mclibs_20061220+dfsg3-3.1build3.dsc exists in .; copying to chroot Check architectures ------------------- Check dependencies ------------------ Merged Build-Depends: build-essential, fakeroot Filtered Build-Depends: build-essential, fakeroot dpkg-deb: building package 'sbuild-build-depends-core-dummy' in '/<>/resolver-ybmdkZ/apt_archive/sbuild-build-depends-core-dummy.deb'. Ign:1 copy:/<>/resolver-ybmdkZ/apt_archive ./ InRelease Get:2 copy:/<>/resolver-ybmdkZ/apt_archive ./ Release [2119 B] Ign:3 copy:/<>/resolver-ybmdkZ/apt_archive ./ Release.gpg Get:4 copy:/<>/resolver-ybmdkZ/apt_archive ./ Sources [214 B] Get:5 copy:/<>/resolver-ybmdkZ/apt_archive ./ Packages [524 B] Fetched 2857 B in 0s (135 kB/s) Reading package lists... Reading package lists... +------------------------------------------------------------------------------+ | Install core build dependencies (apt-based resolver) | +------------------------------------------------------------------------------+ Installing build dependencies Reading package lists... Building dependency tree... Reading state information... The following packages were automatically installed and are no longer required: libhogweed4 libisl21 libnettle6 libperl5.28 perl-modules-5.28 Use 'apt autoremove' to remove them. The following NEW packages will be installed: sbuild-build-depends-core-dummy 0 upgraded, 1 newly installed, 0 to remove and 0 not upgraded. Need to get 852 B of archives. After this operation, 0 B of additional disk space will be used. Get:1 copy:/<>/resolver-ybmdkZ/apt_archive ./ sbuild-build-depends-core-dummy 0.invalid.0 [852 B] debconf: delaying package configuration, since apt-utils is not installed Fetched 852 B in 0s (0 B/s) Selecting previously unselected package sbuild-build-depends-core-dummy. (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../sbuild-build-depends-core-dummy_0.invalid.0_arm64.deb ... Unpacking sbuild-build-depends-core-dummy (0.invalid.0) ... Setting up sbuild-build-depends-core-dummy (0.invalid.0) ... Merged Build-Depends: dpkg-dev (>= 1.13.19), patch, mawk | gawk, xutils-dev, debhelper (>= 5.0.0), gfortran (>= 4:4.3), libblas-dev, liblapack-dev, cernlib-base-dev (>= 20061220+dfsg3-3), libmathlib2-dev (>= 2006.dfsg.2-7), texlive-latex-base Filtered Build-Depends: dpkg-dev (>= 1.13.19), patch, mawk | gawk, xutils-dev, debhelper (>= 5.0.0), gfortran (>= 4:4.3), libblas-dev, liblapack-dev, cernlib-base-dev (>= 20061220+dfsg3-3), libmathlib2-dev (>= 2006.dfsg.2-7), texlive-latex-base dpkg-deb: building package 'sbuild-build-depends-mclibs-dummy' in '/<>/resolver-3nHl2X/apt_archive/sbuild-build-depends-mclibs-dummy.deb'. Ign:1 copy:/<>/resolver-3nHl2X/apt_archive ./ InRelease Get:2 copy:/<>/resolver-3nHl2X/apt_archive ./ Release [2119 B] Ign:3 copy:/<>/resolver-3nHl2X/apt_archive ./ Release.gpg Get:4 copy:/<>/resolver-3nHl2X/apt_archive ./ Sources [324 B] Get:5 copy:/<>/resolver-3nHl2X/apt_archive ./ Packages [643 B] Fetched 3086 B in 0s (135 kB/s) Reading package lists... Reading package lists... +------------------------------------------------------------------------------+ | Install mclibs build dependencies (apt-based resolver) | +------------------------------------------------------------------------------+ Installing build dependencies Reading package lists... Building dependency tree... Reading state information... The following packages were automatically installed and are no longer required: libhogweed4 libisl21 libnettle6 libperl5.28 perl-modules-5.28 Use 'apt autoremove' to remove them. The following additional packages will be installed: autoconf automake autopoint autotools-dev bsdmainutils cernlib-base cernlib-base-dev cfortran debhelper dh-autoreconf dh-strip-nondeterminism dwz file fontconfig-config fonts-dejavu-core fonts-lmodern gettext gettext-base gfortran gfortran-9 groff-base intltool-debian libarchive-zip-perl libblas-dev libblas3 libbsd0 libcairo2 libcroco3 libdebhelper-perl libelf1 libexpat1 libfile-stripnondeterminism-perl libfontconfig1 libfreetype6 libgfortran-9-dev libgfortran5 libglib2.0-0 libgraphite2-3 libharfbuzz-icu0 libharfbuzz0b libice6 libicu63 libkernlib1-dev libkernlib1-gfortran libkpathsea6 liblapack-dev liblapack3 libmagic-mgc libmagic1 libmathlib2-dev libmathlib2-gfortran libpacklib1-dev libpacklib1-gfortran libpaper-utils libpaper1 libpipeline1 libpixman-1-0 libptexenc1 libsigsegv2 libsm6 libsub-override-perl libsynctex2 libteckit0 libtexlua53 libtool libuchardet0 libx11-6 libx11-data libxau6 libxaw7 libxcb-render0 libxcb-shm0 libxcb1 libxdmcp6 libxext6 libxi6 libxml2 libxmu6 libxpm4 libxrender1 libxt6 libzzip-0-13 m4 man-db po-debconf t1utils tex-common texlive-base texlive-binaries texlive-latex-base ucf x11-common xdg-utils xutils-dev Suggested packages: autoconf-archive gnu-standards autoconf-doc wamerican | wordlist whois vacation vim-addon-manager dh-make gettext-doc libasprintf-dev libgettextpo-dev gfortran-doc gfortran-9-doc libcoarrays-dev groff liblapack-doc libpacklib-lesstif1-dev xterm | x-terminal-emulator libtool-doc gcj-jdk m4-doc apparmor less www-browser libmail-box-perl ghostscript gv | postscript-viewer perl-tk xpdf | pdf-viewer xzdec texlive-latex-base-doc Recommended packages: curl | wget | lynx libarchive-cpio-perl libglib2.0-data shared-mime-info xdg-user-dirs libltdl-dev libmail-sendmail-perl lmodern dvisvgm libfile-mimeinfo-perl libnet-dbus-perl libx11-protocol-perl x11-utils x11-xserver-utils The following NEW packages will be installed: autoconf automake autopoint autotools-dev bsdmainutils cernlib-base cernlib-base-dev cfortran debhelper dh-autoreconf dh-strip-nondeterminism dwz file fontconfig-config fonts-dejavu-core fonts-lmodern gettext gettext-base gfortran gfortran-9 groff-base intltool-debian libarchive-zip-perl libblas-dev libblas3 libbsd0 libcairo2 libcroco3 libdebhelper-perl libelf1 libexpat1 libfile-stripnondeterminism-perl libfontconfig1 libfreetype6 libgfortran-9-dev libgfortran5 libglib2.0-0 libgraphite2-3 libharfbuzz-icu0 libharfbuzz0b libice6 libicu63 libkernlib1-dev libkernlib1-gfortran libkpathsea6 liblapack-dev liblapack3 libmagic-mgc libmagic1 libmathlib2-dev libmathlib2-gfortran libpacklib1-dev libpacklib1-gfortran libpaper-utils libpaper1 libpipeline1 libpixman-1-0 libptexenc1 libsigsegv2 libsm6 libsub-override-perl libsynctex2 libteckit0 libtexlua53 libtool libuchardet0 libx11-6 libx11-data libxau6 libxaw7 libxcb-render0 libxcb-shm0 libxcb1 libxdmcp6 libxext6 libxi6 libxml2 libxmu6 libxpm4 libxrender1 libxt6 libzzip-0-13 m4 man-db po-debconf sbuild-build-depends-mclibs-dummy t1utils tex-common texlive-base texlive-binaries texlive-latex-base ucf x11-common xdg-utils xutils-dev 0 upgraded, 95 newly installed, 0 to remove and 0 not upgraded. Need to get 73.3 MB of archives. After this operation, 281 MB of additional disk space will be used. Get:1 copy:/<>/resolver-3nHl2X/apt_archive ./ sbuild-build-depends-mclibs-dummy 0.invalid.0 [972 B] Get:2 http://ftpmaster.internal/ubuntu focal/main arm64 libbsd0 arm64 0.10.0-1 [43.7 kB] Get:3 http://ftpmaster.internal/ubuntu focal/main arm64 bsdmainutils arm64 11.1.2ubuntu2 [175 kB] Get:4 http://ftpmaster.internal/ubuntu focal/main arm64 libuchardet0 arm64 0.0.6-3 [65.0 kB] Get:5 http://ftpmaster.internal/ubuntu focal/main arm64 groff-base arm64 1.22.4-4 [815 kB] Get:6 http://ftpmaster.internal/ubuntu focal/main arm64 libpipeline1 arm64 1.5.1-3 [25.7 kB] Get:7 http://ftpmaster.internal/ubuntu focal/main arm64 man-db arm64 2.9.0-2 [1097 kB] Get:8 http://ftpmaster.internal/ubuntu focal/main arm64 ucf all 3.0038+nmu1 [51.6 kB] Get:9 http://ftpmaster.internal/ubuntu focal/universe arm64 tex-common all 6.13 [32.7 kB] Get:10 http://ftpmaster.internal/ubuntu focal/main arm64 libmagic-mgc arm64 1:5.37-6 [209 kB] Get:11 http://ftpmaster.internal/ubuntu focal/main arm64 libmagic1 arm64 1:5.37-6 [70.9 kB] Get:12 http://ftpmaster.internal/ubuntu focal/main arm64 file arm64 1:5.37-6 [23.2 kB] Get:13 http://ftpmaster.internal/ubuntu focal/main arm64 libelf1 arm64 0.176-1.1 [43.6 kB] Get:14 http://ftpmaster.internal/ubuntu focal/main arm64 libexpat1 arm64 2.2.9-1 [61.3 kB] Get:15 http://ftpmaster.internal/ubuntu focal/main arm64 libglib2.0-0 arm64 2.63.3-1 [1192 kB] Get:16 http://ftpmaster.internal/ubuntu focal/main arm64 libicu63 arm64 63.2-2 [8146 kB] Get:17 http://ftpmaster.internal/ubuntu focal/main arm64 libxml2 arm64 2.9.4+dfsg1-8ubuntu1 [575 kB] Get:18 http://ftpmaster.internal/ubuntu focal/main arm64 gettext-base arm64 0.19.8.1-10 [48.4 kB] Get:19 http://ftpmaster.internal/ubuntu focal/main arm64 libxau6 arm64 1:1.0.9-0ubuntu1 [7356 B] Get:20 http://ftpmaster.internal/ubuntu focal/main arm64 libxdmcp6 arm64 1:1.1.3-0ubuntu1 [10.3 kB] Get:21 http://ftpmaster.internal/ubuntu focal/main arm64 libxcb1 arm64 1.13.1-2 [43.6 kB] Get:22 http://ftpmaster.internal/ubuntu focal/main arm64 libx11-data all 2:1.6.8-1 [113 kB] Get:23 http://ftpmaster.internal/ubuntu focal/main arm64 libx11-6 arm64 2:1.6.8-1 [553 kB] Get:24 http://ftpmaster.internal/ubuntu focal/main arm64 libxext6 arm64 2:1.3.4-0ubuntu1 [27.7 kB] Get:25 http://ftpmaster.internal/ubuntu focal/main arm64 libsigsegv2 arm64 2.12-2 [13.3 kB] Get:26 http://ftpmaster.internal/ubuntu focal/main arm64 m4 arm64 1.4.18-4 [194 kB] Get:27 http://ftpmaster.internal/ubuntu focal/main arm64 autoconf all 2.69-11ubuntu1 [321 kB] Get:28 http://ftpmaster.internal/ubuntu focal/main arm64 autotools-dev all 20180224.1 [39.6 kB] Get:29 http://ftpmaster.internal/ubuntu focal/main arm64 automake all 1:1.16.1-4ubuntu3 [522 kB] Get:30 http://ftpmaster.internal/ubuntu focal/main arm64 autopoint all 0.19.8.1-10 [412 kB] Get:31 http://ftpmaster.internal/ubuntu focal/universe arm64 cernlib-base all 20061220+dfsg3-4.4 [22.6 kB] Get:32 http://ftpmaster.internal/ubuntu focal/universe arm64 cernlib-base-dev all 20061220+dfsg3-4.4 [61.9 kB] Get:33 http://ftpmaster.internal/ubuntu focal/universe arm64 cfortran all 20110621-1build1 [69.7 kB] Get:34 http://ftpmaster.internal/ubuntu focal/main arm64 libtool all 2.4.6-11 [194 kB] Get:35 http://ftpmaster.internal/ubuntu focal/main arm64 dh-autoreconf all 19 [16.1 kB] Get:36 http://ftpmaster.internal/ubuntu focal/main arm64 libdebhelper-perl all 12.7.1ubuntu1 [52.0 kB] Get:37 http://ftpmaster.internal/ubuntu focal/main arm64 libarchive-zip-perl all 1.67-1 [90.4 kB] Get:38 http://ftpmaster.internal/ubuntu focal/main arm64 libsub-override-perl all 0.09-2 [9532 B] Get:39 http://ftpmaster.internal/ubuntu focal/main arm64 libfile-stripnondeterminism-perl all 1.6.3-1 [16.0 kB] Get:40 http://ftpmaster.internal/ubuntu focal/main arm64 dh-strip-nondeterminism all 1.6.3-1 [5224 B] Get:41 http://ftpmaster.internal/ubuntu focal/main arm64 dwz arm64 0.13-5 [134 kB] Get:42 http://ftpmaster.internal/ubuntu focal/main arm64 libcroco3 arm64 0.6.13-1 [77.1 kB] Get:43 http://ftpmaster.internal/ubuntu focal/main arm64 gettext arm64 0.19.8.1-10 [851 kB] Get:44 http://ftpmaster.internal/ubuntu focal/main arm64 intltool-debian all 0.35.0+20060710.5 [24.9 kB] Get:45 http://ftpmaster.internal/ubuntu focal/main arm64 po-debconf all 1.0.21 [233 kB] Get:46 http://ftpmaster.internal/ubuntu focal/main arm64 debhelper all 12.7.1ubuntu1 [875 kB] Get:47 http://ftpmaster.internal/ubuntu focal/main arm64 fonts-dejavu-core all 2.37-1 [1041 kB] Get:48 http://ftpmaster.internal/ubuntu focal/main arm64 fontconfig-config all 2.13.1-2ubuntu2 [28.9 kB] Get:49 http://ftpmaster.internal/ubuntu focal/universe arm64 fonts-lmodern all 2.004.5-6 [4532 kB] Get:50 http://ftpmaster.internal/ubuntu focal/main arm64 libgfortran5 arm64 9.2.1-21ubuntu1 [333 kB] Get:51 http://ftpmaster.internal/ubuntu focal/main arm64 libgfortran-9-dev arm64 9.2.1-21ubuntu1 [390 kB] Get:52 http://ftpmaster.internal/ubuntu focal/main arm64 gfortran-9 arm64 9.2.1-21ubuntu1 [9130 kB] Get:53 http://ftpmaster.internal/ubuntu focal/main arm64 gfortran arm64 4:9.2.1-3.1ubuntu1 [1364 B] Get:54 http://ftpmaster.internal/ubuntu focal/main arm64 libblas3 arm64 3.9.0-1 [89.1 kB] Get:55 http://ftpmaster.internal/ubuntu focal/main arm64 libblas-dev arm64 3.9.0-1 [92.7 kB] Get:56 http://ftpmaster.internal/ubuntu focal/main arm64 libfreetype6 arm64 2.10.1-2 [316 kB] Get:57 http://ftpmaster.internal/ubuntu focal/main arm64 libfontconfig1 arm64 2.13.1-2ubuntu2 [111 kB] Get:58 http://ftpmaster.internal/ubuntu focal/main arm64 libpixman-1-0 arm64 0.38.4-0ubuntu1 [130 kB] Get:59 http://ftpmaster.internal/ubuntu focal/main arm64 libxcb-render0 arm64 1.13.1-2 [14.5 kB] Get:60 http://ftpmaster.internal/ubuntu focal/main arm64 libxcb-shm0 arm64 1.13.1-2 [5628 B] Get:61 http://ftpmaster.internal/ubuntu focal/main arm64 libxrender1 arm64 1:0.9.10-1 [16.1 kB] Get:62 http://ftpmaster.internal/ubuntu focal/main arm64 libcairo2 arm64 1.16.0-4ubuntu1 [538 kB] Get:63 http://ftpmaster.internal/ubuntu focal/main arm64 libgraphite2-3 arm64 1.3.13-11 [67.8 kB] Get:64 http://ftpmaster.internal/ubuntu focal/main arm64 libharfbuzz0b arm64 2.6.4-1ubuntu1 [353 kB] Get:65 http://ftpmaster.internal/ubuntu focal/main arm64 libharfbuzz-icu0 arm64 2.6.4-1ubuntu1 [5460 B] Get:66 http://ftpmaster.internal/ubuntu focal/main arm64 x11-common all 1:7.7+19ubuntu12 [22.4 kB] Get:67 http://ftpmaster.internal/ubuntu focal/main arm64 libice6 arm64 2:1.0.10-0ubuntu1 [37.7 kB] Get:68 http://ftpmaster.internal/ubuntu focal/universe arm64 libkernlib1-gfortran arm64 20061220+dfsg3-4.4 [167 kB] Get:69 http://ftpmaster.internal/ubuntu focal/universe arm64 libkernlib1-dev arm64 20061220+dfsg3-4.4 [215 kB] Get:70 http://ftpmaster.internal/ubuntu focal/main arm64 libkpathsea6 arm64 2019.20190605.51237-3 [54.1 kB] Get:71 http://ftpmaster.internal/ubuntu focal/main arm64 liblapack3 arm64 3.9.0-1 [1534 kB] Get:72 http://ftpmaster.internal/ubuntu focal/main arm64 liblapack-dev arm64 3.9.0-1 [2763 kB] Get:73 http://ftpmaster.internal/ubuntu focal/universe arm64 libpacklib1-gfortran arm64 20061220+dfsg3-4.4 [1260 kB] Get:74 http://ftpmaster.internal/ubuntu focal/universe arm64 libmathlib2-gfortran arm64 20061220+dfsg3-4.4 [464 kB] Get:75 http://ftpmaster.internal/ubuntu focal/universe arm64 libpacklib1-dev arm64 20061220+dfsg3-4.4 [1883 kB] Get:76 http://ftpmaster.internal/ubuntu focal/universe arm64 libmathlib2-dev arm64 20061220+dfsg3-4.4 [584 kB] Get:77 http://ftpmaster.internal/ubuntu focal/main arm64 libpaper1 arm64 1.1.28 [12.7 kB] Get:78 http://ftpmaster.internal/ubuntu focal/main arm64 libpaper-utils arm64 1.1.28 [8328 B] Get:79 http://ftpmaster.internal/ubuntu focal/main arm64 libptexenc1 arm64 2019.20190605.51237-3 [36.6 kB] Get:80 http://ftpmaster.internal/ubuntu focal/main arm64 libsm6 arm64 2:1.2.3-1 [15.1 kB] Get:81 http://ftpmaster.internal/ubuntu focal/main arm64 libsynctex2 arm64 2019.20190605.51237-3 [52.0 kB] Get:82 http://ftpmaster.internal/ubuntu focal/universe arm64 libteckit0 arm64 2.5.8+ds2-5ubuntu1 [284 kB] Get:83 http://ftpmaster.internal/ubuntu focal/main arm64 libtexlua53 arm64 2019.20190605.51237-3 [97.8 kB] Get:84 http://ftpmaster.internal/ubuntu focal/main arm64 libxt6 arm64 1:1.1.5-1 [128 kB] Get:85 http://ftpmaster.internal/ubuntu focal/main arm64 libxmu6 arm64 2:1.1.3-0ubuntu1 [42.9 kB] Get:86 http://ftpmaster.internal/ubuntu focal/main arm64 libxpm4 arm64 1:3.5.12-1 [28.8 kB] Get:87 http://ftpmaster.internal/ubuntu focal/main arm64 libxaw7 arm64 2:1.0.13-1 [137 kB] Get:88 http://ftpmaster.internal/ubuntu focal/main arm64 libxi6 arm64 2:1.7.10-0ubuntu1 [28.2 kB] Get:89 http://ftpmaster.internal/ubuntu focal/universe arm64 libzzip-0-13 arm64 0.13.62-3.2 [25.7 kB] Get:90 http://ftpmaster.internal/ubuntu focal/main arm64 t1utils arm64 1.41-3 [53.5 kB] Get:91 http://ftpmaster.internal/ubuntu focal/main arm64 texlive-binaries arm64 2019.20190605.51237-3 [6848 kB] Get:92 http://ftpmaster.internal/ubuntu focal/main arm64 xdg-utils all 1.1.3-1ubuntu2 [60.5 kB] Get:93 http://ftpmaster.internal/ubuntu focal/universe arm64 texlive-base all 2019.20191208-4 [20.5 MB] Get:94 http://ftpmaster.internal/ubuntu focal/universe arm64 texlive-latex-base all 2019.20191208-4 [849 kB] Get:95 http://ftpmaster.internal/ubuntu focal/universe arm64 xutils-dev arm64 1:7.7+5ubuntu1 [235 kB] debconf: delaying package configuration, since apt-utils is not installed Fetched 73.3 MB in 5s (16.0 MB/s) Selecting previously unselected package libbsd0:arm64. (Reading database ... 14649 files and directories currently installed.) Preparing to unpack .../00-libbsd0_0.10.0-1_arm64.deb ... Unpacking libbsd0:arm64 (0.10.0-1) ... Selecting previously unselected package bsdmainutils. Preparing to unpack .../01-bsdmainutils_11.1.2ubuntu2_arm64.deb ... Unpacking bsdmainutils (11.1.2ubuntu2) ... Selecting previously unselected package libuchardet0:arm64. Preparing to unpack .../02-libuchardet0_0.0.6-3_arm64.deb ... Unpacking libuchardet0:arm64 (0.0.6-3) ... Selecting previously unselected package groff-base. Preparing to unpack .../03-groff-base_1.22.4-4_arm64.deb ... Unpacking groff-base (1.22.4-4) ... Selecting previously unselected package libpipeline1:arm64. Preparing to unpack .../04-libpipeline1_1.5.1-3_arm64.deb ... Unpacking libpipeline1:arm64 (1.5.1-3) ... Selecting previously unselected package man-db. Preparing to unpack .../05-man-db_2.9.0-2_arm64.deb ... Unpacking man-db (2.9.0-2) ... Selecting previously unselected package ucf. Preparing to unpack .../06-ucf_3.0038+nmu1_all.deb ... Moving old data out of the way Unpacking ucf (3.0038+nmu1) ... Selecting previously unselected package tex-common. Preparing to unpack .../07-tex-common_6.13_all.deb ... Unpacking tex-common (6.13) ... Selecting previously unselected package libmagic-mgc. Preparing to unpack .../08-libmagic-mgc_1%3a5.37-6_arm64.deb ... Unpacking libmagic-mgc (1:5.37-6) ... Selecting previously unselected package libmagic1:arm64. Preparing to unpack .../09-libmagic1_1%3a5.37-6_arm64.deb ... Unpacking libmagic1:arm64 (1:5.37-6) ... Selecting previously unselected package file. Preparing to unpack .../10-file_1%3a5.37-6_arm64.deb ... Unpacking file (1:5.37-6) ... Selecting previously unselected package libelf1:arm64. Preparing to unpack .../11-libelf1_0.176-1.1_arm64.deb ... Unpacking libelf1:arm64 (0.176-1.1) ... Selecting previously unselected package libexpat1:arm64. Preparing to unpack .../12-libexpat1_2.2.9-1_arm64.deb ... Unpacking libexpat1:arm64 (2.2.9-1) ... Selecting previously unselected package libglib2.0-0:arm64. Preparing to unpack .../13-libglib2.0-0_2.63.3-1_arm64.deb ... Unpacking libglib2.0-0:arm64 (2.63.3-1) ... Selecting previously unselected package libicu63:arm64. Preparing to unpack .../14-libicu63_63.2-2_arm64.deb ... Unpacking libicu63:arm64 (63.2-2) ... Selecting previously unselected package libxml2:arm64. Preparing to unpack .../15-libxml2_2.9.4+dfsg1-8ubuntu1_arm64.deb ... Unpacking libxml2:arm64 (2.9.4+dfsg1-8ubuntu1) ... Selecting previously unselected package gettext-base. Preparing to unpack .../16-gettext-base_0.19.8.1-10_arm64.deb ... Unpacking gettext-base (0.19.8.1-10) ... Selecting previously unselected package libxau6:arm64. Preparing to unpack .../17-libxau6_1%3a1.0.9-0ubuntu1_arm64.deb ... Unpacking libxau6:arm64 (1:1.0.9-0ubuntu1) ... Selecting previously unselected package libxdmcp6:arm64. Preparing to unpack .../18-libxdmcp6_1%3a1.1.3-0ubuntu1_arm64.deb ... Unpacking libxdmcp6:arm64 (1:1.1.3-0ubuntu1) ... Selecting previously unselected package libxcb1:arm64. Preparing to unpack .../19-libxcb1_1.13.1-2_arm64.deb ... Unpacking libxcb1:arm64 (1.13.1-2) ... Selecting previously unselected package libx11-data. Preparing to unpack .../20-libx11-data_2%3a1.6.8-1_all.deb ... Unpacking libx11-data (2:1.6.8-1) ... Selecting previously unselected package libx11-6:arm64. Preparing to unpack .../21-libx11-6_2%3a1.6.8-1_arm64.deb ... Unpacking libx11-6:arm64 (2:1.6.8-1) ... Selecting previously unselected package libxext6:arm64. Preparing to unpack .../22-libxext6_2%3a1.3.4-0ubuntu1_arm64.deb ... Unpacking libxext6:arm64 (2:1.3.4-0ubuntu1) ... Selecting previously unselected package libsigsegv2:arm64. Preparing to unpack .../23-libsigsegv2_2.12-2_arm64.deb ... Unpacking libsigsegv2:arm64 (2.12-2) ... Selecting previously unselected package m4. Preparing to unpack .../24-m4_1.4.18-4_arm64.deb ... Unpacking m4 (1.4.18-4) ... Selecting previously unselected package autoconf. Preparing to unpack .../25-autoconf_2.69-11ubuntu1_all.deb ... Unpacking autoconf (2.69-11ubuntu1) ... Selecting previously unselected package autotools-dev. Preparing to unpack .../26-autotools-dev_20180224.1_all.deb ... Unpacking autotools-dev (20180224.1) ... Selecting previously unselected package automake. Preparing to unpack .../27-automake_1%3a1.16.1-4ubuntu3_all.deb ... Unpacking automake (1:1.16.1-4ubuntu3) ... Selecting previously unselected package autopoint. Preparing to unpack .../28-autopoint_0.19.8.1-10_all.deb ... Unpacking autopoint (0.19.8.1-10) ... Selecting previously unselected package cernlib-base. Preparing to unpack .../29-cernlib-base_20061220+dfsg3-4.4_all.deb ... Unpacking cernlib-base (20061220+dfsg3-4.4) ... Selecting previously unselected package cernlib-base-dev. Preparing to unpack .../30-cernlib-base-dev_20061220+dfsg3-4.4_all.deb ... Unpacking cernlib-base-dev (20061220+dfsg3-4.4) ... Selecting previously unselected package cfortran. Preparing to unpack .../31-cfortran_20110621-1build1_all.deb ... Unpacking cfortran (20110621-1build1) ... Selecting previously unselected package libtool. Preparing to unpack .../32-libtool_2.4.6-11_all.deb ... Unpacking libtool (2.4.6-11) ... Selecting previously unselected package dh-autoreconf. Preparing to unpack .../33-dh-autoreconf_19_all.deb ... Unpacking dh-autoreconf (19) ... Selecting previously unselected package libdebhelper-perl. Preparing to unpack .../34-libdebhelper-perl_12.7.1ubuntu1_all.deb ... Unpacking libdebhelper-perl (12.7.1ubuntu1) ... Selecting previously unselected package libarchive-zip-perl. Preparing to unpack .../35-libarchive-zip-perl_1.67-1_all.deb ... Unpacking libarchive-zip-perl (1.67-1) ... Selecting previously unselected package libsub-override-perl. Preparing to unpack .../36-libsub-override-perl_0.09-2_all.deb ... Unpacking libsub-override-perl (0.09-2) ... Selecting previously unselected package libfile-stripnondeterminism-perl. Preparing to unpack .../37-libfile-stripnondeterminism-perl_1.6.3-1_all.deb ... Unpacking libfile-stripnondeterminism-perl (1.6.3-1) ... Selecting previously unselected package dh-strip-nondeterminism. Preparing to unpack .../38-dh-strip-nondeterminism_1.6.3-1_all.deb ... Unpacking dh-strip-nondeterminism (1.6.3-1) ... Selecting previously unselected package dwz. Preparing to unpack .../39-dwz_0.13-5_arm64.deb ... Unpacking dwz (0.13-5) ... Selecting previously unselected package libcroco3:arm64. Preparing to unpack .../40-libcroco3_0.6.13-1_arm64.deb ... Unpacking libcroco3:arm64 (0.6.13-1) ... Selecting previously unselected package gettext. Preparing to unpack .../41-gettext_0.19.8.1-10_arm64.deb ... Unpacking gettext (0.19.8.1-10) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../42-intltool-debian_0.35.0+20060710.5_all.deb ... Unpacking intltool-debian (0.35.0+20060710.5) ... Selecting previously unselected package po-debconf. Preparing to unpack .../43-po-debconf_1.0.21_all.deb ... Unpacking po-debconf (1.0.21) ... Selecting previously unselected package debhelper. Preparing to unpack .../44-debhelper_12.7.1ubuntu1_all.deb ... Unpacking debhelper (12.7.1ubuntu1) ... Selecting previously unselected package fonts-dejavu-core. Preparing to unpack .../45-fonts-dejavu-core_2.37-1_all.deb ... Unpacking fonts-dejavu-core (2.37-1) ... Selecting previously unselected package fontconfig-config. Preparing to unpack .../46-fontconfig-config_2.13.1-2ubuntu2_all.deb ... Unpacking fontconfig-config (2.13.1-2ubuntu2) ... Selecting previously unselected package fonts-lmodern. Preparing to unpack .../47-fonts-lmodern_2.004.5-6_all.deb ... Unpacking fonts-lmodern (2.004.5-6) ... Selecting previously unselected package libgfortran5:arm64. Preparing to unpack .../48-libgfortran5_9.2.1-21ubuntu1_arm64.deb ... Unpacking libgfortran5:arm64 (9.2.1-21ubuntu1) ... Selecting previously unselected package libgfortran-9-dev:arm64. Preparing to unpack .../49-libgfortran-9-dev_9.2.1-21ubuntu1_arm64.deb ... Unpacking libgfortran-9-dev:arm64 (9.2.1-21ubuntu1) ... Selecting previously unselected package gfortran-9. Preparing to unpack .../50-gfortran-9_9.2.1-21ubuntu1_arm64.deb ... Unpacking gfortran-9 (9.2.1-21ubuntu1) ... Selecting previously unselected package gfortran. Preparing to unpack .../51-gfortran_4%3a9.2.1-3.1ubuntu1_arm64.deb ... Unpacking gfortran (4:9.2.1-3.1ubuntu1) ... Selecting previously unselected package libblas3:arm64. Preparing to unpack .../52-libblas3_3.9.0-1_arm64.deb ... Unpacking libblas3:arm64 (3.9.0-1) ... Selecting previously unselected package libblas-dev:arm64. Preparing to unpack .../53-libblas-dev_3.9.0-1_arm64.deb ... Unpacking libblas-dev:arm64 (3.9.0-1) ... Selecting previously unselected package libfreetype6:arm64. Preparing to unpack .../54-libfreetype6_2.10.1-2_arm64.deb ... Unpacking libfreetype6:arm64 (2.10.1-2) ... Selecting previously unselected package libfontconfig1:arm64. Preparing to unpack .../55-libfontconfig1_2.13.1-2ubuntu2_arm64.deb ... Unpacking libfontconfig1:arm64 (2.13.1-2ubuntu2) ... Selecting previously unselected package libpixman-1-0:arm64. Preparing to unpack .../56-libpixman-1-0_0.38.4-0ubuntu1_arm64.deb ... Unpacking libpixman-1-0:arm64 (0.38.4-0ubuntu1) ... Selecting previously unselected package libxcb-render0:arm64. Preparing to unpack .../57-libxcb-render0_1.13.1-2_arm64.deb ... Unpacking libxcb-render0:arm64 (1.13.1-2) ... Selecting previously unselected package libxcb-shm0:arm64. Preparing to unpack .../58-libxcb-shm0_1.13.1-2_arm64.deb ... Unpacking libxcb-shm0:arm64 (1.13.1-2) ... Selecting previously unselected package libxrender1:arm64. Preparing to unpack .../59-libxrender1_1%3a0.9.10-1_arm64.deb ... Unpacking libxrender1:arm64 (1:0.9.10-1) ... Selecting previously unselected package libcairo2:arm64. Preparing to unpack .../60-libcairo2_1.16.0-4ubuntu1_arm64.deb ... Unpacking libcairo2:arm64 (1.16.0-4ubuntu1) ... Selecting previously unselected package libgraphite2-3:arm64. Preparing to unpack .../61-libgraphite2-3_1.3.13-11_arm64.deb ... Unpacking libgraphite2-3:arm64 (1.3.13-11) ... Selecting previously unselected package libharfbuzz0b:arm64. Preparing to unpack .../62-libharfbuzz0b_2.6.4-1ubuntu1_arm64.deb ... Unpacking libharfbuzz0b:arm64 (2.6.4-1ubuntu1) ... Selecting previously unselected package libharfbuzz-icu0:arm64. Preparing to unpack .../63-libharfbuzz-icu0_2.6.4-1ubuntu1_arm64.deb ... Unpacking libharfbuzz-icu0:arm64 (2.6.4-1ubuntu1) ... Selecting previously unselected package x11-common. Preparing to unpack .../64-x11-common_1%3a7.7+19ubuntu12_all.deb ... dpkg-query: no packages found matching nux-tools Unpacking x11-common (1:7.7+19ubuntu12) ... Selecting previously unselected package libice6:arm64. Preparing to unpack .../65-libice6_2%3a1.0.10-0ubuntu1_arm64.deb ... Unpacking libice6:arm64 (2:1.0.10-0ubuntu1) ... Selecting previously unselected package libkernlib1-gfortran:arm64. Preparing to unpack .../66-libkernlib1-gfortran_20061220+dfsg3-4.4_arm64.deb ... Unpacking libkernlib1-gfortran:arm64 (20061220+dfsg3-4.4) ... Selecting previously unselected package libkernlib1-dev. Preparing to unpack .../67-libkernlib1-dev_20061220+dfsg3-4.4_arm64.deb ... Unpacking libkernlib1-dev (20061220+dfsg3-4.4) ... Selecting previously unselected package libkpathsea6:arm64. Preparing to unpack .../68-libkpathsea6_2019.20190605.51237-3_arm64.deb ... Unpacking libkpathsea6:arm64 (2019.20190605.51237-3) ... Selecting previously unselected package liblapack3:arm64. Preparing to unpack .../69-liblapack3_3.9.0-1_arm64.deb ... Unpacking liblapack3:arm64 (3.9.0-1) ... Selecting previously unselected package liblapack-dev:arm64. Preparing to unpack .../70-liblapack-dev_3.9.0-1_arm64.deb ... Unpacking liblapack-dev:arm64 (3.9.0-1) ... Selecting previously unselected package libpacklib1-gfortran:arm64. Preparing to unpack .../71-libpacklib1-gfortran_20061220+dfsg3-4.4_arm64.deb ... Unpacking libpacklib1-gfortran:arm64 (20061220+dfsg3-4.4) ... Selecting previously unselected package libmathlib2-gfortran:arm64. Preparing to unpack .../72-libmathlib2-gfortran_20061220+dfsg3-4.4_arm64.deb ... Unpacking libmathlib2-gfortran:arm64 (20061220+dfsg3-4.4) ... Selecting previously unselected package libpacklib1-dev. Preparing to unpack .../73-libpacklib1-dev_20061220+dfsg3-4.4_arm64.deb ... Unpacking libpacklib1-dev (20061220+dfsg3-4.4) ... Selecting previously unselected package libmathlib2-dev. Preparing to unpack .../74-libmathlib2-dev_20061220+dfsg3-4.4_arm64.deb ... Unpacking libmathlib2-dev (20061220+dfsg3-4.4) ... Selecting previously unselected package libpaper1:arm64. Preparing to unpack .../75-libpaper1_1.1.28_arm64.deb ... Unpacking libpaper1:arm64 (1.1.28) ... Selecting previously unselected package libpaper-utils. Preparing to unpack .../76-libpaper-utils_1.1.28_arm64.deb ... Unpacking libpaper-utils (1.1.28) ... Selecting previously unselected package libptexenc1:arm64. Preparing to unpack .../77-libptexenc1_2019.20190605.51237-3_arm64.deb ... Unpacking libptexenc1:arm64 (2019.20190605.51237-3) ... Selecting previously unselected package libsm6:arm64. Preparing to unpack .../78-libsm6_2%3a1.2.3-1_arm64.deb ... Unpacking libsm6:arm64 (2:1.2.3-1) ... Selecting previously unselected package libsynctex2:arm64. Preparing to unpack .../79-libsynctex2_2019.20190605.51237-3_arm64.deb ... Unpacking libsynctex2:arm64 (2019.20190605.51237-3) ... Selecting previously unselected package libteckit0:arm64. Preparing to unpack .../80-libteckit0_2.5.8+ds2-5ubuntu1_arm64.deb ... Unpacking libteckit0:arm64 (2.5.8+ds2-5ubuntu1) ... Selecting previously unselected package libtexlua53:arm64. Preparing to unpack .../81-libtexlua53_2019.20190605.51237-3_arm64.deb ... Unpacking libtexlua53:arm64 (2019.20190605.51237-3) ... Selecting previously unselected package libxt6:arm64. Preparing to unpack .../82-libxt6_1%3a1.1.5-1_arm64.deb ... Unpacking libxt6:arm64 (1:1.1.5-1) ... Selecting previously unselected package libxmu6:arm64. Preparing to unpack .../83-libxmu6_2%3a1.1.3-0ubuntu1_arm64.deb ... Unpacking libxmu6:arm64 (2:1.1.3-0ubuntu1) ... Selecting previously unselected package libxpm4:arm64. Preparing to unpack .../84-libxpm4_1%3a3.5.12-1_arm64.deb ... Unpacking libxpm4:arm64 (1:3.5.12-1) ... Selecting previously unselected package libxaw7:arm64. Preparing to unpack .../85-libxaw7_2%3a1.0.13-1_arm64.deb ... Unpacking libxaw7:arm64 (2:1.0.13-1) ... Selecting previously unselected package libxi6:arm64. Preparing to unpack .../86-libxi6_2%3a1.7.10-0ubuntu1_arm64.deb ... Unpacking libxi6:arm64 (2:1.7.10-0ubuntu1) ... Selecting previously unselected package libzzip-0-13:arm64. Preparing to unpack .../87-libzzip-0-13_0.13.62-3.2_arm64.deb ... Unpacking libzzip-0-13:arm64 (0.13.62-3.2) ... Selecting previously unselected package t1utils. Preparing to unpack .../88-t1utils_1.41-3_arm64.deb ... Unpacking t1utils (1.41-3) ... Selecting previously unselected package texlive-binaries. Preparing to unpack .../89-texlive-binaries_2019.20190605.51237-3_arm64.deb ... Unpacking texlive-binaries (2019.20190605.51237-3) ... Selecting previously unselected package xdg-utils. Preparing to unpack .../90-xdg-utils_1.1.3-1ubuntu2_all.deb ... Unpacking xdg-utils (1.1.3-1ubuntu2) ... Selecting previously unselected package texlive-base. Preparing to unpack .../91-texlive-base_2019.20191208-4_all.deb ... Unpacking texlive-base (2019.20191208-4) ... Selecting previously unselected package texlive-latex-base. Preparing to unpack .../92-texlive-latex-base_2019.20191208-4_all.deb ... Unpacking texlive-latex-base (2019.20191208-4) ... Selecting previously unselected package xutils-dev. Preparing to unpack .../93-xutils-dev_1%3a7.7+5ubuntu1_arm64.deb ... Unpacking xutils-dev (1:7.7+5ubuntu1) ... Selecting previously unselected package sbuild-build-depends-mclibs-dummy. Preparing to unpack .../94-sbuild-build-depends-mclibs-dummy_0.invalid.0_arm64.deb ... Unpacking sbuild-build-depends-mclibs-dummy (0.invalid.0) ... Setting up libexpat1:arm64 (2.2.9-1) ... Setting up libpipeline1:arm64 (1.5.1-3) ... Setting up libgraphite2-3:arm64 (1.3.13-11) ... Setting up libpixman-1-0:arm64 (0.38.4-0ubuntu1) ... Setting up libxau6:arm64 (1:1.0.9-0ubuntu1) ... Setting up libmagic-mgc (1:5.37-6) ... Setting up libtexlua53:arm64 (2019.20190605.51237-3) ... Setting up libarchive-zip-perl (1.67-1) ... Setting up libglib2.0-0:arm64 (2.63.3-1) ... No schema files found: doing nothing. Setting up libdebhelper-perl (12.7.1ubuntu1) ... Setting up x11-common (1:7.7+19ubuntu12) ... update-rc.d: warning: start and stop actions are no longer supported; falling back to defaults Running in chroot, ignoring request. invoke-rc.d: policy-rc.d denied execution of start. Setting up libmagic1:arm64 (1:5.37-6) ... Setting up gettext-base (0.19.8.1-10) ... Setting up libzzip-0-13:arm64 (0.13.62-3.2) ... Setting up file (1:5.37-6) ... Setting up libicu63:arm64 (63.2-2) ... Setting up autotools-dev (20180224.1) ... Setting up libblas3:arm64 (3.9.0-1) ... update-alternatives: using /usr/lib/aarch64-linux-gnu/blas/libblas.so.3 to provide /usr/lib/aarch64-linux-gnu/libblas.so.3 (libblas.so.3-aarch64-linux-gnu) in auto mode Setting up libfreetype6:arm64 (2.10.1-2) ... Setting up libx11-data (2:1.6.8-1) ... Setting up libteckit0:arm64 (2.5.8+ds2-5ubuntu1) ... Setting up libsigsegv2:arm64 (2.12-2) ... Setting up t1utils (1.41-3) ... Setting up autopoint (0.19.8.1-10) ... Setting up fonts-dejavu-core (2.37-1) ... Setting up ucf (3.0038+nmu1) ... Setting up libkpathsea6:arm64 (2019.20190605.51237-3) ... Setting up libgfortran5:arm64 (9.2.1-21ubuntu1) ... Setting up cernlib-base (20061220+dfsg3-4.4) ... Setting up xutils-dev (1:7.7+5ubuntu1) ... Setting up cfortran (20110621-1build1) ... Setting up libuchardet0:arm64 (0.0.6-3) ... Setting up fonts-lmodern (2.004.5-6) ... Setting up libsub-override-perl (0.09-2) ... Setting up libharfbuzz0b:arm64 (2.6.4-1ubuntu1) ... Setting up cernlib-base-dev (20061220+dfsg3-4.4) ... Setting up libbsd0:arm64 (0.10.0-1) ... Setting up libelf1:arm64 (0.176-1.1) ... Setting up libxml2:arm64 (2.9.4+dfsg1-8ubuntu1) ... Setting up xdg-utils (1.1.3-1ubuntu2) ... Setting up libblas-dev:arm64 (3.9.0-1) ... update-alternatives: using /usr/lib/aarch64-linux-gnu/blas/libblas.so to provide /usr/lib/aarch64-linux-gnu/libblas.so (libblas.so-aarch64-linux-gnu) in auto mode Setting up libsynctex2:arm64 (2019.20190605.51237-3) ... Setting up libfile-stripnondeterminism-perl (1.6.3-1) ... Setting up libpaper1:arm64 (1.1.28) ... Creating config file /etc/papersize with new version Setting up libice6:arm64 (2:1.0.10-0ubuntu1) ... Setting up libxdmcp6:arm64 (1:1.1.3-0ubuntu1) ... Setting up liblapack3:arm64 (3.9.0-1) ... update-alternatives: using /usr/lib/aarch64-linux-gnu/lapack/liblapack.so.3 to provide /usr/lib/aarch64-linux-gnu/liblapack.so.3 (liblapack.so.3-aarch64-linux-gnu) in auto mode Setting up libxcb1:arm64 (1.13.1-2) ... Setting up libharfbuzz-icu0:arm64 (2.6.4-1ubuntu1) ... Setting up libtool (2.4.6-11) ... Setting up libxcb-render0:arm64 (1.13.1-2) ... Setting up fontconfig-config (2.13.1-2ubuntu2) ... Setting up libgfortran-9-dev:arm64 (9.2.1-21ubuntu1) ... Setting up m4 (1.4.18-4) ... Setting up libxcb-shm0:arm64 (1.13.1-2) ... Setting up libpaper-utils (1.1.28) ... Setting up tex-common (6.13) ... update-language: texlive-base not installed and configured, doing nothing! Setting up libptexenc1:arm64 (2019.20190605.51237-3) ... Setting up bsdmainutils (11.1.2ubuntu2) ... update-alternatives: using /usr/bin/bsd-write to provide /usr/bin/write (write) in auto mode update-alternatives: using /usr/bin/bsd-from to provide /usr/bin/from (from) in auto mode Setting up liblapack-dev:arm64 (3.9.0-1) ... update-alternatives: using /usr/lib/aarch64-linux-gnu/lapack/liblapack.so to provide /usr/lib/aarch64-linux-gnu/liblapack.so (liblapack.so-aarch64-linux-gnu) in auto mode Setting up libcroco3:arm64 (0.6.13-1) ... Setting up autoconf (2.69-11ubuntu1) ... Setting up libkernlib1-gfortran:arm64 (20061220+dfsg3-4.4) ... Setting up dh-strip-nondeterminism (1.6.3-1) ... Setting up dwz (0.13-5) ... Setting up groff-base (1.22.4-4) ... Setting up libx11-6:arm64 (2:1.6.8-1) ... Setting up libfontconfig1:arm64 (2.13.1-2ubuntu2) ... Setting up libsm6:arm64 (2:1.2.3-1) ... Setting up automake (1:1.16.1-4ubuntu3) ... update-alternatives: using /usr/bin/automake-1.16 to provide /usr/bin/automake (automake) in auto mode Setting up gettext (0.19.8.1-10) ... Setting up libxpm4:arm64 (1:3.5.12-1) ... Setting up libxrender1:arm64 (1:0.9.10-1) ... Setting up gfortran-9 (9.2.1-21ubuntu1) ... Setting up libxext6:arm64 (2:1.3.4-0ubuntu1) ... Setting up man-db (2.9.0-2) ... Not building database; man-db/auto-update is not 'true'. Created symlink /etc/systemd/system/timers.target.wants/man-db.timer → /lib/systemd/system/man-db.timer. Setting up gfortran (4:9.2.1-3.1ubuntu1) ... update-alternatives: using /usr/bin/gfortran to provide /usr/bin/f95 (f95) in auto mode update-alternatives: using /usr/bin/gfortran to provide /usr/bin/f77 (f77) in auto mode Setting up libcairo2:arm64 (1.16.0-4ubuntu1) ... Setting up libkernlib1-dev (20061220+dfsg3-4.4) ... Setting up intltool-debian (0.35.0+20060710.5) ... Setting up libxt6:arm64 (1:1.1.5-1) ... Setting up libpacklib1-gfortran:arm64 (20061220+dfsg3-4.4) ... Setting up libxmu6:arm64 (2:1.1.3-0ubuntu1) ... Setting up libxi6:arm64 (2:1.7.10-0ubuntu1) ... Setting up libpacklib1-dev (20061220+dfsg3-4.4) ... Setting up libmathlib2-gfortran:arm64 (20061220+dfsg3-4.4) ... Setting up po-debconf (1.0.21) ... Setting up libxaw7:arm64 (2:1.0.13-1) ... Setting up texlive-binaries (2019.20190605.51237-3) ... update-alternatives: using /usr/bin/xdvi-xaw to provide /usr/bin/xdvi.bin (xdvi.bin) in auto mode update-alternatives: using /usr/bin/bibtex.original to provide /usr/bin/bibtex (bibtex) in auto mode Setting up texlive-base (2019.20191208-4) ... tl-paper: setting paper size for dvips to a4: /var/lib/texmf/dvips/config/config-paper.ps tl-paper: setting paper size for dvipdfmx to a4: /var/lib/texmf/dvipdfmx/dvipdfmx-paper.cfg tl-paper: setting paper size for xdvi to a4: /var/lib/texmf/xdvi/XDvi-paper tl-paper: setting paper size for pdftex to a4: /var/lib/texmf/tex/generic/config/pdftexconfig.tex Setting up libmathlib2-dev (20061220+dfsg3-4.4) ... Setting up texlive-latex-base (2019.20191208-4) ... Setting up dh-autoreconf (19) ... Setting up debhelper (12.7.1ubuntu1) ... Setting up sbuild-build-depends-mclibs-dummy (0.invalid.0) ... Processing triggers for libc-bin (2.30-0ubuntu3) ... Processing triggers for systemd (244-3ubuntu1) ... Processing triggers for tex-common (6.13) ... Running updmap-sys. This may take some time... done. Running mktexlsr /var/lib/texmf ... done. Building format(s) --all. This may take some time... done. +------------------------------------------------------------------------------+ | Build environment | +------------------------------------------------------------------------------+ Kernel: Linux 4.4.0-170-generic arm64 (aarch64) Toolchain package versions: binutils_2.33.1-6ubuntu3 dpkg-dev_1.19.7ubuntu2 g++-9_9.2.1-21ubuntu1 gcc-9_9.2.1-21ubuntu1 libc6-dev_2.30-0ubuntu3 libstdc++-9-dev_9.2.1-21ubuntu1 libstdc++6_9.2.1-21ubuntu1 linux-libc-dev_5.3.0-24.26 Package versions: adduser_3.118ubuntu1 advancecomp_2.1-2.1 apt_1.9.5 autoconf_2.69-11ubuntu1 automake_1:1.16.1-4ubuntu3 autopoint_0.19.8.1-10 autotools-dev_20180224.1 base-files_11ubuntu2 base-passwd_3.5.47 bash_5.0-5ubuntu1 binutils_2.33.1-6ubuntu3 binutils-aarch64-linux-gnu_2.33.1-6ubuntu3 binutils-common_2.33.1-6ubuntu3 bsdmainutils_11.1.2ubuntu2 bsdutils_1:2.34-0.1ubuntu4 build-essential_12.8ubuntu1 bzip2_1.0.8-2 ca-certificates_20190110 cernlib-base_20061220+dfsg3-4.4 cernlib-base-dev_20061220+dfsg3-4.4 cfortran_20110621-1build1 coreutils_8.30-3ubuntu2 cpp_4:9.2.1-3.1ubuntu1 cpp-9_9.2.1-21ubuntu1 dash_0.5.10.2-6 debconf_1.5.73 debhelper_12.7.1ubuntu1 debianutils_4.9.1 dh-autoreconf_19 dh-strip-nondeterminism_1.6.3-1 diffutils_1:3.7-3 dpkg_1.19.7ubuntu2 dpkg-dev_1.19.7ubuntu2 dwz_0.13-5 e2fsprogs_1.45.3-4ubuntu2 fakeroot_1.24-1 fdisk_2.34-0.1ubuntu4 file_1:5.37-6 findutils_4.6.0+git+20190209-2ubuntu1 fontconfig-config_2.13.1-2ubuntu2 fonts-dejavu-core_2.37-1 fonts-lmodern_2.004.5-6 g++_4:9.2.1-3.1ubuntu1 g++-9_9.2.1-21ubuntu1 gcc_4:9.2.1-3.1ubuntu1 gcc-9_9.2.1-21ubuntu1 gcc-9-base_9.2.1-21ubuntu1 gettext_0.19.8.1-10 gettext-base_0.19.8.1-10 gfortran_4:9.2.1-3.1ubuntu1 gfortran-9_9.2.1-21ubuntu1 gpg_2.2.17-3ubuntu1 gpg-agent_2.2.17-3ubuntu1 gpgconf_2.2.17-3ubuntu1 gpgv_2.2.17-3ubuntu1 grep_3.3-1build1 groff-base_1.22.4-4 gzip_1.10-0ubuntu4 hostname_3.23 init_1.57 init-system-helpers_1.57 intltool-debian_0.35.0+20060710.5 libacl1_2.2.53-5ubuntu1 libapparmor1_2.13.3-7ubuntu1 libapt-pkg5.90_1.9.5 libarchive-zip-perl_1.67-1 libargon2-1_0~20171227-0.2 libasan5_9.2.1-21ubuntu1 libassuan0_2.5.3-7ubuntu1 libatomic1_9.2.1-21ubuntu1 libattr1_1:2.4.48-5 libaudit-common_1:2.8.5-2ubuntu5 libaudit1_1:2.8.5-2ubuntu5 libbinutils_2.33.1-6ubuntu3 libblas-dev_3.9.0-1 libblas3_3.9.0-1 libblkid1_2.34-0.1ubuntu4 libbsd0_0.10.0-1 libbz2-1.0_1.0.8-2 libc-bin_2.30-0ubuntu3 libc-dev-bin_2.30-0ubuntu3 libc6_2.30-0ubuntu3 libc6-dev_2.30-0ubuntu3 libcairo2_1.16.0-4ubuntu1 libcap-ng0_0.7.9-2.1 libcap2_1:2.27-1 libcc1-0_9.2.1-21ubuntu1 libcom-err2_1.45.3-4ubuntu2 libcroco3_0.6.13-1 libcryptsetup12_2:2.2.2-1ubuntu1 libdb5.3_5.3.28+dfsg1-0.6ubuntu1 libdebconfclient0_0.250ubuntu2 libdebhelper-perl_12.7.1ubuntu1 libdevmapper1.02.1_2:1.02.155-2ubuntu7 libdpkg-perl_1.19.7ubuntu2 libelf1_0.176-1.1 libexpat1_2.2.9-1 libext2fs2_1.45.3-4ubuntu2 libfakeroot_1.24-1 libfdisk1_2.34-0.1ubuntu4 libffi6_3.2.1-9 libfile-stripnondeterminism-perl_1.6.3-1 libfontconfig1_2.13.1-2ubuntu2 libfreetype6_2.10.1-2 libgcc-9-dev_9.2.1-21ubuntu1 libgcc1_1:9.2.1-21ubuntu1 libgcrypt20_1.8.5-3ubuntu1 libgdbm-compat4_1.18.1-5 libgdbm6_1.18.1-5 libgfortran-9-dev_9.2.1-21ubuntu1 libgfortran5_9.2.1-21ubuntu1 libglib2.0-0_2.63.3-1 libgmp10_2:6.1.2+dfsg-4 libgnutls30_3.6.11.1-2 libgomp1_9.2.1-21ubuntu1 libgpg-error0_1.36-7 libgraphite2-3_1.3.13-11 libharfbuzz-icu0_2.6.4-1ubuntu1 libharfbuzz0b_2.6.4-1ubuntu1 libhogweed4_3.4.1-1 libhogweed5_3.5.1+really3.5.1-2 libice6_2:1.0.10-0ubuntu1 libicu63_63.2-2 libidn2-0_2.2.0-2 libip4tc2_1.8.3-2ubuntu5 libisl21_0.21-2 libisl22_0.22-2 libitm1_9.2.1-21ubuntu1 libjson-c4_0.13.1+dfsg-6 libkernlib1-dev_20061220+dfsg3-4.4 libkernlib1-gfortran_20061220+dfsg3-4.4 libkmod2_26-3ubuntu1 libkpathsea6_2019.20190605.51237-3 liblapack-dev_3.9.0-1 liblapack3_3.9.0-1 liblockfile-bin_1.16-1.1 liblockfile1_1.16-1.1 liblsan0_9.2.1-21ubuntu1 liblz4-1_1.9.2-2 liblzma5_5.2.4-1 libmagic-mgc_1:5.37-6 libmagic1_1:5.37-6 libmathlib2-dev_20061220+dfsg3-4.4 libmathlib2-gfortran_20061220+dfsg3-4.4 libmount1_2.34-0.1ubuntu4 libmpc3_1.1.0-1 libmpfr6_4.0.2-1 libncurses6_6.1+20191019-1ubuntu1 libncursesw6_6.1+20191019-1ubuntu1 libnettle6_3.4.1-1 libnettle7_3.5.1+really3.5.1-2 libnpth0_1.6-1 libp11-kit0_0.23.18.1-2 libpacklib1-dev_20061220+dfsg3-4.4 libpacklib1-gfortran_20061220+dfsg3-4.4 libpam-modules_1.3.1-5ubuntu4 libpam-modules-bin_1.3.1-5ubuntu4 libpam-runtime_1.3.1-5ubuntu4 libpam0g_1.3.1-5ubuntu4 libpaper-utils_1.1.28 libpaper1_1.1.28 libpcre2-8-0_10.34-7 libpcre3_2:8.39-12 libperl5.28_5.28.1-6build1 libperl5.30_5.30.0-9 libpipeline1_1.5.1-3 libpixman-1-0_0.38.4-0ubuntu1 libpng16-16_1.6.37-1 libprocps7_2:3.3.15-2ubuntu3 libptexenc1_2019.20190605.51237-3 libreadline8_8.0-3 libseccomp2_2.4.2-2ubuntu1 libselinux1_3.0-1 libsemanage-common_3.0-1 libsemanage1_3.0-1 libsepol1_3.0-1 libsigsegv2_2.12-2 libsm6_2:1.2.3-1 libsmartcols1_2.34-0.1ubuntu4 libsqlite3-0_3.30.1-1ubuntu1 libss2_1.45.3-4ubuntu2 libssl1.1_1.1.1c-1ubuntu4 libstdc++-9-dev_9.2.1-21ubuntu1 libstdc++6_9.2.1-21ubuntu1 libsub-override-perl_0.09-2 libsynctex2_2019.20190605.51237-3 libsystemd0_244-3ubuntu1 libtasn1-6_4.15.0-2 libteckit0_2.5.8+ds2-5ubuntu1 libtexlua53_2019.20190605.51237-3 libtinfo6_6.1+20191019-1ubuntu1 libtool_2.4.6-11 libtsan0_9.2.1-21ubuntu1 libubsan1_9.2.1-21ubuntu1 libuchardet0_0.0.6-3 libudev1_244-3ubuntu1 libunistring2_0.9.10-2 libuuid1_2.34-0.1ubuntu4 libx11-6_2:1.6.8-1 libx11-data_2:1.6.8-1 libxau6_1:1.0.9-0ubuntu1 libxaw7_2:1.0.13-1 libxcb-render0_1.13.1-2 libxcb-shm0_1.13.1-2 libxcb1_1.13.1-2 libxdmcp6_1:1.1.3-0ubuntu1 libxext6_2:1.3.4-0ubuntu1 libxi6_2:1.7.10-0ubuntu1 libxml2_2.9.4+dfsg1-8ubuntu1 libxmu6_2:1.1.3-0ubuntu1 libxpm4_1:3.5.12-1 libxrender1_1:0.9.10-1 libxt6_1:1.1.5-1 libzstd1_1.4.4+dfsg-1 libzzip-0-13_0.13.62-3.2 linux-libc-dev_5.3.0-24.26 lockfile-progs_0.1.18 login_1:4.5-1.1ubuntu4 logsave_1.45.3-4ubuntu2 lsb-base_11.1.0ubuntu2 m4_1.4.18-4 make_4.2.1-1.2 man-db_2.9.0-2 mawk_1.3.3-17ubuntu3 mount_2.34-0.1ubuntu4 ncurses-base_6.1+20191019-1ubuntu1 ncurses-bin_6.1+20191019-1ubuntu1 openssl_1.1.1c-1ubuntu4 optipng_0.7.7-1 passwd_1:4.5-1.1ubuntu4 patch_2.7.6-6 perl_5.30.0-9 perl-base_5.30.0-9 perl-modules-5.28_5.28.1-6build1 perl-modules-5.30_5.30.0-9 pinentry-curses_1.1.0-3 pkgbinarymangler_144 po-debconf_1.0.21 policyrcd-script-zg2_0.1-3 procps_2:3.3.15-2ubuntu3 readline-common_8.0-3 sbuild-build-depends-core-dummy_0.invalid.0 sbuild-build-depends-mclibs-dummy_0.invalid.0 sed_4.7-1 sensible-utils_0.0.12+nmu1 systemd_244-3ubuntu1 systemd-sysv_244-3ubuntu1 sysvinit-utils_2.96-1ubuntu1 t1utils_1.41-3 tar_1.30+dfsg-6 tex-common_6.13 texlive-base_2019.20191208-4 texlive-binaries_2019.20190605.51237-3 texlive-latex-base_2019.20191208-4 tzdata_2019c-3 ubuntu-keyring_2018.09.18.1 ucf_3.0038+nmu1 util-linux_2.34-0.1ubuntu4 x11-common_1:7.7+19ubuntu12 xdg-utils_1.1.3-1ubuntu2 xutils-dev_1:7.7+5ubuntu1 xz-utils_5.2.4-1 zlib1g_1:1.2.11.dfsg-1ubuntu3 +------------------------------------------------------------------------------+ | Build | +------------------------------------------------------------------------------+ Unpack source ------------- gpgv: Signature made Mon Mar 11 06:21:48 2019 UTC gpgv: using RSA key 25E3FF2D7F469DBE7D0D4E50AFCFEC8E669CE1C2 gpgv: Can't check signature: No public key dpkg-source: warning: failed to verify signature on ./mclibs_20061220+dfsg3-3.1build3.dsc dpkg-source: info: extracting mclibs in mclibs-20061220+dfsg3 dpkg-source: info: unpacking mclibs_20061220+dfsg3.orig.tar.gz dpkg-source: info: unpacking mclibs_20061220+dfsg3-3.1build3.debian.tar.xz Check disc space ---------------- Sufficient free space for build User Environment ---------------- APT_CONFIG=/var/lib/sbuild/apt.conf DEB_BUILD_OPTIONS=noautodbgsym parallel=4 HOME=/sbuild-nonexistent LANG=C.UTF-8 LC_ALL=C.UTF-8 LOGNAME=buildd PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games SCHROOT_ALIAS_NAME=build-PACKAGEBUILD-18328613 SCHROOT_CHROOT_NAME=build-PACKAGEBUILD-18328613 SCHROOT_COMMAND=env SCHROOT_GID=2501 SCHROOT_GROUP=buildd SCHROOT_SESSION_ID=build-PACKAGEBUILD-18328613 SCHROOT_UID=2001 SCHROOT_USER=buildd SHELL=/bin/sh TERM=unknown USER=buildd V=1 dpkg-buildpackage ----------------- dpkg-buildpackage: info: source package mclibs dpkg-buildpackage: info: source version 20061220+dfsg3-3.1build3 dpkg-buildpackage: info: source distribution disco dpkg-source --before-build . dpkg-buildpackage: info: host architecture arm64 fakeroot debian/rules clean cp -f debian/add-ons/Makefile . dh_testdir dh_testroot make[1]: Entering directory '/<>/mclibs-20061220+dfsg3' # Move this back so reverse patch doesn't fail mv -f src/include/cfortran/cfortran.h.disabled \ src/include/cfortran/cfortran.h mv: cannot stat 'src/include/cfortran/cfortran.h.disabled': No such file or directory make[1]: [/usr/share/cernlib/cernlib-debian.mk:143: unpatch-clean] Error 1 (ignored) make[1]: Leaving directory '/<>/mclibs-20061220+dfsg3' /usr/bin/make prefix=/usr clean make[1]: Entering directory '/<>/mclibs-20061220+dfsg3' rm -rf stampdir src doc bin lib shlib build 200? rm -f /<>/mclibs-20061220+dfsg3/debian/patches/9[0-9][0-9]*.dpatch make[1]: Leaving directory '/<>/mclibs-20061220+dfsg3' rm -f Makefile debian/add-ons/bin/kuipc rm -f debian/control.new rm -rf upstream/200? rm -rf debian/tmp/ find . -name higz_windows.dat -o -name last.kumac \ -o -name last.kumacold -o -name paw.metafile | xargs rm -f rm -rf lib*.txt libdeps/ bindeps/ # clean up output of makedeplist rm -rf .texmf-var # clean up TeX font cache dh_clean dh_clean: Compatibility levels before 9 are deprecated (level 5 in use) # Remove symlinks to debhelper snippets: find debian -maxdepth 1 -type l | xargs rm -f # Regenerate debian/patches/00list: cd debian/patches && ls -1 *.dpatch > 00list # Make sure scripts are executable (but not READMEs): chmod a+x debian/add-ons/bin/[a-z]* chmod: cannot access 'debian/add-ons/bin/[a-z]*': No such file or directory make: [/usr/share/cernlib/cernlib-debian.mk:166: clean] Error 1 (ignored) chmod a+x debian/add-ons/scripts/[a-z]* chmod: cannot access 'debian/add-ons/scripts/[a-z]*': No such file or directory make: [/usr/share/cernlib/cernlib-debian.mk:167: clean] Error 1 (ignored) debian/rules build-arch cp -f debian/add-ons/Makefile . dh_testdir # Check that the debian/control that would be autogenerated # matches the existing one. If not, fail out. /usr/bin/make -f debian/rules debian/control.new make[1]: Entering directory '/<>/mclibs-20061220+dfsg3' cat debian/control.d/0base.control debian/control.d/cernlib-montecarlo.control debian/control.d/libcojets2-dev.control debian/control.d/libcojets2-gfortran.control debian/control.d/libeurodec1-dev.control debian/control.d/libeurodec1-gfortran.control debian/control.d/libherwig59-2-dev.control debian/control.d/libherwig59-2-gfortran.control debian/control.d/libisajet758-3-dev.control debian/control.d/libisajet758-3-gfortran.control debian/control.d/libpdflib804-2-dev.control debian/control.d/libpdflib804-2-gfortran.control debian/control.d/libphotos202-1-gfortran.control debian/control.d/libphotos202-dev.control debian/control.d/libphtools2-dev.control debian/control.d/libphtools2-gfortran.control debian/control.d/montecarlo-base.control debian/control.d/montecarlo-data.control > debian/control.new make[1]: Leaving directory '/<>/mclibs-20061220+dfsg3' [ -s debian/control ] || exit 1 [ -s debian/control.new ] || exit 1 [ -z "`diff debian/control debian/control.new`" ] || exit 1 /usr/bin/make prefix=/usr mandir=/usr/share/man sysconfdir=/etc \ LOCAL_DEFINES='-DCERNLIB_VERBOSE -DCERNLIB_DEBIAN -DDEBIAN_VERSION=\"20061220+dfsg3-3.1build3\" -DCERNLIB_QGETCWD' stampdir/configure-stamp make[1]: Entering directory '/<>/mclibs-20061220+dfsg3' if [ -d /<>/mclibs-20061220+dfsg3/debian/add-ons/bin ] ; then chmod a+x /<>/mclibs-20061220+dfsg3/debian/add-ons/bin/* ; fi for x in /<>/mclibs-20061220+dfsg3/upstream/src_*.tar.gz ; do tar xzf $x ; done # get rid of the needless extra directory whose name changes yearly mv /<>/mclibs-20061220+dfsg3/2006/src /<>/mclibs-20061220+dfsg3/ rmdir /<>/mclibs-20061220+dfsg3/2006 # get rid of the CVS directories find /<>/mclibs-20061220+dfsg3/src/ -name CVS | xargs rm -rf # symlink in config directory if not already there set -e ; \ if [ ! -d "/<>/mclibs-20061220+dfsg3/src/config" ] ; then \ if [ ! -d "/usr/share/cernlib/config" ] ; then \ echo "Cannot find required /usr/share/cernlib/config!";\ exit 1 ; \ fi ; \ mkdir /<>/mclibs-20061220+dfsg3/src/config ; \ for file in /usr/share/cernlib/config/* ; do \ ln -s $file /<>/mclibs-20061220+dfsg3/src/config/ ; \ done ; \ fi mkdir -p stampdir touch stampdir/gunzip-stamp # Add various patches to the patch directory based on environment # variable options for patch in `ls -1 /<>/mclibs-20061220+dfsg3/debian/patches/*.dpatch.in 2> /dev/null`; do \ sed -e 's,@PREFIX@,/usr,g' -e 's,@DATADIR@,/usr/share,g' \ -e 's,@MULTIARCH@,aarch64-linux-gnu,g' \ $patch > ${patch%.in} ; \ chmod a+x ${patch%.in} ; \ done # Set other options in src/config/host.def rm -f /<>/mclibs-20061220+dfsg3/src/config/host.def echo '#define CernlibLocalDefines -DCERNLIB_VERBOSE -DCERNLIB_DEBIAN -DDEBIAN_VERSION=\"20061220+dfsg3-3.1build3\" -DCERNLIB_QGETCWD' >> \ /<>/mclibs-20061220+dfsg3/src/config/host.def echo '#define InstPgmFlags -s' >> /<>/mclibs-20061220+dfsg3/src/config/host.def echo '#define Hasgfortran YES' >> /<>/mclibs-20061220+dfsg3/src/config/host.def /usr/bin/make cernlib-configure-local make[2]: Entering directory '/<>/mclibs-20061220+dfsg3' make[2]: Nothing to be done for 'cernlib-configure-local'. make[2]: Leaving directory '/<>/mclibs-20061220+dfsg3' mkdir -p stampdir touch stampdir/configure-stamp make[1]: Leaving directory '/<>/mclibs-20061220+dfsg3' # A hacky way to use dpatch without actually necessarily # having it installed. Patches whose name ends in .sh.dpatch # are really shell scripts. Applying patch 002-fix-missing-mclibs... Applying patch 100-fix-isajet-manual-corruption... Applying patch 101-undefine-PPC... Applying patch 102-dont-optimize-some-code... Applying patch 204-compile-isajet-with-isasrt... Applying patch 206-herwig-uses-DBLE-not-REAL... Applying patch 210-improve-cfortran-header-files... Applying patch 213-fix-test-suite-build... Applying patch 220-compile-isajet-with-isarun... Applying patch 221-use-double-in-hepevt... Applying patch 305-use-POWERPC-not-PPC-as-test... Applying patch 306-patch-assert.h-for-makedepend... Applying patch 307-use-canonical-cfortran... Applying patch 309-define-dummy-herwig-routines... Applying patch 310-define-dummy-fowl-routines... Applying patch 312-skip-duplicate-gamma... Applying patch 315-fixes-for-MacOSX... Applying patch 321-support-gfortran... Applying patch 802-create-shared-libraries... Applying patch 806-bump-mathlib-and-dependents-sonames... Applying patch 807-static-link-some-tests-on-64-bit... mkdir -p stampdir touch stampdir/patch-stamp dh_testdir # create local LaTeX cache dir mkdir -p .texmf-var # force use of system cfortran.h since we Build-Depend upon it mv -f src/include/cfortran/cfortran.h \ src/include/cfortran/cfortran.h.disabled /usr/bin/make prefix=/usr mandir=/usr/share/man sysconfdir=/etc \ LOCAL_DEFINES='-DCERNLIB_VERBOSE -DCERNLIB_DEBIAN -DDEBIAN_VERSION=\"20061220+dfsg3-3.1build3\" -DCERNLIB_QGETCWD' cernlib-arch make[1]: Entering directory '/<>/mclibs-20061220+dfsg3' [ -e stampdir/cernlib-arch-stamp ] || \ /usr/bin/make cernlib-libraries cernlib-programs cernlib-arch-local make[2]: Entering directory '/<>/mclibs-20061220+dfsg3' mkdir -p /<>/mclibs-20061220+dfsg3/build/log cd /<>/mclibs-20061220+dfsg3/build && /<>/mclibs-20061220+dfsg3/src/config/imake_boot set -e ; \ for package in cfortran mclibs phtools ; do \ if [ -d /<>/mclibs-20061220+dfsg3/src/$package ] ; then \ cd /<>/mclibs-20061220+dfsg3/build/ && /usr/bin/make MAKEOVERRIDES= \ $package/Makefile ; \ fi ; \ done make[3]: Entering directory '/<>/mclibs-20061220+dfsg3/build' making Makefiles in /cfortran... make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3/build' make[3]: Entering directory '/<>/mclibs-20061220+dfsg3/build' making Makefiles in /mclibs... make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3/build' make[3]: Entering directory '/<>/mclibs-20061220+dfsg3/build' making Makefiles in /phtools... make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3/build' /usr/bin/make cernlib-setup-local make[3]: Entering directory '/<>/mclibs-20061220+dfsg3' make[3]: Nothing to be done for 'cernlib-setup-local'. make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3' set -e ; \ for package in mclibs phtools ; do \ if [ -d /<>/mclibs-20061220+dfsg3/src/$package ] ; then \ cd /<>/mclibs-20061220+dfsg3/build/$package && /usr/bin/make \ MAKEOVERRIDES= install.lib ; \ if [ "Linux" = Linux ] ; then \ cd /<>/mclibs-20061220+dfsg3/build/$package && /usr/bin/make \ MAKEOVERRIDES= install.shlib ; \ fi ; \ fi ; \ done ; \ for file in /<>/mclibs-20061220+dfsg3/lib/lib*-shift.a ; do \ if [ -L $file ] ; then rm -f $file ; fi ; \ done make[3]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs' making Makefiles in /mclibs/cojets... making Makefiles in /mclibs/eurodec... making Makefiles in /mclibs/pdf... making Makefiles in /mclibs/photos... making Makefiles in /mclibs/herwig... making Makefiles in /mclibs/isajet... installing in /mclibs/cojets... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets' making Makefiles in /mclibs/cojets/code... making Makefiles in /mclibs/cojets/cojdata... making Makefiles in /mclibs/cojets/cojtapew... checking /mclibs/cojets/code make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/code' makedepend archive/ zpsqz.F makedepend archive/ zlimsy.F makedepend archive/ zlim.F makedepend archive/ zgens.F makedepend archive/ zgen.F makedepend archive/ zdecif.F makedepend archive/ zdecay.F makedepend archive/ zdang.F makedepend archive/ z0rad.F makedepend archive/ x1exp.F makedepend archive/ writeh.F makedepend archive/ writeb.F makedepend archive/ wrad.F makedepend archive/ wpsqz.F makedepend archive/ wpardn.F makedepend archive/ weakin.F makedepend archive/ wdecif.F makedepend archive/ wdecay.F makedepend archive/ wdang.F makedepend archive/ topdcy.F makedepend archive/ timelf.F makedepend archive/ tevol.F makedepend archive/ tbook.F makedepend archive/ tbkisa.F makedepend archive/ tables.F makedepend archive/ stopd.F makedepend archive/ stabph.F makedepend archive/ stabkp.F makedepend archive/ spectj.F makedepend archive/ shocas.F makedepend archive/ sblock.F makedepend archive/ rotqua.F makedepend archive/ rotjet.F makedepend archive/ reorsl.F makedepend archive/ readtb.F makedepend archive/ readin.F makedepend archive/ q2gen.F makedepend archive/ ptwgt.F makedepend archive/ psqgen.F makedepend archive/ prhead.F makedepend archive/ pregen.F makedepend archive/ partab.F makedepend archive/ papint.F makedepend archive/ p4corr.F makedepend archive/ overdm.F makedepend archive/ mpscat.F makedepend archive/ movlev.F makedepend archive/ mnbias.F makedepend archive/ match.F makedepend archive/ lorlab.F makedepend archive/ loren4.F makedepend archive/ looseq.F makedepend archive/ listph.F makedepend archive/ list.F makedepend archive/ label.F makedepend archive/ krcomb.F makedepend archive/ kno.F makedepend archive/ jtbook.F makedepend archive/ jetqcd.F makedepend archive/ jetgen.F makedepend archive/ jetcor.F makedepend archive/ jdentf.F makedepend archive/ intid.F makedepend archive/ inset.F makedepend archive/ inqcds.F makedepend archive/ inpart.F makedepend archive/ iniqcd.F makedepend archive/ idgen.F makedepend archive/ idext.F makedepend archive/ hgeven.F makedepend archive/ heavyq.F makedepend archive/ headh.F makedepend archive/ headb.F makedepend archive/ hard.F makedepend archive/ hadron.F makedepend archive/ gsplit.F makedepend archive/ grot.F makedepend archive/ gexin.F makedepend archive/ gevent.F makedepend archive/ geqsq.F makedepend archive/ gepair.F makedepend archive/ gefla.F makedepend archive/ gecode.F makedepend archive/ fusion.F makedepend archive/ fun3.F makedepend archive/ fun2.F makedepend archive/ fun1.F makedepend archive/ freeze.F makedepend archive/ framul.F makedepend archive/ forpre.F makedepend archive/ forcsl.F makedepend archive/ force.F makedepend archive/ fmuldg.F makedepend archive/ fmul.F makedepend archive/ flavex.F makedepend archive/ fiqrk.F makedepend archive/ findx.F makedepend archive/ fillhd.F makedepend archive/ fillbo.F makedepend archive/ figlu.F makedepend archive/ fglu.F makedepend archive/ fevinj.F makedepend archive/ fevinb.F makedepend archive/ f2in.F makedepend archive/ evol.F makedepend archive/ eicht2.F makedepend archive/ eicht1.F makedepend archive/ editp.F makedepend archive/ dumpev.F makedepend archive/ dshvq.F makedepend archive/ dshvg.F makedepend archive/ dsexq.F makedepend archive/ dsexg.F makedepend archive/ dsdt.F makedepend archive/ dreyin.F makedepend archive/ dqhnid.F makedepend archive/ dqhid.F makedepend archive/ dqhfsi.F makedepend archive/ dmatch.F makedepend archive/ decay.F makedepend archive/ ddang.F makedepend archive/ cojets.F makedepend archive/ cjrn.F makedepend archive/ cjeb.F makedepend archive/ chdec.F makedepend archive/ charge.F makedepend archive/ bwidth.F makedepend archive/ bradlp.F makedepend archive/ bpregn.F makedepend archive/ boso.F makedepend archive/ book.F makedepend archive/ bmcorr.F makedepend archive/ blept.F makedepend archive/ bkweig.F makedepend archive/ bjets.F makedepend archive/ bgpair.F makedepend archive/ bgexin.F makedepend archive/ bgeven.F makedepend archive/ bgefla.F makedepend archive/ bevint.F makedepend archive/ bevber.F makedepend archive/ betaeu.F makedepend archive/ bdecay.F makedepend archive/ bboost.F makedepend archive/ baryo.F makedepend archive/ atan2x.F makedepend archive/ asimp.F makedepend archive/ amass.F makedepend archive/ alias.F makedepend archive/ acosx.F gfortran acosx.F gfortran alias.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/alias.F:34:72: 34 | IF(S(I)-1.) 2,1,5 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran amass.F gfortran asimp.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/asimp.F:84:72: 84 | IF(DIFF-EPS*DELTA)6,6,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/asimp.F:85:72: 85 | 3 IF(LVL-30)4,2,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/asimp.F:86:72: 86 | 6 IF(LVL-1)2,4,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/asimp.F:114:72: 114 | IF(LVL-1)5,5,9 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran atan2x.F gfortran baryo.F gfortran bboost.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:37:72: 37 | 11 V1(J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:41:72: 41 | 12 PARHAD(NPART,J)=V2(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:48:72: 48 | 31 V1(J)=PFLABV(J,I,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:51:72: 51 | 32 PFLABV(J,I,1)=V2(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:60:72: 60 | 20 PARHAD(I,7)=-ABS(IORIG(I))/IPACK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:67:72: 67 | 27 PARQUA(IQ,J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 27 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:71:72: 71 | 29 PARQUA(IQ,J)=PARQUA(IQ,J)+PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 29 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:82:72: 82 | 40 JDCAY(JQ)=-JDCAY(JQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:87:72: 87 | 41 PJSET(J,JQ)=PARQUA(IQ,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:102:72: 102 | 44 PJSET(J,JQ)=PJSET(J,JQ1)+PJSET(J,JQ2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 44 at (1) gfortran bdecay.F gfortran betaeu.F gfortran bevber.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevber.F:32:72: 32 | DO 1 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevber.F:33:72: 33 | 1 PFLABV(J,I,1)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevber.F:42:72: 42 | 52 PFLABV(J,2,1)=P(3,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 52 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevber.F:47:72: 47 | 54 PFLABV(J,2,1)=P(3,J)+P(2,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 54 at (1) gfortran bevint.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevint.F:25:72: 25 | DO 1 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevint.F:26:72: 26 | 1 PFLABV(J,L,1)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevint.F:32:72: 32 | 5 PFLABV(J,1,1)=PFLABV(J,1,1)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevint.F:36:72: 36 | 6 PFLABV(J,2,1)=PFLABV(J,2,1)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) gfortran bgefla.F gfortran bgeven.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:76:72: 76 | 12 IBACK(IB)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:170:72: 170 | 14 CBR1(LL+12)=BRW(LL) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:173:72: 173 | 15 CBR1(LL+12)=CBR1(LL+12)+CBR1(LL+11) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:175:72: 175 | 16 CBR1(LL+12)=CBR1(LL+12)/CBR1(18) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:235:72: 235 | 18 CBR1(LXF)=CBR1(LXF)+CBR1(LXF-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:237:72: 237 | 19 CBR1(LXF)=CBR1(LXF)/CBR1(12) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1) gfortran bgexin.F gfortran bgpair.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgpair.F:34:72: 34 | DO 8 J=6,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 8 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgpair.F:35:72: 35 | 8 TBXGEN(IX)=TBXGEN(IX)+TABQRK(IX,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 8 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgpair.F:38:72: 38 | 7 TBXT=TBXT+TBXGEN(IX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgpair.F:40:72: 40 | 6 TBXAL(IX)=TBXGEN(IX)/TBXT | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgpair.F:44:72: 44 | 5 TBXGEN(IX)=TBXGEN(IX)+TBXGEN(IX-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) gfortran bjets.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bjets.F:135:72: 135 | 42 IF(INT(PARHAD(I,7)).LE.NQUA1) NP1=NP1+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 42 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bjets.F:142:72: 142 | DO 51 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 51 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bjets.F:143:72: 143 | 51 P(IK,J)=PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) gfortran bkweig.F gfortran blept.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/blept.F:39:72: 39 | 10 K(I,2)=KDP(IDC,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/blept.F:79:72: 79 | DO 16 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 16 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/blept.F:80:72: 80 | 16 PFLABV(J,I,1)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/blept.F:85:72: 85 | 51 K(I,1)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) gfortran bmcorr.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bmcorr.F:28:72: 28 | 2 IF(IDB(K(I,2)).LE.0) PJTOTS(1,J)=PJTOTS(1,J)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bmcorr.F:31:72: 31 | 3 IF(IDB(K(I,2)).LE.0) PJTOTS(2,J)=PJTOTS(2,J)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bmcorr.F:83:72: 83 | 6 SINHBJ(I)=.5*(EXPB-1./EXPB) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) gfortran book.F gfortran boso.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/boso.F:77:72: 77 | 1 PARHAD(NPART,J)=PBOS(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/boso.F:90:72: 90 | DO 16 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 16 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/boso.F:91:72: 91 | 16 PFLABV(J,I,1)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) gfortran bpregn.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:193:72: 193 | DO 24 LL=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 24 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:194:72: 194 | 24 SZF(LL,LL2,13)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 24 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:237:72: 237 | 25 SZF(LL,LI,13)=SZF(LL,LI,13)+FCOLRS*SZF(LL,LI,LXF) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:360:72: 360 | DO 8 IX=2,NBIN | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 8 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:374:72: 374 | DO 1 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:379:72: 379 | 10 WGQ=WGQ+TABQRK(IX,6) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:393:72: 393 | 13 WGG=WGG+TABQRK(IX,7) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) gfortran bradlp.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:57:72: 57 | DO 1 J2=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:61:72: 61 | 1 +FSIGN*4.*AL(1)*BL(1)*AQ(J1)*BQ(J1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:155:72: 155 | 108 K(I,2)=1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 108 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:160:72: 160 | 109 P(I,2)=-P1*SG+P2*CG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 109 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:180:72: 180 | 136 K(I,2)=1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 136 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:199:72: 199 | 139 P(I,2)=-P1*SG+P2*CG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 139 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:236:72: 236 | 168 K(I,2)=1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 168 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:241:72: 241 | 169 P(I,2)=-P1*SG+P2*CG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 169 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:307:72: 307 | 202 P(NP,J)=QP(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 202 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:312:72: 312 | 204 P(2,J)=QK(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 204 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:343:72: 343 | 233 P(NP,J)=FCH*QE(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 233 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:349:72: 349 | 237 P(2,J)=-P(1,J)-P(3,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 237 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:370:72: 370 | 413 IDCAY(IP)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 413 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:387:72: 387 | 460 K(I,1)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 460 at (1) gfortran bwidth.F gfortran charge.F gfortran chdec.F gfortran cjeb.F gfortran cjrn.F gfortran cojets.F gfortran ddang.F gfortran decay.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:97:72: 97 | 130 IFLR(J)=IFLQ(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:106:72: 106 | 140 IFLR(IQ)=-IFLN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:133:72: 133 | 160 PSUM=PSUM+P(I1,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:160:72: 160 | 190 P(I+1,J)=P(IPD,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:164:72: 164 | 200 PM(1,J)=P(IPD,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:188:72: 188 | 210 WTMAX=WTMAX*PAWT(PMAX,PMIN,P(I+IL,5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:200:72: 200 | 230 RND(IL2+1)=RND(IL2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:201:72: 201 | 240 RND(IL2+1)=RAN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:209:72: 209 | 250 WT=WT*PAWT(PM(IL,5),PM(IL+1,5),P(I+IL,5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:223:72: 223 | 270 PM(IL+1,J)=-PA*U(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:225:72: 225 | 280 PM(IL+1,4)=SQRT(PA**2+PM(IL+1,5)**2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:228:72: 228 | 290 P(I+ND,J)=PM(ND,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:234:72: 234 | 300 BE(J)=PM(IL,J)/PM(IL,4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:238:72: 238 | DO 320 I1=I1LW,I1UP | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:241:72: 241 | 310 P(I1,J)=P(I1,J)+GA*(GA/(1.+GA)*BEP+P(I1,4))*BE(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:242:72: 242 | 320 P(I1,4)=GA*(P(I1,4)+BEP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:261:72: 261 | 331 K(I+L,1)=-IPD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 331 at (1) gfortran dmatch.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dmatch.F:29:72: 29 | 115 MDEC(L)=KFORCE(L+1,NR) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) gfortran dqhfsi.F gfortran dqhid.F gfortran dqhnid.F gfortran dreyin.F gfortran dsdt.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dsdt.F:27:72: 27 | 1 WFDSDT(L)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dsdt.F:69:72: 69 | 36 WTDSDT=WTDSDT+WFDSDT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 36 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dsdt.F:94:72: 94 | 56 WTDSDT=WTDSDT+WFDSDT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 56 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dsdt.F:169:72: 169 | 436 WTDSDT=WTDSDT+WFDSDT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 436 at (1) gfortran dsexg.F gfortran dsexq.F gfortran dshvg.F gfortran dshvq.F gfortran dumpev.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dumpev.F:121:72: 121 | 201 PBOS(J)=P4LABV(J,NML) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dumpev.F:208:72: 208 | 32 IQMX=IQ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) gfortran editp.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/editp.F:43:72: 43 | 120 P(N1,J)=PJTOT(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/editp.F:46:72: 46 | 130 PR(J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/editp.F:47:72: 47 | DO 140 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/editp.F:48:72: 48 | 140 P(I,J)=ROT(J,1)*PR(1)+ROT(J,2)*PR(2)+ROT(J,3)*PR(3) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/editp.F:50:72: 50 | 121 PJTOT(J)=P(N1,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 121 at (1) gfortran eicht1.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:149:72: 149 | DO 1 M2=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:150:72: 150 | 1 TM(M1,M2)=TMM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:156:72: 156 | DO 2 M2=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:188:72: 188 | DO 101 MQ=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 101 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:189:72: 189 | 101 EICHT1=EICHT1+C(MX,MQ,IP)*TCX(MX)*TCQ(MQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 101 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:199:72: 199 | DO 201 MQ=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:200:72: 200 | 201 EICHT1=EICHT1+D(MX,MQ,IP)*TCX(MX)*TCQ(MQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran eicht2.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:149:72: 149 | DO 1 M2=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:150:72: 150 | 1 TM(M1,M2)=TMM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:156:72: 156 | DO 2 M2=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:188:72: 188 | DO 101 MQ=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 101 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:189:72: 189 | 101 EICHT2=EICHT2+C(MX,MQ,IP)*TCX(MX)*TCQ(MQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 101 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:199:72: 199 | DO 201 MQ=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:200:72: 200 | 201 EICHT2=EICHT2+D(MX,MQ,IP)*TCX(MX)*TCQ(MQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran evol.F gfortran f2in.F gfortran fevinb.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/fevinb.F:52:72: 52 | 11 P4LABV(M,1)=PBOS(M) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) gfortran fevinj.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/fevinj.F:61:72: 61 | 11 PFLABV(M,2,1)=PF2(M) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/fevinj.F:91:72: 91 | 21 PFLABV(M,2,1)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) gfortran fglu.F gfortran figlu.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/figlu.F:31:72: 31 | 1 FIGLU=FIGLU+PAPINT(3,ZUP)-PAPINT(3,ZLW) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) gfortran fillbo.F gfortran fillhd.F gfortran findx.F gfortran fiqrk.F gfortran flavex.F gfortran fmul.F gfortran fmuldg.F gfortran force.F gfortran forcsl.F gfortran forpre.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/forpre.F:86:72: 86 | 115 KFORCE(1,N)=ABS(KFORCE(1,N)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/forpre.F:148:72: 148 | *BRXFSL=MIN(REAL(BRXFSL),REAL(MOD(RDECAY(IP),1.))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 207 at (1) gfortran framul.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/framul.F:32:72: 32 | 1 TVKNO=TVKNO+VKNO(M) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/framul.F:34:72: 34 | 2 VKNO(M)=VKNO(M)/TVKNO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran freeze.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:41:72: 41 | 41 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:43:72: 43 | 42 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 42 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:50:72: 50 | 51 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:52:72: 52 | 52 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 52 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:59:72: 59 | 61 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:61:72: 61 | 62 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 62 at (1) gfortran fun1.F gfortran fun2.F gfortran fun3.F gfortran fusion.F gfortran gecode.F gfortran gefla.F gfortran gepair.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:34:72: 34 | 7 TABQRK(IX,J)=TABQRK(IX-1,J)+TABQRK(IX,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:40:72: 40 | 1 WQQ(J)=WGQV(J)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:42:72: 42 | 2 WQQ(J)=WQQ(J)+WQQ(J-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:44:72: 44 | 3 WQQ(J)=WQQ(J)/WQQ(6) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:47:72: 47 | 6 WQAQ(JN)=WGQV(J)*WGQV(J+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:54:72: 54 | 4 WGQV(J)=WGQV(J)+WGQV(J-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:56:72: 56 | 5 WGQV(J)=WGQV(J)/WGQV(6) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) gfortran geqsq.F gfortran gevent.F gfortran gexin.F gfortran grot.F gfortran gsplit.F gfortran hadron.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hadron.F:123:72: 123 | 42 PARHAD(IH1,J)=P(IH,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 42 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hadron.F:146:72: 146 | 200 PMBIAS(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hadron.F:151:72: 151 | DO 201 IH=1,NPART | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hadron.F:152:72: 152 | 201 IF(IDCAY(IH).EQ.0) PMBIAS(J)=PMBIAS(J)-PARHAD(IH,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran hard.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hard.F:90:72: 90 | 10 PCMV2(J)=-PCMV1(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hard.F:96:72: 96 | 30 PFTOT(J)=PF1(J)+PF2(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran headb.F gfortran headh.F gfortran heavyq.F gfortran hgeven.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hgeven.F:97:72: 97 | 12 IBACK(IB)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hgeven.F:163:72: 163 | 216 WGV(1,L)=WFDSDT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 216 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hgeven.F:166:72: 166 | 217 WGV(2,L)=WFDSDT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 217 at (1) gfortran idext.F gfortran idgen.F gfortran iniqcd.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/iniqcd.F:46:72: 46 | 1 QTHRSQ(L)=(QZ+QZFL(L))**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) gfortran inpart.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:42:72: 42 | DO 8 IX=2,NBIN | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 8 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:56:72: 56 | DO 1 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:61:72: 61 | 10 WGQ=WGQ+TABQRK(IX,6) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:65:72: 65 | 3 AQLIAS=AQLIAS+TQLIAS(IX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:67:72: 67 | 6 TQLIAS(IX)=TQLIAS(IX)/AQLIAS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:82:72: 82 | 13 WGG=WGG+TABQRK(IX,7) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:86:72: 86 | 5 AGLIAS=AGLIAS+TGLIAS(IX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:88:72: 88 | 7 TGLIAS(IX)=TGLIAS(IX)/AGLIAS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran inqcds.F gfortran inset.F gfortran intid.F gfortran jdentf.F gfortran jetcor.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/jetcor.F:27:72: 27 | 1 PJTOT(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/jetcor.F:31:72: 31 | 3 PJTOT(J)=PJTOT(J)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) gfortran jetgen.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/jetgen.F:63:72: 63 | 11 TTG=TTG+TG(IG) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/jetgen.F:65:72: 65 | 12 TG(IG)=TG(IG)/TTG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/jetgen.F:69:72: 69 | 13 LGV(IG,JG)=LG(IG) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) gfortran jetqcd.F gfortran jtbook.F gfortran kno.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:45:72: 45 | 11 TBPAIR(M)=RPAIR(M)+TBPAIR(M-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:47:72: 47 | 12 TBPAIR(M)=TBPAIR(M)/TBPAIR(9) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:103:72: 103 | 25 TMASS=TMASS+PARHAD(I,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:134:72: 134 | 82 SUM(J)=SUM(J)+PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 82 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:137:72: 137 | 83 PARHAD(I,J)=PARHAD(I,J)-SUM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 83 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:144:72: 144 | 85 TMTOT=TMTOT+TMV(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 85 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:217:72: 217 | 72 TMV(I)=1. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 72 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:237:72: 237 | DO 76 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 76 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:238:72: 238 | 76 P(IP,J)=PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 76 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:244:72: 244 | DO 77 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 77 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:245:72: 245 | 77 PARHAD(I,J)=P(IP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 77 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:277:72: 277 | 79 PARHAD(NH+I,J)=V1(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 79 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:290:72: 290 | 202 P(I,J)=PARHAD(M,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 202 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:309:72: 309 | 205 PARHAD(NPART,J)=P(M,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1) gfortran krcomb.F gfortran label.F gfortran list.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/list.F:51:72: 51 | 100 IF(K(I,1).LE.0) WRITE(ITLIS,130) I, IC1, C2, C3, (P(I,J), J=1,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran listph.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/listph.F:33:72: 33 | 10 PV(J)=PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran looseq.F gfortran loren4.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/loren4.F:24:72: 24 | 1 BETA(J)=PMB(J)/PMB(4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/loren4.F:27:72: 27 | 4 GABETA(J)=GA*BETA(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/loren4.F:32:72: 32 | 2 V2(J)=V1(J)+(GA1GA*BEP+V1(4))*GABETA(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran lorlab.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/lorlab.F:44:72: 44 | 1 AM(J)=-A(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/lorlab.F:74:72: 74 | 191 PM(J)=PIN(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 191 at (1) gfortran match.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/match.F:68:72: 68 | 91 PARACT(IN,1,IB)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 91 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/match.F:76:72: 76 | 93 PARACT(JC,L,IB)=PARACT(J,L,IB) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 93 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/match.F:175:72: 175 | 251 PARACT(IN,1,IB)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 251 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/match.F:183:72: 183 | 253 PARACT(JC,L,IB)=PARACT(J,L,IB) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 253 at (1) gfortran mnbias.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/mnbias.F:86:72: 86 | 11 PMB(J)=PMBIAS(J)-(PARHAD(NPART,J)+PARHAD(NPART-1,J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/mnbias.F:99:72: 99 | 111 V1(J)=PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 111 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/mnbias.F:103:72: 103 | 112 PARHAD(I,J)=V2(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 112 at (1) gfortran movlev.F gfortran mpscat.F gfortran overdm.F gfortran p4corr.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/p4corr.F:30:72: 30 | 82 SUM(J)=SUM(J)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 82 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/p4corr.F:31:72: 31 | 81 SUM(J)=SUM(J)/NP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 81 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/p4corr.F:35:72: 35 | 84 P(I,J)=P(I,J)-SUM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 84 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/p4corr.F:46:72: 46 | 85 SUM4=SUM4+P(I,4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 85 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/p4corr.F:51:72: 51 | 86 SUM3=SUM3+ABS(P(I,3)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 86 at (1) gfortran papint.F gfortran partab.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:57:72: 57 | DO 21 K=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:58:72: 58 | DO 21 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:70:72: 70 | DO 31 K=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:71:72: 71 | DO 31 J=1,K | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:72:72: 72 | DO 31 I=1,J | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:87:72: 87 | *WRITE(ITLIS,100) ID,CHA2(INTC),PMAS(INTC),LCHARG(INTC),INTC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:116:72: 116 | 211 IF(KFORCE(L,I).NE.0) LX=L | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 211 at (1) gfortran pregen.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:90:72: 90 | 5 Q2VECT(I1)=EXP((ALQI+DALQ*FLOAT(I))*ALQZM+ALLAM2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:102:72: 102 | 3 THRFLA(L)=4.*AM2HEV(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:120:72: 120 | DO 6 J2=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:121:72: 121 | DO 6 J3=1,NALQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:122:72: 122 | 6 WGALQ(J3,J2,J1)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:124:72: 124 | 7 WGALQT(N)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:140:72: 140 | DO 100 ICH=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:166:72: 166 | DO 102 N=1,NALQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 102 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:182:72: 182 | DO 104 N=1,NALQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 104 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:183:72: 183 | 104 SIGHRD=SIGHRD+WGALQ(N,IW,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 104 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:192:72: 192 | DO 103 IW=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 103 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:196:72: 196 | 103 WGTPT=WGTPT+WGALQ(N,IW,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 103 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:205:72: 205 | DO 120 IW=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:221:72: 221 | 180 WGALQT(N)=WGALQT(N)+WGALQT(N-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:224:72: 224 | 190 WGALQT(N)=WGALQT(N)/WGALQT(NALQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:227:72: 227 | DO 200 N=1,NALQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:231:72: 231 | DO 201 N=1,NALQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:232:72: 232 | 201 WGALQ(N,IW,3)=WGALQ(N,IW,3)/WGALQ3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran prhead.F gfortran psqgen.F gfortran ptwgt.F gfortran q2gen.F gfortran readin.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:516:72: 516 | 56 RDECAY(IL)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 56 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:521:72: 521 | 98 MDEC(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 98 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:528:72: 528 | 57 KFORCE(L,NFORCE)=MDEC(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 57 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:806:72: 806 | DO 69 L2=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 69 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:807:0: 807 | IF(CMIX(L1,L2).GE.0..AND.CMIX(L1,L2).LE.1.) GO TO 69 | Warning: iteration 2 invokes undefined behavior [-Waggressive-loop-optimizations] /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:806:0: 806 | DO 69 L2=1,6 | note: within this loop gfortran readtb.F gfortran reorsl.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/reorsl.F:30:72: 30 | 1 IF(LDA.GT.16.OR.LDA.LT.11) GO TO 10 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) gfortran rotjet.F gfortran rotqua.F gfortran sblock.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:185:72: 185 | 1 CBR(L)=CBR(L)+CBR(L-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:188:72: 188 | 2 CBR(L)=CBR(L)/CBR(12) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:206:72: 206 | 3 CBR(L)=CBR(L)+CBR(L-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:209:72: 209 | 4 CBR(L)=CBR(L)/CBR(18) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:214:72: 214 | DO 21 L1=1,18 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:215:72: 215 | 21 KDP(L1,L2)=KDP2(L1,L2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:217:72: 217 | DO 22 L1=1,18 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 22 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:218:72: 218 | 22 KDP(L1,L2)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:249:72: 249 | 18 Q2QUA(L)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:252:72: 252 | 17 Q2QUA(L)=(QMAS(L))**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 17 at (1) gfortran shocas.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/shocas.F:31:72: 31 | 100 WRITE(ITLIS,130) I,K(I,1),C2,C3,(P(I,J),J=1,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran spectj.F gfortran stabkp.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/stabkp.F:30:72: 30 | 100 P(I1,J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran stabph.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/stabph.F:43:72: 43 | 2 PARHAD(IP,J)=PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran stopd.F gfortran tables.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/tables.F:28:72: 28 | 1 IF(2.*(QZ+QZMASS(L)).LT.ECM) NFLAX=L | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/tables.F:55:72: 55 | 1 +TABPSQ(KFLA,I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/tables.F:63:72: 63 | 1 +TABPSQ(KFLA,I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) gfortran tbkisa.F gfortran tbook.F gfortran tevol.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/tevol.F:67:72: 67 | 7 SETIN(L)=PARSPE(MBK,L,IB) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran timelf.F gfortran topdcy.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:179:72: 179 | 3 PBOS(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:181:72: 181 | DO 4 IF=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:182:72: 182 | 4 NPIF(L,IF)=NPART+L | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:234:72: 234 | DO 7 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 7 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:235:72: 235 | 7 PARHAD(NTOPD(I),J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:241:72: 241 | 9 PARHAD(NTOPD(1),J)=P(1,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:254:72: 254 | 10 PARHAD(IP,J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:256:72: 256 | 13 PARHAD(IP,7)=PARHAD(NTOP,7) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:259:72: 259 | 8 PARHAD(NTOPD(2),J)=P(2,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 8 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:284:72: 284 | 70 PARHAD(IP,J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:286:72: 286 | 73 PARHAD(IP,7)=PARHAD(NTOP,7) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 73 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:306:72: 306 | DO 14 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 14 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:307:72: 307 | 14 PARHAD(IP,J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:317:72: 317 | DO 15 I=NPI,NPF | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:318:72: 318 | 15 IF(IDCAY(I).EQ.0) V1(J)=V1(J)+PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:366:72: 366 | DO 19 I=NPI,NPF | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 19 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:367:72: 367 | 19 IF(IDCAY(I).EQ.0) V1(J)=V1(J)+PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:403:72: 403 | 32 PARHAD(NPL,J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:407:72: 407 | 33 PARHAD(NPL,J)=PARHAD(NPL,J)+PARHAD(IP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 33 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:426:72: 426 | 21 PBOOST(J)=PARHAD(NTOP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:430:72: 430 | 23 V1(J)=PARHAD(IP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:443:72: 443 | 24 PARHAD(IP,J)=V2(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 24 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:459:72: 459 | 92 P(MP,J)=PARHAD(IPD,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 92 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:487:72: 487 | 95 P(MP,J)=PARHAD(IP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:504:72: 504 | 86 PARHAD(IP,J)=P(M,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 86 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:538:72: 538 | 41 PARQUA(NQ,J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:546:72: 546 | 43 PARQUA(NQ,J)=PARQUA(NQ,J)+PARHAD(IP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 43 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:553:72: 553 | 44 PJSET(J,JQ)=PARQUA(NQ,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 44 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:557:72: 557 | 55 JDCAY(JQ)=-ABS(JDCAY(JQ)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 55 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:570:72: 570 | 54 PJSET(J,JQ)=PJSET(J,JQ1)+PJSET(J,JQ2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 54 at (1) gfortran wdang.F gfortran wdecay.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/wdecay.F:125:72: 125 | 3 QK(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/wdecay.F:191:72: 191 | 6 QE(I)= -QN(I) - QK(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/wdecay.F:203:72: 203 | 7 QE(I)=EB*QE(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran wdecif.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/wdecif.F:38:72: 38 | 10 QKS(J)=QK(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran weakin.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/weakin.F:89:72: 89 | 20 IF(RDECAY(L).EQ.0.) IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran wpardn.F gfortran wpsqz.F gfortran wrad.F gfortran writeb.F gfortran writeh.F gfortran x1exp.F gfortran z0rad.F gfortran zdang.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdang.F:45:72: 45 | 6 CASYM(LI,LF)=ASYM(AQ(LI),BQ(LI),AL(LF),BL(LF)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdang.F:47:72: 47 | 7 CASYM(LI,LF)=ASYM(AQ(LI),BQ(LI),AQ(LF-2),BQ(LF-2)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran zdecay.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdecay.F:151:72: 151 | 4 QM(I)=-QP(I)-QK(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdecay.F:179:72: 179 | 5 QM(I)=-QP(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdecay.F:181:72: 181 | 6 QK(I)=0.D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdecay.F:186:72: 186 | 7 QK(I)=EB*QK(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran zdecif.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdecif.F:43:72: 43 | 10 QKS(J)=QK(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran zgen.F gfortran zgens.F gfortran zlim.F gfortran zlimsy.F gfortran zpsqz.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/code' checking /mclibs/cojets/cojdata make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/cojdata' makedepend archive/ data.F makedepend archive/ cojver.F gfortran cojver.F gfortran data.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/cojdata' checking /mclibs/cojets/cojtapew make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/cojtapew' makedepend archive/ wrtape.F makedepend archive/ wrend.F makedepend archive/ wrbeg.F makedepend archive/ wgens.F makedepend archive/ pptcl.F makedepend archive/ outh.F makedepend archive/ isjtqf.F makedepend archive/ isjtpf.F makedepend archive/ isbosf.F makedepend archive/ ichcnv.F makedepend archive/ fillh.F makedepend archive/ edit.F makedepend archive/ bufout.F makedepend archive/ bookh.F gfortran bookh.F gfortran bufout.F gfortran edit.F gfortran fillh.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:78:72: 78 | DO 30 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:79:72: 79 | 30 PJETS(J,LJ)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:81:72: 81 | 36 IDJETS(JT)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 36 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:90:72: 90 | 13 PJETS(J,JT)=PJETS(J,JT)+PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:98:72: 98 | 14 PJETS(J,JT)=PJETS(J,JT)+PJSET(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:114:72: 114 | 15 QWJET(J)=P4LABV(J,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:196:72: 196 | 2 INITYP(I)=ISJTQF(IFINGV(I,1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:199:72: 199 | 3 PBEAMS(J)=PMBIAS(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:202:72: 202 | 16 PBEAMS(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) gfortran ichcnv.F gfortran isbosf.F gfortran isjtpf.F gfortran isjtqf.F gfortran outh.F gfortran pptcl.F gfortran wgens.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wgens.F:63:72: 63 | 990 IF(IDCAY(I).EQ.0) NPSTA=NPSTA+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 990 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wgens.F:139:72: 139 | 995 ZEVEL(IL+J-1)=PARHAD(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 995 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wgens.F:154:72: 154 | 996 ZEVEL(IL+J-1)=PARHAD(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 996 at (1) gfortran wrbeg.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:44:72: 44 | 200 ZEVEL(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:63:72: 63 | DO 11 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:65:72: 65 | 11 IL=IL+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:76:72: 76 | 12 IL=IL+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:119:72: 119 | 21 CALL ICHCNV(CHA2(L),IL,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:123:72: 123 | 22 CALL ICHCNV(CHA2(L),IL,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:125:72: 125 | 23 CALL ICHCNV(CHA3(L),IL,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:127:72: 127 | DO 24 L1=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 24 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:128:72: 128 | 24 CALL ICHCNV(CHA4(L1,L2),IL,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 24 at (1) gfortran wrend.F gfortran wrtape.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/cojtapew' rebuild archive library libcojets.a in /mclibs/cojets Sun Jan 5 13:33:25 UTC 2020 Sun Jan 5 13:33:25 UTC 2020 ranlib libcojets.a + mkdirhier /<>/mclibs-20061220+dfsg3/lib install -c -m 0644 libcojets.a /<>/mclibs-20061220+dfsg3/lib/libcojets.a ranlib /<>/mclibs-20061220+dfsg3/lib/libcojets.a rm -f libcojets.a ln -s /<>/mclibs-20061220+dfsg3/lib/libcojets.a libcojets.a making Makefiles in /mclibs/cojets/data... Makeing cojets.dat in /mclibs/cojets/data... make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/data' cp /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/data/cojets.cpp cojets.s cp /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/data/table.cpp table.cin cp /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/data/decay.cpp decay.cin rm -f cojets.dat /lib/cpp -traditional -D_FORTIFY_SOURCE=2 -E -traditional cojets.s | sed -e '/^# *[0-9][0-9]* *.*$/d' -e '/^XCOMM$/s//#/' -e '/^XCOMM[^a-zA-Z0-9_]/s/^XCOMM/#/' -e '/^# [0-9][0-9]/d' -e '/^#line /d' >cojets.dat cp cojets.dat /<>/mclibs-20061220+dfsg3/build/mclibs/cojets/cojets.dat make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/data' rm -f /<>/mclibs-20061220+dfsg3/lib/cojets.dat install -c -m 0444 cojets.dat /<>/mclibs-20061220+dfsg3/lib/cojets.dat make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets' installing in /mclibs/eurodec... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec' making Makefiles in /mclibs/eurodec/decays... making Makefiles in /mclibs/eurodec/eudini... making Makefiles in /mclibs/eurodec/fragmt... making Makefiles in /mclibs/eurodec/supdec... checking /mclibs/eurodec/decays make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/decays' makedepend archive/ wadkro.F makedepend archive/ vmina.F makedepend archive/ virhvy.F makedepend archive/ vecpar.F makedepend archive/ triang.F makedepend archive/ tauvec.F makedepend archive/ tausca.F makedepend archive/ parfra.F makedepend archive/ pardec.F makedepend archive/ onisqd.F makedepend archive/ oni3g.F makedepend archive/ oni2g.F makedepend archive/ onh0ga.F makedepend archive/ ongqbq.F makedepend archive/ on2gga.F makedepend archive/ omephi.F makedepend archive/ jets.F makedepend archive/ fermi.F makedepend archive/ dot.F makedepend archive/ decays.F makedepend archive/ dalitz.F makedepend archive/ ampvec.F makedepend archive/ a1vec.F gfortran a1vec.F gfortran ampvec.F gfortran dalitz.F gfortran decays.F gfortran dot.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/dot.F:26:72: 26 | 10 DPHAD2(J)=PTEIL(J,I2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran fermi.F gfortran jets.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/jets.F:59:72: 59 | 10 PHA(J,NPART)=PTEIL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/jets.F:61:72: 61 | & (NPART))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/jets.F:96:72: 96 | 40 PHA(J,1)=PTEIL(J,IP1)-PSPECT(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/jets.F:131:72: 131 | 80 PHA(J,NPART)=PTEIL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) gfortran omephi.F gfortran on2gga.F gfortran ongqbq.F gfortran onh0ga.F gfortran oni2g.F gfortran oni3g.F gfortran onisqd.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/onisqd.F:27:72: 27 | 10 PTOP(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/onisqd.F:29:72: 29 | DO 20 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/onisqd.F:30:72: 30 | 20 PTOP(J)=PTOP(J)+PTEIL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran pardec.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:61:72: 61 | 30 PTEIL(I,NTPNH)=PTEIL(I,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:75:72: 75 | 40 SECVTX(J,NTPNH)=SECVTX(J,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:79:72: 79 | 50 SECVTX(J,NTPNH)=SECVTX(J,IP)+CT*PTEIL(J,IP)/SQRT(PVEC) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:85:72: 85 | 60 SECVTX(J,NTPNH)=SECVTX(J,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:142:72: 142 | 100 SUMM=SUMM+PTEIL(5,NTPI) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:149:72: 149 | 110 PHAD(J,1)=PTEIL(J,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:192:72: 192 | 130 SUMM2=SUMM2-PTEIL(5,NTPI+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:204:72: 204 | 150 RORD(IMJP1)=RORD(IMJ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:205:72: 205 | 160 RORD(IMJP1)=RNEW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:212:72: 212 | 170 WT=WT*TRIANG(PHAD(5,I-1),PHAD(5,I),PTEIL(5,NTEIL+I-1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:228:72: 228 | 190 PHAD(J,I+1)=-PTEIL(J,NTPI) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:230:72: 230 | 200 PHAD(4,I+1)=SQRT(TWOCM**2+PHAD(5,I+1)**2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:232:72: 232 | 210 PTEIL(J,NTPNH)=PHAD(J,NHAD) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:241:72: 241 | 220 BET(J)=PHAD(J,NHADMI)/PHAD(5,NHADMI) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:249:72: 249 | & /(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:250:72: 250 | 240 PTEIL(4,NTPJ)=GAM*PTEIL(4,NTPJ)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:255:72: 255 | 260 ITHEL(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:352:72: 352 | 270 SECVER(J)=SECVTX(J,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:356:72: 356 | 280 SECVER(J)=SECVTX(J,IP)+CT*PTEIL(J,IP)/SQRT(PVEC) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:362:72: 362 | 290 SECVER(J)=SECVTX(J,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:402:72: 402 | 310 IDCAYT(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:408:72: 408 | 320 IF (ABS(INDEXT(I)).LT.90) NJETS=NJETS+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:422:72: 422 | 330 BET(J)=PHAD(J,1)/PHAD(5,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:427:72: 427 | 340 PTEIL(J,I)=PTEIL(J,I)+BET(J)*(PTEIL(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:428:72: 428 | 350 PTEIL(4,I)=GAM*PTEIL(4,I)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:432:72: 432 | DO 360 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 360 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:433:72: 433 | 360 SECVTX(J,I)=SECVER(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) gfortran parfra.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:31:72: 31 | 10 PBOOST(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:34:72: 34 | DO 20 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:35:72: 35 | 20 PBOOST(J)=PBOOST(J)-PHA(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:45:72: 45 | 30 BET(J)=PBOOST(J)/Q0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:50:72: 50 | 40 PHA(J,I)=PHA(J,I)+BET(J)*(PHA(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:52:72: 52 | 50 PHA(5,I)=SQRT(PHA(1,I)**2+PHA(2,I)**2+PHA(3,I)**2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:92:72: 92 | 70 IDCAYT(J)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:93:72: 93 | 80 IDCAYT(IPP(I)/10000)=NTP1*10000+NTPNT | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:106:72: 106 | 90 PTEIL(J,I)=PTEIL(J,I)-BET(J)*(PTEIL(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:107:72: 107 | 100 PTEIL(4,I)=GAM*PTEIL(4,I)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran tausca.F gfortran tauvec.F gfortran triang.F gfortran vecpar.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/vecpar.F:43:72: 43 | 10 BET(J)=-PTEIL(J,IOR)/PTEIL(5,IOR) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/vecpar.F:49:72: 49 | 20 PPAR(J)=PTEIL(J,IP)+BET(J)*(PTEIL(4,IP)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran virhvy.F gfortran vmina.F gfortran wadkro.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/decays' checking /mclibs/eurodec/eudini make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/eudini' makedepend archive/ wlqu.F makedepend archive/ whvy.F makedepend archive/ wglu.F makedepend archive/ toponi.F makedepend archive/ sqd.F makedepend archive/ ordbr.F makedepend archive/ nampoi.F makedepend archive/ invert.F makedepend archive/ inibrn.F makedepend archive/ idloc.F makedepend archive/ eudtit.F makedepend archive/ eudtab.F makedepend archive/ eudini.F makedepend archive/ eudcin.F makedepend archive/ brfrac.F makedepend archive/ amoni.F gfortran amoni.F gfortran brfrac.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/brfrac.F:52:72: 52 | 10 IF ((I.GT.3).AND.(I.LT.9)) AMEPS(I)=AMEPS(I)+FLOAT(I-3)*0.15 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/brfrac.F:69:72: 69 | 30 AMSUM=AMSUM+AM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/brfrac.F:141:72: 141 | 40 CALL INDNAM(IDC(J,I),PNAM(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/brfrac.F:162:72: 162 | 60 DBR(I)=DBR(I-1)+DBR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran eudcin.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudcin.F:100:72: 100 | 10 ICONV(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudcin.F:160:72: 160 | 20 IFRCM(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudcin.F:168:72: 168 | DO 30 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudcin.F:169:72: 169 | 30 PRIVTX(J,I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran eudini.F gfortran eudtab.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudtab.F:58:72: 58 | 15 IPPIDX(J)=IPPIDX(J-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudtab.F:116:72: 116 | 60 IDC(ND,I)=IEPS*IPC(IPOINT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran eudtit.F gfortran idloc.F gfortran inibrn.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/inibrn.F:118:72: 118 | 50 IMOD(K)=IMOD(K)+IIMOD(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/inibrn.F:176:72: 176 | 100 GGAM(I)=EFERM(I)*GG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran invert.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/invert.F:37:72: 37 | 10 CALL DFNPRE(WHVY,YHVY(1,I),XLOW,XHIGH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran nampoi.F gfortran ordbr.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/ordbr.F:31:72: 31 | 10 IDC(K,I)=IBUFCO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/ordbr.F:43:72: 43 | 40 DBR(I)=DBR(I-1)+DBR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sqd.F gfortran toponi.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/toponi.F:71:72: 71 | 20 AMSUM=AMSUM+AM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/toponi.F:200:72: 200 | 30 CALL INDNAM(IDC(J,I),PNAM(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/toponi.F:223:72: 223 | 50 DBR(I)=DBR(I-1)+DBR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran wglu.F gfortran whvy.F gfortran wlqu.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/eudini' checking /mclibs/eurodec/fragmt make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/fragmt' makedepend archive/ roter.F makedepend archive/ qjetfr.F makedepend archive/ ordstk.F makedepend archive/ meson.F makedepend archive/ iqqbar.F makedepend archive/ idiqrk.F makedepend archive/ ibaryn.F makedepend archive/ gjetfr.F makedepend archive/ fragmt.F makedepend archive/ finsho.F makedepend archive/ detvtx.F makedepend archive/ clrstk.F makedepend archive/ bwmass.F makedepend archive/ adjust.F gfortran adjust.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:28:72: 28 | 10 PBOOST(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:36:72: 36 | 20 PBOOST(J)=PBOOST(J)-PTEIL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:50:72: 50 | 40 BET(J)=PBOOST(J)/PBOOST(5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:56:72: 56 | 50 PTEIL(J,I)=PTEIL(J,I)+BET(J)*(PTEIL(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:64:72: 64 | &**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:97:72: 97 | 110 PTEIL(4,I)=PTEIL(4,I)+PTEIL(J,I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran bwmass.F gfortran clrstk.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/clrstk.F:28:72: 28 | DO 10 J=I+1,I2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/clrstk.F:83:72: 83 | 20 IF ((I.EQ.IREMOV(K)).OR.(J.EQ.IREMOV(K))) GOTO 30 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/clrstk.F:105:72: 105 | 40 IF ((I.EQ.IREMOV(K)).OR.(J.EQ.IREMOV(K))) GOTO 90 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/clrstk.F:134:72: 134 | 60 PTEIL(K,NTPOIN)=PHA(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/clrstk.F:164:72: 164 | 80 PTEIL(K,NTPOIN)=PHA(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) gfortran detvtx.F gfortran finsho.F gfortran fragmt.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:39:72: 39 | DO 10 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:40:72: 40 | 10 PRIVTX(J,I)=PRIVER(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:57:72: 57 | 30 PHA(J,NPART)=PCM(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:68:72: 68 | 40 PTEIL(J,NTEIL)=PCM(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:90:72: 90 | 50 PTEIL(K,NTEIL)=PTEIL(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:100:72: 100 | 60 PHA(K,NPART)=PTEIL(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:112:72: 112 | 90 PBOOST(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:117:72: 117 | DO 100 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:118:72: 118 | 100 PBOOST(J)=PBOOST(J)-PHA(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:124:72: 124 | DO 110 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:125:72: 125 | 110 PBOOST(J)=PBOOST(J)-PTEIL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:138:72: 138 | 120 BET(J)=PBOOST(J)/Q0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:143:72: 143 | 130 PHA(J,I)=PHA(J,I)+BET(J)*(PHA(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:145:72: 145 | 140 PHA(5,I)=SQRT((PHA(4,I)-AHM(I))*(PHA(4,I)+AHM(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:152:72: 152 | 150 PTEIL(J,I)=PTEIL(J,I)+BET(J)*(PTEIL(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:153:72: 153 | 160 PTEIL(4,I)=GAM*PTEIL(4,I)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:192:72: 192 | 180 IDCAYT(J)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:193:72: 193 | 190 IF (IPP(I).GT.0) IDCAYT(IPP(I)/10000)=NTP1*10000+NTEIL | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:213:72: 213 | 200 PTEIL(J,I)=PTEIL(J,I)-BET(J)*(PTEIL(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:214:72: 214 | 210 PTEIL(4,I)=GAM*PTEIL(4,I)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:220:72: 220 | DO 220 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:221:72: 221 | 220 SECVTX(J,I)=PRIVTX(J,IP1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) gfortran gjetfr.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/gjetfr.F:100:72: 100 | 50 PTEIL(J,NTPNT)=PHA(J,I1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/gjetfr.F:105:72: 105 | 60 PTEIL(J,NTPNT)=PHA(J,ILAST) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran ibaryn.F gfortran idiqrk.F gfortran iqqbar.F gfortran meson.F gfortran ordstk.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/ordstk.F:29:72: 29 | 20 IF (R.LE.L) IF (LEVEL) 80,80,10 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran qjetfr.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/qjetfr.F:121:72: 121 | 20 AMT2=AMT2+PTEIL(I,NTPNH)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/qjetfr.F:197:72: 197 | 50 CALL ROTER(CT,ST,CF,SF,PTEIL(1,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran roter.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/roter.F:32:72: 32 | 10 P(J)=ROT(J,1)*PX+ROT(J,2)*PY+ROT(J,3)*PZ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/fragmt' checking /mclibs/eurodec/supdec make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/supdec' makedepend archive/ rlego.F makedepend archive/ prtvtx.F makedepend archive/ prtevt.F makedepend archive/ pcharg.F makedepend archive/ ipdgeu.F makedepend archive/ indnam.F makedepend archive/ ieupdg.F makedepend archive/ eurrin.F makedepend archive/ eurran.F makedepend archive/ errord.F makedepend archive/ dgauss.F makedepend archive/ dfunrn.F makedepend archive/ dfnpre.F gfortran dfnpre.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/dfnpre.F:74:72: 74 | 30 X1=X | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/dfnpre.F:101:72: 101 | 70 F=FUNC(X) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) gfortran dfunrn.F gfortran dgauss.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/dgauss.F:51:72: 51 | 30 S8=S8+W(I)*(F(C1+U)+F(C1-U)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/dgauss.F:54:72: 54 | 40 S16=S16+W(I)*(F(C1+U)+F(C1-U)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran errord.F gfortran eurran.F gfortran eurrin.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/eurrin.F:44:72: 44 | 10 T=0.5*T | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/eurrin.F:45:72: 45 | 20 URAN(I)=S | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran ieupdg.F gfortran indnam.F gfortran ipdgeu.F gfortran pcharg.F gfortran prtevt.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtevt.F:38:72: 38 | 10 SUMVEC(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtevt.F:55:72: 55 | 20 SUMVEC(K)=SUMVEC(K)+PCM(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtevt.F:57:72: 57 | & IPHEL(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtevt.F:68:72: 68 | 40 SUMVEC(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtevt.F:90:72: 90 | 50 SUMVEC(K)=SUMVEC(K)+PTEIL(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran prtvtx.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtvtx.F:27:72: 27 | 10 DONE(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtvtx.F:33:72: 33 | 20 SECVER(J)=SECVTX(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran rlego.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/supdec' rebuild archive library libeurodec.a in /mclibs/eurodec Sun Jan 5 13:33:40 UTC 2020 Sun Jan 5 13:33:40 UTC 2020 ranlib libeurodec.a install -c -m 0644 libeurodec.a /<>/mclibs-20061220+dfsg3/lib/libeurodec.a ranlib /<>/mclibs-20061220+dfsg3/lib/libeurodec.a rm -f libeurodec.a ln -s /<>/mclibs-20061220+dfsg3/lib/libeurodec.a libeurodec.a making Makefiles in /mclibs/eurodec/data... Makeing eurodec.dat in /mclibs/eurodec/data... make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/data' cp /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/data/eurodec.dat /<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/eurodec.dat make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/data' rm -f /<>/mclibs-20061220+dfsg3/lib/eurodec.dat install -c -m 0444 eurodec.dat /<>/mclibs-20061220+dfsg3/lib/eurodec.dat make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec' installing in /mclibs/pdf... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf' making Makefiles in /mclibs/pdf/spdf... making Makefiles in /mclibs/pdf/npdf... checking /mclibs/pdf/spdf make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf/spdf' makedepend archive/ whit6q.F makedepend archive/ whit6g.F makedepend archive/ whit5q.F makedepend archive/ whit5g.F makedepend archive/ whit4q.F makedepend archive/ whit4g.F makedepend archive/ whit3q.F makedepend archive/ whit3g.F makedepend archive/ whit2q.F makedepend archive/ whit2g.F makedepend archive/ whit1q.F makedepend archive/ whit1g.F makedepend archive/ wate32.F makedepend archive/ valdis.F makedepend archive/ v3.F makedepend archive/ structp.F makedepend archive/ structm.F makedepend archive/ structf.F makedepend archive/ strucor.F makedepend archive/ struce.F makedepend archive/ strucb.F makedepend archive/ strpriv.F makedepend archive/ strowp2.F makedepend archive/ strowp1.F makedepend archive/ strmrs3.F makedepend archive/ strmrs2.F makedepend archive/ strmrs1.F makedepend archive/ strkbm.F makedepend archive/ strkb0o.F makedepend archive/ strkb05.F makedepend archive/ strkb04.F makedepend archive/ strkb03.F makedepend archive/ strkb02.F makedepend archive/ strkb0.F makedepend archive/ strh3ep.F makedepend archive/ strh3em.F makedepend archive/ strh3e.F makedepend archive/ strh3b3.F makedepend archive/ strh3b1.F makedepend archive/ strh3b.F makedepend archive/ strh2e.F makedepend archive/ strh2b.F makedepend archive/ strh1e.F makedepend archive/ strh1b.F makedepend archive/ strghr.F makedepend archive/ strdo2.F makedepend archive/ strdo1.F makedepend archive/ strcep.F makedepend archive/ srctq48.F makedepend archive/ srctq47.F makedepend archive/ srctq46.F makedepend archive/ srctq45.F makedepend archive/ strcbp.F makedepend archive/ strbep.F makedepend archive/ strbebc.F makedepend archive/ srctq26.F makedepend archive/ srctq25.F makedepend archive/ srctq24.F makedepend archive/ spctq53.F makedepend archive/ spctq51.F makedepend archive/ srctq23.F makedepend archive/ srctq22.F makedepend archive/ srctq21.F makedepend archive/ smrspi.F makedepend archive/ smrsp33.F makedepend archive/ smrsp32.F makedepend archive/ smrsp31.F makedepend archive/ sfwhi6.F makedepend archive/ sfwhi5.F makedepend archive/ sfwhi4.F makedepend archive/ sfwhi3.F makedepend archive/ sfwhi2.F makedepend archive/ sfwhi1.F makedepend archive/ sfsas24.F makedepend archive/ sfsas23.F makedepend archive/ sfsas22.F makedepend archive/ sfsas21.F makedepend archive/ sfsas14.F makedepend archive/ sfsas13.F makedepend archive/ sfsas12.F makedepend archive/ sfsas11.F makedepend archive/ sfmtu9.F makedepend archive/ sfmtu8.F makedepend archive/ sfmtu7.F makedepend archive/ sfmtu6.F makedepend archive/ sfmtu5.F makedepend archive/ sfmtu4.F makedepend archive/ sfmtu3.F makedepend archive/ sfmtu2.F makedepend archive/ sfmtu1.F makedepend archive/ sfmt11.F makedepend archive/ sfmt10.F makedepend archive/ sfmsr4.F makedepend archive/ sfmsr3.F makedepend archive/ sfmsr2.F makedepend archive/ sfmsr1.F makedepend archive/ sfmsjp.F makedepend archive/ sfms130.F makedepend archive/ sfms125.F makedepend archive/ sfms120.F makedepend archive/ sfms115.F makedepend archive/ sfms110.F makedepend archive/ sfms105.F makedepend archive/ sfmsqa.F makedepend archive/ sfmsfg.F makedepend archive/ sfmsfa.F makedepend archive/ sfmsbs0.F makedepend archive/ sfmsbh.F makedepend archive/ sfmsbdm.F makedepend archive/ sfmsbd0.F makedepend archive/ sfmsbb0.F makedepend archive/ sfmsba.F makedepend archive/ sfmsap.F makedepend archive/ sfmrsc3.F makedepend archive/ sfmrsc2.F makedepend archive/ sfmrsc1.F makedepend archive/ sfmrss0.F makedepend archive/ sfmrsj.F makedepend archive/ sfmrsg.F makedepend archive/ sfmrsdm.F makedepend archive/ sfmrsd0.F makedepend archive/ sfmrs_99d9.F makedepend archive/ sfmrs_99d8.F makedepend archive/ sfmrs_99d7.F makedepend archive/ sfmrs_99d6.F makedepend archive/ sfmrs_99d5.F makedepend archive/ sfmrs_99d4.F makedepend archive/ sfmrs_99d3.F makedepend archive/ sfmrs_99d2.F makedepend archive/ sfmrs_99d11.F makedepend archive/ sfmrs_99d10.F makedepend archive/ sfmrs_99d1.F makedepend archive/ sfmrs_99a9.F makedepend archive/ sfmrs_99a8.F makedepend archive/ sfmrs_99a7.F makedepend archive/ sfmrs_99a6.F makedepend archive/ sfmrs_99a5.F makedepend archive/ sfmrs_99a4.F makedepend archive/ sfmrs_99a3.F makedepend archive/ sfmrs_99a2.F makedepend archive/ sfmrs_99a12.F makedepend archive/ sfmrs_99a11.F makedepend archive/ sfmrs_99a10.F makedepend archive/ sfmrs_99a1.F makedepend archive/ sfmrs_98lo5.F makedepend archive/ sfmrs_98lo4.F makedepend archive/ sfmrs_98lo3.F makedepend archive/ sfmrs_98lo2.F makedepend archive/ sfmrs_98lo1.F makedepend archive/ sfmrs_98ht1.F makedepend archive/ sfmrs_98d5.F makedepend archive/ sfmrs_98d4.F makedepend archive/ sfmrs_98d3.F makedepend archive/ sfmrs_98d2.F makedepend archive/ sfmrs_98d1.F makedepend archive/ sfmrs_98a5.F makedepend archive/ sfmrs_98a4.F makedepend archive/ sfmrs_98a3.F makedepend archive/ sfmrs_98a2.F makedepend archive/ sfmrs_98a1.F makedepend archive/ sfmfr2.F makedepend archive/ sfmfr1.F makedepend archive/ sfmfap.F makedepend archive/ sflacg3.F makedepend archive/ sflacg2.F makedepend archive/ sflacg1.F makedepend archive/ sfkbmr5.F makedepend archive/ sfkbmr2.F makedepend archive/ sfgslo2.F makedepend archive/ sfgslo1.F makedepend archive/ sfgsho.F makedepend archive/ sfgrvl.F makedepend archive/ sfgrvh.F makedepend archive/ sfgal.F makedepend archive/ sfehlq2.F makedepend archive/ sfdsqa.F makedepend archive/ sfdisa.F makedepend archive/ sfctq59.F makedepend archive/ sfctq58.F makedepend archive/ sfctq57.F makedepend archive/ sfctq56.F makedepend archive/ sfctq55.F makedepend archive/ sfctq54.F makedepend archive/ sfctq53.F makedepend archive/ sfctq52.F makedepend archive/ sfctq51.F makedepend archive/ sfctq49.F makedepend archive/ sfctq48.F makedepend archive/ sfctq47.F makedepend archive/ sfctq46.F makedepend archive/ sfctq45.F makedepend archive/ sfctq44.F makedepend archive/ sfctq43.F makedepend archive/ sfctq42.F makedepend archive/ sfctq41.F makedepend archive/ sfehlq1.F makedepend archive/ sfdiss0.F makedepend archive/ sfdish.F makedepend archive/ sfdisdm.F makedepend archive/ sfdisd0.F makedepend archive/ sfctq33.F makedepend archive/ sfctq32.F makedepend archive/ sfctq31.F makedepend archive/ sfctq26.F makedepend archive/ sfctq25.F makedepend archive/ sfctq24.F makedepend archive/ sfctq23.F makedepend archive/ sfctq22.F makedepend archive/ sfctq21.F makedepend archive/ sfctq15.F makedepend archive/ sfctq14.F makedepend archive/ sfctq13.F makedepend archive/ sfctq12.F makedepend archive/ sfctq11.F makedepend archive/ sfbmb.F makedepend archive/ sfbma.F makedepend archive/ sfafg1.F makedepend archive/ sfabfow.F makedepend archive/ seadis.F makedepend archive/ sasvmd.F makedepend archive/ sasvm1.F makedepend archive/ sasgam2.F makedepend archive/ sasgam1.F makedepend archive/ sasdir.F makedepend archive/ sasbeh.F makedepend archive/ sasano.F makedepend archive/ sasan1.F makedepend archive/ rxud.F makedepend archive/ rxqbar.F makedepend archive/ rxglue.F makedepend archive/ rxdv.F makedepend archive/ phlac3.F makedepend archive/ phlac2.F makedepend archive/ phlac1.F makedepend archive/ phgal.F makedepend archive/ pftopdg.F makedepend archive/ pdzxmt.F makedepend archive/ pdxmt.F makedepend archive/ pdfvers.F makedepend archive/ pdfsta.F makedepend archive/ pdfset.F makedepend archive/ pdf_beta.F makedepend archive/ newdo1.F makedepend archive/ mrsebp.F makedepend archive/ mrseb.F makedepend archive/ mrsdshp.F makedepend archive/ mrsdshd.F makedepend archive/ kmrsgeb.F makedepend archive/ kmrseb.F makedepend archive/ hmrsgeb.F makedepend archive/ hmrs3eb.F makedepend archive/ hmrs2eb.F makedepend archive/ hmrs1eb.F makedepend archive/ gsxcor.F makedepend archive/ gs96lo.F makedepend archive/ gs96ho.F makedepend archive/ gs2xcor.F makedepend archive/ grv98_nld.F makedepend archive/ grv98_nlm.F makedepend archive/ grv98_lo.F makedepend archive/ grvpilo.F makedepend archive/ grvpiho.F makedepend archive/ grvlo.F makedepend archive/ grvho.F makedepend archive/ grvgfs.F makedepend archive/ grvgf.F makedepend archive/ grvgalo.F makedepend archive/ grvgaho.F makedepend archive/ grvgah0.F makedepend archive/ grvfws.F makedepend archive/ grvfw.F makedepend archive/ grvfvp.F makedepend archive/ grvfv.F makedepend archive/ grvfqbp.F makedepend archive/ grvfgp.F makedepend archive/ grsvl2.F makedepend archive/ grsvl1.F makedepend archive/ grsvh2.F makedepend archive/ grsvh1.F makedepend archive/ grsgalo.F makedepend archive/ grsf2.F makedepend archive/ grsf1.F makedepend archive/ grv94lo.F makedepend archive/ grv94ho.F makedepend archive/ grv94di.F makedepend archive/ gr94fws.F makedepend archive/ gr94fw.F makedepend archive/ gr94fv.F makedepend archive/ ghrxs.F makedepend archive/ ghrxi.F makedepend archive/ ghruv.F makedepend archive/ ghrgl.F makedepend archive/ ghrdv.F makedepend archive/ gammado.F makedepend archive/ gamfun.F makedepend archive/ fxvsof.F makedepend archive/ fxvhar.F makedepend archive/ fxnlla.F makedepend archive/ fxgsof.F makedepend archive/ fxghar.F makedepend archive/ fxg360.F makedepend archive/ fxg260.F makedepend archive/ fxg160.F makedepend archive/ fxaver.F makedepend archive/ faux5mi.F makedepend archive/ faux5l.F makedepend archive/ dpolin.F makedepend archive/ dopho2.F makedepend archive/ dopho1.F makedepend archive/ dgpho4.F makedepend archive/ dgpho3.F makedepend archive/ dgpho2.F makedepend archive/ dgpho1.F makedepend archive/ dflm9.F makedepend archive/ dflm8.F makedepend archive/ dflm7.F makedepend archive/ dflm6.F makedepend archive/ dflm5.F makedepend archive/ dflm4.F makedepend archive/ dflm3.F makedepend archive/ dflm2.F makedepend archive/ dflm1.F makedepend archive/ dbfint.F makedepend archive/ ctq5mi.F makedepend archive/ ctq5lp.F makedepend archive/ ctq5pnx.F makedepend archive/ ctq5pdf.F makedepend archive/ ctq5m1.F makedepend archive/ ctq5m.F makedepend archive/ ctq5l.F makedepend archive/ ctq5hq1.F makedepend archive/ ctq5hq.F makedepend archive/ ctq5hj.F makedepend archive/ ctq5f4.F makedepend archive/ ctq5f3.F makedepend archive/ ctq5d.F makedepend archive/ ctq4rf4.F makedepend archive/ ctq4rf3.F makedepend archive/ ctq4r_hq1.F makedepend archive/ ctq4rhq.F makedepend archive/ ctq4rlq.F makedepend archive/ ctq4rm.F makedepend archive/ ctq4rl.F makedepend archive/ ctq4rhj.F makedepend archive/ ctq4rd.F makedepend archive/ ctq4ra5.F makedepend archive/ ctq4ra4.F makedepend archive/ ctq4ra2.F makedepend archive/ ctq4ra1.F makedepend archive/ ctq4pnx.F makedepend archive/ ctq4fn.F makedepend archive/ ctq3pf.F makedepend archive/ ctq3pds.F makedepend archive/ ctq3pd.F makedepend archive/ ctq2pps.F makedepend archive/ ctq2ppf.F makedepend archive/ ctq2ppd.F makedepend archive/ ctq2ops.F makedepend archive/ ctq2opf.F makedepend archive/ ctq2opd.F makedepend archive/ ctq1pf.F makedepend archive/ ctq1pd.F makedepend archive/ ctq1opf.F makedepend archive/ ctq1opd.F makedepend archive/ bxqbar.F makedepend archive/ bxglue.F makedepend archive/ bxf3.F makedepend archive/ bbeta.F makedepend archive/ aurpr.F makedepend archive/ aurpi3.F makedepend archive/ aurpi2.F makedepend archive/ aurpi1.F makedepend archive/ aurgam.F makedepend archive/ augetfv.F makedepend archive/ alphas2.F makedepend archive/ afratin.F makedepend archive/ afpolin.F makedepend archive/ afgint.F makedepend archive/ afgin2.F makedepend archive/ afgetfv.F makedepend archive/ afcplu.F makedepend archive/ acfgp2.F makedepend archive/ acfgp1.F makedepend archive/ abfkw3.F makedepend archive/ abfkw2.F makedepend archive/ abfkw1.F gfortran abfkw1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw1.F:1115:72: 1115 | DO 11 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw1.F:1116:72: 1116 | DO 11 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw1.F:1117:72: 1117 | 11 CALCPIO(M,I,K) = CALCPI(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw1.F:1132:72: 1132 | IF(Q2-Q02PI) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw1.F:1133:72: 1133 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran abfkw2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw2.F:1115:72: 1115 | DO 11 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw2.F:1116:72: 1116 | DO 11 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw2.F:1117:72: 1117 | 11 CALCPIO(M,I,K) = CALCPI(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw2.F:1132:72: 1132 | IF(Q2-Q02PI) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw2.F:1133:72: 1133 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran abfkw3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw3.F:1115:72: 1115 | DO 11 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw3.F:1116:72: 1116 | DO 11 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw3.F:1117:72: 1117 | 11 CALCPIO(M,I,K) = CALCPI(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw3.F:1132:72: 1132 | IF(Q2-Q02PI) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw3.F:1133:72: 1133 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran acfgp1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp1.F:1446:72: 1446 | DO 10 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp1.F:1447:72: 1447 | DO 10 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp1.F:1448:72: 1448 | 10 CALCO(M,I,K) = CALC(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp1.F:1462:72: 1462 | IF(Q2-Q02) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp1.F:1463:72: 1463 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran acfgp2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp2.F:1446:72: 1446 | DO 10 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp2.F:1447:72: 1447 | DO 10 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp2.F:1448:72: 1448 | 10 CALCO(M,I,K) = CALC(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp2.F:1462:72: 1462 | IF(Q2-Q02) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp2.F:1463:72: 1463 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran afcplu.F gfortran afgetfv.F gfortran afgin2.F gfortran afgint.F gfortran afpolin.F gfortran afratin.F gfortran alphas2.F gfortran augetfv.F gfortran aurgam.F gfortran aurpi1.F gfortran aurpi2.F gfortran aurpi3.F gfortran aurpr.F gfortran bbeta.F gfortran bxf3.F gfortran bxglue.F gfortran bxqbar.F gfortran ctq1opd.F gfortran ctq1opf.F gfortran ctq1pd.F gfortran ctq1pf.F gfortran ctq2opd.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/ctq2opd.F:669:72: 669 | 201 ExpNor(Iexp) = ExpN(Iexp, Iset) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran ctq2opf.F gfortran ctq2ops.F gfortran ctq2ppd.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/ctq2ppd.F:670:72: 670 | 201 ExpNor(Iexp) = ExpN(Iexp, Iset) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran ctq2ppf.F gfortran ctq2pps.F gfortran ctq3pd.F gfortran ctq3pds.F gfortran ctq3pf.F gfortran ctq4fn.F gfortran ctq4pnx.F gfortran ctq4ra1.F gfortran ctq4ra2.F gfortran ctq4ra4.F gfortran ctq4ra5.F gfortran ctq4rd.F gfortran ctq4rhj.F gfortran ctq4rl.F gfortran ctq4rm.F gfortran ctq4rlq.F gfortran ctq4rhq.F gfortran ctq4r_hq1.F gfortran ctq4rf3.F gfortran ctq4rf4.F gfortran ctq5d.F gfortran ctq5f3.F gfortran ctq5f4.F gfortran ctq5hj.F gfortran ctq5hq.F gfortran ctq5hq1.F gfortran ctq5l.F gfortran ctq5m.F gfortran ctq5m1.F gfortran ctq5pdf.F gfortran ctq5pnx.F gfortran ctq5lp.F gfortran ctq5mi.F gfortran dbfint.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/dbfint.F:50:72: 50 | IF(X-ENT(LOCC)) 12, 20, 13 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran dflm1.F gfortran dflm2.F gfortran dflm3.F gfortran dflm4.F gfortran dflm5.F gfortran dflm6.F gfortran dflm7.F gfortran dflm8.F gfortran dflm9.F gfortran dgpho1.F gfortran dgpho2.F gfortran dgpho3.F gfortran dgpho4.F gfortran dopho1.F gfortran dopho2.F gfortran dpolin.F gfortran faux5l.F gfortran faux5mi.F gfortran fxaver.F gfortran fxg160.F gfortran fxg260.F gfortran fxg360.F gfortran fxghar.F gfortran fxgsof.F gfortran fxnlla.F gfortran fxvhar.F gfortran fxvsof.F gfortran gamfun.F gfortran gammado.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:46:72: 46 | IF(XX-34.5)6,6,4 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:54:72: 54 | IF(X-2.0)50,50,15 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:55:72: 55 | 10 IF(X-2.0)110,110,15 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:59:72: 59 | 50 IF(X-1.0)60,120,110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:63:72: 63 | 60 IF(X-ERR)62,62,80 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:65:72: 65 | IF(ABS(Y)-ERR)130,130,64 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:66:72: 66 | 64 IF(1.0-Y-ERR)130,130,70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:70:72: 70 | 70 IF(X-1.0)80,80,110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran ghrdv.F gfortran ghrgl.F gfortran ghruv.F gfortran ghrxi.F gfortran ghrxs.F gfortran gr94fv.F gfortran gr94fw.F gfortran gr94fws.F gfortran grv94di.F gfortran grv94ho.F gfortran grv94lo.F gfortran grsf1.F gfortran grsf2.F gfortran grsgalo.F gfortran grsvh1.F gfortran grsvh2.F gfortran grsvl1.F gfortran grsvl2.F gfortran grvfgp.F gfortran grvfqbp.F gfortran grvfv.F gfortran grvfvp.F gfortran grvfw.F gfortran grvfws.F gfortran grvgah0.F gfortran grvgaho.F gfortran grvgalo.F gfortran grvgf.F gfortran grvgfs.F gfortran grvho.F gfortran grvlo.F gfortran grvpiho.F gfortran grvpilo.F gfortran grv98_lo.F gfortran grv98_nlm.F gfortran grv98_nld.F gfortran gs2xcor.F gfortran gs96ho.F gfortran gs96lo.F gfortran gsxcor.F gfortran hmrs1eb.F gfortran hmrs2eb.F gfortran hmrs3eb.F gfortran hmrsgeb.F gfortran kmrseb.F gfortran kmrsgeb.F gfortran mrsdshd.F gfortran mrsdshp.F gfortran mrseb.F gfortran mrsebp.F gfortran newdo1.F gfortran pdf_beta.F gfortran pdfset.F gfortran pdfsta.F gfortran pdfvers.F gfortran pdxmt.F gfortran pdzxmt.F gfortran pftopdg.F gfortran phgal.F gfortran phlac1.F gfortran phlac2.F gfortran phlac3.F gfortran rxdv.F gfortran rxglue.F gfortran rxqbar.F gfortran rxud.F gfortran sasan1.F gfortran sasano.F gfortran sasbeh.F gfortran sasdir.F gfortran sasgam1.F gfortran sasgam2.F gfortran sasvm1.F gfortran sasvmd.F gfortran seadis.F gfortran sfabfow.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfabfow.F:1115:72: 1115 | DO 11 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfabfow.F:1116:72: 1116 | DO 11 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfabfow.F:1117:72: 1117 | 11 CALCO(M,I,K) = CALC(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfabfow.F:1132:72: 1132 | IF(Q2-Q02PR) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfabfow.F:1133:72: 1133 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran sfafg1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfafg1.F:2851:72: 2851 | DO 10 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfafg1.F:2852:72: 2852 | DO 10 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfafg1.F:2854:72: 2854 | 10 CELCO(M,I,K) = CELC(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfafg1.F:2869:72: 2869 | IF(Q2-Q02) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfafg1.F:2870:72: 2870 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran sfbma.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2662:72: 2662 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2667:72: 2667 | 25 F(I,N,M)=F(I,N,M)/(1.D0-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2671:72: 2671 | DO 30 I=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2672:72: 2672 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2673:72: 2673 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,ntenth,K)/ LOG(F(I,ntenth,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2676:72: 2676 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2677:72: 2677 | 40 F(I,nx,M)=0.D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfbmb.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2663:72: 2663 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2668:72: 2668 | 25 F(I,N,M)=F(I,N,M)/(1.D0-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2672:72: 2672 | DO 30 I=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2673:72: 2673 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2674:72: 2674 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,ntenth,K)/ LOG(F(I,ntenth,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2677:72: 2677 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2678:72: 2678 | 40 F(I,nx,M)=0.D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfctq11.F gfortran sfctq12.F gfortran sfctq13.F gfortran sfctq14.F gfortran sfctq15.F gfortran sfctq21.F gfortran sfctq22.F gfortran sfctq23.F gfortran sfctq24.F gfortran sfctq25.F gfortran sfctq26.F gfortran sfctq31.F gfortran sfctq32.F gfortran sfctq33.F gfortran sfdisd0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1927:72: 1927 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1932:72: 1932 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1936:72: 1936 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1939:72: 1939 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1943:72: 1943 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1944:72: 1944 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfdisdm.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1927:72: 1927 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1932:72: 1932 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1936:72: 1936 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1939:72: 1939 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1943:72: 1943 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1944:72: 1944 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfdish.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfdiss0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1927:72: 1927 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1932:72: 1932 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1936:72: 1936 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1939:72: 1939 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1943:72: 1943 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1944:72: 1944 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfehlq1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:178:72: 178 | DO 110 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:179:72: 179 | 110 XQSUM=XQSUM+CEHLQ(IX,IT,NX,KFL)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:180:72: 180 | 120 XQ(KFL)=XQSUM*(1.-X)**NEHLQ(KFL)*CXS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:207:72: 207 | DO 130 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:208:72: 208 | 130 XQSUM=XQSUM+CEHLQ(IX,IT,NX,7)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:231:72: 231 | DO 150 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:232:72: 232 | 150 XQSUM=XQSUM+CEHLQ(IX,IT,NX,8)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) gfortran sfctq41.F gfortran sfctq42.F gfortran sfctq43.F gfortran sfctq44.F gfortran sfctq45.F gfortran sfctq46.F gfortran sfctq47.F gfortran sfctq48.F gfortran sfctq49.F gfortran sfctq51.F gfortran sfctq52.F gfortran sfctq53.F gfortran sfctq54.F gfortran sfctq55.F gfortran sfctq56.F gfortran sfctq57.F gfortran sfctq58.F gfortran sfctq59.F gfortran sfdisa.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1914:72: 1914 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1919:72: 1919 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1923:72: 1923 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1926:72: 1926 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1930:72: 1930 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1931:72: 1931 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfdsqa.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:720:72: 720 | DO 20 M=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:725:72: 725 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:729:72: 729 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:732:72: 732 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:736:72: 736 | DO 40 M=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:737:72: 737 | 40 F(I,nx,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfehlq2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:178:72: 178 | DO 110 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:179:72: 179 | 110 XQSUM=XQSUM+CEHLQ(IX,IT,NX,KFL)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:180:72: 180 | 120 XQ(KFL)=XQSUM*(1.-X)**NEHLQ(KFL)*CXS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:207:72: 207 | DO 130 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:208:72: 208 | 130 XQSUM=XQSUM+CEHLQ(IX,IT,NX,7)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:231:72: 231 | DO 150 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:232:72: 232 | 150 XQSUM=XQSUM+CEHLQ(IX,IT,NX,8)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) gfortran sfgal.F gfortran sfgrvh.F gfortran sfgrvl.F gfortran sfgsho.F gfortran sfgslo1.F gfortran sfgslo2.F gfortran sfkbmr2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfkbmr5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sflacg1.F gfortran sflacg2.F gfortran sflacg3.F gfortran sfmfap.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmfap.F:71:72: 71 | 10 F(J)=A*X**B*(1.-X)**C*(1.+D*SQRT(X)+E*X)*( LOG(1./X))**H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sfmfr1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmfr1.F:74:72: 74 | 10 F(J)=A*X**B*(ONED-X)**C*(ONED+D*SQRT(X)+E*X)*( LOG(ONED/X))**H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sfmfr2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmfr2.F:74:72: 74 | 10 F(J)=A*X**B*(ONED-X)**C*(ONED+D*SQRT(X)+E*X)*( LOG(ONED/X))**H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sfmrs_98a1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98a2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98a3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98a4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98a5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98d1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98d2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98d3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98d4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98d5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98ht1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98lo1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98lo2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98lo3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98lo4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98lo5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a10.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a11.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a12.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a6.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a7.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a8.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a9.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d10.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d11.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d6.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d7.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d8.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d9.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsd0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:2983:72: 2983 | DO 20 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:2988:72: 2988 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:2992:72: 2992 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:2995:72: 2995 | 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:2999:72: 2999 | DO 40 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:3000:72: 3000 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsdm.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:2983:72: 2983 | DO 20 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:2988:72: 2988 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:2992:72: 2992 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:2995:72: 2995 | 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:2999:72: 2999 | DO 40 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:3000:72: 3000 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsg.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1929:72: 1929 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1934:72: 1934 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1938:72: 1938 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1941:72: 1941 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1945:72: 1945 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1946:72: 1946 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsj.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrss0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:2983:72: 2983 | DO 20 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:2988:72: 2988 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:2992:72: 2992 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:2995:72: 2995 | 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:2999:72: 2999 | DO 40 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:3000:72: 3000 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsc1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsc2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsc3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsap.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1929:72: 1929 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1934:72: 1934 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1938:72: 1938 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1941:72: 1941 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1945:72: 1945 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1946:72: 1946 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsba.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsbb0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1927:72: 1927 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1932:72: 1932 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1936:72: 1936 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1939:72: 1939 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1943:72: 1943 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1944:72: 1944 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsbd0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsbdm.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsbh.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsbs0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsfa.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsfa.F:70:72: 70 | 10 F(J)=A*X**B*(1.D0-X)**C*(1.D0+D*SQRT(X)+E*X)*( LOG(1.D0/X))**H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sfmsfg.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsfg.F:77:72: 77 | 10 F(J)=A*X**B*(1.-X)**C*(1.+D*SQRT(X)+E*X)*( LOG(1./X))**H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sfmsqa.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:733:72: 733 | DO 20 M=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:738:72: 738 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:742:72: 742 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:745:72: 745 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:749:72: 749 | DO 40 M=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:750:72: 750 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms105.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms110.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms115.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms120.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms125.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms130.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1932:72: 1932 | 40 F(I,nx,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsjp.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsr1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3825:72: 3825 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3830:72: 3830 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3834:72: 3834 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3837:72: 3837 | 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3841:72: 3841 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3842:72: 3842 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsr2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3824:72: 3824 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3829:72: 3829 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3833:72: 3833 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3836:72: 3836 | 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3840:72: 3840 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3841:72: 3841 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsr3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3824:72: 3824 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3829:72: 3829 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3833:72: 3833 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3836:72: 3836 | 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3840:72: 3840 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3841:72: 3841 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsr4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3825:72: 3825 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3830:72: 3830 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3834:72: 3834 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3837:72: 3837 | 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3841:72: 3841 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3842:72: 3842 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmt10.F gfortran sfmt11.F gfortran sfmtu1.F gfortran sfmtu2.F gfortran sfmtu3.F gfortran sfmtu4.F gfortran sfmtu5.F gfortran sfmtu6.F gfortran sfmtu7.F gfortran sfmtu8.F gfortran sfmtu9.F gfortran sfsas11.F gfortran sfsas12.F gfortran sfsas13.F gfortran sfsas14.F gfortran sfsas21.F gfortran sfsas22.F gfortran sfsas23.F gfortran sfsas24.F gfortran sfwhi1.F gfortran sfwhi2.F gfortran sfwhi3.F gfortran sfwhi4.F gfortran sfwhi5.F gfortran sfwhi6.F gfortran smrsp31.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1039:72: 1039 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1044:72: 1044 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1048:72: 1048 | DO 30 I=2,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1049:72: 1049 | DO 30 K=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1050:72: 1050 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1053:72: 1053 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1054:72: 1054 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran smrsp32.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1039:72: 1039 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1044:72: 1044 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1048:72: 1048 | DO 30 I=2,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1049:72: 1049 | DO 30 K=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1050:72: 1050 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1053:72: 1053 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1054:72: 1054 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran smrsp33.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1040:72: 1040 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1045:72: 1045 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1049:72: 1049 | DO 30 I=2,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1050:72: 1050 | DO 30 K=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1051:72: 1051 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1054:72: 1054 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1055:72: 1055 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran smrspi.F gfortran srctq21.F gfortran srctq22.F gfortran srctq23.F gfortran spctq51.F gfortran spctq53.F gfortran srctq24.F gfortran srctq25.F gfortran srctq26.F gfortran strbebc.F gfortran strbep.F gfortran strcbp.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:862:72: 862 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:864:72: 864 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran srctq45.F gfortran srctq46.F gfortran srctq47.F gfortran srctq48.F gfortran strcep.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:862:72: 862 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:864:72: 864 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strdo1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo1.F:37:72: 37 | DO 10 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo1.F:38:72: 38 | 10 A(J,I)=B1(1,J,I)+S*(B1(2,J,I)+S*B1(3,J,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo1.F:41:72: 41 | & (A(4,I)+X*(A(5,I)+X*A(6,I)))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo1.F:45:72: 45 | &*GAMFUN(WN+A(3,I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran strdo2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo2.F:38:72: 38 | DO 10 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo2.F:39:72: 39 | 10 A(J,I)=B2(1,J,I)+S*(B2(2,J,I)+S*B2(3,J,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo2.F:42:72: 42 | +(6,I)))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo2.F:46:72: 46 | +*GAMFUN(WN+A(3,I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran strghr.F gfortran strh1b.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:853:72: 853 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:856:72: 856 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:860:72: 860 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:861:72: 861 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:862:72: 862 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:865:72: 865 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:866:72: 866 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh1e.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:853:72: 853 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:856:72: 856 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:860:72: 860 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:861:72: 861 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:862:72: 862 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:865:72: 865 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:866:72: 866 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh2b.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:853:72: 853 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:862:72: 862 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:864:72: 864 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh2e.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:853:72: 853 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:862:72: 862 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:864:72: 864 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,16,K)/ LOG(F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3b.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3b1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3b3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3e.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:972:72: 972 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3em.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:963:72: 963 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:974:72: 974 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:975:72: 975 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3ep.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:964:72: 964 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:967:72: 967 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:971:72: 971 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:972:72: 972 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:973:72: 973 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:2983:72: 2983 | DO 20 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:2988:72: 2988 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:2992:72: 2992 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:2995:72: 2995 | 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:2999:72: 2999 | DO 40 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:3000:72: 3000 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb02.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:962:72: 962 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:967:72: 967 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:971:72: 971 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:972:72: 972 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:973:72: 973 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:976:72: 976 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:977:72: 977 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb03.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:962:72: 962 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:967:72: 967 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:971:72: 971 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:972:72: 972 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:973:72: 973 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:976:72: 976 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:977:72: 977 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb04.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:962:72: 962 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:967:72: 967 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:971:72: 971 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:972:72: 972 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:973:72: 973 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:976:72: 976 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:977:72: 977 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb05.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:962:72: 962 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:967:72: 967 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:971:72: 971 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:972:72: 972 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:973:72: 973 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:976:72: 976 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:977:72: 977 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb0o.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkbm.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strmrs1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:859:72: 859 | 10 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:863:72: 863 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:864:72: 864 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:865:72: 865 | 30 F(I,J,K)= LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strmrs2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:859:72: 859 | 10 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:863:72: 863 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:864:72: 864 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:865:72: 865 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strmrs3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:859:72: 859 | 10 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:863:72: 863 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:864:72: 864 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:865:72: 865 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,16,K)/ LOG(F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strowp1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strowp1.F:59:72: 59 | & COW(3,IS,KFL)*SD*SD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) gfortran strowp2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strowp2.F:59:72: 59 | & COW(3,IS,KFL)*SD*SD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran strpriv.F gfortran strucb.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:862:72: 862 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:864:72: 864 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran struce.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:862:72: 862 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:864:72: 864 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strucor.F gfortran structf.F gfortran structm.F gfortran structp.F gfortran v3.F gfortran valdis.F gfortran wate32.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/wate32.F:61:72: 61 | 2 XX(I)=0.5D0*(XI(I)+1.0D0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran whit1g.F gfortran whit1q.F gfortran whit2g.F gfortran whit2q.F gfortran whit3g.F gfortran whit3q.F gfortran whit4g.F gfortran whit4q.F gfortran whit5g.F gfortran whit5q.F gfortran whit6g.F gfortran whit6q.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf/spdf' checking /mclibs/pdf/npdf make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf/npdf' makedepend archive/ structa.F makedepend archive/ sfeks98.F makedepend archive/ eksarp.F makedepend archive/ eks98.F gfortran eks98.F gfortran eksarp.F gfortran sfeks98.F gfortran structa.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf/npdf' rebuild archive library libpdflib804.a in /mclibs/pdf Sun Jan 5 13:35:44 UTC 2020 Sun Jan 5 13:35:44 UTC 2020 ranlib libpdflib804.a install -c -m 0644 libpdflib804.a /<>/mclibs-20061220+dfsg3/lib/libpdflib804.a ranlib /<>/mclibs-20061220+dfsg3/lib/libpdflib804.a rm -f libpdflib804.a ln -s /<>/mclibs-20061220+dfsg3/lib/libpdflib804.a libpdflib804.a make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf' installing in /mclibs/photos... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/photos' making Makefiles in /mclibs/photos/code... checking /mclibs/photos/code make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/photos/code' makedepend archive/ photos_set.F makedepend archive/ photos_make.F makedepend archive/ photos_get.F makedepend archive/ phtype.F makedepend archive/ photwo.F makedepend archive/ photri.F makedepend archive/ photos.F makedepend archive/ phospi.F makedepend archive/ phoro3.F makedepend archive/ phoro2.F makedepend archive/ phorin.F makedepend archive/ phorep.F makedepend archive/ phoran.F makedepend archive/ phopre.F makedepend archive/ phoout.F makedepend archive/ phooma.F makedepend archive/ phomak.F makedepend archive/ phoini.F makedepend archive/ phoinf.F makedepend archive/ phoin.F makedepend archive/ phofac.F makedepend archive/ phoerr.F makedepend archive/ phoene.F makedepend archive/ phodo.F makedepend archive/ phocor.F makedepend archive/ phocin.F makedepend archive/ phochk.F makedepend archive/ phocha.F makedepend archive/ phobos.F makedepend archive/ phobo3.F makedepend archive/ phoan2.F makedepend archive/ phoan1.F makedepend archive/ phlupa.F makedepend archive/ phint.F makedepend archive/ phcork.F gfortran phcork.F gfortran phint.F gfortran phlupa.F gfortran phoan1.F gfortran phoan2.F gfortran phobo3.F gfortran phobos.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phobos.F:40:72: 40 | 10 BET2(J)=PBOOS2(J)/PBOOS2(5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phobos.F:49:72: 49 | 30 PHEP(J,I)=PHEP(J,I)+BET1(J)*(PHEP(4,I)+PB/(GAM1+1.D0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phobos.F:55:72: 55 | 40 PHEP(J,I)=PHEP(J,I)+BET2(J)*(PHEP(4,I)+PB/(GAM2+1.D0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran phocha.F gfortran phochk.F gfortran phocin.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phocin.F:49:72: 49 | 10 QEDRAD(I)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phocin.F:89:72: 89 | 20 STATUS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran phocor.F gfortran phodo.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phodo.F:118:72: 118 | 60 PVEC(I)=0.D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phodo.F:173:72: 173 | 80 PPHO(J,NEUDAU)=PNEUTR(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phodo.F:178:72: 178 | 90 PPHO(J,NCHARB)=-(PPHO(J,NPHO)+PNEUTR(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) gfortran phoene.F gfortran phoerr.F gfortran phofac.F gfortran phoin.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoin.F:105:72: 105 | 10 BET(J)=-PPHO(J,1)/PPHO(5,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoin.F:110:72: 110 | 20 PPHO(J,I)=PPHO(J,I)+BET(J)*(PPHO(4,I)+PB/(GAM+1.D0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoin.F:111:72: 111 | 30 PPHO(4,I)=GAM*PPHO(4,I)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran phoinf.F gfortran phoini.F gfortran phomak.F gfortran phooma.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phooma.F:34:72: 34 | 10 MASS(I)=PPHO(5,POINTR(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran phoout.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoout.F:45:72: 45 | 100 PPHO(K,J)=PPHO(K,J)-BET(K)*(PPHO(4,J)+PB/(GAM+1.D0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoout.F:46:72: 46 | 110 PPHO(4,J)=GAM*PPHO(4,J)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoout.F:51:72: 51 | 120 PPHO(K,NN)=PPHO(K,NN)-BET(K)*(PPHO(4,NN)+PB/(GAM+1.D0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) gfortran phopre.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phopre.F:98:72: 98 | 70 PNEUTR(J)=-PPHO(J,CHAPOI(NCHARG)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) gfortran phoran.F gfortran phorep.F gfortran phorin.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phorin.F:51:72: 51 | 10 T=0.5D0*T | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phorin.F:52:72: 52 | 20 URAN(I)=S | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran phoro2.F gfortran phoro3.F gfortran phospi.F gfortran photos.F gfortran photri.F gfortran photwo.F gfortran phtype.F gfortran photos_get.F gfortran photos_make.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:113:72: 113 | 90 PHOTON(J)=PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:131:72: 131 | 100 JDAHEP(L,K)=JDAHEP(L,K-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:133:72: 133 | 110 PHEP(L,K)=PHEP(L,K-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:134:72: 134 | DO 120 L=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:135:72: 135 | 120 VHEP(L,K)=VHEP(L,K-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:139:72: 139 | DO 130 L=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:148:72: 148 | 140 PHEP(J,POSPHO)=PHOTON(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:162:72: 162 | 150 VHEP(J,POSPHO)=VHEP(J,POSPHO-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) gfortran photos_set.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/photos/code' rebuild archive library libphotos202.a in /mclibs/photos Sun Jan 5 13:35:50 UTC 2020 Sun Jan 5 13:35:50 UTC 2020 ranlib libphotos202.a install -c -m 0644 libphotos202.a /<>/mclibs-20061220+dfsg3/lib/libphotos202.a ranlib /<>/mclibs-20061220+dfsg3/lib/libphotos202.a rm -f libphotos202.a ln -s /<>/mclibs-20061220+dfsg3/lib/libphotos202.a libphotos202.a make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/photos' installing in /mclibs/herwig... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/herwig' making Makefiles in /mclibs/herwig/code... checking /mclibs/herwig/code make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/herwig/code' cp /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/herwig59.inc HERWIG59.INC makedepend archive/ sasvmd.F makedepend archive/ sasgam.F makedepend archive/ sasdir.F makedepend archive/ sasbeh.F makedepend archive/ sasano.F makedepend archive/ qqlmat.F makedepend archive/ qqinit.F makedepend archive/ ipdgeu.F makedepend archive/ ieupdg.F makedepend archive/ hwwarn.F makedepend archive/ hwvzro.F makedepend archive/ hwvsum.F makedepend archive/ hwvsca.F makedepend archive/ hwvequ.F makedepend archive/ hwvdot.F makedepend archive/ hwvdif.F makedepend archive/ hwutim.F makedepend archive/ hwutab.F makedepend archive/ hwusta.F makedepend archive/ hwusqr.F makedepend archive/ hwusor.F makedepend archive/ hwurot.F makedepend archive/ hwurof.F makedepend archive/ hwurob.F makedepend archive/ hwures.F makedepend archive/ hwurap.F makedepend archive/ hwupcm.F makedepend archive/ hwumas.F makedepend archive/ hwulor.F makedepend archive/ hwulof.F makedepend archive/ hwulob.F makedepend archive/ hwuli2.F makedepend archive/ hwulf4.F makedepend archive/ hwuldo.F makedepend archive/ hwulb4.F makedepend archive/ hwuine.F makedepend archive/ hwuinc.F makedepend archive/ hwuidt.F makedepend archive/ hwugau.F makedepend archive/ hwufne.F makedepend archive/ hwuepr.F makedepend archive/ hwuemv.F makedepend archive/ hwueec.F makedepend archive/ hwuedt.F makedepend archive/ hwuecm.F makedepend archive/ hwudpr.F makedepend archive/ hwudks.F makedepend archive/ hwudkl.F makedepend archive/ hwudat.F makedepend archive/ hwuci2.F makedepend archive/ hwucff.F makedepend archive/ hwubst.F makedepend archive/ hwubpr.F makedepend archive/ hwuant.F makedepend archive/ hwualf.F makedepend archive/ hwuaer.F makedepend archive/ hwuaem.F makedepend archive/ hwsval.F makedepend archive/ hwstab.F makedepend archive/ hwssud.F makedepend archive/ hwsspc.F makedepend archive/ hwsgqq.F makedepend archive/ hwsgen.F makedepend archive/ hwsgam.F makedepend archive/ hwsfun.F makedepend archive/ hwsfbr.F makedepend archive/ hwsdgq.F makedepend archive/ hwsdgg.F makedepend archive/ hwsbrn.F makedepend archive/ hwruni.F makedepend archive/ hwrung.F makedepend archive/ hwrpow.F makedepend archive/ hwrpip.F makedepend archive/ hwrlog.F makedepend archive/ hwrint.F makedepend archive/ hwrgen.F makedepend archive/ hwrgau.F makedepend archive/ hwrext.F makedepend archive/ hwrexq.F makedepend archive/ hwrexp.F makedepend archive/ hwrazm.F makedepend archive/ hwmwgt.F makedepend archive/ hwmult.F makedepend archive/ hwmodk.F makedepend archive/ hwmnbi.F makedepend archive/ hwmlps.F makedepend archive/ hwmevt.F makedepend archive/ hwiodk.F makedepend archive/ hwigin.F makedepend archive/ hwhwpr.F makedepend archive/ hwhwex.F makedepend archive/ hwhv1j.F makedepend archive/ hwhsnm.F makedepend archive/ hwhsng.F makedepend archive/ hwhsct.F makedepend archive/ hwhrem.F makedepend archive/ hwhqcp.F makedepend archive/ hwhqcd.F makedepend archive/ hwhpqs.F makedepend archive/ hwhppt.F makedepend archive/ hwhppm.F makedepend archive/ hwhpph.F makedepend archive/ hwhppe.F makedepend archive/ hwhppb.F makedepend archive/ hwhpho.F makedepend archive/ hwhph2.F makedepend archive/ hwhigz.F makedepend archive/ hwhigy.F makedepend archive/ hwhigw.F makedepend archive/ hwhigt.F makedepend archive/ hwhigs.F makedepend archive/ hwhigm.F makedepend archive/ hwhigj.F makedepend archive/ hwhigb.F makedepend archive/ hwhiga.F makedepend archive/ hwhig1.F makedepend archive/ hwhhvy.F makedepend archive/ hwheww.F makedepend archive/ hwhew5.F makedepend archive/ hwhew4.F makedepend archive/ hwhew3.F makedepend archive/ hwhew2.F makedepend archive/ hwhew1.F makedepend archive/ hwhew0.F makedepend archive/ hwhepg.F makedepend archive/ hwhepa.F makedepend archive/ hwhegx.F makedepend archive/ hwhegw.F makedepend archive/ hwhegg.F makedepend archive/ hwhdyp.F makedepend archive/ hwhdis.F makedepend archive/ hwhbsg.F makedepend archive/ hwhbrn.F makedepend archive/ hwhbki.F makedepend archive/ hwhbgf.F makedepend archive/ hwetwo.F makedepend archive/ hwepro.F makedepend archive/ hweone.F makedepend archive/ hweisr.F makedepend archive/ hweini.F makedepend archive/ hwegam.F makedepend archive/ hwefin.F makedepend archive/ hwdxlm.F makedepend archive/ hwdwwt.F makedepend archive/ hwdtwo.F makedepend archive/ hwdtop.F makedepend archive/ hwdthr.F makedepend archive/ hwdpwt.F makedepend archive/ hwdidp.F makedepend archive/ hwdhvy.F makedepend archive/ hwdhqk.F makedepend archive/ hwdhig.F makedepend archive/ hwdhgf.F makedepend archive/ hwdhgc.F makedepend archive/ hwdhad.F makedepend archive/ hwdfor.F makedepend archive/ hwdfiv.F makedepend archive/ hwdeur.F makedepend archive/ hwdcle.F makedepend archive/ hwdchk.F makedepend archive/ hwdboz.F makedepend archive/ hwdbos.F makedepend archive/ hwchad.F makedepend archive/ hwcgsp.F makedepend archive/ hwcfor.F makedepend archive/ hwcfla.F makedepend archive/ hwcdec.F makedepend archive/ hwccut.F makedepend archive/ hwbvmc.F makedepend archive/ hwbtim.F makedepend archive/ hwbsul.F makedepend archive/ hwbsug.F makedepend archive/ hwbsud.F makedepend archive/ hwbsu2.F makedepend archive/ hwbsu1.F makedepend archive/ hwbspn.F makedepend archive/ hwbspa.F makedepend archive/ hwbran.F makedepend archive/ hwbmas.F makedepend archive/ hwbjco.F makedepend archive/ hwbgen.F makedepend archive/ hwbfin.F makedepend archive/ hwbdis.F makedepend archive/ hwbded.F makedepend archive/ hwbcon.F makedepend archive/ hwbazf.F makedepend archive/ hvhbvi.F makedepend archive/ hvcbvi.F makedepend archive/ fragmt.F makedepend archive/ eudini.F makedepend archive/ decadd.F makedepend archive/ dummy.c gcc dummy.c gfortran decadd.F gfortran eudini.F gfortran fragmt.F gfortran hvcbvi.F gfortran hvhbvi.F gfortran hwbazf.F gfortran hwbcon.F gfortran hwbded.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbded.F:26:72: 26 | & JDAHEP(2,IHEP).EQ.JDAHEP(1,IHEP)+1) ICMF=IHEP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwbdis.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbdis.F:31:72: 31 | & JDAHEP(2,IHEP).EQ.JDAHEP(1,IHEP)+1) ICMF=IHEP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwbfin.F gfortran hwbgen.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbgen.F:52:72: 52 | DO 15 I=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbgen.F:54:72: 54 | 15 JCOPAR(I,J)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbgen.F:179:72: 179 | 120 ISTHEP(IRHEP(I))=IRST(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) gfortran hwbjco.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:46:72: 46 | 30 IJET(NP)=JDAHEP(1,JHEP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:85:72: 85 | 60 IF (ISTHEP(IHEP).EQ.IST) GOTO 70 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:149:72: 149 | 80 CALL HWUROF(RS,VHEP(1,JHEP),VHEP(1,JHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:155:72: 155 | 90 PF=-PF | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:220:72: 220 | 100 ISTHEP(IHEP)=ISTHEP(IHEP)+10 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:223:72: 223 | 110 CALL HWVSUM(4,DISP,VHEP(1,IHEP),VHEP(1,IHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:247:72: 247 | 120 ISTHEP(IHEP)=ISTHEP(IHEP)+10 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:250:72: 250 | 130 CALL HWVSUM(4,DISP,VHEP(1,IHEP),VHEP(1,IHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:278:72: 278 | 140 ISTHEP(IHEP)=ISTHEP(IHEP)+10 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:281:72: 281 | 150 CALL HWVSUM(4,DISP,VHEP(1,IHEP),VHEP(1,IHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:305:72: 305 | 170 CALL HWVSUM(4,PHEP(1,IPAR(KP)),PQ,PQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:322:72: 322 | 180 IF (PJ(KP).LE.0.) CALL HWWARN('HWBJCO',104,*999) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:336:72: 336 | 190 DMS=DMS+PJ(KP)/ES | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:340:72: 340 | 200 IF (ABS(DPF).LT.EPS) GOTO 210 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:448:72: 448 | 220 ISTHEP(JHEP)=ISTHEP(JHEP)+10 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) gfortran hwbmas.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbmas.F:67:72: 67 | 20 PPAR(5,IPAR)=HWUSQR(PPAR(5,IPAR)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran hwbran.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbran.F:28:72: 28 | & /BETA0(M)*0.25/PIFAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbran.F:121:72: 121 | 200 IF (QLST.GT.RMASS(M)) NF=M | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbran.F:145:72: 145 | 210 IF (RN.GE.SLST/SQRK(M,N)) NN=M | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran hwbspa.F gfortran hwbspn.F gfortran hwbsu1.F gfortran hwbsu2.F gfortran hwbsud.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbsud.F:39:72: 39 | 10 QEV(IQ,1)=QNOW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbsud.F:77:72: 77 | 14 QEV(IQ,IS)=QNOW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbsud.F:90:72: 90 | 16 RMOLD(IS)=RMASS(IS) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbsud.F:138:72: 138 | DO 40 L=L1,L2,L1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) gfortran hwbsug.F gfortran hwbsul.F gfortran hwbtim.F gfortran hwbvmc.F gfortran hwccut.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwccut.F:101:72: 101 | 50 PHEP(J,JHEP)=PCL(J)-PHEP(J,KHEP)-PHEP(J,LHEP)-PHEP(J,MHEP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran hwcdec.F gfortran hwcfla.F gfortran hwcfor.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwcfor.F:33:72: 33 | 10 IF (ISTHEP(IBHEP).GE.150.AND.ISTHEP(IBHEP).LE.154) GOTO 20 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwcfor.F:91:72: 91 | 50 JDAHEP(2,IHEP)=ABS(JDAHEP(2,IHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwcfor.F:144:72: 144 | & +SCA1*DISP1(I)+SCA2*DISP2(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran hwcgsp.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwcgsp.F:24:72: 24 | 10 IF (ISTHEP(J).EQ.149.AND.JDAHEP(2,J).EQ.0) GOTO 20 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwchad.F gfortran hwdbos.F gfortran hwdboz.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdboz.F:116:72: 116 | 20 BR=BR+BRMODE(IDEC,IDBOS-197) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdboz.F:125:72: 125 | 30 BRCOM=BRCOM+BRMODE(IDEC,IDBOS-197) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwdchk.F gfortran hwdcle.F gfortran hwdeur.F gfortran hwdfiv.F gfortran hwdfor.F gfortran hwdhad.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhad.F:118:72: 118 | 10 IM=LNEXT(IM) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhad.F:142:72: 142 | 30 CALL HWVEQU(4,VERTX,VHEP(1,NHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhad.F:157:72: 157 | 40 RSUM=RSUM+RHOHEP(I,MO) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran hwdhgc.F gfortran hwdhgf.F gfortran hwdhig.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhig.F:30:72: 30 | 10 IF (IHIG.EQ.0.AND.IDHW(I).EQ.201.AND.ISTHEP(I).EQ.1) IHIG=I | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhig.F:47:72: 47 | 1 IF (2*RMASS(I).LT.EMH) ENF=ENF+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhig.F:110:72: 110 | 200 WIDHIG=WIDHIG+BRHIG(IPART) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhig.F:113:72: 113 | 300 BRHIG(IPART)=BRHIG(IPART)/WIDHIG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) gfortran hwdhqk.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhqk.F:31:72: 31 | 20 IM=LNEXT(IM) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhqk.F:80:72: 80 | 40 PHEP(5,NHEP)=RMASS(IDKPRD(I,IM)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran hwdhvy.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhvy.F:86:72: 86 | 10 PHEP(5,NHEP)=RMASS(IDKPRD(J,IM)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhvy.F:135:72: 135 | 30 CALL HWVZRO(4,VHEP(1,NHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwdidp.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdidp.F:20:72: 20 | 10 ID=ID+2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwdpwt.F gfortran hwdthr.F gfortran hwdtop.F gfortran hwdtwo.F gfortran hwdwwt.F gfortran hwdxlm.F gfortran hwefin.F gfortran hwegam.F gfortran hweini.F gfortran hweisr.F gfortran hweone.F gfortran hwepro.F gfortran hwetwo.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwetwo.F:54:72: 54 | 20 PHEP(5,IHEP)=RMASS(IDN(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwetwo.F:71:72: 71 | 30 JDAHEP(2,NHEP+K)=NHEP+J | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwhbgf.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhbgf.F:210:72: 210 | 1 IDHEP(I)=IDPDG(IDHW(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) gfortran hwhbki.F gfortran hwhbrn.F gfortran hwhbsg.F gfortran hwhdis.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhdis.F:240:72: 240 | 90 IF (W.LT.2*RMASS(I)) DISF(I,1)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) gfortran hwhdyp.F gfortran hwhegg.F gfortran hwhegw.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhegw.F:31:72: 31 | 1 IDHEP(I)=IDPDG(IDHW(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) gfortran hwhegx.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhegx.F:112:72: 112 | DO 10 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhegx.F:113:72: 113 | 10 DSIGMA=DSIGMA + C(I,J)*D(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhepa.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhepa.F:32:72: 32 | 20 CLF(I)=CLQ(I,IQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran hwhepg.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhepg.F:117:72: 117 | 20 CLF(I)=CLQ(I,IQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran hwhew0.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew0.F:40:72: 40 | 7 PR(I,2)=-PR(I,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran hwhew1.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew1.F:19:72: 19 | 30 PCM(J,K)=P(J,K+2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwhew2.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:28:72: 28 | DO 1 IJ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:29:72: 29 | 1 P(IJ,L)=PPCM(IJ,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:33:72: 33 | DO 2 JJ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:40:72: 40 | DO 11 J=IP1,NPART | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:82:72: 82 | DO 60 J=IPP1,NPART | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:85:72: 85 | 60 D(I,J)=D(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran hwhew3.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew3.F:53:72: 53 | 6 AMPWW(I)=AMP2*COLFAC(I)*RKW*RKW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) gfortran hwhew4.F gfortran hwhew5.F gfortran hwheww.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwheww.F:111:72: 111 | 70 BRZED(I)=BRZED(I)/BRTOT | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) gfortran hwhhvy.F gfortran hwhig1.F gfortran hwhiga.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhiga.F:79:72: 79 | 20 TAMPR(I)=-AIMAG(TAMP(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran hwhigb.F gfortran hwhigj.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigj.F:33:72: 33 | 10 BR=BR+BRHIG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhigm.F gfortran hwhigs.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigs.F:20:72: 20 | 10 IF (RWGT.GT.EVSUM(I)) IDN(1)=I+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigs.F:56:72: 56 | 30 BRHIGQ=BRHIGQ+BRHIG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwhigt.F gfortran hwhigw.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigw.F:148:72: 148 | 20 BRHIGQ=BRHIGQ+BRHIG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigw.F:300:72: 300 | 62 IF (IDN(I).GE.5) IDN(I)=IDN(I)+2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 62 at (1) gfortran hwhigy.F gfortran hwhigz.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigz.F:62:72: 62 | 10 BRHIGQ=BRHIGQ+BRHIG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhph2.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhph2.F:50:72: 50 | 10 IF (RMASS(ID).LT.RS) TQSQ=TQSQ+QFCH(ID)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhpho.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhpho.F:56:72: 56 | 10 IF (RMASS(ID).LT.RS) TQCH=TQCH+QFCH(ID) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhppb.F gfortran hwhppe.F gfortran hwhpph.F gfortran hwhppm.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhppm.F:75:72: 75 | DO 10 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhppm.F:76:72: 76 | 10 DELT(I,J)=(QFCH(I)*U+QFCH(J)*S)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhppt.F gfortran hwhpqs.F gfortran hwhqcd.F gfortran hwhqcp.F gfortran hwhrem.F gfortran hwhsct.F gfortran hwhsng.F gfortran hwhsnm.F gfortran hwhv1j.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:32:72: 32 | DO 110 J=1,12 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:33:72: 33 | DO 110 K=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:34:72: 34 | 110 DISMAX=MAX(DISFAC(K,J,I),DISMAX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:76:72: 76 | 130 ICO(L)=ICOFLO(L,M) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:177:72: 177 | DO 230 J=1,12 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:178:72: 178 | DO 230 K=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:179:72: 179 | 230 EVWGT=EVWGT+DISFAC(K,J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) gfortran hwhwex.F gfortran hwhwpr.F gfortran hwigin.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:94:72: 94 | 20 PPOLN(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:163:72: 163 | 50 IF (I.LE.MODMAX) MODBOS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:325:72: 325 | 60 VTORDK(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:334:72: 334 | DO 70 J=0,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:335:72: 335 | DO 70 L=0,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:336:72: 336 | 70 REPWT(L,J,N)=1. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) gfortran hwiodk.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:29:72: 29 | 10 K=LNEXT(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:37:72: 37 | 30 K=LNEXT(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:46:72: 46 | 50 K=LNEXT(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:58:72: 58 | DO 70 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:59:72: 59 | 70 CALL HWUIDT(1,ITMP(J),IDKPRD(J,I),CDUM) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:64:72: 64 | 80 IF (IME.EQ.0.AND.NME(I).GE.100) NME(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:70:72: 70 | DO 90 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:71:72: 71 | 90 CALL HWUIDT(3,IDUM,IDKPRD(J,I),CDKPRD(J,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) gfortran hwmevt.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmevt.F:72:72: 72 | 12 INHEP(IBT)=NHEP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) gfortran hwmlps.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmlps.F:45:72: 45 | 12 SUMY=SUMY+PPAR(2,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmlps.F:57:72: 57 | 13 SUMTM=SUMTM+PPAR(3,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmlps.F:84:72: 84 | 19 SUM4=SUM4+(TM/EX)*XI(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmlps.F:89:72: 89 | 18 YY=YY+DYY | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) gfortran hwmnbi.F gfortran hwmodk.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:44:72: 44 | 20 IDKPRD(I,NDKYS)=ITMP(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:58:72: 58 | 30 L=LNEXT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:64:72: 64 | 40 MATCH(J)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:75:72: 75 | 70 L=LNEXT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:82:72: 82 | 80 IDKPRD(I,NDKYS)=ITMP(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:124:72: 124 | 100 JPREV=(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:141:72: 141 | 110 J=LNEXT(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran hwmult.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmult.F:39:72: 39 | 12 CUM(I)=CUM(I)/SUM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) gfortran hwmwgt.F gfortran hwrazm.F gfortran hwrexp.F gfortran hwrexq.F gfortran hwrext.F gfortran hwrgau.F gfortran hwrgen.F gfortran hwrint.F gfortran hwrlog.F gfortran hwrpip.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwrpip.F:15:72: 15 | 10 VTXPIP(I)=HWRGAU(I,VIP(I),VIPWID(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwrpow.F gfortran hwrung.F gfortran hwruni.F gfortran hwsbrn.F gfortran hwsdgg.F gfortran hwsdgq.F gfortran hwsfbr.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfbr.F:75:72: 75 | 10 PROB(IP,IZ)=PSUM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfbr.F:78:72: 78 | 20 PROB(IP,IZ)=PSUM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfbr.F:85:72: 85 | 30 PROB(IP,IZ)=PSUM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfbr.F:89:72: 89 | 40 YY=YY+DELY | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran hwsfun.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:395:72: 395 | 5 XPGA(I)=XPVMD(I)+XPANL(I)+XPBEH(I)+XPDIR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:498:72: 498 | DO 10 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:499:72: 499 | 10 A(J,I)=B(1,J,I,IP)+S*(B(2,J,I,IP)+S*B(3,J,I,IP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:503:72: 503 | & *HWSGAM(ONE+A(3,K))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:506:72: 506 | DO 21 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:507:72: 507 | 21 A(J,I)=BB(1,J,I)+S*(BB(2,J,I)+S*(BB(3,J,I)+S*BB(4,J,I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:512:72: 512 | & *HWSGAM(ONE+A(3,K))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:528:72: 528 | DO 30 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:529:72: 529 | 30 A(J,I)=B(1,J,I,IP)+S*(B(2,J,I,IP)+S*B(3,J,I,IP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:539:72: 539 | & (A(4,I)+X*(A(5,I) + X*A(6,I)))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:572:72: 572 | DO 110 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:573:72: 573 | 110 XQSUM=XQSUM+CEHLQ(IX,IT,NX,IFL,IP)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:574:72: 574 | 120 XQ(IFL)=XQSUM*XMWN**NEHLQ(IFL,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:595:72: 595 | DO 130 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:596:72: 596 | 130 XQSUM=XQSUM+CEHLQ(IX,IT,NX,7,IP)*TX(IX)*TB(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:616:72: 616 | DO 150 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:617:72: 617 | 150 XQSUM=XQSUM+CEHLQ(IX,IT,NX,8,IP)*TX(IX)*TB(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) gfortran hwsgam.F gfortran hwsgen.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsgen.F:25:72: 25 | DO 10 J=1,13 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) gfortran hwsgqq.F gfortran hwsspc.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsspc.F:35:72: 35 | 10 IF (IDH.EQ.NCLDK(LOCN(IDP,ISP))) GOTO 20 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsspc.F:48:72: 48 | 30 IF (IDH.EQ.NCLDK(LOCN(ISP,IDP))) GOTO 40 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwssud.F gfortran hwstab.F gfortran hwsval.F gfortran hwuaem.F gfortran hwuaer.F gfortran hwualf.F gfortran hwuant.F gfortran hwubpr.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwubpr.F:19:72: 19 | & (JCOPAR(I,J),I=1,4),(PPAR(I,J),I=1,5),(VPAR(I,J),I=1,4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwubpr.F:28:72: 28 | & (JCOPAR(I,J),I=1,4),(PPAR(I,J),I=1,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran hwubst.F gfortran hwucff.F gfortran hwuci2.F gfortran hwudat.F gfortran hwudkl.F gfortran hwudks.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:34:72: 34 | 20 NMODES(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:38:72: 38 | 30 CMMOM(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:75:72: 75 | 50 L=LNEXT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:81:72: 81 | 60 MATCH(M)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:92:72: 92 | 90 L=LNEXT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:128:72: 128 | 160 K=LNEXT(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:136:72: 136 | 170 LNEXT(LTMP(INDX(J-1)))=LTMP(INDX(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:153:72: 153 | 200 DKLTM(I+6)=DKLTM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:159:72: 159 | 210 DKLTM(I+6)=DKLTM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:237:72: 237 | 230 PMATCH(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:246:72: 246 | 240 MATCH(K)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:258:72: 258 | 270 LP=LNEXT(LP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:270:72: 270 | 290 LR=LNEXT(LR) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:276:72: 276 | 300 LP=LNEXT(LP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) gfortran hwudpr.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudpr.F:39:72: 39 | 40 WRITE(6,50) BRFRAC(K),NME(K),(RNAME(IDKPRD(L,K)),L=1,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran hwuecm.F gfortran hwuedt.F gfortran hwueec.F gfortran hwuemv.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuemv.F:17:72: 17 | 100 IEDT(I)=LTO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran hwuepr.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuepr.F:40:72: 40 | 30 FIRST(K)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwufne.F gfortran hwugau.F gfortran hwuidt.F gfortran hwuinc.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:104:72: 104 | 120 RMASS(I+6)=RMASS(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:127:72: 127 | 130 QWT(I)=PWT(I)*QMAX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:129:72: 129 | 140 PWT(I)=PWT(I)*PMAX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:138:72: 138 | 150 RMASS(I+6)=RMASS(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:155:72: 155 | 160 RMASS(I+22)=RMASS(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:161:72: 161 | DO 170 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:164:72: 164 | 170 CTHRPW(I+6,J )=(CLMXPW+(RMASS(I+114)+RMASS(J+6 ))**CLPOW)**RCLPOW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:475:72: 475 | 480 PGSPL(I)=PGS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 480 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:487:72: 487 | 500 NSPAC(I)=J-1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1) gfortran hwuine.F gfortran hwulb4.F gfortran hwuldo.F gfortran hwulf4.F gfortran hwuli2.F gfortran hwulob.F gfortran hwulof.F gfortran hwulor.F gfortran hwumas.F gfortran hwupcm.F gfortran hwurap.F gfortran hwures.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwures.F:120:72: 120 | 110 CLDKWT(J)=CLDKWT(J)*RWTMX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwures.F:211:72: 211 | 150 CLDKWT(I)=CLDKWT(I)*RWTMX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwures.F:231:72: 231 | 170 CLDKWT(J)=CDWTMP(I)*RWTMX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwures.F:248:72: 248 | DO 190 J=1,12 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 190 at (1) gfortran hwurob.F gfortran hwurof.F gfortran hwurot.F gfortran hwusor.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwusor.F:41:72: 41 | IF(IR(J)) 12,30,13 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwusor.F:48:72: 48 | 31 A(I)=B(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) gfortran hwusqr.F gfortran hwusta.F gfortran hwutab.F gfortran hwutim.F gfortran hwvdif.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvdif.F:12:72: 12 | 10 R(I)=P(I)-Q(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwvdot.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvdot.F:13:72: 13 | 10 PQ=PQ+P(I)*Q(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwvequ.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvequ.F:12:72: 12 | 10 Q(I)=P(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwvsca.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvsca.F:12:72: 12 | 10 Q(I)=C*P(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwvsum.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvsum.F:12:72: 12 | 10 R(I)=P(I)+Q(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwvzro.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvzro.F:12:72: 12 | 10 P(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwwarn.F gfortran ieupdg.F gfortran ipdgeu.F gfortran qqinit.F gfortran qqlmat.F gfortran sasano.F gfortran sasbeh.F gfortran sasdir.F gfortran sasgam.F gfortran sasvmd.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/herwig/code' rebuild archive library libherwig59.a in /mclibs/herwig Sun Jan 5 13:36:42 UTC 2020 Sun Jan 5 13:36:42 UTC 2020 ranlib libherwig59.a install -c -m 0644 libherwig59.a /<>/mclibs-20061220+dfsg3/lib/libherwig59.a ranlib /<>/mclibs-20061220+dfsg3/lib/libherwig59.a rm -f libherwig59.a ln -s /<>/mclibs-20061220+dfsg3/lib/libherwig59.a libherwig59.a (cd /<>/mclibs-20061220+dfsg3/lib; \ rm -f libherwig.a; \ ln -s libherwig59.a libherwig.a) make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/herwig' installing in /mclibs/isajet... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet' making Makefiles in /mclibs/isajet/code... making Makefiles in /mclibs/isajet/isadata... making Makefiles in /mclibs/isajet/isasusy... making Makefiles in /mclibs/isajet/isarun... making Makefiles in /mclibs/isajet/isatape... checking /mclibs/isajet/code make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/code' makedepend archive/ zjj7.F makedepend archive/ zjj6.F makedepend archive/ zjj5.F makedepend archive/ zjj4.F makedepend archive/ zjj3.F makedepend archive/ zjj2.F makedepend archive/ zjj1.F makedepend archive/ zjj0.F makedepend archive/ zjj.F makedepend archive/ szjj7.F makedepend archive/ szjj6.F makedepend archive/ szjj5.F makedepend archive/ szjj4.F makedepend archive/ szjj3.F makedepend archive/ szjj2.F makedepend archive/ szjj1.F makedepend archive/ sigkkg.F makedepend archive/ setkkg.F makedepend archive/ muljet.F makedepend archive/ mginit.F makedepend archive/ logmij.F makedepend archive/ logmgy.F makedepend archive/ logmgm.F makedepend archive/ kkgf3.F makedepend archive/ kkgf2.F makedepend archive/ kkgf1.F makedepend archive/ evol11.F makedepend archive/ dhelas.F makedepend archive/ amgmw.F makedepend archive/ alqcd.F makedepend archive/ zzstar.F makedepend archive/ zzall.F makedepend archive/ ssfel.F makedepend archive/ spline.F makedepend archive/ fbrbm.F makedepend archive/ estruc.F makedepend archive/ ebeam.F makedepend archive/ dincgm.F makedepend archive/ decva.F makedepend archive/ dectau.F makedepend archive/ decss3.F makedepend archive/ decps2.F makedepend archive/ decps1.F makedepend archive/ ygenj.F makedepend archive/ xzzzz.F makedepend archive/ xzzww.F makedepend archive/ xwwzz.F makedepend archive/ xwwww.F makedepend archive/ wztu.F makedepend archive/ wzsu.F makedepend archive/ wzst.F makedepend archive/ wzss.F makedepend archive/ wwtt.F makedepend archive/ wwst.F makedepend archive/ wwss.F makedepend archive/ wwkin.F makedepend archive/ wpair.F makedepend archive/ whiggs.F makedepend archive/ visaje.F makedepend archive/ twokin.F makedepend archive/ twojet.F makedepend archive/ timer.F makedepend archive/ strucw.F makedepend archive/ struc.F makedepend archive/ ssgt.F makedepend archive/ ssgst.F makedepend archive/ smszg.F makedepend archive/ sigww2.F makedepend archive/ sigww.F makedepend archive/ sigwhs.F makedepend archive/ sigwh.F makedepend archive/ sigtc3.F makedepend archive/ sigtc2.F makedepend archive/ sigtc.F makedepend archive/ sigssz.F makedepend archive/ sigssy.F makedepend archive/ sigssl.F makedepend archive/ sigsse.F makedepend archive/ sigqcd.F makedepend archive/ sigint.F makedepend archive/ sighss.F makedepend archive/ sigh3.F makedepend archive/ sigh2.F makedepend archive/ sigh.F makedepend archive/ siggam.F makedepend archive/ sigfil.F makedepend archive/ sigee.F makedepend archive/ sigdy2.F makedepend archive/ sigdy.F makedepend archive/ setw.F makedepend archive/ settyp.F makedepend archive/ setnxt.F makedepend archive/ sethss.F makedepend archive/ seth.F makedepend archive/ setdky.F makedepend archive/ setcon.F makedepend archive/ reset.F makedepend archive/ rescal.F makedepend archive/ rejjet.F makedepend archive/ rejfrg.F makedepend archive/ readin.F makedepend archive/ ranlux.F makedepend archive/ ranflux.F makedepend archive/ qfunc.F makedepend archive/ qcdz.F makedepend archive/ qcdt.F makedepend archive/ qcdjet.F makedepend archive/ qcdinz.F makedepend archive/ qcdint.F makedepend archive/ qcdini.F makedepend archive/ ptfun.F makedepend archive/ prtlim.F makedepend archive/ prtevt.F makedepend archive/ order.F makedepend archive/ ordecr.F makedepend archive/ nogood.F makedepend archive/ mbset.F makedepend archive/ mbias.F makedepend archive/ lstsq.F makedepend archive/ logyw.F makedepend archive/ logyth.F makedepend archive/ logxw.F makedepend archive/ logx.F makedepend archive/ logthw.F makedepend archive/ logqt.F makedepend archive/ logqm.F makedepend archive/ logpt.F makedepend archive/ logphw.F makedepend archive/ logphi.F makedepend archive/ logp.F makedepend archive/ logic.F makedepend archive/ logerr.F makedepend archive/ lboost.F makedepend archive/ label.F makedepend archive/ jetgen.F makedepend archive/ iswdky.F makedepend archive/ istrad.F makedepend archive/ ispjet.F makedepend archive/ isasrt.F makedepend archive/ isajet.F makedepend archive/ isaini.F makedepend archive/ isaevt.F makedepend archive/ isaend.F makedepend archive/ isabeg.F makedepend archive/ irmov0.F makedepend archive/ iprtns.F makedepend archive/ ipjset.F makedepend archive/ ipartns.F makedepend archive/ inisap.F makedepend archive/ iframs.F makedepend archive/ idgen.F makedepend archive/ idanti.F makedepend archive/ higgs.F makedepend archive/ hevolv.F makedepend archive/ heavyx.F makedepend archive/ gettot.F makedepend archive/ getpt.F makedepend archive/ frgmnt.F makedepend archive/ frgjet.F makedepend archive/ fortop.F makedepend archive/ flavor.F makedepend archive/ evolve.F makedepend archive/ evolms.F makedepend archive/ evol07.F makedepend archive/ evol06.F makedepend archive/ evol05.F makedepend archive/ evol03.F makedepend archive/ evol02.F makedepend archive/ evol01.F makedepend archive/ epf.F makedepend archive/ elctrn.F makedepend archive/ eemax.F makedepend archive/ eebeg.F makedepend archive/ drllyn.F makedepend archive/ domssm.F makedepend archive/ decjet.F makedepend archive/ decay.F makedepend archive/ dboost.F makedepend archive/ dblvec.F makedepend archive/ dblpcm.F makedepend archive/ ctxout.F makedepend archive/ ctxin.F makedepend archive/ ctxi2c.F makedepend archive/ ctxc2i.F makedepend archive/ cteq5l.F makedepend archive/ charge.F makedepend archive/ amass.F gfortran amass.F gfortran charge.F gfortran cteq5l.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/cteq5l.F:231:22: 231 | DO 110 K = 0, MLFVEC(IFL) | 1 Warning: Deleted feature: End expression in DO loop at (1) must be integer gfortran ctxc2i.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ctxc2i.F:14:72: 14 | 100 IVAL(I)=ICHAR(CVAL(I:I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran ctxi2c.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ctxi2c.F:14:72: 14 | 100 CVAL(I:I)=CHAR(IVAL(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran ctxin.F gfortran ctxout.F gfortran dblpcm.F gfortran dblvec.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dblvec.F:16:72: 16 | 100 DP(K)=P(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran dboost.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dboost.F:12:72: 12 | 100 DP(K)=P(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dboost.F:23:72: 23 | 110 DBP=DBP+DF(K)*DP(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dboost.F:26:72: 26 | 120 DP(K)=DP(K)+DSIGN*DF(K)*DP(4)/DF(5)+DF(K)*DBP/(DF(4)+DF(5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dboost.F:30:72: 30 | 130 P(K)=DP(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gfortran decay.F gfortran decjet.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:48:72: 48 | 110 PJSET(K,NJSET)=PREST(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:80:72: 80 | 130 BETAW(K)=PWREST(K)/PWREST(4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:88:72: 88 | $ -BP*GAMMAW/(GAMMAW+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 141 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:123:72: 123 | 210 PPTCL(K,NPTCL)=PJSET(K,NJSAVE+4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:134:72: 134 | 221 PPTCL(K,NPTCL)=PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 221 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:151:72: 151 | $ +BP*GAMMAW/(GAMMAW+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 241 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:171:72: 171 | 261 PPTCL(K,NPTCL)=PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 261 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:224:72: 224 | DO 322 KK=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 322 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:225:72: 225 | 322 PPTCL(K,II)=PPTCL(K,II)+ROT(K,KK)*PSAVE(KK) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 322 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:235:72: 235 | 331 PPTCL(K,NPTCL)=PJSET(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 331 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:305:72: 305 | 510 PPTCL(K,NPTCL+1)=PPTCL(K,NPTCLW) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:308:72: 308 | 520 PSUM(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 520 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:318:72: 318 | 530 BETAW(K)=PPTCL(K,NPTCL+1)/PPTCL(4,NPTCL+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:332:72: 332 | 550 PSUM(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 550 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:353:72: 353 | $ +BP*GAMMAW/(GAMMAW+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) gfortran domssm.F gfortran drllyn.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/drllyn.F:85:72: 85 | 2 SIGSL(K)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/drllyn.F:276:72: 276 | 310 BP=BP+PL(K)*PREST(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/drllyn.F:280:72: 280 | $ +PREST(K)*BP/(PREST(4)+PREST(5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/drllyn.F:380:72: 380 | 503 QWJET(K)=PJETS(K,1)+PJETS(K,2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 503 at (1) gfortran eebeg.F gfortran eemax.F gfortran elctrn.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/elctrn.F:63:72: 63 | 10 SIGS(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran epf.F gfortran evol01.F gfortran evol02.F gfortran evol03.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol03.F:38:72: 38 | 105 PJSET(K,NJSET)=PJETS(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol03.F:47:72: 47 | 120 PJSET(K,NJSET)=QWJET(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol03.F:57:72: 57 | 115 PJSET(K,NJSET)=PJETS(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol03.F:115:72: 115 | 400 BP=BP+FRAME(K,1)*PJSET(K,N0W) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1) gfortran evol05.F gfortran evol06.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol06.F:40:72: 40 | 135 PJSET(K,NJSET)=PPAIR(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol06.F:62:72: 62 | 200 JMATCH(I+1)=I | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol06.F:65:72: 65 | 231 FRAME(K,I)=PJSET(K,N0JETS+I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 231 at (1) gfortran evol07.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol07.F:46:72: 46 | 135 PJSET(K,NJSET)=PPAIR(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol07.F:69:72: 69 | 141 JMATCH(J)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 141 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol07.F:73:72: 73 | 142 JDCAY(J)=-2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 142 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol07.F:91:72: 91 | 231 DSUM(K)=DSUM(K)+DPASS(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 231 at (1) gfortran evolms.F gfortran evolve.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evolve.F:42:72: 42 | 105 PJSET(K,NJSET)=PINITS(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evolve.F:81:72: 81 | 505 BP=BP+FRAME(K,IFR)*PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 505 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evolve.F:85:72: 85 | 1 +FRAME(K,IFR)*BP/(FRAME(4,IFR)+FRAME(5,IFR)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) gfortran flavor.F gfortran fortop.F gfortran frgjet.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgjet.F:88:72: 88 | DO 240 K2=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgjet.F:89:72: 89 | 240 PPTCL(K1,IP)=PPTCL(K1,IP)+ROT(K1,K2)*POLD(K2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) gfortran frgmnt.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:39:72: 39 | 100 DSUM(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:47:72: 47 | 102 DSUM(K)=DSUM(K)+DPASS(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 102 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:51:72: 51 | 103 PALLJ(K)=DSUM(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 103 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:62:72: 62 | 120 PIN(K,IB)=PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:85:72: 85 | 130 PSUM(K)=-PALLJ(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:94:72: 94 | 140 PBEAMS(K)=PPTCL(K,NPTCL1)+PPTCL(K,NPTCL2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:121:72: 121 | 220 PSUM(K)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:156:72: 156 | 243 PSUM(K)=PSUM(K)+PJSET(K,JJET) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 243 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:167:72: 167 | 245 CALL FRGJET(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 245 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:172:72: 172 | 250 PSUM(K)=PJSET(K,N0W) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:176:72: 176 | DO 246 K=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 246 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:182:72: 182 | 260 PWREST(K)=PPTCL(K,NPTCL1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:200:72: 200 | 305 BP=BP+FRAME(K,IFR)*PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:204:72: 204 | $ +FRAME(K,IFR)*BP/(FRAME(4,IFR)+FRAME(5,IFR)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:217:72: 217 | 420 FRAME(K,1)=PALLJ(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:220:72: 220 | 430 BP=BP+FRAME(K,1)*PWREST(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:244:72: 244 | 510 BP=BP+FRAME(K,IFR)*PPTCL(K,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:248:72: 248 | $ +FRAME(K,IFR)*BP/(FRAME(4,IFR)+FRAME(5,IFR)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 520 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:293:72: 293 | 531 BP=BP+POLD(K)*PPTCL(K,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 531 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:297:72: 297 | $ +POLD(K)*BP/(POLD(4)+POLD(5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 532 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:302:72: 302 | 533 BP=BP+PNEW(K)*PPTCL(K,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 533 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:306:72: 306 | $ +PNEW(K)*BP/(PNEW(4)+PNEW(5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 534 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:312:72: 312 | 541 PBEAMS(K)=-PNEW(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 541 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:332:72: 332 | 620 IORIG(IP1)=ISIGN(IABS(IORIG(IP1))+IPACK*JET,IORIG(IP1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 620 at (1) gfortran getpt.F gfortran gettot.F gfortran heavyx.F gfortran hevolv.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:31:72: 31 | DO 10 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:32:72: 32 | 10 PSAVE(K,I)=PJSET(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:35:72: 35 | DO 30 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:36:72: 36 | 30 PJSET(K,I)=PSAVE(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:38:72: 38 | 40 PFINAL(K)=QWJET(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:105:72: 105 | 130 FZ=FZ+FZIQ(IQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:117:72: 117 | 140 IF(SUM.GT.TRY) GO TO 150 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:203:72: 203 | 200 BST2(K)=PJSET(K,J1)+PJSET(K,J2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:212:72: 212 | 210 B2B1(K)=BST2(K)-BST1(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:232:72: 232 | 221 BP21=BP21+B2B1(K)*PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 221 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:236:72: 236 | $+B2B1(K)*BP1*BIK1+BST2(K)*BP21*BIK2+BST2(K)*BP1*BIK3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 222 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:247:72: 247 | 231 PJSET(K,J)=PJSET(K,JX1)-PJSET(K,JX2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 231 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:254:72: 254 | 240 PFINAL(K)=PJSET(K,J2)+PJSET(K,NJ1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) gfortran higgs.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/higgs.F:33:72: 33 | 110 PPAIR(K,I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran idanti.F gfortran idgen.F gfortran iframs.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/iframs.F:46:72: 46 | 210 DSUM(K)=DSUM(K)+DPASS(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran inisap.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/inisap.F:57:72: 57 | 18 KEYS(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) gfortran ipartns.F gfortran ipjset.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ipjset.F:25:72: 25 | 115 PJSET(K,NJSET)=PJETS(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) gfortran iprtns.F gfortran irmov0.F gfortran isabeg.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:76:72: 76 | 105 CALL TWOJET | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:87:72: 87 | 205 CALL ELCTRN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:98:72: 98 | 305 CALL DRLLYN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:117:72: 117 | 505 CALL TWOJET | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 505 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:129:72: 129 | 605 CALL WPAIR | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 605 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:145:72: 145 | 705 CALL DRLLYN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 705 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:156:72: 156 | 805 CALL TWOJET | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 805 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:167:72: 167 | 905 CALL DRLLYN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 905 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:179:72: 179 | 906 CALL WHIGGS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 906 at (1) gfortran isaend.F gfortran isaevt.F gfortran isaini.F gfortran isajet.F gfortran isasrt.F gfortran ispjet.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ispjet.F:77:72: 77 | 100 PDMPT(JP)=PINPT(JP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ispjet.F:80:72: 80 | 105 JDORD(JP) = JIORD(NP-JP+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ispjet.F:86:72: 86 | 110 JCNN(JO,1)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ispjet.F:161:72: 161 | 300 PDMPT(JP)=PJPT(JP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ispjet.F:167:72: 167 | 305 JDORD(JP) = JIORD(NPJ-JP+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1) gfortran istrad.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/istrad.F:35:72: 35 | 150 JDCAY(I)=-2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) gfortran iswdky.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/iswdky.F:123:72: 123 | 140 PREST(K)=QWJET(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/iswdky.F:141:72: 141 | 310 BP=BP+PL(K)*PREST(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/iswdky.F:145:72: 145 | $ +PREST(K)*BP/(PREST(4)+PREST(5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) gfortran jetgen.F gfortran label.F gfortran lboost.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/lboost.F:16:72: 16 | 2 P2(K,I)=P1(K,I)-FACT*PREST(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran logerr.F gfortran logic.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/logic.F:116:72: 116 | 11 YJMIN(I)=AMAX1(YJMIN(I),-YMXPT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) gfortran logp.F gfortran logphi.F gfortran logphw.F gfortran logpt.F gfortran logqm.F gfortran logqt.F gfortran logthw.F gfortran logx.F gfortran logxw.F gfortran logyth.F gfortran logyw.F gfortran lstsq.F gfortran mbias.F gfortran mbset.F gfortran nogood.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/nogood.F:59:72: 59 | 110 II=II/IOPAK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/nogood.F:62:72: 62 | 120 II=II/IOPAK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/nogood.F:100:72: 100 | 220 II=II/IOPAK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/nogood.F:108:72: 108 | 230 II=II/IOPAK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/nogood.F:111:72: 111 | 240 II=II/IOPAK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) gfortran ordecr.F gfortran order.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:36:72: 36 | 100 IF(MODEIN(I).NE.0) NADD=I | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:42:72: 42 | 110 MODTST(K)=MODEIN(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:45:72: 45 | 120 MODTST(K)=IDANTI(MODEIN(K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:54:72: 54 | 210 IF(MODE(K,I).NE.0) NADDI=K | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:57:72: 57 | 220 IUSE(K)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:85:72: 85 | 310 MODOUT(K)=MODEIN(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:89:72: 89 | 320 MODOUT(K)=MODE(K,ISAME) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:93:72: 93 | 330 MODOUT(K)=IDANTI(MODE(K,ISAME)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1) gfortran prtevt.F gfortran prtlim.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/prtlim.F:136:72: 136 | 300 STUF(I)=BLANK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) gfortran ptfun.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ptfun.F:29:72: 29 | 89 STOR(I)=PCPY(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 89 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ptfun.F:140:72: 140 | 109 PCPY(I)=STOR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 109 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ptfun.F:172:72: 172 | 301 PCPY(I)=STOR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 301 at (1) gfortran qcdini.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:40:72: 40 | 97 PFKEEP(K)=PJSET(K,JIN1)+PJSET(K,JIN2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 97 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:61:72: 61 | DO 98 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 98 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:62:72: 62 | 98 PJKEEP(K,I)=PJSET(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 98 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:72:72: 72 | DO 99 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 99 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:73:72: 73 | 99 PJSET(K,I)=PJKEEP(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 99 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:76:72: 76 | 100 PFINAL(K)=PFKEEP(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:179:72: 179 | 120 PJSET(K,NEWF)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:251:72: 251 | 130 PJSET(K,NEWF2)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:285:72: 285 | 201 BOOST1(K)=PFINAL(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:288:72: 288 | 202 BOOST2(K)=PJSET(K,NEWV)+PJSET(K,IVIR2)-PJSET(K,NEWF) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 202 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:302:72: 302 | 204 DBL2(K)=BOOST2(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 204 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:309:72: 309 | 205 B2B1(K)=DBL2(K)-DBL1(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:330:72: 330 | 215 BP21=BP21+B2B1(K)*PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:334:72: 334 | $+B2B1(K)*BP1*BIK1+BOOST2(K)*BP21*BIK2+BOOST2(K)*BP1*BIK3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:340:72: 340 | 230 PFINAL(K)=BOOST2(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:351:72: 351 | 250 DBL1(K)=PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:377:72: 377 | 300 PFINAL(K)=DBL1(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) gfortran qcdint.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdint.F:41:72: 41 | 110 ANF=ANF+T0/(AMQ2+T0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdint.F:59:72: 59 | 210 GAMQ=GAMQ+GAMS(IQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran qcdinz.F gfortran qcdjet.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdjet.F:113:72: 113 | 225 PJSET(K,JJ(L))=RATIO*PJSET(K,JJ(L)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 225 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdjet.F:130:72: 130 | 420 PPTCL(K,NPTCL+JI-JI1+1)=PJSET(K,JI) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdjet.F:137:72: 137 | DO 430 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdjet.F:210:72: 210 | 241 BP=BP+PJSET(K,J0)*SGN*P1CM(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 241 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdjet.F:215:72: 215 | 1 +PJSET(K,J0)*BP/(PJSET(4,J0)+PJSET(5,J0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 242 at (1) gfortran qcdt.F gfortran qcdz.F gfortran qfunc.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qfunc.F:129:72: 129 | 210 SUMS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qfunc.F:301:72: 301 | 410 QSELWT(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1) gfortran ranflux.F gfortran ranlux.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ranlux.F:162:72: 162 | 195 TWOM24 = TWOM24 * 0.5 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 195 at (1) gfortran readin.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:117:72: 117 | 20 TITLE(I)=TTL(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:126:72: 126 | 18 KEYS(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:398:72: 398 | 152 IF(JETYP(K,IJ).NE.BLANK) NJTTYP(IJ)=NJTTYP(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 152 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:606:72: 606 | 351 KFORCE(K)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 351 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:621:72: 621 | 352 MFORCE(K,NFORCE+1)=IDANTI(MFORCE(K,NFORCE)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 352 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:636:72: 636 | 353 KFORCE(K)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 353 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:664:72: 664 | 372 IF(WWTYP(K,IJ).NE.BLANK) NWWTYP(IJ)=NWWTYP(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 372 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:753:72: 753 | 463 IF(WMODES(K,IJ).NE.BLANK) NWMODE(IJ)=NWMODE(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 463 at (1) gfortran rejfrg.F gfortran rejjet.F gfortran rescal.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:14:72: 14 | 100 PADD(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:16:72: 16 | DO 110 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:24:72: 24 | 120 BETA(K)=-PADD(K)/PADD(5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:31:72: 31 | 220 BP=BP+PPTCL(K,IP)*BETA(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:34:72: 34 | $+BETA(K)*BP/(GAMMA+1.) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:44:72: 44 | 320 PPTCL(K,IP)=SCAL*PPTCL(K,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:50:72: 50 | 301 IF(ABS(SCAL-1.).LE.ERRLIM) GO TO 300 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 301 at (1) gfortran reset.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:57:72: 57 | 111 XGENSS(K)=.5 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 111 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:110:72: 110 | 125 AMLEP(INDEX)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:129:72: 129 | DO 130 J=1,MXGOJ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:130:72: 130 | 130 GOQ(I,J)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:132:72: 132 | 131 GOALL(I)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 131 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:139:72: 139 | DO 132 J=1,25 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 132 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:140:72: 140 | 132 GOWW(J,I)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 132 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:142:72: 142 | DO 133 J=1,25 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 133 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:143:72: 143 | 133 GOWMOD(J,I)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 133 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:149:72: 149 | 140 LOC(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:153:72: 153 | DO 141 K=2,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 141 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:154:72: 154 | 141 JETYP(K,I)=BLANK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 141 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:159:72: 159 | DO 142 K=2,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 142 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:160:72: 160 | 142 WWTYP(K,I)=BLANK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 142 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:164:72: 164 | DO 143 K=2,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 143 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:165:72: 165 | 143 WMODES(K,I)=BLANK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 143 at (1) gfortran setcon.F gfortran setdky.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/setdky.F:320:72: 320 | 320 MODE(K,LOOP)=MFORCE(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/setdky.F:323:72: 323 | 330 MODE(K,LOOP)=IDANTI(MFORCE(K,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1) gfortran seth.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/seth.F:56:72: 56 | 100 HGAMS(IQ)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran sethss.F gfortran setnxt.F gfortran settyp.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:77:72: 77 | 1210 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:83:72: 83 | 1220 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:90:72: 90 | 1230 GOQ(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:97:72: 97 | 1240 GOQ(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:139:72: 139 | 5100 GOQ(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:150:72: 150 | 5210 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:156:72: 156 | 5220 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:162:72: 162 | 5230 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:168:72: 168 | 5240 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:190:72: 190 | 2100 GOQ(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:204:72: 204 | 2210 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:225:72: 225 | 2350 GOWW(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2350 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:238:72: 238 | 2410 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2410 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:244:72: 244 | 2420 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:251:72: 251 | 2430 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:258:72: 258 | 2440 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2440 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:284:72: 284 | 3100 GOQ(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:298:72: 298 | 3210 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:304:72: 304 | 3220 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:311:72: 311 | 3240 GOQ(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:331:72: 331 | 3350 GOWW(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3350 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:344:72: 344 | 3410 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3410 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:350:72: 350 | 3420 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:357:72: 357 | 3430 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:364:72: 364 | 3440 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3440 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:387:72: 387 | 4200 GOWMOD(K,IW)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:398:72: 398 | 4310 GOWMOD(K,IW)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:404:72: 404 | 4320 GOWMOD(K,IW)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:411:72: 411 | 4330 GOWMOD(K+1,IW)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4330 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:418:72: 418 | 4340 GOWMOD(K+1,IW)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4340 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:443:72: 443 | 6350 GOWW(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6350 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:456:72: 456 | 6410 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6410 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:462:72: 462 | 6420 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:469:72: 469 | 6430 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:476:72: 476 | 6440 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6440 at (1) gfortran setw.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/setw.F:222:72: 222 | 430 RBRWW(IQ,IW,JET)=RBRWW(IQ,IW,JET)/(SUM*TBRWW(IW,JET)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 430 at (1) gfortran sigdy.F gfortran sigdy2.F gfortran sigee.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigee.F:87:72: 87 | 10 SIGS(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sigfil.F gfortran siggam.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/siggam.F:55:72: 55 | DO 110 IQ=1,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) gfortran sigh.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:81:72: 81 | 100 SIGS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:88:72: 88 | 120 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:90:72: 90 | 130 QSAVE(IQ,IH)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:178:72: 178 | DO 311 J=I,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 311 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:188:72: 188 | 314 C=C+ANWWWW(K+1,I,L)*ANWWWW(N-K+1,J,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 314 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:234:72: 234 | DO 321 J=I,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 321 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:244:72: 244 | 324 C=C+ANWWWW(K+1,I,L)*ANWWWW(N-K+1,J,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 324 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:290:72: 290 | DO 411 J=I,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 411 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:300:72: 300 | 414 C=C+ANWWWW(K+1,I,L)*ANWWWW(N-K+1,J,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 414 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:333:72: 333 | DO 421 J=I,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 421 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:343:72: 343 | 424 C=C+ANWWWW(K+1,I,L)*ANWWWW(N-K+1,J,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 424 at (1) gfortran sigh2.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh2.F:74:72: 74 | DO 111 J=I,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 111 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh2.F:84:72: 84 | 114 C=C+ANWWWW(K+1,I,L)*ANWWWW(N-K+1,J,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 114 at (1) gfortran sigh3.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:51:72: 51 | DO 10 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:52:72: 52 | 10 PFCM(K,I)=PPAIR(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:54:72: 54 | DO 11 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:55:72: 55 | 11 PWCM(K,I)=PJETS(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:63:72: 63 | 20 PFCM(4,I)=TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:67:72: 67 | 21 PWCM(4,I)=TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:80:72: 80 | 30 PFCM(1,I)=TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:85:72: 85 | 31 PFCM(1,I)=TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:98:72: 98 | 40 PFCM(4,I)=TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:110:72: 110 | 100 IF(IDADDR(I).GE.11) IDADDR(I)=IDADDR(I)-4 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:207:72: 207 | 130 TERM=TERM+ANWWWW(I,J,L)*ZCM**(I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:209:72: 209 | 120 FTERM(L)=FTERM(L)+TERM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:238:72: 238 | DO 140 I2=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:240:72: 240 | DO 140 I3=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:242:72: 242 | DO 140 I4=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:262:72: 262 | DO 150 I2=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) gfortran sighss.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sighss.F:77:72: 77 | 100 SIGS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sighss.F:84:72: 84 | 120 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sighss.F:86:72: 86 | 130 QSAVE(IQ,IH)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gfortran sigint.F gfortran sigqcd.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigqcd.F:76:72: 76 | DO 110 IQ=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) gfortran sigsse.F gfortran sigssl.F gfortran sigssy.F gfortran sigssz.F gfortran sigtc.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigtc.F:89:72: 89 | 100 SIGS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigtc.F:99:72: 99 | 120 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigtc.F:101:72: 101 | 130 QSAVE(IQ,IH)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gfortran sigtc2.F gfortran sigtc3.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigtc3.F:40:72: 40 | DO 10 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigtc3.F:44:72: 44 | DO 11 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) gfortran sigwh.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigwh.F:51:72: 51 | 10 SIGS(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sigwhs.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigwhs.F:46:72: 46 | 10 SIGS(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sigww.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:75:72: 75 | 10 SIGS(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:96:72: 96 | DO 110 IQ=2,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:97:72: 97 | 110 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:143:72: 143 | DO 210 IQ=2,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:144:72: 144 | 210 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:187:72: 187 | DO 320 IQ=1,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:188:72: 188 | 320 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:267:72: 267 | DO 420 IQ=1,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:268:72: 268 | 420 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:306:72: 306 | DO 510 IQ=2,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 510 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:307:72: 307 | 510 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:326:72: 326 | DO 610 IQ=2,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 610 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:327:72: 327 | 610 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) gfortran sigww2.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww2.F:308:24: 304 | DO K=1,5 | 2 ...... 308 | E(K)=SNGL(PZERO(K,1)) | 1 Warning: Array reference at (1) out of bounds (5 > 4) in loop beginning at (2) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww2.F:309:25: 304 | DO K=1,5 | 2 ...... 309 | EB(K)=SNGL(PZERO(K,2)) | 1 Warning: Array reference at (1) out of bounds (5 > 4) in loop beginning at (2) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww2.F:336:24: 332 | DO K=1,5 | 2 ...... 336 | E(K)=SNGL(PZERO(K,1)) | 1 Warning: Array reference at (1) out of bounds (5 > 4) in loop beginning at (2) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww2.F:337:25: 332 | DO K=1,5 | 2 ...... 337 | EB(K)=SNGL(PZERO(K,2)) | 1 Warning: Array reference at (1) out of bounds (5 > 4) in loop beginning at (2) gfortran smszg.F gfortran ssgst.F gfortran ssgt.F gfortran struc.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/struc.F:301:72: 301 | DO 1030 JX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1030 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/struc.F:302:72: 302 | 1030 TERM=TERM+E1STRC(JX,JQ,IFIT2)*CHEBQ(JQ)*CHEBX(JX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1030 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/struc.F:309:72: 309 | DO 1040 JX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1040 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/struc.F:310:72: 310 | 1040 TERM=TERM+E1STRC(JX,JQ,3+ISHFT)*CHEBQ(JQ)*CHEBX(JX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1040 at (1) gfortran strucw.F gfortran timer.F gfortran twojet.F gfortran twokin.F gfortran visaje.F gfortran whiggs.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/whiggs.F:88:72: 88 | 202 BRANCH(JQ)=BRANCH(JQ)/SUMBR | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 202 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/whiggs.F:140:72: 140 | 320 PBOOST(K)=-PJETS(K,JET) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) gfortran wpair.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:69:72: 69 | 121 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 121 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:71:72: 71 | 122 QSAVE(IQ,IH)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 122 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:74:72: 74 | 123 QSAVE(IQ,IH)=STRUCW(X(IH),IQ-25,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 123 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:117:72: 117 | 202 BRANCH(JQ)=BRANCH(JQ)/SUMBR | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 202 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:195:72: 195 | 320 PBOOST(K)=-PJETS(K,JET) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:208:72: 208 | 340 PZERO(K,NJ0-1)=P1CM0(K)+BOOST*PWW(K,JET) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:213:72: 213 | 350 PZERO(K,NJ0)=P2CM0(K)+BOOST*PWW(K,JET) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1) gfortran wwkin.F gfortran wwss.F gfortran wwst.F gfortran wwtt.F gfortran wzss.F gfortran wzst.F gfortran wzsu.F gfortran wztu.F gfortran xwwww.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xwwww.F:190:72: 190 | DO 100 I=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xwwww.F:192:72: 192 | 110 ANWWWW(K,I,J)=ANWWWW(K,I,J)*GSQ/(16.) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran xwwzz.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xwwzz.F:192:72: 192 | DO 100 I=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xwwzz.F:194:72: 194 | 110 ANWWWW(K,I,J)=ANWWWW(K,I,J)*GSQ/(16.*ZM2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran xzzww.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xzzww.F:188:72: 188 | DO 100 I=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xzzww.F:190:72: 190 | 110 ANWWWW(K,I,J)=ANWWWW(K,I,J)*GSQ/(16.*ZM2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran xzzzz.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xzzzz.F:152:72: 152 | DO 100 I=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xzzzz.F:154:72: 154 | 110 ANWWWW(K,I,J)=ANWWWW(K,I,J)*GSQ/(16.*ZM4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran ygenj.F gfortran decps1.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decps1.F:62:72: 62 | 210 RND(JSAVE)=RNEW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran decps2.F gfortran decss3.F gfortran dectau.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dectau.F:169:72: 169 | 210 IF(IDABS(I).EQ.15) INU=I | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran decva.F gfortran dincgm.F gfortran ebeam.F gfortran estruc.F gfortran fbrbm.F gfortran spline.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/spline.F:27:72: 27 | 10 C(4,M) = (C(1,M) - C(1,M-1))/C(3,M) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/spline.F:43:72: 43 | 20 C(4,M) = G*C(3,M-1) + 2.0*(C(3,M)+C(3,M+1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/spline.F:55:72: 55 | 30 C(2,J) = ( C(2,J) - C(3,J)*C(2,J+1) )/C(4,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/spline.F:62:72: 62 | 40 C(4,I-1) = DIVDF3/DTAU/DTAU | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran ssfel.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:51:72: 51 | 100 TAU(I) = FLOAT(I-1)*DX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:53:72: 53 | 110 TAU(19+I) = .9 + FLOAT(I)*1.E-2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:55:72: 55 | 120 TAU(28+I) = .99 + FLOAT(I)*1.E-3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:57:72: 57 | 121 TAU(33+I) = .995 + FLOAT(I)*2.5E-4 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 121 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:59:72: 59 | 130 TAU(45+I) = .998 + FLOAT(I)*1.E-4 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:68:72: 68 | 140 C(1,I) = RES +DC*ESTRUC(Z,QSQBM) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:96:72: 96 | 2 IF(Z.LT.TAU(I+1)) GOTO 3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran zzall.F gfortran zzstar.F gfortran alqcd.F gfortran amgmw.F gfortran dhelas.F gfortran evol11.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol11.F:35:72: 35 | 105 PJSET(K,NJSET)=PJETS(K,3) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol11.F:45:72: 45 | 120 PJSET(K,NJSET)=QWJET(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) gfortran kkgf1.F gfortran kkgf2.F gfortran kkgf3.F gfortran logmgm.F gfortran logmgy.F gfortran logmij.F gfortran mginit.F gfortran muljet.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/muljet.F:107:72: 107 | 210 RND(JSAVE)=RNEW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran setkkg.F gfortran sigkkg.F gfortran szjj1.F gfortran szjj2.F gfortran szjj3.F gfortran szjj4.F gfortran szjj5.F gfortran szjj6.F gfortran szjj7.F gfortran zjj.F gfortran zjj0.F gfortran zjj1.F gfortran zjj2.F gfortran zjj3.F gfortran zjj4.F gfortran zjj5.F gfortran zjj6.F gfortran zjj7.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/code' checking /mclibs/isajet/isadata make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isadata' makedepend archive/ aldata.F gfortran aldata.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isadata' checking /mclibs/isajet/isasusy make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isasusy' makedepend archive/ surg26.F makedepend archive/ surg06.F makedepend archive/ sugrge.F makedepend archive/ sugra.F makedepend archive/ sugmas.F makedepend archive/ sszibf.F makedepend archive/ sswibf.F makedepend archive/ sssnws.F makedepend archive/ ssme3.F makedepend archive/ sugfrz.F makedepend archive/ sugeff.F makedepend archive/ sualfs.F makedepend archive/ sualfe.F makedepend archive/ sszzf4.F makedepend archive/ sszzf3.F makedepend archive/ sszzf2.F makedepend archive/ sszzf5.F makedepend archive/ sszzf1.F makedepend archive/ sszwf1.F makedepend archive/ sszhx.F makedepend archive/ ssxlam.F makedepend archive/ ssxint.F makedepend archive/ sswzf7.F makedepend archive/ sswzf6.F makedepend archive/ sswzf5.F makedepend archive/ sswzf4.F makedepend archive/ sswzf3.F makedepend archive/ sswzf2.F makedepend archive/ sswzf1.F makedepend archive/ sswzbf.F makedepend archive/ sswwf1.F makedepend archive/ sstpbf.F makedepend archive/ sstest.F makedepend archive/ sssvme.F makedepend archive/ ssstbf.F makedepend archive/ sssave.F makedepend archive/ ssqkbf.F makedepend archive/ sspole.F makedepend archive/ ssnorm.F makedepend archive/ ssn1st.F makedepend archive/ ssmssm.F makedepend archive/ ssmqcd.F makedepend archive/ ssmhn.F makedepend archive/ ssmhc.F makedepend archive/ ssmass.F makedepend archive/ sslrt1.F makedepend archive/ sslpbf.F makedepend archive/ ssl1st.F makedepend archive/ sshww2.F makedepend archive/ sshww1.F makedepend archive/ sshww.F makedepend archive/ sshsf.F makedepend archive/ sshnn.F makedepend archive/ sshibf.F makedepend archive/ sshhx.F makedepend archive/ sshgm1.F makedepend archive/ sshgm.F makedepend archive/ sshgl.F makedepend archive/ sshff1.F makedepend archive/ sshff.F makedepend archive/ sshcc.F makedepend archive/ ssgzt.F makedepend archive/ ssgzg3.F makedepend archive/ ssgzg2.F makedepend archive/ ssgzg1.F makedepend archive/ ssgx9.F makedepend archive/ ssgx8.F makedepend archive/ ssgx7.F makedepend archive/ ssgx6.F makedepend archive/ ssgx5.F makedepend archive/ ssgx4.F makedepend archive/ ssgx3.F makedepend archive/ ssgx2.F makedepend archive/ ssgx11.F makedepend archive/ ssgx10.F makedepend archive/ ssgx1.F makedepend archive/ ssgwt8.F makedepend archive/ ssgwt7.F makedepend archive/ ssgwt6.F makedepend archive/ ssgwt5.F makedepend archive/ ssgwt4.F makedepend archive/ ssgwt3.F makedepend archive/ ssgwt2.F makedepend archive/ ssgwt1.F makedepend archive/ ssgwq2.F makedepend archive/ ssgwq1.F makedepend archive/ ssglbf.F makedepend archive/ ssf0.F makedepend archive/ ssdlam.F makedepend archive/ ssdint.F makedepend archive/ ssdhll.F makedepend archive/ ssb1.F makedepend archive/ ssb0.F makedepend archive/ ssalfs.F gfortran ssalfs.F gfortran ssb0.F gfortran ssb1.F gfortran ssdhll.F gfortran ssdint.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssdint.F:96:72: 96 | 15 TVAL=TVAL+W(I)*(F(BB+AA*R(I))+F(BB-AA*R(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssdint.F:107:72: 107 | 20 VAL=VAL+W(I)*(F(BB+AA*R(I))+F(BB-AA*R(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssdint.F:122:72: 122 | 25 TVAL=VAL | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) gfortran ssdlam.F gfortran ssf0.F gfortran ssglbf.F gfortran ssgwq1.F gfortran ssgwq2.F gfortran ssgwt1.F gfortran ssgwt2.F gfortran ssgwt3.F gfortran ssgwt4.F gfortran ssgwt5.F gfortran ssgwt6.F gfortran ssgwt7.F gfortran ssgwt8.F gfortran ssgx1.F gfortran ssgx10.F gfortran ssgx11.F gfortran ssgx2.F gfortran ssgx3.F gfortran ssgx4.F gfortran ssgx5.F gfortran ssgx6.F gfortran ssgx7.F gfortran ssgx8.F gfortran ssgx9.F gfortran ssgzg1.F gfortran ssgzg2.F gfortran ssgzg3.F gfortran ssgzt.F gfortran sshcc.F gfortran sshff.F gfortran sshff1.F gfortran sshgl.F gfortran sshgm.F gfortran sshgm1.F gfortran sshhx.F gfortran sshibf.F gfortran sshnn.F gfortran sshsf.F gfortran sshww.F gfortran sshww1.F gfortran sshww2.F gfortran ssl1st.F gfortran sslpbf.F gfortran sslrt1.F gfortran ssmass.F gfortran ssmhc.F gfortran ssmhn.F gfortran ssmqcd.F gfortran ssmssm.F gfortran ssn1st.F gfortran ssnorm.F gfortran sspole.F gfortran ssqkbf.F gfortran sssave.F gfortran ssstbf.F gfortran sssvme.F gfortran sstest.F gfortran sstpbf.F gfortran sswwf1.F gfortran sswzbf.F gfortran sswzf1.F gfortran sswzf2.F gfortran sswzf3.F gfortran sswzf4.F gfortran sswzf5.F gfortran sswzf6.F gfortran sswzf7.F gfortran ssxint.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssxint.F:78:72: 78 | 15 TVAL=TVAL+W(I)*(F(BB+AA*R(I))+F(BB-AA*R(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssxint.F:89:72: 89 | 20 VAL=VAL+W(I)*(F(BB+AA*R(I))+F(BB-AA*R(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssxint.F:104:72: 104 | 25 TVAL=VAL | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) gfortran ssxlam.F gfortran sszhx.F gfortran sszwf1.F gfortran sszzf1.F gfortran sszzf5.F gfortran sszzf2.F gfortran sszzf3.F gfortran sszzf4.F gfortran sualfe.F gfortran sualfs.F gfortran sugeff.F gfortran sugfrz.F gfortran ssme3.F gfortran sssnws.F gfortran sswibf.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sswibf.F:152:72: 152 | DO 110 JZ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sswibf.F:187:72: 187 | DO 130 JZ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) gfortran sszibf.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sszibf.F:151:72: 151 | DO 110 JZ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sszibf.F:186:72: 186 | DO 130 JZ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) gfortran sugmas.F gfortran sugra.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sugra.F:333:72: 333 | 234 G(I)=G(I)+M0**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 234 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sugra.F:460:72: 460 | 310 G0SAVE(J)=G0(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sugra.F:466:72: 466 | 320 DELG0=MAX(DELG0,ABS((G0(J)-G0SAVE(J))/G0(J))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) gfortran sugrge.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sugrge.F:219:72: 219 | 284 G(I)=G(I)+M0**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 284 at (1) gfortran surg06.F gfortran surg26.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isasusy' checking /mclibs/isajet/isarun make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isarun' makedepend archive/ isaset.F makedepend archive/ dialog.F gfortran dialog.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:117:72: 117 | 20 TITLE(I)=TTL(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:130:72: 130 | 18 KEYS(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:409:72: 409 | 61 IF(JETYP(K,IJ).NE.BLANK) NJTTYP(IJ)=NJTTYP(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:532:72: 532 | 191 GODY(J)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 191 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:667:72: 667 | 72 MFORCE(K,NFTEMP)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 72 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:686:72: 686 | 73 MFORCE(K,NFTEMP)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 73 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:717:72: 717 | 372 IF(WWTYP(K,IJ).NE.BLANK) NWWTYP(IJ)=NWWTYP(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 372 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:823:72: 823 | 463 IF(WMODES(K,IJ).NE.BLANK) NWMODE(IJ)=NWMODE(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 463 at (1) gfortran isaset.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isarun' checking /mclibs/isajet/isatape make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isatape' makedepend archive/ zerol.F makedepend archive/ wgens.F makedepend archive/ rgens.F makedepend archive/ rend.F makedepend archive/ rdtape.F makedepend archive/ rdbeg.F makedepend archive/ prtlst.F makedepend archive/ movlev.F makedepend archive/ itrans.F makedepend archive/ isawnd.F makedepend archive/ isawev.F makedepend archive/ isawbg.F makedepend archive/ isahep.F makedepend archive/ edit.F makedepend archive/ bufout.F makedepend archive/ bufin.F gfortran bufin.F gfortran bufout.F gfortran edit.F gfortran isahep.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:48:72: 48 | 100 PHEP(J,NHEP) = QWJET(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:63:72: 63 | 110 PHEP(J,NHEP) = PJETS(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:78:72: 78 | 140 PHEP(J,NHEP) = PPAIR(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:82:72: 82 | DO 160 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:83:72: 83 | 160 VHEP(J,I) = 0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:129:72: 129 | 180 PHEP(J,IHP) = PJSET(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:131:72: 131 | 190 VHEP(J,IHP) = 0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:162:72: 162 | 210 PHEP(J,IHP) = PPTCL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:164:72: 164 | 220 VHEP(J,IHP) = 0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:184:72: 184 | DO 330 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 330 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:189:72: 189 | 340 JPAIR(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:203:72: 203 | 410 PJETS(J,IJ1) = PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:209:72: 209 | 420 QWJET(J) = PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:216:72: 216 | 430 PPAIR(J,IJ3) = PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:222:72: 222 | 440 PJSET(J,IP) = PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:233:72: 233 | 450 PPTCL(J,IPT) = PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 450 at (1) gfortran isawbg.F gfortran isawev.F gfortran isawnd.F gfortran itrans.F gfortran movlev.F gfortran prtlst.F gfortran rdbeg.F gfortran rdtape.F gfortran rend.F gfortran rgens.F gfortran wgens.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/wgens.F:56:72: 56 | 990 IF(IDCAY(I).EQ.0) NPSTA=NPSTA+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 990 at (1) gfortran zerol.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/zerol.F:10:72: 10 | 1 Z(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isatape' rebuild archive library libisajet758.a in /mclibs/isajet Sun Jan 5 13:38:41 UTC 2020 Sun Jan 5 13:38:42 UTC 2020 ranlib libisajet758.a install -c -m 0644 libisajet758.a /<>/mclibs-20061220+dfsg3/lib/libisajet758.a ranlib /<>/mclibs-20061220+dfsg3/lib/libisajet758.a rm -f libisajet758.a ln -s /<>/mclibs-20061220+dfsg3/lib/libisajet758.a libisajet758.a making Makefiles in /mclibs/isajet/data... Makeing isajet.dat in /mclibs/isajet/data... make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/data' cp /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/data/decay.cpp decay.s rm -f isajet.dat /lib/cpp -traditional -D_FORTIFY_SOURCE=2 -E -traditional decay.s | sed -e '/^# *[0-9][0-9]* *.*$/d' -e '/^XCOMM$/s//#/' -e '/^XCOMM[^a-zA-Z0-9_]/s/^XCOMM/#/' -e '/^# [0-9][0-9]/d' -e '/^#line /d' >isajet.dat cp isajet.dat /<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isajet.dat make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/data' rm -f /<>/mclibs-20061220+dfsg3/lib/isajet.dat install -c -m 0444 isajet.dat /<>/mclibs-20061220+dfsg3/lib/isajet.dat make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet' make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs' make[3]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs' installing in /mclibs/cojets... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets' checking /mclibs/cojets/code make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/code' makedepend shared/ zpsqz.F makedepend shared/ zlimsy.F makedepend shared/ zlim.F makedepend shared/ zgens.F makedepend shared/ zgen.F makedepend shared/ zdecif.F makedepend shared/ zdecay.F makedepend shared/ zdang.F makedepend shared/ z0rad.F makedepend shared/ x1exp.F makedepend shared/ writeh.F makedepend shared/ writeb.F makedepend shared/ wrad.F makedepend shared/ wpsqz.F makedepend shared/ wpardn.F makedepend shared/ weakin.F makedepend shared/ wdecif.F makedepend shared/ wdecay.F makedepend shared/ wdang.F makedepend shared/ topdcy.F makedepend shared/ timelf.F makedepend shared/ tevol.F makedepend shared/ tbook.F makedepend shared/ tbkisa.F makedepend shared/ tables.F makedepend shared/ stopd.F makedepend shared/ stabph.F makedepend shared/ stabkp.F makedepend shared/ spectj.F makedepend shared/ shocas.F makedepend shared/ sblock.F makedepend shared/ rotqua.F makedepend shared/ rotjet.F makedepend shared/ reorsl.F makedepend shared/ readtb.F makedepend shared/ readin.F makedepend shared/ q2gen.F makedepend shared/ ptwgt.F makedepend shared/ psqgen.F makedepend shared/ prhead.F makedepend shared/ pregen.F makedepend shared/ partab.F makedepend shared/ papint.F makedepend shared/ p4corr.F makedepend shared/ overdm.F makedepend shared/ mpscat.F makedepend shared/ movlev.F makedepend shared/ mnbias.F makedepend shared/ match.F makedepend shared/ lorlab.F makedepend shared/ loren4.F makedepend shared/ looseq.F makedepend shared/ listph.F makedepend shared/ list.F makedepend shared/ label.F makedepend shared/ krcomb.F makedepend shared/ kno.F makedepend shared/ jtbook.F makedepend shared/ jetqcd.F makedepend shared/ jetgen.F makedepend shared/ jetcor.F makedepend shared/ jdentf.F makedepend shared/ intid.F makedepend shared/ inset.F makedepend shared/ inqcds.F makedepend shared/ inpart.F makedepend shared/ iniqcd.F makedepend shared/ idgen.F makedepend shared/ idext.F makedepend shared/ hgeven.F makedepend shared/ heavyq.F makedepend shared/ headh.F makedepend shared/ headb.F makedepend shared/ hard.F makedepend shared/ hadron.F makedepend shared/ gsplit.F makedepend shared/ grot.F makedepend shared/ gexin.F makedepend shared/ gevent.F makedepend shared/ geqsq.F makedepend shared/ gepair.F makedepend shared/ gefla.F makedepend shared/ gecode.F makedepend shared/ fusion.F makedepend shared/ fun3.F makedepend shared/ fun2.F makedepend shared/ fun1.F makedepend shared/ freeze.F makedepend shared/ framul.F makedepend shared/ forpre.F makedepend shared/ forcsl.F makedepend shared/ force.F makedepend shared/ fmuldg.F makedepend shared/ fmul.F makedepend shared/ flavex.F makedepend shared/ fiqrk.F makedepend shared/ findx.F makedepend shared/ fillhd.F makedepend shared/ fillbo.F makedepend shared/ figlu.F makedepend shared/ fglu.F makedepend shared/ fevinj.F makedepend shared/ fevinb.F makedepend shared/ f2in.F makedepend shared/ evol.F makedepend shared/ eicht2.F makedepend shared/ eicht1.F makedepend shared/ editp.F makedepend shared/ dumpev.F makedepend shared/ dshvq.F makedepend shared/ dshvg.F makedepend shared/ dsexq.F makedepend shared/ dsexg.F makedepend shared/ dsdt.F makedepend shared/ dreyin.F makedepend shared/ dqhnid.F makedepend shared/ dqhid.F makedepend shared/ dqhfsi.F makedepend shared/ dmatch.F makedepend shared/ decay.F makedepend shared/ ddang.F makedepend shared/ cojets.F makedepend shared/ cjrn.F makedepend shared/ cjeb.F makedepend shared/ chdec.F makedepend shared/ charge.F makedepend shared/ bwidth.F makedepend shared/ bradlp.F makedepend shared/ bpregn.F makedepend shared/ boso.F makedepend shared/ book.F makedepend shared/ bmcorr.F makedepend shared/ blept.F makedepend shared/ bkweig.F makedepend shared/ bjets.F makedepend shared/ bgpair.F makedepend shared/ bgexin.F makedepend shared/ bgeven.F makedepend shared/ bgefla.F makedepend shared/ bevint.F makedepend shared/ bevber.F makedepend shared/ betaeu.F makedepend shared/ bdecay.F makedepend shared/ bboost.F makedepend shared/ baryo.F makedepend shared/ atan2x.F makedepend shared/ asimp.F makedepend shared/ amass.F makedepend shared/ alias.F makedepend shared/ acosx.F gfortran acosx.F gfortran alias.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/alias.F:34:72: 34 | IF(S(I)-1.) 2,1,5 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran amass.F gfortran asimp.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/asimp.F:84:72: 84 | IF(DIFF-EPS*DELTA)6,6,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/asimp.F:85:72: 85 | 3 IF(LVL-30)4,2,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/asimp.F:86:72: 86 | 6 IF(LVL-1)2,4,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/asimp.F:114:72: 114 | IF(LVL-1)5,5,9 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran atan2x.F gfortran baryo.F gfortran bboost.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:37:72: 37 | 11 V1(J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:41:72: 41 | 12 PARHAD(NPART,J)=V2(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:48:72: 48 | 31 V1(J)=PFLABV(J,I,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:51:72: 51 | 32 PFLABV(J,I,1)=V2(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:60:72: 60 | 20 PARHAD(I,7)=-ABS(IORIG(I))/IPACK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:67:72: 67 | 27 PARQUA(IQ,J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 27 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:71:72: 71 | 29 PARQUA(IQ,J)=PARQUA(IQ,J)+PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 29 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:82:72: 82 | 40 JDCAY(JQ)=-JDCAY(JQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:87:72: 87 | 41 PJSET(J,JQ)=PARQUA(IQ,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bboost.F:102:72: 102 | 44 PJSET(J,JQ)=PJSET(J,JQ1)+PJSET(J,JQ2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 44 at (1) gfortran bdecay.F gfortran betaeu.F gfortran bevber.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevber.F:32:72: 32 | DO 1 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevber.F:33:72: 33 | 1 PFLABV(J,I,1)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevber.F:42:72: 42 | 52 PFLABV(J,2,1)=P(3,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 52 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevber.F:47:72: 47 | 54 PFLABV(J,2,1)=P(3,J)+P(2,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 54 at (1) gfortran bevint.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevint.F:25:72: 25 | DO 1 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevint.F:26:72: 26 | 1 PFLABV(J,L,1)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevint.F:32:72: 32 | 5 PFLABV(J,1,1)=PFLABV(J,1,1)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bevint.F:36:72: 36 | 6 PFLABV(J,2,1)=PFLABV(J,2,1)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) gfortran bgefla.F gfortran bgeven.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:76:72: 76 | 12 IBACK(IB)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:170:72: 170 | 14 CBR1(LL+12)=BRW(LL) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:173:72: 173 | 15 CBR1(LL+12)=CBR1(LL+12)+CBR1(LL+11) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:175:72: 175 | 16 CBR1(LL+12)=CBR1(LL+12)/CBR1(18) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:235:72: 235 | 18 CBR1(LXF)=CBR1(LXF)+CBR1(LXF-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgeven.F:237:72: 237 | 19 CBR1(LXF)=CBR1(LXF)/CBR1(12) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1) gfortran bgexin.F gfortran bgpair.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgpair.F:34:72: 34 | DO 8 J=6,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 8 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgpair.F:35:72: 35 | 8 TBXGEN(IX)=TBXGEN(IX)+TABQRK(IX,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 8 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgpair.F:38:72: 38 | 7 TBXT=TBXT+TBXGEN(IX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgpair.F:40:72: 40 | 6 TBXAL(IX)=TBXGEN(IX)/TBXT | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bgpair.F:44:72: 44 | 5 TBXGEN(IX)=TBXGEN(IX)+TBXGEN(IX-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) gfortran bjets.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bjets.F:135:72: 135 | 42 IF(INT(PARHAD(I,7)).LE.NQUA1) NP1=NP1+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 42 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bjets.F:142:72: 142 | DO 51 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 51 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bjets.F:143:72: 143 | 51 P(IK,J)=PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) gfortran bkweig.F gfortran blept.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/blept.F:39:72: 39 | 10 K(I,2)=KDP(IDC,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/blept.F:79:72: 79 | DO 16 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 16 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/blept.F:80:72: 80 | 16 PFLABV(J,I,1)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/blept.F:85:72: 85 | 51 K(I,1)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) gfortran bmcorr.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bmcorr.F:28:72: 28 | 2 IF(IDB(K(I,2)).LE.0) PJTOTS(1,J)=PJTOTS(1,J)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bmcorr.F:31:72: 31 | 3 IF(IDB(K(I,2)).LE.0) PJTOTS(2,J)=PJTOTS(2,J)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bmcorr.F:83:72: 83 | 6 SINHBJ(I)=.5*(EXPB-1./EXPB) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) gfortran book.F gfortran boso.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/boso.F:77:72: 77 | 1 PARHAD(NPART,J)=PBOS(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/boso.F:90:72: 90 | DO 16 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 16 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/boso.F:91:72: 91 | 16 PFLABV(J,I,1)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) gfortran bpregn.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:193:72: 193 | DO 24 LL=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 24 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:194:72: 194 | 24 SZF(LL,LL2,13)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 24 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:237:72: 237 | 25 SZF(LL,LI,13)=SZF(LL,LI,13)+FCOLRS*SZF(LL,LI,LXF) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:360:72: 360 | DO 8 IX=2,NBIN | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 8 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:374:72: 374 | DO 1 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:379:72: 379 | 10 WGQ=WGQ+TABQRK(IX,6) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bpregn.F:393:72: 393 | 13 WGG=WGG+TABQRK(IX,7) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) gfortran bradlp.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:57:72: 57 | DO 1 J2=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:61:72: 61 | 1 +FSIGN*4.*AL(1)*BL(1)*AQ(J1)*BQ(J1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:155:72: 155 | 108 K(I,2)=1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 108 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:160:72: 160 | 109 P(I,2)=-P1*SG+P2*CG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 109 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:180:72: 180 | 136 K(I,2)=1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 136 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:199:72: 199 | 139 P(I,2)=-P1*SG+P2*CG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 139 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:236:72: 236 | 168 K(I,2)=1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 168 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:241:72: 241 | 169 P(I,2)=-P1*SG+P2*CG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 169 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:307:72: 307 | 202 P(NP,J)=QP(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 202 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:312:72: 312 | 204 P(2,J)=QK(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 204 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:343:72: 343 | 233 P(NP,J)=FCH*QE(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 233 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:349:72: 349 | 237 P(2,J)=-P(1,J)-P(3,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 237 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:370:72: 370 | 413 IDCAY(IP)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 413 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/bradlp.F:387:72: 387 | 460 K(I,1)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 460 at (1) gfortran bwidth.F gfortran charge.F gfortran chdec.F gfortran cjeb.F gfortran cjrn.F gfortran cojets.F gfortran ddang.F gfortran decay.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:97:72: 97 | 130 IFLR(J)=IFLQ(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:106:72: 106 | 140 IFLR(IQ)=-IFLN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:133:72: 133 | 160 PSUM=PSUM+P(I1,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:160:72: 160 | 190 P(I+1,J)=P(IPD,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:164:72: 164 | 200 PM(1,J)=P(IPD,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:188:72: 188 | 210 WTMAX=WTMAX*PAWT(PMAX,PMIN,P(I+IL,5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:200:72: 200 | 230 RND(IL2+1)=RND(IL2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:201:72: 201 | 240 RND(IL2+1)=RAN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:209:72: 209 | 250 WT=WT*PAWT(PM(IL,5),PM(IL+1,5),P(I+IL,5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:223:72: 223 | 270 PM(IL+1,J)=-PA*U(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:225:72: 225 | 280 PM(IL+1,4)=SQRT(PA**2+PM(IL+1,5)**2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:228:72: 228 | 290 P(I+ND,J)=PM(ND,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:234:72: 234 | 300 BE(J)=PM(IL,J)/PM(IL,4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:238:72: 238 | DO 320 I1=I1LW,I1UP | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:241:72: 241 | 310 P(I1,J)=P(I1,J)+GA*(GA/(1.+GA)*BEP+P(I1,4))*BE(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:242:72: 242 | 320 P(I1,4)=GA*(P(I1,4)+BEP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/decay.F:261:72: 261 | 331 K(I+L,1)=-IPD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 331 at (1) gfortran dmatch.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dmatch.F:29:72: 29 | 115 MDEC(L)=KFORCE(L+1,NR) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) gfortran dqhfsi.F gfortran dqhid.F gfortran dqhnid.F gfortran dreyin.F gfortran dsdt.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dsdt.F:27:72: 27 | 1 WFDSDT(L)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dsdt.F:69:72: 69 | 36 WTDSDT=WTDSDT+WFDSDT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 36 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dsdt.F:94:72: 94 | 56 WTDSDT=WTDSDT+WFDSDT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 56 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dsdt.F:169:72: 169 | 436 WTDSDT=WTDSDT+WFDSDT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 436 at (1) gfortran dsexg.F gfortran dsexq.F gfortran dshvg.F gfortran dshvq.F gfortran dumpev.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dumpev.F:121:72: 121 | 201 PBOS(J)=P4LABV(J,NML) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/dumpev.F:208:72: 208 | 32 IQMX=IQ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) gfortran editp.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/editp.F:43:72: 43 | 120 P(N1,J)=PJTOT(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/editp.F:46:72: 46 | 130 PR(J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/editp.F:47:72: 47 | DO 140 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/editp.F:48:72: 48 | 140 P(I,J)=ROT(J,1)*PR(1)+ROT(J,2)*PR(2)+ROT(J,3)*PR(3) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/editp.F:50:72: 50 | 121 PJTOT(J)=P(N1,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 121 at (1) gfortran eicht1.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:149:72: 149 | DO 1 M2=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:150:72: 150 | 1 TM(M1,M2)=TMM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:156:72: 156 | DO 2 M2=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:188:72: 188 | DO 101 MQ=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 101 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:189:72: 189 | 101 EICHT1=EICHT1+C(MX,MQ,IP)*TCX(MX)*TCQ(MQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 101 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:199:72: 199 | DO 201 MQ=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht1.F:200:72: 200 | 201 EICHT1=EICHT1+D(MX,MQ,IP)*TCX(MX)*TCQ(MQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran eicht2.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:149:72: 149 | DO 1 M2=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:150:72: 150 | 1 TM(M1,M2)=TMM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:156:72: 156 | DO 2 M2=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:188:72: 188 | DO 101 MQ=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 101 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:189:72: 189 | 101 EICHT2=EICHT2+C(MX,MQ,IP)*TCX(MX)*TCQ(MQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 101 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:199:72: 199 | DO 201 MQ=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/eicht2.F:200:72: 200 | 201 EICHT2=EICHT2+D(MX,MQ,IP)*TCX(MX)*TCQ(MQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran evol.F gfortran f2in.F gfortran fevinb.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/fevinb.F:52:72: 52 | 11 P4LABV(M,1)=PBOS(M) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) gfortran fevinj.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/fevinj.F:61:72: 61 | 11 PFLABV(M,2,1)=PF2(M) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/fevinj.F:91:72: 91 | 21 PFLABV(M,2,1)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) gfortran fglu.F gfortran figlu.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/figlu.F:31:72: 31 | 1 FIGLU=FIGLU+PAPINT(3,ZUP)-PAPINT(3,ZLW) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) gfortran fillbo.F gfortran fillhd.F gfortran findx.F gfortran fiqrk.F gfortran flavex.F gfortran fmul.F gfortran fmuldg.F gfortran force.F gfortran forcsl.F gfortran forpre.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/forpre.F:86:72: 86 | 115 KFORCE(1,N)=ABS(KFORCE(1,N)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/forpre.F:148:72: 148 | *BRXFSL=MIN(REAL(BRXFSL),REAL(MOD(RDECAY(IP),1.))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 207 at (1) gfortran framul.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/framul.F:32:72: 32 | 1 TVKNO=TVKNO+VKNO(M) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/framul.F:34:72: 34 | 2 VKNO(M)=VKNO(M)/TVKNO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran freeze.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:41:72: 41 | 41 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:43:72: 43 | 42 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 42 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:50:72: 50 | 51 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:52:72: 52 | 52 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 52 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:59:72: 59 | 61 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/freeze.F:61:72: 61 | 62 IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 62 at (1) gfortran fun1.F gfortran fun2.F gfortran fun3.F gfortran fusion.F gfortran gecode.F gfortran gefla.F gfortran gepair.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:34:72: 34 | 7 TABQRK(IX,J)=TABQRK(IX-1,J)+TABQRK(IX,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:40:72: 40 | 1 WQQ(J)=WGQV(J)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:42:72: 42 | 2 WQQ(J)=WQQ(J)+WQQ(J-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:44:72: 44 | 3 WQQ(J)=WQQ(J)/WQQ(6) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:47:72: 47 | 6 WQAQ(JN)=WGQV(J)*WGQV(J+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:54:72: 54 | 4 WGQV(J)=WGQV(J)+WGQV(J-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/gepair.F:56:72: 56 | 5 WGQV(J)=WGQV(J)/WGQV(6) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) gfortran geqsq.F gfortran gevent.F gfortran gexin.F gfortran grot.F gfortran gsplit.F gfortran hadron.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hadron.F:123:72: 123 | 42 PARHAD(IH1,J)=P(IH,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 42 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hadron.F:146:72: 146 | 200 PMBIAS(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hadron.F:151:72: 151 | DO 201 IH=1,NPART | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hadron.F:152:72: 152 | 201 IF(IDCAY(IH).EQ.0) PMBIAS(J)=PMBIAS(J)-PARHAD(IH,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran hard.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hard.F:90:72: 90 | 10 PCMV2(J)=-PCMV1(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hard.F:96:72: 96 | 30 PFTOT(J)=PF1(J)+PF2(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran headb.F gfortran headh.F gfortran heavyq.F gfortran hgeven.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hgeven.F:97:72: 97 | 12 IBACK(IB)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hgeven.F:163:72: 163 | 216 WGV(1,L)=WFDSDT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 216 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/hgeven.F:166:72: 166 | 217 WGV(2,L)=WFDSDT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 217 at (1) gfortran idext.F gfortran idgen.F gfortran iniqcd.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/iniqcd.F:46:72: 46 | 1 QTHRSQ(L)=(QZ+QZFL(L))**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) gfortran inpart.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:42:72: 42 | DO 8 IX=2,NBIN | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 8 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:56:72: 56 | DO 1 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:61:72: 61 | 10 WGQ=WGQ+TABQRK(IX,6) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:65:72: 65 | 3 AQLIAS=AQLIAS+TQLIAS(IX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:67:72: 67 | 6 TQLIAS(IX)=TQLIAS(IX)/AQLIAS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:82:72: 82 | 13 WGG=WGG+TABQRK(IX,7) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:86:72: 86 | 5 AGLIAS=AGLIAS+TGLIAS(IX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/inpart.F:88:72: 88 | 7 TGLIAS(IX)=TGLIAS(IX)/AGLIAS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran inqcds.F gfortran inset.F gfortran intid.F gfortran jdentf.F gfortran jetcor.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/jetcor.F:27:72: 27 | 1 PJTOT(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/jetcor.F:31:72: 31 | 3 PJTOT(J)=PJTOT(J)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) gfortran jetgen.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/jetgen.F:63:72: 63 | 11 TTG=TTG+TG(IG) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/jetgen.F:65:72: 65 | 12 TG(IG)=TG(IG)/TTG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/jetgen.F:69:72: 69 | 13 LGV(IG,JG)=LG(IG) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) gfortran jetqcd.F gfortran jtbook.F gfortran kno.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:45:72: 45 | 11 TBPAIR(M)=RPAIR(M)+TBPAIR(M-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:47:72: 47 | 12 TBPAIR(M)=TBPAIR(M)/TBPAIR(9) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:103:72: 103 | 25 TMASS=TMASS+PARHAD(I,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:134:72: 134 | 82 SUM(J)=SUM(J)+PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 82 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:137:72: 137 | 83 PARHAD(I,J)=PARHAD(I,J)-SUM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 83 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:144:72: 144 | 85 TMTOT=TMTOT+TMV(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 85 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:217:72: 217 | 72 TMV(I)=1. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 72 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:237:72: 237 | DO 76 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 76 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:238:72: 238 | 76 P(IP,J)=PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 76 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:244:72: 244 | DO 77 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 77 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:245:72: 245 | 77 PARHAD(I,J)=P(IP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 77 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:277:72: 277 | 79 PARHAD(NH+I,J)=V1(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 79 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:290:72: 290 | 202 P(I,J)=PARHAD(M,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 202 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/kno.F:309:72: 309 | 205 PARHAD(NPART,J)=P(M,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1) gfortran krcomb.F gfortran label.F gfortran list.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/list.F:51:72: 51 | 100 IF(K(I,1).LE.0) WRITE(ITLIS,130) I, IC1, C2, C3, (P(I,J), J=1,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran listph.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/listph.F:33:72: 33 | 10 PV(J)=PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran looseq.F gfortran loren4.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/loren4.F:24:72: 24 | 1 BETA(J)=PMB(J)/PMB(4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/loren4.F:27:72: 27 | 4 GABETA(J)=GA*BETA(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/loren4.F:32:72: 32 | 2 V2(J)=V1(J)+(GA1GA*BEP+V1(4))*GABETA(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran lorlab.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/lorlab.F:44:72: 44 | 1 AM(J)=-A(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/lorlab.F:74:72: 74 | 191 PM(J)=PIN(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 191 at (1) gfortran match.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/match.F:68:72: 68 | 91 PARACT(IN,1,IB)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 91 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/match.F:76:72: 76 | 93 PARACT(JC,L,IB)=PARACT(J,L,IB) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 93 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/match.F:175:72: 175 | 251 PARACT(IN,1,IB)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 251 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/match.F:183:72: 183 | 253 PARACT(JC,L,IB)=PARACT(J,L,IB) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 253 at (1) gfortran mnbias.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/mnbias.F:86:72: 86 | 11 PMB(J)=PMBIAS(J)-(PARHAD(NPART,J)+PARHAD(NPART-1,J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/mnbias.F:99:72: 99 | 111 V1(J)=PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 111 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/mnbias.F:103:72: 103 | 112 PARHAD(I,J)=V2(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 112 at (1) gfortran movlev.F gfortran mpscat.F gfortran overdm.F gfortran p4corr.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/p4corr.F:30:72: 30 | 82 SUM(J)=SUM(J)+P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 82 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/p4corr.F:31:72: 31 | 81 SUM(J)=SUM(J)/NP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 81 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/p4corr.F:35:72: 35 | 84 P(I,J)=P(I,J)-SUM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 84 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/p4corr.F:46:72: 46 | 85 SUM4=SUM4+P(I,4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 85 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/p4corr.F:51:72: 51 | 86 SUM3=SUM3+ABS(P(I,3)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 86 at (1) gfortran papint.F gfortran partab.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:57:72: 57 | DO 21 K=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:58:72: 58 | DO 21 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:70:72: 70 | DO 31 K=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:71:72: 71 | DO 31 J=1,K | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:72:72: 72 | DO 31 I=1,J | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:87:72: 87 | *WRITE(ITLIS,100) ID,CHA2(INTC),PMAS(INTC),LCHARG(INTC),INTC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/partab.F:116:72: 116 | 211 IF(KFORCE(L,I).NE.0) LX=L | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 211 at (1) gfortran pregen.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:90:72: 90 | 5 Q2VECT(I1)=EXP((ALQI+DALQ*FLOAT(I))*ALQZM+ALLAM2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:102:72: 102 | 3 THRFLA(L)=4.*AM2HEV(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:120:72: 120 | DO 6 J2=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:121:72: 121 | DO 6 J3=1,NALQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:122:72: 122 | 6 WGALQ(J3,J2,J1)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:124:72: 124 | 7 WGALQT(N)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:140:72: 140 | DO 100 ICH=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:166:72: 166 | DO 102 N=1,NALQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 102 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:182:72: 182 | DO 104 N=1,NALQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 104 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:183:72: 183 | 104 SIGHRD=SIGHRD+WGALQ(N,IW,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 104 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:192:72: 192 | DO 103 IW=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 103 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:196:72: 196 | 103 WGTPT=WGTPT+WGALQ(N,IW,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 103 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:205:72: 205 | DO 120 IW=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:221:72: 221 | 180 WGALQT(N)=WGALQT(N)+WGALQT(N-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:224:72: 224 | 190 WGALQT(N)=WGALQT(N)/WGALQT(NALQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:227:72: 227 | DO 200 N=1,NALQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:231:72: 231 | DO 201 N=1,NALQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/pregen.F:232:72: 232 | 201 WGALQ(N,IW,3)=WGALQ(N,IW,3)/WGALQ3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran prhead.F gfortran psqgen.F gfortran ptwgt.F gfortran q2gen.F gfortran readin.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:516:72: 516 | 56 RDECAY(IL)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 56 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:521:72: 521 | 98 MDEC(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 98 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:528:72: 528 | 57 KFORCE(L,NFORCE)=MDEC(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 57 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:806:72: 806 | DO 69 L2=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 69 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:807:0: 807 | IF(CMIX(L1,L2).GE.0..AND.CMIX(L1,L2).LE.1.) GO TO 69 | Warning: iteration 2 invokes undefined behavior [-Waggressive-loop-optimizations] /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/readin.F:806:0: 806 | DO 69 L2=1,6 | note: within this loop gfortran readtb.F gfortran reorsl.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/reorsl.F:30:72: 30 | 1 IF(LDA.GT.16.OR.LDA.LT.11) GO TO 10 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) gfortran rotjet.F gfortran rotqua.F gfortran sblock.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:185:72: 185 | 1 CBR(L)=CBR(L)+CBR(L-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:188:72: 188 | 2 CBR(L)=CBR(L)/CBR(12) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:206:72: 206 | 3 CBR(L)=CBR(L)+CBR(L-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:209:72: 209 | 4 CBR(L)=CBR(L)/CBR(18) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:214:72: 214 | DO 21 L1=1,18 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:215:72: 215 | 21 KDP(L1,L2)=KDP2(L1,L2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:217:72: 217 | DO 22 L1=1,18 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 22 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:218:72: 218 | 22 KDP(L1,L2)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:249:72: 249 | 18 Q2QUA(L)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/sblock.F:252:72: 252 | 17 Q2QUA(L)=(QMAS(L))**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 17 at (1) gfortran shocas.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/shocas.F:31:72: 31 | 100 WRITE(ITLIS,130) I,K(I,1),C2,C3,(P(I,J),J=1,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran spectj.F gfortran stabkp.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/stabkp.F:30:72: 30 | 100 P(I1,J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran stabph.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/stabph.F:43:72: 43 | 2 PARHAD(IP,J)=PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran stopd.F gfortran tables.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/tables.F:28:72: 28 | 1 IF(2.*(QZ+QZMASS(L)).LT.ECM) NFLAX=L | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/tables.F:55:72: 55 | 1 +TABPSQ(KFLA,I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/tables.F:63:72: 63 | 1 +TABPSQ(KFLA,I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) gfortran tbkisa.F gfortran tbook.F gfortran tevol.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/tevol.F:67:72: 67 | 7 SETIN(L)=PARSPE(MBK,L,IB) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran timelf.F gfortran topdcy.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:179:72: 179 | 3 PBOS(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:181:72: 181 | DO 4 IF=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:182:72: 182 | 4 NPIF(L,IF)=NPART+L | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:234:72: 234 | DO 7 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 7 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:235:72: 235 | 7 PARHAD(NTOPD(I),J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:241:72: 241 | 9 PARHAD(NTOPD(1),J)=P(1,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:254:72: 254 | 10 PARHAD(IP,J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:256:72: 256 | 13 PARHAD(IP,7)=PARHAD(NTOP,7) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:259:72: 259 | 8 PARHAD(NTOPD(2),J)=P(2,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 8 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:284:72: 284 | 70 PARHAD(IP,J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:286:72: 286 | 73 PARHAD(IP,7)=PARHAD(NTOP,7) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 73 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:306:72: 306 | DO 14 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 14 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:307:72: 307 | 14 PARHAD(IP,J)=P(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:317:72: 317 | DO 15 I=NPI,NPF | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:318:72: 318 | 15 IF(IDCAY(I).EQ.0) V1(J)=V1(J)+PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:366:72: 366 | DO 19 I=NPI,NPF | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 19 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:367:72: 367 | 19 IF(IDCAY(I).EQ.0) V1(J)=V1(J)+PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:403:72: 403 | 32 PARHAD(NPL,J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:407:72: 407 | 33 PARHAD(NPL,J)=PARHAD(NPL,J)+PARHAD(IP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 33 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:426:72: 426 | 21 PBOOST(J)=PARHAD(NTOP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:430:72: 430 | 23 V1(J)=PARHAD(IP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:443:72: 443 | 24 PARHAD(IP,J)=V2(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 24 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:459:72: 459 | 92 P(MP,J)=PARHAD(IPD,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 92 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:487:72: 487 | 95 P(MP,J)=PARHAD(IP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:504:72: 504 | 86 PARHAD(IP,J)=P(M,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 86 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:538:72: 538 | 41 PARQUA(NQ,J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:546:72: 546 | 43 PARQUA(NQ,J)=PARQUA(NQ,J)+PARHAD(IP,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 43 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:553:72: 553 | 44 PJSET(J,JQ)=PARQUA(NQ,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 44 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:557:72: 557 | 55 JDCAY(JQ)=-ABS(JDCAY(JQ)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 55 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/topdcy.F:570:72: 570 | 54 PJSET(J,JQ)=PJSET(J,JQ1)+PJSET(J,JQ2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 54 at (1) gfortran wdang.F gfortran wdecay.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/wdecay.F:125:72: 125 | 3 QK(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/wdecay.F:191:72: 191 | 6 QE(I)= -QN(I) - QK(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/wdecay.F:203:72: 203 | 7 QE(I)=EB*QE(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran wdecif.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/wdecif.F:38:72: 38 | 10 QKS(J)=QK(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran weakin.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/weakin.F:89:72: 89 | 20 IF(RDECAY(L).EQ.0.) IDB(L)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran wpardn.F gfortran wpsqz.F gfortran wrad.F gfortran writeb.F gfortran writeh.F gfortran x1exp.F gfortran z0rad.F gfortran zdang.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdang.F:45:72: 45 | 6 CASYM(LI,LF)=ASYM(AQ(LI),BQ(LI),AL(LF),BL(LF)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdang.F:47:72: 47 | 7 CASYM(LI,LF)=ASYM(AQ(LI),BQ(LI),AQ(LF-2),BQ(LF-2)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran zdecay.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdecay.F:151:72: 151 | 4 QM(I)=-QP(I)-QK(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdecay.F:179:72: 179 | 5 QM(I)=-QP(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdecay.F:181:72: 181 | 6 QK(I)=0.D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdecay.F:186:72: 186 | 7 QK(I)=EB*QK(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran zdecif.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/code/zdecif.F:43:72: 43 | 10 QKS(J)=QK(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran zgen.F gfortran zgens.F gfortran zlim.F gfortran zlimsy.F gfortran zpsqz.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/code' checking /mclibs/cojets/cojdata make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/cojdata' makedepend shared/ data.F makedepend shared/ cojver.F gfortran cojver.F gfortran data.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/cojdata' checking /mclibs/cojets/cojtapew make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/cojtapew' makedepend shared/ wrtape.F makedepend shared/ wrend.F makedepend shared/ wrbeg.F makedepend shared/ wgens.F makedepend shared/ pptcl.F makedepend shared/ outh.F makedepend shared/ isjtqf.F makedepend shared/ isjtpf.F makedepend shared/ isbosf.F makedepend shared/ ichcnv.F makedepend shared/ fillh.F makedepend shared/ edit.F makedepend shared/ bufout.F makedepend shared/ bookh.F gfortran bookh.F gfortran bufout.F gfortran edit.F gfortran fillh.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:78:72: 78 | DO 30 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:79:72: 79 | 30 PJETS(J,LJ)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:81:72: 81 | 36 IDJETS(JT)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 36 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:90:72: 90 | 13 PJETS(J,JT)=PJETS(J,JT)+PARHAD(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:98:72: 98 | 14 PJETS(J,JT)=PJETS(J,JT)+PJSET(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:114:72: 114 | 15 QWJET(J)=P4LABV(J,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:196:72: 196 | 2 INITYP(I)=ISJTQF(IFINGV(I,1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:199:72: 199 | 3 PBEAMS(J)=PMBIAS(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/fillh.F:202:72: 202 | 16 PBEAMS(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) gfortran ichcnv.F gfortran isbosf.F gfortran isjtpf.F gfortran isjtqf.F gfortran outh.F gfortran pptcl.F gfortran wgens.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wgens.F:63:72: 63 | 990 IF(IDCAY(I).EQ.0) NPSTA=NPSTA+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 990 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wgens.F:139:72: 139 | 995 ZEVEL(IL+J-1)=PARHAD(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 995 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wgens.F:154:72: 154 | 996 ZEVEL(IL+J-1)=PARHAD(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 996 at (1) gfortran wrbeg.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:44:72: 44 | 200 ZEVEL(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:63:72: 63 | DO 11 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:65:72: 65 | 11 IL=IL+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:76:72: 76 | 12 IL=IL+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:119:72: 119 | 21 CALL ICHCNV(CHA2(L),IL,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:123:72: 123 | 22 CALL ICHCNV(CHA2(L),IL,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:125:72: 125 | 23 CALL ICHCNV(CHA3(L),IL,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:127:72: 127 | DO 24 L1=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 24 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/cojtapew/wrbeg.F:128:72: 128 | 24 CALL ICHCNV(CHA4(L1,L2),IL,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 24 at (1) gfortran wrend.F gfortran wrtape.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/cojtapew' rebuild shared library libcojets.so.2_gfortran.2006 in /mclibs/cojets Sun Jan 5 13:39:21 UTC 2020 Sun Jan 5 13:39:21 UTC 2020 + mkdirhier /<>/mclibs-20061220+dfsg3/shlib install -c -m 0644 libcojets.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib rm -f libcojets.so.2_gfortran && ln -s libcojets.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libcojets.so.2_gfortran rm -f /<>/mclibs-20061220+dfsg3/shlib/libcojets.so ln -s libcojets.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libcojets.so rm -f libcojets.so.2_gfortran.2006 ln -s /<>/mclibs-20061220+dfsg3/shlib/libcojets.so.2_gfortran.2006 libcojets.so.2_gfortran.2006 make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets' installing in /mclibs/eurodec... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec' checking /mclibs/eurodec/decays make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/decays' makedepend shared/ wadkro.F makedepend shared/ vmina.F makedepend shared/ virhvy.F makedepend shared/ vecpar.F makedepend shared/ triang.F makedepend shared/ tauvec.F makedepend shared/ tausca.F makedepend shared/ parfra.F makedepend shared/ pardec.F makedepend shared/ onisqd.F makedepend shared/ oni3g.F makedepend shared/ oni2g.F makedepend shared/ onh0ga.F makedepend shared/ ongqbq.F makedepend shared/ on2gga.F makedepend shared/ omephi.F makedepend shared/ jets.F makedepend shared/ fermi.F makedepend shared/ dot.F makedepend shared/ decays.F makedepend shared/ dalitz.F makedepend shared/ ampvec.F makedepend shared/ a1vec.F gfortran a1vec.F gfortran ampvec.F gfortran dalitz.F gfortran decays.F gfortran dot.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/dot.F:26:72: 26 | 10 DPHAD2(J)=PTEIL(J,I2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran fermi.F gfortran jets.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/jets.F:59:72: 59 | 10 PHA(J,NPART)=PTEIL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/jets.F:61:72: 61 | & (NPART))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/jets.F:96:72: 96 | 40 PHA(J,1)=PTEIL(J,IP1)-PSPECT(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/jets.F:131:72: 131 | 80 PHA(J,NPART)=PTEIL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) gfortran omephi.F gfortran on2gga.F gfortran ongqbq.F gfortran onh0ga.F gfortran oni2g.F gfortran oni3g.F gfortran onisqd.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/onisqd.F:27:72: 27 | 10 PTOP(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/onisqd.F:29:72: 29 | DO 20 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/onisqd.F:30:72: 30 | 20 PTOP(J)=PTOP(J)+PTEIL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran pardec.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:61:72: 61 | 30 PTEIL(I,NTPNH)=PTEIL(I,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:75:72: 75 | 40 SECVTX(J,NTPNH)=SECVTX(J,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:79:72: 79 | 50 SECVTX(J,NTPNH)=SECVTX(J,IP)+CT*PTEIL(J,IP)/SQRT(PVEC) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:85:72: 85 | 60 SECVTX(J,NTPNH)=SECVTX(J,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:142:72: 142 | 100 SUMM=SUMM+PTEIL(5,NTPI) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:149:72: 149 | 110 PHAD(J,1)=PTEIL(J,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:192:72: 192 | 130 SUMM2=SUMM2-PTEIL(5,NTPI+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:204:72: 204 | 150 RORD(IMJP1)=RORD(IMJ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:205:72: 205 | 160 RORD(IMJP1)=RNEW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:212:72: 212 | 170 WT=WT*TRIANG(PHAD(5,I-1),PHAD(5,I),PTEIL(5,NTEIL+I-1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:228:72: 228 | 190 PHAD(J,I+1)=-PTEIL(J,NTPI) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:230:72: 230 | 200 PHAD(4,I+1)=SQRT(TWOCM**2+PHAD(5,I+1)**2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:232:72: 232 | 210 PTEIL(J,NTPNH)=PHAD(J,NHAD) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:241:72: 241 | 220 BET(J)=PHAD(J,NHADMI)/PHAD(5,NHADMI) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:249:72: 249 | & /(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:250:72: 250 | 240 PTEIL(4,NTPJ)=GAM*PTEIL(4,NTPJ)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:255:72: 255 | 260 ITHEL(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:352:72: 352 | 270 SECVER(J)=SECVTX(J,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:356:72: 356 | 280 SECVER(J)=SECVTX(J,IP)+CT*PTEIL(J,IP)/SQRT(PVEC) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:362:72: 362 | 290 SECVER(J)=SECVTX(J,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:402:72: 402 | 310 IDCAYT(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:408:72: 408 | 320 IF (ABS(INDEXT(I)).LT.90) NJETS=NJETS+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:422:72: 422 | 330 BET(J)=PHAD(J,1)/PHAD(5,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:427:72: 427 | 340 PTEIL(J,I)=PTEIL(J,I)+BET(J)*(PTEIL(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:428:72: 428 | 350 PTEIL(4,I)=GAM*PTEIL(4,I)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:432:72: 432 | DO 360 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 360 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/pardec.F:433:72: 433 | 360 SECVTX(J,I)=SECVER(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) gfortran parfra.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:31:72: 31 | 10 PBOOST(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:34:72: 34 | DO 20 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:35:72: 35 | 20 PBOOST(J)=PBOOST(J)-PHA(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:45:72: 45 | 30 BET(J)=PBOOST(J)/Q0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:50:72: 50 | 40 PHA(J,I)=PHA(J,I)+BET(J)*(PHA(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:52:72: 52 | 50 PHA(5,I)=SQRT(PHA(1,I)**2+PHA(2,I)**2+PHA(3,I)**2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:92:72: 92 | 70 IDCAYT(J)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:93:72: 93 | 80 IDCAYT(IPP(I)/10000)=NTP1*10000+NTPNT | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:106:72: 106 | 90 PTEIL(J,I)=PTEIL(J,I)-BET(J)*(PTEIL(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/parfra.F:107:72: 107 | 100 PTEIL(4,I)=GAM*PTEIL(4,I)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran tausca.F gfortran tauvec.F gfortran triang.F gfortran vecpar.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/vecpar.F:43:72: 43 | 10 BET(J)=-PTEIL(J,IOR)/PTEIL(5,IOR) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/decays/vecpar.F:49:72: 49 | 20 PPAR(J)=PTEIL(J,IP)+BET(J)*(PTEIL(4,IP)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran virhvy.F gfortran vmina.F gfortran wadkro.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/decays' checking /mclibs/eurodec/eudini make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/eudini' makedepend shared/ wlqu.F makedepend shared/ whvy.F makedepend shared/ wglu.F makedepend shared/ toponi.F makedepend shared/ sqd.F makedepend shared/ ordbr.F makedepend shared/ nampoi.F makedepend shared/ invert.F makedepend shared/ inibrn.F makedepend shared/ idloc.F makedepend shared/ eudtit.F makedepend shared/ eudtab.F makedepend shared/ eudini.F makedepend shared/ eudcin.F makedepend shared/ brfrac.F makedepend shared/ amoni.F gfortran amoni.F gfortran brfrac.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/brfrac.F:52:72: 52 | 10 IF ((I.GT.3).AND.(I.LT.9)) AMEPS(I)=AMEPS(I)+FLOAT(I-3)*0.15 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/brfrac.F:69:72: 69 | 30 AMSUM=AMSUM+AM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/brfrac.F:141:72: 141 | 40 CALL INDNAM(IDC(J,I),PNAM(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/brfrac.F:162:72: 162 | 60 DBR(I)=DBR(I-1)+DBR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran eudcin.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudcin.F:100:72: 100 | 10 ICONV(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudcin.F:160:72: 160 | 20 IFRCM(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudcin.F:168:72: 168 | DO 30 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudcin.F:169:72: 169 | 30 PRIVTX(J,I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran eudini.F gfortran eudtab.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudtab.F:58:72: 58 | 15 IPPIDX(J)=IPPIDX(J-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/eudtab.F:116:72: 116 | 60 IDC(ND,I)=IEPS*IPC(IPOINT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran eudtit.F gfortran idloc.F gfortran inibrn.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/inibrn.F:118:72: 118 | 50 IMOD(K)=IMOD(K)+IIMOD(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/inibrn.F:176:72: 176 | 100 GGAM(I)=EFERM(I)*GG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran invert.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/invert.F:37:72: 37 | 10 CALL DFNPRE(WHVY,YHVY(1,I),XLOW,XHIGH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran nampoi.F gfortran ordbr.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/ordbr.F:31:72: 31 | 10 IDC(K,I)=IBUFCO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/ordbr.F:43:72: 43 | 40 DBR(I)=DBR(I-1)+DBR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sqd.F gfortran toponi.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/toponi.F:71:72: 71 | 20 AMSUM=AMSUM+AM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/toponi.F:200:72: 200 | 30 CALL INDNAM(IDC(J,I),PNAM(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudini/toponi.F:223:72: 223 | 50 DBR(I)=DBR(I-1)+DBR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran wglu.F gfortran whvy.F gfortran wlqu.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/eudini' checking /mclibs/eurodec/fragmt make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/fragmt' makedepend shared/ roter.F makedepend shared/ qjetfr.F makedepend shared/ ordstk.F makedepend shared/ meson.F makedepend shared/ iqqbar.F makedepend shared/ idiqrk.F makedepend shared/ ibaryn.F makedepend shared/ gjetfr.F makedepend shared/ fragmt.F makedepend shared/ finsho.F makedepend shared/ detvtx.F makedepend shared/ clrstk.F makedepend shared/ bwmass.F makedepend shared/ adjust.F gfortran adjust.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:28:72: 28 | 10 PBOOST(J)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:36:72: 36 | 20 PBOOST(J)=PBOOST(J)-PTEIL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:50:72: 50 | 40 BET(J)=PBOOST(J)/PBOOST(5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:56:72: 56 | 50 PTEIL(J,I)=PTEIL(J,I)+BET(J)*(PTEIL(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:64:72: 64 | &**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/adjust.F:97:72: 97 | 110 PTEIL(4,I)=PTEIL(4,I)+PTEIL(J,I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran bwmass.F gfortran clrstk.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/clrstk.F:28:72: 28 | DO 10 J=I+1,I2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/clrstk.F:83:72: 83 | 20 IF ((I.EQ.IREMOV(K)).OR.(J.EQ.IREMOV(K))) GOTO 30 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/clrstk.F:105:72: 105 | 40 IF ((I.EQ.IREMOV(K)).OR.(J.EQ.IREMOV(K))) GOTO 90 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/clrstk.F:134:72: 134 | 60 PTEIL(K,NTPOIN)=PHA(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/clrstk.F:164:72: 164 | 80 PTEIL(K,NTPOIN)=PHA(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) gfortran detvtx.F gfortran finsho.F gfortran fragmt.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:39:72: 39 | DO 10 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:40:72: 40 | 10 PRIVTX(J,I)=PRIVER(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:57:72: 57 | 30 PHA(J,NPART)=PCM(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:68:72: 68 | 40 PTEIL(J,NTEIL)=PCM(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:90:72: 90 | 50 PTEIL(K,NTEIL)=PTEIL(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:100:72: 100 | 60 PHA(K,NPART)=PTEIL(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:112:72: 112 | 90 PBOOST(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:117:72: 117 | DO 100 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:118:72: 118 | 100 PBOOST(J)=PBOOST(J)-PHA(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:124:72: 124 | DO 110 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:125:72: 125 | 110 PBOOST(J)=PBOOST(J)-PTEIL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:138:72: 138 | 120 BET(J)=PBOOST(J)/Q0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:143:72: 143 | 130 PHA(J,I)=PHA(J,I)+BET(J)*(PHA(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:145:72: 145 | 140 PHA(5,I)=SQRT((PHA(4,I)-AHM(I))*(PHA(4,I)+AHM(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:152:72: 152 | 150 PTEIL(J,I)=PTEIL(J,I)+BET(J)*(PTEIL(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:153:72: 153 | 160 PTEIL(4,I)=GAM*PTEIL(4,I)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:192:72: 192 | 180 IDCAYT(J)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:193:72: 193 | 190 IF (IPP(I).GT.0) IDCAYT(IPP(I)/10000)=NTP1*10000+NTEIL | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:213:72: 213 | 200 PTEIL(J,I)=PTEIL(J,I)-BET(J)*(PTEIL(4,I)+PB/(GAM+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:214:72: 214 | 210 PTEIL(4,I)=GAM*PTEIL(4,I)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:220:72: 220 | DO 220 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/fragmt.F:221:72: 221 | 220 SECVTX(J,I)=PRIVTX(J,IP1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) gfortran gjetfr.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/gjetfr.F:100:72: 100 | 50 PTEIL(J,NTPNT)=PHA(J,I1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/gjetfr.F:105:72: 105 | 60 PTEIL(J,NTPNT)=PHA(J,ILAST) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran ibaryn.F gfortran idiqrk.F gfortran iqqbar.F gfortran meson.F gfortran ordstk.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/ordstk.F:29:72: 29 | 20 IF (R.LE.L) IF (LEVEL) 80,80,10 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran qjetfr.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/qjetfr.F:121:72: 121 | 20 AMT2=AMT2+PTEIL(I,NTPNH)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/qjetfr.F:197:72: 197 | 50 CALL ROTER(CT,ST,CF,SF,PTEIL(1,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran roter.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/fragmt/roter.F:32:72: 32 | 10 P(J)=ROT(J,1)*PX+ROT(J,2)*PY+ROT(J,3)*PZ | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/fragmt' checking /mclibs/eurodec/supdec make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/supdec' makedepend shared/ rlego.F makedepend shared/ prtvtx.F makedepend shared/ prtevt.F makedepend shared/ pcharg.F makedepend shared/ ipdgeu.F makedepend shared/ indnam.F makedepend shared/ ieupdg.F makedepend shared/ eurrin.F makedepend shared/ eurran.F makedepend shared/ errord.F makedepend shared/ dgauss.F makedepend shared/ dfunrn.F makedepend shared/ dfnpre.F gfortran dfnpre.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/dfnpre.F:74:72: 74 | 30 X1=X | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/dfnpre.F:101:72: 101 | 70 F=FUNC(X) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) gfortran dfunrn.F gfortran dgauss.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/dgauss.F:51:72: 51 | 30 S8=S8+W(I)*(F(C1+U)+F(C1-U)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/dgauss.F:54:72: 54 | 40 S16=S16+W(I)*(F(C1+U)+F(C1-U)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran errord.F gfortran eurran.F gfortran eurrin.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/eurrin.F:44:72: 44 | 10 T=0.5*T | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/eurrin.F:45:72: 45 | 20 URAN(I)=S | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran ieupdg.F gfortran indnam.F gfortran ipdgeu.F gfortran pcharg.F gfortran prtevt.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtevt.F:38:72: 38 | 10 SUMVEC(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtevt.F:55:72: 55 | 20 SUMVEC(K)=SUMVEC(K)+PCM(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtevt.F:57:72: 57 | & IPHEL(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtevt.F:68:72: 68 | 40 SUMVEC(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtevt.F:90:72: 90 | 50 SUMVEC(K)=SUMVEC(K)+PTEIL(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran prtvtx.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtvtx.F:27:72: 27 | 10 DONE(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/supdec/prtvtx.F:33:72: 33 | 20 SECVER(J)=SECVTX(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran rlego.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/supdec' rebuild shared library libeurodec.so.1_gfortran.2006 in /mclibs/eurodec Sun Jan 5 13:39:36 UTC 2020 Sun Jan 5 13:39:36 UTC 2020 install -c -m 0644 libeurodec.so.1_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib rm -f libeurodec.so.1_gfortran && ln -s libeurodec.so.1_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libeurodec.so.1_gfortran rm -f /<>/mclibs-20061220+dfsg3/shlib/libeurodec.so ln -s libeurodec.so.1_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libeurodec.so rm -f libeurodec.so.1_gfortran.2006 ln -s /<>/mclibs-20061220+dfsg3/shlib/libeurodec.so.1_gfortran.2006 libeurodec.so.1_gfortran.2006 make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec' installing in /mclibs/pdf... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf' checking /mclibs/pdf/spdf make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf/spdf' makedepend shared/ whit6q.F makedepend shared/ whit6g.F makedepend shared/ whit5q.F makedepend shared/ whit5g.F makedepend shared/ whit4q.F makedepend shared/ whit4g.F makedepend shared/ whit3q.F makedepend shared/ whit3g.F makedepend shared/ whit2q.F makedepend shared/ whit2g.F makedepend shared/ whit1q.F makedepend shared/ whit1g.F makedepend shared/ wate32.F makedepend shared/ valdis.F makedepend shared/ v3.F makedepend shared/ structp.F makedepend shared/ structm.F makedepend shared/ structf.F makedepend shared/ strucor.F makedepend shared/ struce.F makedepend shared/ strucb.F makedepend shared/ strpriv.F makedepend shared/ strowp2.F makedepend shared/ strowp1.F makedepend shared/ strmrs3.F makedepend shared/ strmrs2.F makedepend shared/ strmrs1.F makedepend shared/ strkbm.F makedepend shared/ strkb0o.F makedepend shared/ strkb05.F makedepend shared/ strkb04.F makedepend shared/ strkb03.F makedepend shared/ strkb02.F makedepend shared/ strkb0.F makedepend shared/ strh3ep.F makedepend shared/ strh3em.F makedepend shared/ strh3e.F makedepend shared/ strh3b3.F makedepend shared/ strh3b1.F makedepend shared/ strh3b.F makedepend shared/ strh2e.F makedepend shared/ strh2b.F makedepend shared/ strh1e.F makedepend shared/ strh1b.F makedepend shared/ strghr.F makedepend shared/ strdo2.F makedepend shared/ strdo1.F makedepend shared/ strcep.F makedepend shared/ srctq48.F makedepend shared/ srctq47.F makedepend shared/ srctq46.F makedepend shared/ srctq45.F makedepend shared/ strcbp.F makedepend shared/ strbep.F makedepend shared/ strbebc.F makedepend shared/ srctq26.F makedepend shared/ srctq25.F makedepend shared/ srctq24.F makedepend shared/ spctq53.F makedepend shared/ spctq51.F makedepend shared/ srctq23.F makedepend shared/ srctq22.F makedepend shared/ srctq21.F makedepend shared/ smrspi.F makedepend shared/ smrsp33.F makedepend shared/ smrsp32.F makedepend shared/ smrsp31.F makedepend shared/ sfwhi6.F makedepend shared/ sfwhi5.F makedepend shared/ sfwhi4.F makedepend shared/ sfwhi3.F makedepend shared/ sfwhi2.F makedepend shared/ sfwhi1.F makedepend shared/ sfsas24.F makedepend shared/ sfsas23.F makedepend shared/ sfsas22.F makedepend shared/ sfsas21.F makedepend shared/ sfsas14.F makedepend shared/ sfsas13.F makedepend shared/ sfsas12.F makedepend shared/ sfsas11.F makedepend shared/ sfmtu9.F makedepend shared/ sfmtu8.F makedepend shared/ sfmtu7.F makedepend shared/ sfmtu6.F makedepend shared/ sfmtu5.F makedepend shared/ sfmtu4.F makedepend shared/ sfmtu3.F makedepend shared/ sfmtu2.F makedepend shared/ sfmtu1.F makedepend shared/ sfmt11.F makedepend shared/ sfmt10.F makedepend shared/ sfmsr4.F makedepend shared/ sfmsr3.F makedepend shared/ sfmsr2.F makedepend shared/ sfmsr1.F makedepend shared/ sfmsjp.F makedepend shared/ sfms130.F makedepend shared/ sfms125.F makedepend shared/ sfms120.F makedepend shared/ sfms115.F makedepend shared/ sfms110.F makedepend shared/ sfms105.F makedepend shared/ sfmsqa.F makedepend shared/ sfmsfg.F makedepend shared/ sfmsfa.F makedepend shared/ sfmsbs0.F makedepend shared/ sfmsbh.F makedepend shared/ sfmsbdm.F makedepend shared/ sfmsbd0.F makedepend shared/ sfmsbb0.F makedepend shared/ sfmsba.F makedepend shared/ sfmsap.F makedepend shared/ sfmrsc3.F makedepend shared/ sfmrsc2.F makedepend shared/ sfmrsc1.F makedepend shared/ sfmrss0.F makedepend shared/ sfmrsj.F makedepend shared/ sfmrsg.F makedepend shared/ sfmrsdm.F makedepend shared/ sfmrsd0.F makedepend shared/ sfmrs_99d9.F makedepend shared/ sfmrs_99d8.F makedepend shared/ sfmrs_99d7.F makedepend shared/ sfmrs_99d6.F makedepend shared/ sfmrs_99d5.F makedepend shared/ sfmrs_99d4.F makedepend shared/ sfmrs_99d3.F makedepend shared/ sfmrs_99d2.F makedepend shared/ sfmrs_99d11.F makedepend shared/ sfmrs_99d10.F makedepend shared/ sfmrs_99d1.F makedepend shared/ sfmrs_99a9.F makedepend shared/ sfmrs_99a8.F makedepend shared/ sfmrs_99a7.F makedepend shared/ sfmrs_99a6.F makedepend shared/ sfmrs_99a5.F makedepend shared/ sfmrs_99a4.F makedepend shared/ sfmrs_99a3.F makedepend shared/ sfmrs_99a2.F makedepend shared/ sfmrs_99a12.F makedepend shared/ sfmrs_99a11.F makedepend shared/ sfmrs_99a10.F makedepend shared/ sfmrs_99a1.F makedepend shared/ sfmrs_98lo5.F makedepend shared/ sfmrs_98lo4.F makedepend shared/ sfmrs_98lo3.F makedepend shared/ sfmrs_98lo2.F makedepend shared/ sfmrs_98lo1.F makedepend shared/ sfmrs_98ht1.F makedepend shared/ sfmrs_98d5.F makedepend shared/ sfmrs_98d4.F makedepend shared/ sfmrs_98d3.F makedepend shared/ sfmrs_98d2.F makedepend shared/ sfmrs_98d1.F makedepend shared/ sfmrs_98a5.F makedepend shared/ sfmrs_98a4.F makedepend shared/ sfmrs_98a3.F makedepend shared/ sfmrs_98a2.F makedepend shared/ sfmrs_98a1.F makedepend shared/ sfmfr2.F makedepend shared/ sfmfr1.F makedepend shared/ sfmfap.F makedepend shared/ sflacg3.F makedepend shared/ sflacg2.F makedepend shared/ sflacg1.F makedepend shared/ sfkbmr5.F makedepend shared/ sfkbmr2.F makedepend shared/ sfgslo2.F makedepend shared/ sfgslo1.F makedepend shared/ sfgsho.F makedepend shared/ sfgrvl.F makedepend shared/ sfgrvh.F makedepend shared/ sfgal.F makedepend shared/ sfehlq2.F makedepend shared/ sfdsqa.F makedepend shared/ sfdisa.F makedepend shared/ sfctq59.F makedepend shared/ sfctq58.F makedepend shared/ sfctq57.F makedepend shared/ sfctq56.F makedepend shared/ sfctq55.F makedepend shared/ sfctq54.F makedepend shared/ sfctq53.F makedepend shared/ sfctq52.F makedepend shared/ sfctq51.F makedepend shared/ sfctq49.F makedepend shared/ sfctq48.F makedepend shared/ sfctq47.F makedepend shared/ sfctq46.F makedepend shared/ sfctq45.F makedepend shared/ sfctq44.F makedepend shared/ sfctq43.F makedepend shared/ sfctq42.F makedepend shared/ sfctq41.F makedepend shared/ sfehlq1.F makedepend shared/ sfdiss0.F makedepend shared/ sfdish.F makedepend shared/ sfdisdm.F makedepend shared/ sfdisd0.F makedepend shared/ sfctq33.F makedepend shared/ sfctq32.F makedepend shared/ sfctq31.F makedepend shared/ sfctq26.F makedepend shared/ sfctq25.F makedepend shared/ sfctq24.F makedepend shared/ sfctq23.F makedepend shared/ sfctq22.F makedepend shared/ sfctq21.F makedepend shared/ sfctq15.F makedepend shared/ sfctq14.F makedepend shared/ sfctq13.F makedepend shared/ sfctq12.F makedepend shared/ sfctq11.F makedepend shared/ sfbmb.F makedepend shared/ sfbma.F makedepend shared/ sfafg1.F makedepend shared/ sfabfow.F makedepend shared/ seadis.F makedepend shared/ sasvmd.F makedepend shared/ sasvm1.F makedepend shared/ sasgam2.F makedepend shared/ sasgam1.F makedepend shared/ sasdir.F makedepend shared/ sasbeh.F makedepend shared/ sasano.F makedepend shared/ sasan1.F makedepend shared/ rxud.F makedepend shared/ rxqbar.F makedepend shared/ rxglue.F makedepend shared/ rxdv.F makedepend shared/ phlac3.F makedepend shared/ phlac2.F makedepend shared/ phlac1.F makedepend shared/ phgal.F makedepend shared/ pftopdg.F makedepend shared/ pdzxmt.F makedepend shared/ pdxmt.F makedepend shared/ pdfvers.F makedepend shared/ pdfsta.F makedepend shared/ pdfset.F makedepend shared/ pdf_beta.F makedepend shared/ newdo1.F makedepend shared/ mrsebp.F makedepend shared/ mrseb.F makedepend shared/ mrsdshp.F makedepend shared/ mrsdshd.F makedepend shared/ kmrsgeb.F makedepend shared/ kmrseb.F makedepend shared/ hmrsgeb.F makedepend shared/ hmrs3eb.F makedepend shared/ hmrs2eb.F makedepend shared/ hmrs1eb.F makedepend shared/ gsxcor.F makedepend shared/ gs96lo.F makedepend shared/ gs96ho.F makedepend shared/ gs2xcor.F makedepend shared/ grv98_nld.F makedepend shared/ grv98_nlm.F makedepend shared/ grv98_lo.F makedepend shared/ grvpilo.F makedepend shared/ grvpiho.F makedepend shared/ grvlo.F makedepend shared/ grvho.F makedepend shared/ grvgfs.F makedepend shared/ grvgf.F makedepend shared/ grvgalo.F makedepend shared/ grvgaho.F makedepend shared/ grvgah0.F makedepend shared/ grvfws.F makedepend shared/ grvfw.F makedepend shared/ grvfvp.F makedepend shared/ grvfv.F makedepend shared/ grvfqbp.F makedepend shared/ grvfgp.F makedepend shared/ grsvl2.F makedepend shared/ grsvl1.F makedepend shared/ grsvh2.F makedepend shared/ grsvh1.F makedepend shared/ grsgalo.F makedepend shared/ grsf2.F makedepend shared/ grsf1.F makedepend shared/ grv94lo.F makedepend shared/ grv94ho.F makedepend shared/ grv94di.F makedepend shared/ gr94fws.F makedepend shared/ gr94fw.F makedepend shared/ gr94fv.F makedepend shared/ ghrxs.F makedepend shared/ ghrxi.F makedepend shared/ ghruv.F makedepend shared/ ghrgl.F makedepend shared/ ghrdv.F makedepend shared/ gammado.F makedepend shared/ gamfun.F makedepend shared/ fxvsof.F makedepend shared/ fxvhar.F makedepend shared/ fxnlla.F makedepend shared/ fxgsof.F makedepend shared/ fxghar.F makedepend shared/ fxg360.F makedepend shared/ fxg260.F makedepend shared/ fxg160.F makedepend shared/ fxaver.F makedepend shared/ faux5mi.F makedepend shared/ faux5l.F makedepend shared/ dpolin.F makedepend shared/ dopho2.F makedepend shared/ dopho1.F makedepend shared/ dgpho4.F makedepend shared/ dgpho3.F makedepend shared/ dgpho2.F makedepend shared/ dgpho1.F makedepend shared/ dflm9.F makedepend shared/ dflm8.F makedepend shared/ dflm7.F makedepend shared/ dflm6.F makedepend shared/ dflm5.F makedepend shared/ dflm4.F makedepend shared/ dflm3.F makedepend shared/ dflm2.F makedepend shared/ dflm1.F makedepend shared/ dbfint.F makedepend shared/ ctq5mi.F makedepend shared/ ctq5lp.F makedepend shared/ ctq5pnx.F makedepend shared/ ctq5pdf.F makedepend shared/ ctq5m1.F makedepend shared/ ctq5m.F makedepend shared/ ctq5l.F makedepend shared/ ctq5hq1.F makedepend shared/ ctq5hq.F makedepend shared/ ctq5hj.F makedepend shared/ ctq5f4.F makedepend shared/ ctq5f3.F makedepend shared/ ctq5d.F makedepend shared/ ctq4rf4.F makedepend shared/ ctq4rf3.F makedepend shared/ ctq4r_hq1.F makedepend shared/ ctq4rhq.F makedepend shared/ ctq4rlq.F makedepend shared/ ctq4rm.F makedepend shared/ ctq4rl.F makedepend shared/ ctq4rhj.F makedepend shared/ ctq4rd.F makedepend shared/ ctq4ra5.F makedepend shared/ ctq4ra4.F makedepend shared/ ctq4ra2.F makedepend shared/ ctq4ra1.F makedepend shared/ ctq4pnx.F makedepend shared/ ctq4fn.F makedepend shared/ ctq3pf.F makedepend shared/ ctq3pds.F makedepend shared/ ctq3pd.F makedepend shared/ ctq2pps.F makedepend shared/ ctq2ppf.F makedepend shared/ ctq2ppd.F makedepend shared/ ctq2ops.F makedepend shared/ ctq2opf.F makedepend shared/ ctq2opd.F makedepend shared/ ctq1pf.F makedepend shared/ ctq1pd.F makedepend shared/ ctq1opf.F makedepend shared/ ctq1opd.F makedepend shared/ bxqbar.F makedepend shared/ bxglue.F makedepend shared/ bxf3.F makedepend shared/ bbeta.F makedepend shared/ aurpr.F makedepend shared/ aurpi3.F makedepend shared/ aurpi2.F makedepend shared/ aurpi1.F makedepend shared/ aurgam.F makedepend shared/ augetfv.F makedepend shared/ alphas2.F makedepend shared/ afratin.F makedepend shared/ afpolin.F makedepend shared/ afgint.F makedepend shared/ afgin2.F makedepend shared/ afgetfv.F makedepend shared/ afcplu.F makedepend shared/ acfgp2.F makedepend shared/ acfgp1.F makedepend shared/ abfkw3.F makedepend shared/ abfkw2.F makedepend shared/ abfkw1.F gfortran abfkw1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw1.F:1115:72: 1115 | DO 11 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw1.F:1116:72: 1116 | DO 11 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw1.F:1117:72: 1117 | 11 CALCPIO(M,I,K) = CALCPI(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw1.F:1132:72: 1132 | IF(Q2-Q02PI) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw1.F:1133:72: 1133 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran abfkw2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw2.F:1115:72: 1115 | DO 11 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw2.F:1116:72: 1116 | DO 11 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw2.F:1117:72: 1117 | 11 CALCPIO(M,I,K) = CALCPI(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw2.F:1132:72: 1132 | IF(Q2-Q02PI) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw2.F:1133:72: 1133 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran abfkw3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw3.F:1115:72: 1115 | DO 11 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw3.F:1116:72: 1116 | DO 11 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw3.F:1117:72: 1117 | 11 CALCPIO(M,I,K) = CALCPI(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw3.F:1132:72: 1132 | IF(Q2-Q02PI) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/abfkw3.F:1133:72: 1133 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran acfgp1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp1.F:1446:72: 1446 | DO 10 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp1.F:1447:72: 1447 | DO 10 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp1.F:1448:72: 1448 | 10 CALCO(M,I,K) = CALC(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp1.F:1462:72: 1462 | IF(Q2-Q02) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp1.F:1463:72: 1463 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran acfgp2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp2.F:1446:72: 1446 | DO 10 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp2.F:1447:72: 1447 | DO 10 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp2.F:1448:72: 1448 | 10 CALCO(M,I,K) = CALC(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp2.F:1462:72: 1462 | IF(Q2-Q02) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/acfgp2.F:1463:72: 1463 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran afcplu.F gfortran afgetfv.F gfortran afgin2.F gfortran afgint.F gfortran afpolin.F gfortran afratin.F gfortran alphas2.F gfortran augetfv.F gfortran aurgam.F gfortran aurpi1.F gfortran aurpi2.F gfortran aurpi3.F gfortran aurpr.F gfortran bbeta.F gfortran bxf3.F gfortran bxglue.F gfortran bxqbar.F gfortran ctq1opd.F gfortran ctq1opf.F gfortran ctq1pd.F gfortran ctq1pf.F gfortran ctq2opd.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/ctq2opd.F:669:72: 669 | 201 ExpNor(Iexp) = ExpN(Iexp, Iset) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran ctq2opf.F gfortran ctq2ops.F gfortran ctq2ppd.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/ctq2ppd.F:670:72: 670 | 201 ExpNor(Iexp) = ExpN(Iexp, Iset) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) gfortran ctq2ppf.F gfortran ctq2pps.F gfortran ctq3pd.F gfortran ctq3pds.F gfortran ctq3pf.F gfortran ctq4fn.F gfortran ctq4pnx.F gfortran ctq4ra1.F gfortran ctq4ra2.F gfortran ctq4ra4.F gfortran ctq4ra5.F gfortran ctq4rd.F gfortran ctq4rhj.F gfortran ctq4rl.F gfortran ctq4rm.F gfortran ctq4rlq.F gfortran ctq4rhq.F gfortran ctq4r_hq1.F gfortran ctq4rf3.F gfortran ctq4rf4.F gfortran ctq5d.F gfortran ctq5f3.F gfortran ctq5f4.F gfortran ctq5hj.F gfortran ctq5hq.F gfortran ctq5hq1.F gfortran ctq5l.F gfortran ctq5m.F gfortran ctq5m1.F gfortran ctq5pdf.F gfortran ctq5pnx.F gfortran ctq5lp.F gfortran ctq5mi.F gfortran dbfint.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/dbfint.F:50:72: 50 | IF(X-ENT(LOCC)) 12, 20, 13 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran dflm1.F gfortran dflm2.F gfortran dflm3.F gfortran dflm4.F gfortran dflm5.F gfortran dflm6.F gfortran dflm7.F gfortran dflm8.F gfortran dflm9.F gfortran dgpho1.F gfortran dgpho2.F gfortran dgpho3.F gfortran dgpho4.F gfortran dopho1.F gfortran dopho2.F gfortran dpolin.F gfortran faux5l.F gfortran faux5mi.F gfortran fxaver.F gfortran fxg160.F gfortran fxg260.F gfortran fxg360.F gfortran fxghar.F gfortran fxgsof.F gfortran fxnlla.F gfortran fxvhar.F gfortran fxvsof.F gfortran gamfun.F gfortran gammado.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:46:72: 46 | IF(XX-34.5)6,6,4 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:54:72: 54 | IF(X-2.0)50,50,15 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:55:72: 55 | 10 IF(X-2.0)110,110,15 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:59:72: 59 | 50 IF(X-1.0)60,120,110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:63:72: 63 | 60 IF(X-ERR)62,62,80 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:65:72: 65 | IF(ABS(Y)-ERR)130,130,64 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:66:72: 66 | 64 IF(1.0-Y-ERR)130,130,70 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/gammado.F:70:72: 70 | 70 IF(X-1.0)80,80,110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran ghrdv.F gfortran ghrgl.F gfortran ghruv.F gfortran ghrxi.F gfortran ghrxs.F gfortran gr94fv.F gfortran gr94fw.F gfortran gr94fws.F gfortran grv94di.F gfortran grv94ho.F gfortran grv94lo.F gfortran grsf1.F gfortran grsf2.F gfortran grsgalo.F gfortran grsvh1.F gfortran grsvh2.F gfortran grsvl1.F gfortran grsvl2.F gfortran grvfgp.F gfortran grvfqbp.F gfortran grvfv.F gfortran grvfvp.F gfortran grvfw.F gfortran grvfws.F gfortran grvgah0.F gfortran grvgaho.F gfortran grvgalo.F gfortran grvgf.F gfortran grvgfs.F gfortran grvho.F gfortran grvlo.F gfortran grvpiho.F gfortran grvpilo.F gfortran grv98_lo.F gfortran grv98_nlm.F gfortran grv98_nld.F gfortran gs2xcor.F gfortran gs96ho.F gfortran gs96lo.F gfortran gsxcor.F gfortran hmrs1eb.F gfortran hmrs2eb.F gfortran hmrs3eb.F gfortran hmrsgeb.F gfortran kmrseb.F gfortran kmrsgeb.F gfortran mrsdshd.F gfortran mrsdshp.F gfortran mrseb.F gfortran mrsebp.F gfortran newdo1.F gfortran pdf_beta.F gfortran pdfset.F gfortran pdfsta.F gfortran pdfvers.F gfortran pdxmt.F gfortran pdzxmt.F gfortran pftopdg.F gfortran phgal.F gfortran phlac1.F gfortran phlac2.F gfortran phlac3.F gfortran rxdv.F gfortran rxglue.F gfortran rxqbar.F gfortran rxud.F gfortran sasan1.F gfortran sasano.F gfortran sasbeh.F gfortran sasdir.F gfortran sasgam1.F gfortran sasgam2.F gfortran sasvm1.F gfortran sasvmd.F gfortran seadis.F gfortran sfabfow.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfabfow.F:1115:72: 1115 | DO 11 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfabfow.F:1116:72: 1116 | DO 11 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfabfow.F:1117:72: 1117 | 11 CALCO(M,I,K) = CALC(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfabfow.F:1132:72: 1132 | IF(Q2-Q02PR) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfabfow.F:1133:72: 1133 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran sfafg1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfafg1.F:2851:72: 2851 | DO 10 I=1,20 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfafg1.F:2852:72: 2852 | DO 10 M=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfafg1.F:2854:72: 2854 | 10 CELCO(M,I,K) = CELC(M,I,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfafg1.F:2869:72: 2869 | IF(Q2-Q02) 1,1,2 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfafg1.F:2870:72: 2870 | 2 IF(IDQ2-1) 1,1,3 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran sfbma.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2662:72: 2662 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2667:72: 2667 | 25 F(I,N,M)=F(I,N,M)/(1.D0-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2671:72: 2671 | DO 30 I=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2672:72: 2672 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2673:72: 2673 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,ntenth,K)/ LOG(F(I,ntenth,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2676:72: 2676 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbma.F:2677:72: 2677 | 40 F(I,nx,M)=0.D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfbmb.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2663:72: 2663 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2668:72: 2668 | 25 F(I,N,M)=F(I,N,M)/(1.D0-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2672:72: 2672 | DO 30 I=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2673:72: 2673 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2674:72: 2674 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,ntenth,K)/ LOG(F(I,ntenth,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2677:72: 2677 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfbmb.F:2678:72: 2678 | 40 F(I,nx,M)=0.D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfctq11.F gfortran sfctq12.F gfortran sfctq13.F gfortran sfctq14.F gfortran sfctq15.F gfortran sfctq21.F gfortran sfctq22.F gfortran sfctq23.F gfortran sfctq24.F gfortran sfctq25.F gfortran sfctq26.F gfortran sfctq31.F gfortran sfctq32.F gfortran sfctq33.F gfortran sfdisd0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1927:72: 1927 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1932:72: 1932 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1936:72: 1936 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1939:72: 1939 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1943:72: 1943 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisd0.F:1944:72: 1944 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfdisdm.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1927:72: 1927 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1932:72: 1932 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1936:72: 1936 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1939:72: 1939 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1943:72: 1943 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisdm.F:1944:72: 1944 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfdish.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdish.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfdiss0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1927:72: 1927 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1932:72: 1932 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1936:72: 1936 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1939:72: 1939 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1943:72: 1943 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdiss0.F:1944:72: 1944 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfehlq1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:178:72: 178 | DO 110 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:179:72: 179 | 110 XQSUM=XQSUM+CEHLQ(IX,IT,NX,KFL)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:180:72: 180 | 120 XQ(KFL)=XQSUM*(1.-X)**NEHLQ(KFL)*CXS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:207:72: 207 | DO 130 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:208:72: 208 | 130 XQSUM=XQSUM+CEHLQ(IX,IT,NX,7)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:231:72: 231 | DO 150 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq1.F:232:72: 232 | 150 XQSUM=XQSUM+CEHLQ(IX,IT,NX,8)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) gfortran sfctq41.F gfortran sfctq42.F gfortran sfctq43.F gfortran sfctq44.F gfortran sfctq45.F gfortran sfctq46.F gfortran sfctq47.F gfortran sfctq48.F gfortran sfctq49.F gfortran sfctq51.F gfortran sfctq52.F gfortran sfctq53.F gfortran sfctq54.F gfortran sfctq55.F gfortran sfctq56.F gfortran sfctq57.F gfortran sfctq58.F gfortran sfctq59.F gfortran sfdisa.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1914:72: 1914 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1919:72: 1919 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1923:72: 1923 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1926:72: 1926 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1930:72: 1930 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdisa.F:1931:72: 1931 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfdsqa.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:720:72: 720 | DO 20 M=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:725:72: 725 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:729:72: 729 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:732:72: 732 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:736:72: 736 | DO 40 M=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfdsqa.F:737:72: 737 | 40 F(I,nx,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfehlq2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:178:72: 178 | DO 110 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:179:72: 179 | 110 XQSUM=XQSUM+CEHLQ(IX,IT,NX,KFL)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:180:72: 180 | 120 XQ(KFL)=XQSUM*(1.-X)**NEHLQ(KFL)*CXS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:207:72: 207 | DO 130 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:208:72: 208 | 130 XQSUM=XQSUM+CEHLQ(IX,IT,NX,7)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:231:72: 231 | DO 150 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfehlq2.F:232:72: 232 | 150 XQSUM=XQSUM+CEHLQ(IX,IT,NX,8)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) gfortran sfgal.F gfortran sfgrvh.F gfortran sfgrvl.F gfortran sfgsho.F gfortran sfgslo1.F gfortran sfgslo2.F gfortran sfkbmr2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr2.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfkbmr5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfkbmr5.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sflacg1.F gfortran sflacg2.F gfortran sflacg3.F gfortran sfmfap.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmfap.F:71:72: 71 | 10 F(J)=A*X**B*(1.-X)**C*(1.+D*SQRT(X)+E*X)*( LOG(1./X))**H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sfmfr1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmfr1.F:74:72: 74 | 10 F(J)=A*X**B*(ONED-X)**C*(ONED+D*SQRT(X)+E*X)*( LOG(ONED/X))**H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sfmfr2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmfr2.F:74:72: 74 | 10 F(J)=A*X**B*(ONED-X)**C*(ONED+D*SQRT(X)+E*X)*( LOG(ONED/X))**H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sfmrs_98a1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98a2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98a3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98a4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a4.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98a5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98a5.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98d1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98d2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98d3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98d4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d4.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98d5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98d5.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98ht1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98ht1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98lo1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98lo2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98lo3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98lo4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo4.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_98lo5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_98lo5.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a10.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a10.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a11.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a11.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a12.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a12.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a4.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a5.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a6.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a6.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a7.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a7.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a8.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a8.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99a9.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99a9.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d10.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d10.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d11.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d11.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d4.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d5.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d5.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d6.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d6.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d7.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d7.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d8.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d8.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrs_99d9.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrs_99d9.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsd0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:2983:72: 2983 | DO 20 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:2988:72: 2988 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:2992:72: 2992 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:2995:72: 2995 | 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:2999:72: 2999 | DO 40 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsd0.F:3000:72: 3000 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsdm.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:2983:72: 2983 | DO 20 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:2988:72: 2988 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:2992:72: 2992 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:2995:72: 2995 | 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:2999:72: 2999 | DO 40 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsdm.F:3000:72: 3000 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsg.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1929:72: 1929 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1934:72: 1934 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1938:72: 1938 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1941:72: 1941 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1945:72: 1945 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsg.F:1946:72: 1946 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsj.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsj.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrss0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:2983:72: 2983 | DO 20 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:2988:72: 2988 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:2992:72: 2992 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:2995:72: 2995 | 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:2999:72: 2999 | DO 40 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrss0.F:3000:72: 3000 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsc1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc1.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsc2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc2.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmrsc3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3825:72: 3825 | do 20 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3830:72: 3830 | 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3834:72: 3834 | do 31 i=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3837:72: 3837 | 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3841:72: 3841 | do 40 m=1,nq | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmrsc3.F:3842:72: 3842 | 40 f(i,nx,m)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsap.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1929:72: 1929 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1934:72: 1934 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1938:72: 1938 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1941:72: 1941 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1945:72: 1945 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsap.F:1946:72: 1946 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsba.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsba.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsbb0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1927:72: 1927 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1932:72: 1932 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1936:72: 1936 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1939:72: 1939 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1943:72: 1943 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbb0.F:1944:72: 1944 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsbd0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbd0.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsbdm.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbdm.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsbh.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbh.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsbs0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1926:72: 1926 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1931:72: 1931 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1935:72: 1935 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1938:72: 1938 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1942:72: 1942 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsbs0.F:1943:72: 1943 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsfa.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsfa.F:70:72: 70 | 10 F(J)=A*X**B*(1.D0-X)**C*(1.D0+D*SQRT(X)+E*X)*( LOG(1.D0/X))**H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sfmsfg.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsfg.F:77:72: 77 | 10 F(J)=A*X**B*(1.-X)**C*(1.+D*SQRT(X)+E*X)*( LOG(1./X))**H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sfmsqa.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:733:72: 733 | DO 20 M=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:738:72: 738 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:742:72: 742 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:745:72: 745 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:749:72: 749 | DO 40 M=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsqa.F:750:72: 750 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms105.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms105.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms110.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms110.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms115.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms115.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms120.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms120.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms125.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms125.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfms130.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfms130.F:1932:72: 1932 | 40 F(I,nx,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsjp.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1915:72: 1915 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1920:72: 1920 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1924:72: 1924 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1927:72: 1927 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1931:72: 1931 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsjp.F:1932:72: 1932 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsr1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3825:72: 3825 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3830:72: 3830 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3834:72: 3834 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3837:72: 3837 | 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3841:72: 3841 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr1.F:3842:72: 3842 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsr2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3824:72: 3824 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3829:72: 3829 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3833:72: 3833 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3836:72: 3836 | 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3840:72: 3840 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr2.F:3841:72: 3841 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsr3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3824:72: 3824 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3829:72: 3829 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3833:72: 3833 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3836:72: 3836 | 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3840:72: 3840 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr3.F:3841:72: 3841 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmsr4.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3825:72: 3825 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3830:72: 3830 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3834:72: 3834 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3837:72: 3837 | 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3841:72: 3841 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/sfmsr4.F:3842:72: 3842 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran sfmt10.F gfortran sfmt11.F gfortran sfmtu1.F gfortran sfmtu2.F gfortran sfmtu3.F gfortran sfmtu4.F gfortran sfmtu5.F gfortran sfmtu6.F gfortran sfmtu7.F gfortran sfmtu8.F gfortran sfmtu9.F gfortran sfsas11.F gfortran sfsas12.F gfortran sfsas13.F gfortran sfsas14.F gfortran sfsas21.F gfortran sfsas22.F gfortran sfsas23.F gfortran sfsas24.F gfortran sfwhi1.F gfortran sfwhi2.F gfortran sfwhi3.F gfortran sfwhi4.F gfortran sfwhi5.F gfortran sfwhi6.F gfortran smrsp31.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1039:72: 1039 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1044:72: 1044 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1048:72: 1048 | DO 30 I=2,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1049:72: 1049 | DO 30 K=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1050:72: 1050 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1053:72: 1053 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp31.F:1054:72: 1054 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran smrsp32.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1039:72: 1039 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1044:72: 1044 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1048:72: 1048 | DO 30 I=2,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1049:72: 1049 | DO 30 K=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1050:72: 1050 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1053:72: 1053 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp32.F:1054:72: 1054 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran smrsp33.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1040:72: 1040 | DO 20 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1045:72: 1045 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1049:72: 1049 | DO 30 I=2,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1050:72: 1050 | DO 30 K=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1051:72: 1051 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1054:72: 1054 | DO 40 M=1,NQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/smrsp33.F:1055:72: 1055 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran smrspi.F gfortran srctq21.F gfortran srctq22.F gfortran srctq23.F gfortran spctq51.F gfortran spctq53.F gfortran srctq24.F gfortran srctq25.F gfortran srctq26.F gfortran strbebc.F gfortran strbep.F gfortran strcbp.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:862:72: 862 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:864:72: 864 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcbp.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran srctq45.F gfortran srctq46.F gfortran srctq47.F gfortran srctq48.F gfortran strcep.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:862:72: 862 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:864:72: 864 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strcep.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strdo1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo1.F:37:72: 37 | DO 10 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo1.F:38:72: 38 | 10 A(J,I)=B1(1,J,I)+S*(B1(2,J,I)+S*B1(3,J,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo1.F:41:72: 41 | & (A(4,I)+X*(A(5,I)+X*A(6,I)))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo1.F:45:72: 45 | &*GAMFUN(WN+A(3,I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran strdo2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo2.F:38:72: 38 | DO 10 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo2.F:39:72: 39 | 10 A(J,I)=B2(1,J,I)+S*(B2(2,J,I)+S*B2(3,J,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo2.F:42:72: 42 | +(6,I)))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strdo2.F:46:72: 46 | +*GAMFUN(WN+A(3,I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran strghr.F gfortran strh1b.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:853:72: 853 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:856:72: 856 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:860:72: 860 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:861:72: 861 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:862:72: 862 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:865:72: 865 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1b.F:866:72: 866 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh1e.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:853:72: 853 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:856:72: 856 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:860:72: 860 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:861:72: 861 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:862:72: 862 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:865:72: 865 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh1e.F:866:72: 866 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh2b.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:853:72: 853 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:862:72: 862 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:864:72: 864 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2b.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh2e.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:853:72: 853 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:862:72: 862 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:864:72: 864 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,16,K)/ LOG(F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh2e.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3b.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3b1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b1.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3b3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3b3.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3e.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:972:72: 972 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3e.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3em.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:963:72: 963 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:974:72: 974 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3em.F:975:72: 975 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strh3ep.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:964:72: 964 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:967:72: 967 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:971:72: 971 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:972:72: 972 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:973:72: 973 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strh3ep.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb0.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:2983:72: 2983 | DO 20 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:2988:72: 2988 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:2992:72: 2992 | DO 31 I=1,8 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:2995:72: 2995 | 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:2999:72: 2999 | DO 40 M=1,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0.F:3000:72: 3000 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb02.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:962:72: 962 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:967:72: 967 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:971:72: 971 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:972:72: 972 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:973:72: 973 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:976:72: 976 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb02.F:977:72: 977 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb03.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:962:72: 962 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:967:72: 967 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:971:72: 971 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:972:72: 972 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:973:72: 973 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:976:72: 976 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb03.F:977:72: 977 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb04.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:962:72: 962 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:967:72: 967 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:971:72: 971 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:972:72: 972 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:973:72: 973 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:976:72: 976 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb04.F:977:72: 977 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb05.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:962:72: 962 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:967:72: 967 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:971:72: 971 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:972:72: 972 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:973:72: 973 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:976:72: 976 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb05.F:977:72: 977 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkb0o.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkb0o.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strkbm.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:961:72: 961 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:966:72: 966 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:970:72: 970 | DO 30 I=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:971:72: 971 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:972:72: 972 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:975:72: 975 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strkbm.F:976:72: 976 | 40 F(I,NX,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strmrs1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:859:72: 859 | 10 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:863:72: 863 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:864:72: 864 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:865:72: 865 | 30 F(I,J,K)= LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs1.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strmrs2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:859:72: 859 | 10 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:863:72: 863 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:864:72: 864 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:865:72: 865 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs2.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strmrs3.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:859:72: 859 | 10 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:863:72: 863 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:864:72: 864 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:865:72: 865 | 30 F(I,J,K)= LOG(F(I,J,K))*F(I,16,K)/ LOG(F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strmrs3.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strowp1.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strowp1.F:59:72: 59 | & COW(3,IS,KFL)*SD*SD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) gfortran strowp2.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strowp2.F:59:72: 59 | & COW(3,IS,KFL)*SD*SD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran strpriv.F gfortran strucb.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:862:72: 862 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:864:72: 864 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/strucb.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran struce.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:855:72: 855 | DO 20 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:858:72: 858 | 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:862:72: 862 | DO 30 I=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:863:72: 863 | DO 30 K=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:864:72: 864 | 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/LOG( F(I,16,K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:867:72: 867 | DO 40 M=1,19 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/struce.F:868:72: 868 | 40 F(I,42,M)=ZEROD | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran strucor.F gfortran structf.F gfortran structm.F gfortran structp.F gfortran v3.F gfortran valdis.F gfortran wate32.F /<>/mclibs-20061220+dfsg3/src/mclibs/pdf/spdf/wate32.F:61:72: 61 | 2 XX(I)=0.5D0*(XI(I)+1.0D0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran whit1g.F gfortran whit1q.F gfortran whit2g.F gfortran whit2q.F gfortran whit3g.F gfortran whit3q.F gfortran whit4g.F gfortran whit4q.F gfortran whit5g.F gfortran whit5q.F gfortran whit6g.F gfortran whit6q.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf/spdf' checking /mclibs/pdf/npdf make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf/npdf' makedepend shared/ structa.F makedepend shared/ sfeks98.F makedepend shared/ eksarp.F makedepend shared/ eks98.F gfortran eks98.F gfortran eksarp.F gfortran sfeks98.F gfortran structa.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf/npdf' rebuild shared library libpdflib804.so.2_gfortran.2006 in /mclibs/pdf Sun Jan 5 13:41:41 UTC 2020 Sun Jan 5 13:41:42 UTC 2020 install -c -m 0644 libpdflib804.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib rm -f libpdflib804.so.2_gfortran && ln -s libpdflib804.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libpdflib804.so.2_gfortran rm -f /<>/mclibs-20061220+dfsg3/shlib/libpdflib804.so ln -s libpdflib804.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libpdflib804.so rm -f libpdflib804.so.2_gfortran.2006 ln -s /<>/mclibs-20061220+dfsg3/shlib/libpdflib804.so.2_gfortran.2006 libpdflib804.so.2_gfortran.2006 make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/pdf' installing in /mclibs/photos... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/photos' checking /mclibs/photos/code make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/photos/code' makedepend shared/ photos_set.F makedepend shared/ photos_make.F makedepend shared/ photos_get.F makedepend shared/ phtype.F makedepend shared/ photwo.F makedepend shared/ photri.F makedepend shared/ photos.F makedepend shared/ phospi.F makedepend shared/ phoro3.F makedepend shared/ phoro2.F makedepend shared/ phorin.F makedepend shared/ phorep.F makedepend shared/ phoran.F makedepend shared/ phopre.F makedepend shared/ phoout.F makedepend shared/ phooma.F makedepend shared/ phomak.F makedepend shared/ phoini.F makedepend shared/ phoinf.F makedepend shared/ phoin.F makedepend shared/ phofac.F makedepend shared/ phoerr.F makedepend shared/ phoene.F makedepend shared/ phodo.F makedepend shared/ phocor.F makedepend shared/ phocin.F makedepend shared/ phochk.F makedepend shared/ phocha.F makedepend shared/ phobos.F makedepend shared/ phobo3.F makedepend shared/ phoan2.F makedepend shared/ phoan1.F makedepend shared/ phlupa.F makedepend shared/ phint.F makedepend shared/ phcork.F gfortran phcork.F gfortran phint.F gfortran phlupa.F gfortran phoan1.F gfortran phoan2.F gfortran phobo3.F gfortran phobos.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phobos.F:40:72: 40 | 10 BET2(J)=PBOOS2(J)/PBOOS2(5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phobos.F:49:72: 49 | 30 PHEP(J,I)=PHEP(J,I)+BET1(J)*(PHEP(4,I)+PB/(GAM1+1.D0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phobos.F:55:72: 55 | 40 PHEP(J,I)=PHEP(J,I)+BET2(J)*(PHEP(4,I)+PB/(GAM2+1.D0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran phocha.F gfortran phochk.F gfortran phocin.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phocin.F:49:72: 49 | 10 QEDRAD(I)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phocin.F:89:72: 89 | 20 STATUS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran phocor.F gfortran phodo.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phodo.F:118:72: 118 | 60 PVEC(I)=0.D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phodo.F:173:72: 173 | 80 PPHO(J,NEUDAU)=PNEUTR(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phodo.F:178:72: 178 | 90 PPHO(J,NCHARB)=-(PPHO(J,NPHO)+PNEUTR(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) gfortran phoene.F gfortran phoerr.F gfortran phofac.F gfortran phoin.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoin.F:105:72: 105 | 10 BET(J)=-PPHO(J,1)/PPHO(5,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoin.F:110:72: 110 | 20 PPHO(J,I)=PPHO(J,I)+BET(J)*(PPHO(4,I)+PB/(GAM+1.D0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoin.F:111:72: 111 | 30 PPHO(4,I)=GAM*PPHO(4,I)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran phoinf.F gfortran phoini.F gfortran phomak.F gfortran phooma.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phooma.F:34:72: 34 | 10 MASS(I)=PPHO(5,POINTR(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran phoout.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoout.F:45:72: 45 | 100 PPHO(K,J)=PPHO(K,J)-BET(K)*(PPHO(4,J)+PB/(GAM+1.D0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoout.F:46:72: 46 | 110 PPHO(4,J)=GAM*PPHO(4,J)+PB | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phoout.F:51:72: 51 | 120 PPHO(K,NN)=PPHO(K,NN)-BET(K)*(PPHO(4,NN)+PB/(GAM+1.D0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) gfortran phopre.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phopre.F:98:72: 98 | 70 PNEUTR(J)=-PPHO(J,CHAPOI(NCHARG)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) gfortran phoran.F gfortran phorep.F gfortran phorin.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phorin.F:51:72: 51 | 10 T=0.5D0*T | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/phorin.F:52:72: 52 | 20 URAN(I)=S | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran phoro2.F gfortran phoro3.F gfortran phospi.F gfortran photos.F gfortran photri.F gfortran photwo.F gfortran phtype.F gfortran photos_get.F gfortran photos_make.F /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:113:72: 113 | 90 PHOTON(J)=PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:131:72: 131 | 100 JDAHEP(L,K)=JDAHEP(L,K-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:133:72: 133 | 110 PHEP(L,K)=PHEP(L,K-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:134:72: 134 | DO 120 L=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:135:72: 135 | 120 VHEP(L,K)=VHEP(L,K-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:139:72: 139 | DO 130 L=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:148:72: 148 | 140 PHEP(J,POSPHO)=PHOTON(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/photos/code/photos_make.F:162:72: 162 | 150 VHEP(J,POSPHO)=VHEP(J,POSPHO-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) gfortran photos_set.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/photos/code' rebuild shared library libphotos202.so.1_gfortran.2006 in /mclibs/photos Sun Jan 5 13:41:47 UTC 2020 Sun Jan 5 13:41:47 UTC 2020 install -c -m 0644 libphotos202.so.1_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib rm -f libphotos202.so.1_gfortran && ln -s libphotos202.so.1_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libphotos202.so.1_gfortran rm -f /<>/mclibs-20061220+dfsg3/shlib/libphotos202.so ln -s libphotos202.so.1_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libphotos202.so rm -f libphotos202.so.1_gfortran.2006 ln -s /<>/mclibs-20061220+dfsg3/shlib/libphotos202.so.1_gfortran.2006 libphotos202.so.1_gfortran.2006 make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/photos' installing in /mclibs/herwig... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/herwig' checking /mclibs/herwig/code make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/herwig/code' makedepend shared/ sasvmd.F makedepend shared/ sasgam.F makedepend shared/ sasdir.F makedepend shared/ sasbeh.F makedepend shared/ sasano.F makedepend shared/ qqlmat.F makedepend shared/ qqinit.F makedepend shared/ ipdgeu.F makedepend shared/ ieupdg.F makedepend shared/ hwwarn.F makedepend shared/ hwvzro.F makedepend shared/ hwvsum.F makedepend shared/ hwvsca.F makedepend shared/ hwvequ.F makedepend shared/ hwvdot.F makedepend shared/ hwvdif.F makedepend shared/ hwutim.F makedepend shared/ hwutab.F makedepend shared/ hwusta.F makedepend shared/ hwusqr.F makedepend shared/ hwusor.F makedepend shared/ hwurot.F makedepend shared/ hwurof.F makedepend shared/ hwurob.F makedepend shared/ hwures.F makedepend shared/ hwurap.F makedepend shared/ hwupcm.F makedepend shared/ hwumas.F makedepend shared/ hwulor.F makedepend shared/ hwulof.F makedepend shared/ hwulob.F makedepend shared/ hwuli2.F makedepend shared/ hwulf4.F makedepend shared/ hwuldo.F makedepend shared/ hwulb4.F makedepend shared/ hwuine.F makedepend shared/ hwuinc.F makedepend shared/ hwuidt.F makedepend shared/ hwugau.F makedepend shared/ hwufne.F makedepend shared/ hwuepr.F makedepend shared/ hwuemv.F makedepend shared/ hwueec.F makedepend shared/ hwuedt.F makedepend shared/ hwuecm.F makedepend shared/ hwudpr.F makedepend shared/ hwudks.F makedepend shared/ hwudkl.F makedepend shared/ hwudat.F makedepend shared/ hwuci2.F makedepend shared/ hwucff.F makedepend shared/ hwubst.F makedepend shared/ hwubpr.F makedepend shared/ hwuant.F makedepend shared/ hwualf.F makedepend shared/ hwuaer.F makedepend shared/ hwuaem.F makedepend shared/ hwsval.F makedepend shared/ hwstab.F makedepend shared/ hwssud.F makedepend shared/ hwsspc.F makedepend shared/ hwsgqq.F makedepend shared/ hwsgen.F makedepend shared/ hwsgam.F makedepend shared/ hwsfun.F makedepend shared/ hwsfbr.F makedepend shared/ hwsdgq.F makedepend shared/ hwsdgg.F makedepend shared/ hwsbrn.F makedepend shared/ hwruni.F makedepend shared/ hwrung.F makedepend shared/ hwrpow.F makedepend shared/ hwrpip.F makedepend shared/ hwrlog.F makedepend shared/ hwrint.F makedepend shared/ hwrgen.F makedepend shared/ hwrgau.F makedepend shared/ hwrext.F makedepend shared/ hwrexq.F makedepend shared/ hwrexp.F makedepend shared/ hwrazm.F makedepend shared/ hwmwgt.F makedepend shared/ hwmult.F makedepend shared/ hwmodk.F makedepend shared/ hwmnbi.F makedepend shared/ hwmlps.F makedepend shared/ hwmevt.F makedepend shared/ hwiodk.F makedepend shared/ hwigin.F makedepend shared/ hwhwpr.F makedepend shared/ hwhwex.F makedepend shared/ hwhv1j.F makedepend shared/ hwhsnm.F makedepend shared/ hwhsng.F makedepend shared/ hwhsct.F makedepend shared/ hwhrem.F makedepend shared/ hwhqcp.F makedepend shared/ hwhqcd.F makedepend shared/ hwhpqs.F makedepend shared/ hwhppt.F makedepend shared/ hwhppm.F makedepend shared/ hwhpph.F makedepend shared/ hwhppe.F makedepend shared/ hwhppb.F makedepend shared/ hwhpho.F makedepend shared/ hwhph2.F makedepend shared/ hwhigz.F makedepend shared/ hwhigy.F makedepend shared/ hwhigw.F makedepend shared/ hwhigt.F makedepend shared/ hwhigs.F makedepend shared/ hwhigm.F makedepend shared/ hwhigj.F makedepend shared/ hwhigb.F makedepend shared/ hwhiga.F makedepend shared/ hwhig1.F makedepend shared/ hwhhvy.F makedepend shared/ hwheww.F makedepend shared/ hwhew5.F makedepend shared/ hwhew4.F makedepend shared/ hwhew3.F makedepend shared/ hwhew2.F makedepend shared/ hwhew1.F makedepend shared/ hwhew0.F makedepend shared/ hwhepg.F makedepend shared/ hwhepa.F makedepend shared/ hwhegx.F makedepend shared/ hwhegw.F makedepend shared/ hwhegg.F makedepend shared/ hwhdyp.F makedepend shared/ hwhdis.F makedepend shared/ hwhbsg.F makedepend shared/ hwhbrn.F makedepend shared/ hwhbki.F makedepend shared/ hwhbgf.F makedepend shared/ hwetwo.F makedepend shared/ hwepro.F makedepend shared/ hweone.F makedepend shared/ hweisr.F makedepend shared/ hweini.F makedepend shared/ hwegam.F makedepend shared/ hwefin.F makedepend shared/ hwdxlm.F makedepend shared/ hwdwwt.F makedepend shared/ hwdtwo.F makedepend shared/ hwdtop.F makedepend shared/ hwdthr.F makedepend shared/ hwdpwt.F makedepend shared/ hwdidp.F makedepend shared/ hwdhvy.F makedepend shared/ hwdhqk.F makedepend shared/ hwdhig.F makedepend shared/ hwdhgf.F makedepend shared/ hwdhgc.F makedepend shared/ hwdhad.F makedepend shared/ hwdfor.F makedepend shared/ hwdfiv.F makedepend shared/ hwdeur.F makedepend shared/ hwdcle.F makedepend shared/ hwdchk.F makedepend shared/ hwdboz.F makedepend shared/ hwdbos.F makedepend shared/ hwchad.F makedepend shared/ hwcgsp.F makedepend shared/ hwcfor.F makedepend shared/ hwcfla.F makedepend shared/ hwcdec.F makedepend shared/ hwccut.F makedepend shared/ hwbvmc.F makedepend shared/ hwbtim.F makedepend shared/ hwbsul.F makedepend shared/ hwbsug.F makedepend shared/ hwbsud.F makedepend shared/ hwbsu2.F makedepend shared/ hwbsu1.F makedepend shared/ hwbspn.F makedepend shared/ hwbspa.F makedepend shared/ hwbran.F makedepend shared/ hwbmas.F makedepend shared/ hwbjco.F makedepend shared/ hwbgen.F makedepend shared/ hwbfin.F makedepend shared/ hwbdis.F makedepend shared/ hwbded.F makedepend shared/ hwbcon.F makedepend shared/ hwbazf.F makedepend shared/ hvhbvi.F makedepend shared/ hvcbvi.F makedepend shared/ fragmt.F makedepend shared/ eudini.F makedepend shared/ decadd.F makedepend shared/ dummy.c gcc dummy.c gfortran decadd.F gfortran eudini.F gfortran fragmt.F gfortran hvcbvi.F gfortran hvhbvi.F gfortran hwbazf.F gfortran hwbcon.F gfortran hwbded.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbded.F:26:72: 26 | & JDAHEP(2,IHEP).EQ.JDAHEP(1,IHEP)+1) ICMF=IHEP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwbdis.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbdis.F:31:72: 31 | & JDAHEP(2,IHEP).EQ.JDAHEP(1,IHEP)+1) ICMF=IHEP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwbfin.F gfortran hwbgen.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbgen.F:52:72: 52 | DO 15 I=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbgen.F:54:72: 54 | 15 JCOPAR(I,J)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbgen.F:179:72: 179 | 120 ISTHEP(IRHEP(I))=IRST(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) gfortran hwbjco.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:46:72: 46 | 30 IJET(NP)=JDAHEP(1,JHEP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:85:72: 85 | 60 IF (ISTHEP(IHEP).EQ.IST) GOTO 70 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:149:72: 149 | 80 CALL HWUROF(RS,VHEP(1,JHEP),VHEP(1,JHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:155:72: 155 | 90 PF=-PF | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:220:72: 220 | 100 ISTHEP(IHEP)=ISTHEP(IHEP)+10 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:223:72: 223 | 110 CALL HWVSUM(4,DISP,VHEP(1,IHEP),VHEP(1,IHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:247:72: 247 | 120 ISTHEP(IHEP)=ISTHEP(IHEP)+10 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:250:72: 250 | 130 CALL HWVSUM(4,DISP,VHEP(1,IHEP),VHEP(1,IHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:278:72: 278 | 140 ISTHEP(IHEP)=ISTHEP(IHEP)+10 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:281:72: 281 | 150 CALL HWVSUM(4,DISP,VHEP(1,IHEP),VHEP(1,IHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:305:72: 305 | 170 CALL HWVSUM(4,PHEP(1,IPAR(KP)),PQ,PQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:322:72: 322 | 180 IF (PJ(KP).LE.0.) CALL HWWARN('HWBJCO',104,*999) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:336:72: 336 | 190 DMS=DMS+PJ(KP)/ES | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:340:72: 340 | 200 IF (ABS(DPF).LT.EPS) GOTO 210 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbjco.F:448:72: 448 | 220 ISTHEP(JHEP)=ISTHEP(JHEP)+10 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) gfortran hwbmas.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbmas.F:67:72: 67 | 20 PPAR(5,IPAR)=HWUSQR(PPAR(5,IPAR)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran hwbran.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbran.F:28:72: 28 | & /BETA0(M)*0.25/PIFAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbran.F:121:72: 121 | 200 IF (QLST.GT.RMASS(M)) NF=M | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbran.F:145:72: 145 | 210 IF (RN.GE.SLST/SQRK(M,N)) NN=M | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran hwbspa.F gfortran hwbspn.F gfortran hwbsu1.F gfortran hwbsu2.F gfortran hwbsud.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbsud.F:39:72: 39 | 10 QEV(IQ,1)=QNOW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbsud.F:77:72: 77 | 14 QEV(IQ,IS)=QNOW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbsud.F:90:72: 90 | 16 RMOLD(IS)=RMASS(IS) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwbsud.F:138:72: 138 | DO 40 L=L1,L2,L1 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1) gfortran hwbsug.F gfortran hwbsul.F gfortran hwbtim.F gfortran hwbvmc.F gfortran hwccut.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwccut.F:101:72: 101 | 50 PHEP(J,JHEP)=PCL(J)-PHEP(J,KHEP)-PHEP(J,LHEP)-PHEP(J,MHEP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran hwcdec.F gfortran hwcfla.F gfortran hwcfor.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwcfor.F:33:72: 33 | 10 IF (ISTHEP(IBHEP).GE.150.AND.ISTHEP(IBHEP).LE.154) GOTO 20 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwcfor.F:91:72: 91 | 50 JDAHEP(2,IHEP)=ABS(JDAHEP(2,IHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwcfor.F:144:72: 144 | & +SCA1*DISP1(I)+SCA2*DISP2(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran hwcgsp.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwcgsp.F:24:72: 24 | 10 IF (ISTHEP(J).EQ.149.AND.JDAHEP(2,J).EQ.0) GOTO 20 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwchad.F gfortran hwdbos.F gfortran hwdboz.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdboz.F:116:72: 116 | 20 BR=BR+BRMODE(IDEC,IDBOS-197) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdboz.F:125:72: 125 | 30 BRCOM=BRCOM+BRMODE(IDEC,IDBOS-197) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwdchk.F gfortran hwdcle.F gfortran hwdeur.F gfortran hwdfiv.F gfortran hwdfor.F gfortran hwdhad.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhad.F:118:72: 118 | 10 IM=LNEXT(IM) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhad.F:142:72: 142 | 30 CALL HWVEQU(4,VERTX,VHEP(1,NHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhad.F:157:72: 157 | 40 RSUM=RSUM+RHOHEP(I,MO) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran hwdhgc.F gfortran hwdhgf.F gfortran hwdhig.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhig.F:30:72: 30 | 10 IF (IHIG.EQ.0.AND.IDHW(I).EQ.201.AND.ISTHEP(I).EQ.1) IHIG=I | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhig.F:47:72: 47 | 1 IF (2*RMASS(I).LT.EMH) ENF=ENF+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhig.F:110:72: 110 | 200 WIDHIG=WIDHIG+BRHIG(IPART) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhig.F:113:72: 113 | 300 BRHIG(IPART)=BRHIG(IPART)/WIDHIG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) gfortran hwdhqk.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhqk.F:31:72: 31 | 20 IM=LNEXT(IM) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhqk.F:80:72: 80 | 40 PHEP(5,NHEP)=RMASS(IDKPRD(I,IM)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran hwdhvy.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhvy.F:86:72: 86 | 10 PHEP(5,NHEP)=RMASS(IDKPRD(J,IM)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdhvy.F:135:72: 135 | 30 CALL HWVZRO(4,VHEP(1,NHEP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwdidp.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwdidp.F:20:72: 20 | 10 ID=ID+2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwdpwt.F gfortran hwdthr.F gfortran hwdtop.F gfortran hwdtwo.F gfortran hwdwwt.F gfortran hwdxlm.F gfortran hwefin.F gfortran hwegam.F gfortran hweini.F gfortran hweisr.F gfortran hweone.F gfortran hwepro.F gfortran hwetwo.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwetwo.F:54:72: 54 | 20 PHEP(5,IHEP)=RMASS(IDN(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwetwo.F:71:72: 71 | 30 JDAHEP(2,NHEP+K)=NHEP+J | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwhbgf.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhbgf.F:210:72: 210 | 1 IDHEP(I)=IDPDG(IDHW(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) gfortran hwhbki.F gfortran hwhbrn.F gfortran hwhbsg.F gfortran hwhdis.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhdis.F:240:72: 240 | 90 IF (W.LT.2*RMASS(I)) DISF(I,1)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) gfortran hwhdyp.F gfortran hwhegg.F gfortran hwhegw.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhegw.F:31:72: 31 | 1 IDHEP(I)=IDPDG(IDHW(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) gfortran hwhegx.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhegx.F:112:72: 112 | DO 10 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhegx.F:113:72: 113 | 10 DSIGMA=DSIGMA + C(I,J)*D(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhepa.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhepa.F:32:72: 32 | 20 CLF(I)=CLQ(I,IQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran hwhepg.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhepg.F:117:72: 117 | 20 CLF(I)=CLQ(I,IQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran hwhew0.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew0.F:40:72: 40 | 7 PR(I,2)=-PR(I,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) gfortran hwhew1.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew1.F:19:72: 19 | 30 PCM(J,K)=P(J,K+2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwhew2.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:28:72: 28 | DO 1 IJ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:29:72: 29 | 1 P(IJ,L)=PPCM(IJ,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:33:72: 33 | DO 2 JJ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:40:72: 40 | DO 11 J=IP1,NPART | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:82:72: 82 | DO 60 J=IPP1,NPART | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew2.F:85:72: 85 | 60 D(I,J)=D(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) gfortran hwhew3.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhew3.F:53:72: 53 | 6 AMPWW(I)=AMP2*COLFAC(I)*RKW*RKW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) gfortran hwhew4.F gfortran hwhew5.F gfortran hwheww.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwheww.F:111:72: 111 | 70 BRZED(I)=BRZED(I)/BRTOT | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) gfortran hwhhvy.F gfortran hwhig1.F gfortran hwhiga.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhiga.F:79:72: 79 | 20 TAMPR(I)=-AIMAG(TAMP(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran hwhigb.F gfortran hwhigj.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigj.F:33:72: 33 | 10 BR=BR+BRHIG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhigm.F gfortran hwhigs.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigs.F:20:72: 20 | 10 IF (RWGT.GT.EVSUM(I)) IDN(1)=I+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigs.F:56:72: 56 | 30 BRHIGQ=BRHIGQ+BRHIG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwhigt.F gfortran hwhigw.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigw.F:148:72: 148 | 20 BRHIGQ=BRHIGQ+BRHIG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigw.F:300:72: 300 | 62 IF (IDN(I).GE.5) IDN(I)=IDN(I)+2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 62 at (1) gfortran hwhigy.F gfortran hwhigz.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhigz.F:62:72: 62 | 10 BRHIGQ=BRHIGQ+BRHIG(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhph2.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhph2.F:50:72: 50 | 10 IF (RMASS(ID).LT.RS) TQSQ=TQSQ+QFCH(ID)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhpho.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhpho.F:56:72: 56 | 10 IF (RMASS(ID).LT.RS) TQCH=TQCH+QFCH(ID) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhppb.F gfortran hwhppe.F gfortran hwhpph.F gfortran hwhppm.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhppm.F:75:72: 75 | DO 10 J=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhppm.F:76:72: 76 | 10 DELT(I,J)=(QFCH(I)*U+QFCH(J)*S)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwhppt.F gfortran hwhpqs.F gfortran hwhqcd.F gfortran hwhqcp.F gfortran hwhrem.F gfortran hwhsct.F gfortran hwhsng.F gfortran hwhsnm.F gfortran hwhv1j.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:32:72: 32 | DO 110 J=1,12 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:33:72: 33 | DO 110 K=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:34:72: 34 | 110 DISMAX=MAX(DISFAC(K,J,I),DISMAX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:76:72: 76 | 130 ICO(L)=ICOFLO(L,M) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:177:72: 177 | DO 230 J=1,12 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:178:72: 178 | DO 230 K=1,2 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwhv1j.F:179:72: 179 | 230 EVWGT=EVWGT+DISFAC(K,J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) gfortran hwhwex.F gfortran hwhwpr.F gfortran hwigin.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:94:72: 94 | 20 PPOLN(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:163:72: 163 | 50 IF (I.LE.MODMAX) MODBOS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:325:72: 325 | 60 VTORDK(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:334:72: 334 | DO 70 J=0,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:335:72: 335 | DO 70 L=0,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwigin.F:336:72: 336 | 70 REPWT(L,J,N)=1. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) gfortran hwiodk.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:29:72: 29 | 10 K=LNEXT(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:37:72: 37 | 30 K=LNEXT(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:46:72: 46 | 50 K=LNEXT(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:58:72: 58 | DO 70 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:59:72: 59 | 70 CALL HWUIDT(1,ITMP(J),IDKPRD(J,I),CDUM) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:64:72: 64 | 80 IF (IME.EQ.0.AND.NME(I).GE.100) NME(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:70:72: 70 | DO 90 J=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwiodk.F:71:72: 71 | 90 CALL HWUIDT(3,IDUM,IDKPRD(J,I),CDKPRD(J,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) gfortran hwmevt.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmevt.F:72:72: 72 | 12 INHEP(IBT)=NHEP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) gfortran hwmlps.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmlps.F:45:72: 45 | 12 SUMY=SUMY+PPAR(2,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmlps.F:57:72: 57 | 13 SUMTM=SUMTM+PPAR(3,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmlps.F:84:72: 84 | 19 SUM4=SUM4+(TM/EX)*XI(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmlps.F:89:72: 89 | 18 YY=YY+DYY | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) gfortran hwmnbi.F gfortran hwmodk.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:44:72: 44 | 20 IDKPRD(I,NDKYS)=ITMP(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:58:72: 58 | 30 L=LNEXT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:64:72: 64 | 40 MATCH(J)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:75:72: 75 | 70 L=LNEXT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:82:72: 82 | 80 IDKPRD(I,NDKYS)=ITMP(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:124:72: 124 | 100 JPREV=(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmodk.F:141:72: 141 | 110 J=LNEXT(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran hwmult.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwmult.F:39:72: 39 | 12 CUM(I)=CUM(I)/SUM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) gfortran hwmwgt.F gfortran hwrazm.F gfortran hwrexp.F gfortran hwrexq.F gfortran hwrext.F gfortran hwrgau.F gfortran hwrgen.F gfortran hwrint.F gfortran hwrlog.F gfortran hwrpip.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwrpip.F:15:72: 15 | 10 VTXPIP(I)=HWRGAU(I,VIP(I),VIPWID(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwrpow.F gfortran hwrung.F gfortran hwruni.F gfortran hwsbrn.F gfortran hwsdgg.F gfortran hwsdgq.F gfortran hwsfbr.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfbr.F:75:72: 75 | 10 PROB(IP,IZ)=PSUM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfbr.F:78:72: 78 | 20 PROB(IP,IZ)=PSUM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfbr.F:85:72: 85 | 30 PROB(IP,IZ)=PSUM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfbr.F:89:72: 89 | 40 YY=YY+DELY | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran hwsfun.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:395:72: 395 | 5 XPGA(I)=XPVMD(I)+XPANL(I)+XPBEH(I)+XPDIR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:498:72: 498 | DO 10 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:499:72: 499 | 10 A(J,I)=B(1,J,I,IP)+S*(B(2,J,I,IP)+S*B(3,J,I,IP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:503:72: 503 | & *HWSGAM(ONE+A(3,K))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:506:72: 506 | DO 21 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:507:72: 507 | 21 A(J,I)=BB(1,J,I)+S*(BB(2,J,I)+S*(BB(3,J,I)+S*BB(4,J,I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:512:72: 512 | & *HWSGAM(ONE+A(3,K))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:528:72: 528 | DO 30 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:529:72: 529 | 30 A(J,I)=B(1,J,I,IP)+S*(B(2,J,I,IP)+S*B(3,J,I,IP)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:539:72: 539 | & (A(4,I)+X*(A(5,I) + X*A(6,I)))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:572:72: 572 | DO 110 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:573:72: 573 | 110 XQSUM=XQSUM+CEHLQ(IX,IT,NX,IFL,IP)*TX(IX)*TT(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:574:72: 574 | 120 XQ(IFL)=XQSUM*XMWN**NEHLQ(IFL,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:595:72: 595 | DO 130 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:596:72: 596 | 130 XQSUM=XQSUM+CEHLQ(IX,IT,NX,7,IP)*TX(IX)*TB(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:616:72: 616 | DO 150 IX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsfun.F:617:72: 617 | 150 XQSUM=XQSUM+CEHLQ(IX,IT,NX,8,IP)*TX(IX)*TB(IT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) gfortran hwsgam.F gfortran hwsgen.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsgen.F:25:72: 25 | DO 10 J=1,13 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) gfortran hwsgqq.F gfortran hwsspc.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsspc.F:35:72: 35 | 10 IF (IDH.EQ.NCLDK(LOCN(IDP,ISP))) GOTO 20 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwsspc.F:48:72: 48 | 30 IF (IDH.EQ.NCLDK(LOCN(ISP,IDP))) GOTO 40 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwssud.F gfortran hwstab.F gfortran hwsval.F gfortran hwuaem.F gfortran hwuaer.F gfortran hwualf.F gfortran hwuant.F gfortran hwubpr.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwubpr.F:19:72: 19 | & (JCOPAR(I,J),I=1,4),(PPAR(I,J),I=1,5),(VPAR(I,J),I=1,4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwubpr.F:28:72: 28 | & (JCOPAR(I,J),I=1,4),(PPAR(I,J),I=1,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) gfortran hwubst.F gfortran hwucff.F gfortran hwuci2.F gfortran hwudat.F gfortran hwudkl.F gfortran hwudks.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:34:72: 34 | 20 NMODES(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:38:72: 38 | 30 CMMOM(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:75:72: 75 | 50 L=LNEXT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:81:72: 81 | 60 MATCH(M)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:92:72: 92 | 90 L=LNEXT(L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:128:72: 128 | 160 K=LNEXT(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:136:72: 136 | 170 LNEXT(LTMP(INDX(J-1)))=LTMP(INDX(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:153:72: 153 | 200 DKLTM(I+6)=DKLTM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:159:72: 159 | 210 DKLTM(I+6)=DKLTM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:237:72: 237 | 230 PMATCH(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:246:72: 246 | 240 MATCH(K)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:258:72: 258 | 270 LP=LNEXT(LP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:270:72: 270 | 290 LR=LNEXT(LR) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudks.F:276:72: 276 | 300 LP=LNEXT(LP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) gfortran hwudpr.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwudpr.F:39:72: 39 | 40 WRITE(6,50) BRFRAC(K),NME(K),(RNAME(IDKPRD(L,K)),L=1,5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran hwuecm.F gfortran hwuedt.F gfortran hwueec.F gfortran hwuemv.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuemv.F:17:72: 17 | 100 IEDT(I)=LTO | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran hwuepr.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuepr.F:40:72: 40 | 30 FIRST(K)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) gfortran hwufne.F gfortran hwugau.F gfortran hwuidt.F gfortran hwuinc.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:104:72: 104 | 120 RMASS(I+6)=RMASS(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:127:72: 127 | 130 QWT(I)=PWT(I)*QMAX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:129:72: 129 | 140 PWT(I)=PWT(I)*PMAX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:138:72: 138 | 150 RMASS(I+6)=RMASS(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:155:72: 155 | 160 RMASS(I+22)=RMASS(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:161:72: 161 | DO 170 J=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:164:72: 164 | 170 CTHRPW(I+6,J )=(CLMXPW+(RMASS(I+114)+RMASS(J+6 ))**CLPOW)**RCLPOW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:475:72: 475 | 480 PGSPL(I)=PGS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 480 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwuinc.F:487:72: 487 | 500 NSPAC(I)=J-1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1) gfortran hwuine.F gfortran hwulb4.F gfortran hwuldo.F gfortran hwulf4.F gfortran hwuli2.F gfortran hwulob.F gfortran hwulof.F gfortran hwulor.F gfortran hwumas.F gfortran hwupcm.F gfortran hwurap.F gfortran hwures.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwures.F:120:72: 120 | 110 CLDKWT(J)=CLDKWT(J)*RWTMX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwures.F:211:72: 211 | 150 CLDKWT(I)=CLDKWT(I)*RWTMX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwures.F:231:72: 231 | 170 CLDKWT(J)=CDWTMP(I)*RWTMX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwures.F:248:72: 248 | DO 190 J=1,12 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 190 at (1) gfortran hwurob.F gfortran hwurof.F gfortran hwurot.F gfortran hwusor.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwusor.F:41:72: 41 | IF(IR(J)) 12,30,13 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwusor.F:48:72: 48 | 31 A(I)=B(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) gfortran hwusqr.F gfortran hwusta.F gfortran hwutab.F gfortran hwutim.F gfortran hwvdif.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvdif.F:12:72: 12 | 10 R(I)=P(I)-Q(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwvdot.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvdot.F:13:72: 13 | 10 PQ=PQ+P(I)*Q(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwvequ.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvequ.F:12:72: 12 | 10 Q(I)=P(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwvsca.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvsca.F:12:72: 12 | 10 Q(I)=C*P(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwvsum.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvsum.F:12:72: 12 | 10 R(I)=P(I)+Q(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwvzro.F /<>/mclibs-20061220+dfsg3/src/mclibs/herwig/code/hwvzro.F:12:72: 12 | 10 P(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran hwwarn.F gfortran ieupdg.F gfortran ipdgeu.F gfortran qqinit.F gfortran qqlmat.F gfortran sasano.F gfortran sasbeh.F gfortran sasdir.F gfortran sasgam.F gfortran sasvmd.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/herwig/code' rebuild shared library libherwig59.so.2_gfortran.2006 in /mclibs/herwig Sun Jan 5 13:42:38 UTC 2020 Sun Jan 5 13:42:38 UTC 2020 install -c -m 0644 libherwig59.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib rm -f libherwig59.so.2_gfortran && ln -s libherwig59.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libherwig59.so.2_gfortran rm -f /<>/mclibs-20061220+dfsg3/shlib/libherwig59.so ln -s libherwig59.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libherwig59.so rm -f libherwig59.so.2_gfortran.2006 ln -s /<>/mclibs-20061220+dfsg3/shlib/libherwig59.so.2_gfortran.2006 libherwig59.so.2_gfortran.2006 make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/herwig' installing in /mclibs/isajet... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet' checking /mclibs/isajet/code make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/code' makedepend shared/ zjj7.F makedepend shared/ zjj6.F makedepend shared/ zjj5.F makedepend shared/ zjj4.F makedepend shared/ zjj3.F makedepend shared/ zjj2.F makedepend shared/ zjj1.F makedepend shared/ zjj0.F makedepend shared/ zjj.F makedepend shared/ szjj7.F makedepend shared/ szjj6.F makedepend shared/ szjj5.F makedepend shared/ szjj4.F makedepend shared/ szjj3.F makedepend shared/ szjj2.F makedepend shared/ szjj1.F makedepend shared/ sigkkg.F makedepend shared/ setkkg.F makedepend shared/ muljet.F makedepend shared/ mginit.F makedepend shared/ logmij.F makedepend shared/ logmgy.F makedepend shared/ logmgm.F makedepend shared/ kkgf3.F makedepend shared/ kkgf2.F makedepend shared/ kkgf1.F makedepend shared/ evol11.F makedepend shared/ dhelas.F makedepend shared/ amgmw.F makedepend shared/ alqcd.F makedepend shared/ zzstar.F makedepend shared/ zzall.F makedepend shared/ ssfel.F makedepend shared/ spline.F makedepend shared/ fbrbm.F makedepend shared/ estruc.F makedepend shared/ ebeam.F makedepend shared/ dincgm.F makedepend shared/ decva.F makedepend shared/ dectau.F makedepend shared/ decss3.F makedepend shared/ decps2.F makedepend shared/ decps1.F makedepend shared/ ygenj.F makedepend shared/ xzzzz.F makedepend shared/ xzzww.F makedepend shared/ xwwzz.F makedepend shared/ xwwww.F makedepend shared/ wztu.F makedepend shared/ wzsu.F makedepend shared/ wzst.F makedepend shared/ wzss.F makedepend shared/ wwtt.F makedepend shared/ wwst.F makedepend shared/ wwss.F makedepend shared/ wwkin.F makedepend shared/ wpair.F makedepend shared/ whiggs.F makedepend shared/ visaje.F makedepend shared/ twokin.F makedepend shared/ twojet.F makedepend shared/ timer.F makedepend shared/ strucw.F makedepend shared/ struc.F makedepend shared/ ssgt.F makedepend shared/ ssgst.F makedepend shared/ smszg.F makedepend shared/ sigww2.F makedepend shared/ sigww.F makedepend shared/ sigwhs.F makedepend shared/ sigwh.F makedepend shared/ sigtc3.F makedepend shared/ sigtc2.F makedepend shared/ sigtc.F makedepend shared/ sigssz.F makedepend shared/ sigssy.F makedepend shared/ sigssl.F makedepend shared/ sigsse.F makedepend shared/ sigqcd.F makedepend shared/ sigint.F makedepend shared/ sighss.F makedepend shared/ sigh3.F makedepend shared/ sigh2.F makedepend shared/ sigh.F makedepend shared/ siggam.F makedepend shared/ sigfil.F makedepend shared/ sigee.F makedepend shared/ sigdy2.F makedepend shared/ sigdy.F makedepend shared/ setw.F makedepend shared/ settyp.F makedepend shared/ setnxt.F makedepend shared/ sethss.F makedepend shared/ seth.F makedepend shared/ setdky.F makedepend shared/ setcon.F makedepend shared/ reset.F makedepend shared/ rescal.F makedepend shared/ rejjet.F makedepend shared/ rejfrg.F makedepend shared/ readin.F makedepend shared/ ranlux.F makedepend shared/ ranflux.F makedepend shared/ qfunc.F makedepend shared/ qcdz.F makedepend shared/ qcdt.F makedepend shared/ qcdjet.F makedepend shared/ qcdinz.F makedepend shared/ qcdint.F makedepend shared/ qcdini.F makedepend shared/ ptfun.F makedepend shared/ prtlim.F makedepend shared/ prtevt.F makedepend shared/ order.F makedepend shared/ ordecr.F makedepend shared/ nogood.F makedepend shared/ mbset.F makedepend shared/ mbias.F makedepend shared/ lstsq.F makedepend shared/ logyw.F makedepend shared/ logyth.F makedepend shared/ logxw.F makedepend shared/ logx.F makedepend shared/ logthw.F makedepend shared/ logqt.F makedepend shared/ logqm.F makedepend shared/ logpt.F makedepend shared/ logphw.F makedepend shared/ logphi.F makedepend shared/ logp.F makedepend shared/ logic.F makedepend shared/ logerr.F makedepend shared/ lboost.F makedepend shared/ label.F makedepend shared/ jetgen.F makedepend shared/ iswdky.F makedepend shared/ istrad.F makedepend shared/ ispjet.F makedepend shared/ isasrt.F makedepend shared/ isajet.F makedepend shared/ isaini.F makedepend shared/ isaevt.F makedepend shared/ isaend.F makedepend shared/ isabeg.F makedepend shared/ irmov0.F makedepend shared/ iprtns.F makedepend shared/ ipjset.F makedepend shared/ ipartns.F makedepend shared/ inisap.F makedepend shared/ iframs.F makedepend shared/ idgen.F makedepend shared/ idanti.F makedepend shared/ higgs.F makedepend shared/ hevolv.F makedepend shared/ heavyx.F makedepend shared/ gettot.F makedepend shared/ getpt.F makedepend shared/ frgmnt.F makedepend shared/ frgjet.F makedepend shared/ fortop.F makedepend shared/ flavor.F makedepend shared/ evolve.F makedepend shared/ evolms.F makedepend shared/ evol07.F makedepend shared/ evol06.F makedepend shared/ evol05.F makedepend shared/ evol03.F makedepend shared/ evol02.F makedepend shared/ evol01.F makedepend shared/ epf.F makedepend shared/ elctrn.F makedepend shared/ eemax.F makedepend shared/ eebeg.F makedepend shared/ drllyn.F makedepend shared/ domssm.F makedepend shared/ decjet.F makedepend shared/ decay.F makedepend shared/ dboost.F makedepend shared/ dblvec.F makedepend shared/ dblpcm.F makedepend shared/ ctxout.F makedepend shared/ ctxin.F makedepend shared/ ctxi2c.F makedepend shared/ ctxc2i.F makedepend shared/ cteq5l.F makedepend shared/ charge.F makedepend shared/ amass.F gfortran amass.F gfortran charge.F gfortran cteq5l.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/cteq5l.F:231:22: 231 | DO 110 K = 0, MLFVEC(IFL) | 1 Warning: Deleted feature: End expression in DO loop at (1) must be integer gfortran ctxc2i.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ctxc2i.F:14:72: 14 | 100 IVAL(I)=ICHAR(CVAL(I:I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran ctxi2c.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ctxi2c.F:14:72: 14 | 100 CVAL(I:I)=CHAR(IVAL(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran ctxin.F gfortran ctxout.F gfortran dblpcm.F gfortran dblvec.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dblvec.F:16:72: 16 | 100 DP(K)=P(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran dboost.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dboost.F:12:72: 12 | 100 DP(K)=P(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dboost.F:23:72: 23 | 110 DBP=DBP+DF(K)*DP(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dboost.F:26:72: 26 | 120 DP(K)=DP(K)+DSIGN*DF(K)*DP(4)/DF(5)+DF(K)*DBP/(DF(4)+DF(5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dboost.F:30:72: 30 | 130 P(K)=DP(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gfortran decay.F gfortran decjet.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:48:72: 48 | 110 PJSET(K,NJSET)=PREST(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:80:72: 80 | 130 BETAW(K)=PWREST(K)/PWREST(4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:88:72: 88 | $ -BP*GAMMAW/(GAMMAW+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 141 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:123:72: 123 | 210 PPTCL(K,NPTCL)=PJSET(K,NJSAVE+4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:134:72: 134 | 221 PPTCL(K,NPTCL)=PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 221 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:151:72: 151 | $ +BP*GAMMAW/(GAMMAW+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 241 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:171:72: 171 | 261 PPTCL(K,NPTCL)=PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 261 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:224:72: 224 | DO 322 KK=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 322 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:225:72: 225 | 322 PPTCL(K,II)=PPTCL(K,II)+ROT(K,KK)*PSAVE(KK) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 322 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:235:72: 235 | 331 PPTCL(K,NPTCL)=PJSET(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 331 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:305:72: 305 | 510 PPTCL(K,NPTCL+1)=PPTCL(K,NPTCLW) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:308:72: 308 | 520 PSUM(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 520 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:318:72: 318 | 530 BETAW(K)=PPTCL(K,NPTCL+1)/PPTCL(4,NPTCL+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:332:72: 332 | 550 PSUM(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 550 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decjet.F:353:72: 353 | $ +BP*GAMMAW/(GAMMAW+1.)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) gfortran domssm.F gfortran drllyn.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/drllyn.F:85:72: 85 | 2 SIGSL(K)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/drllyn.F:276:72: 276 | 310 BP=BP+PL(K)*PREST(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/drllyn.F:280:72: 280 | $ +PREST(K)*BP/(PREST(4)+PREST(5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/drllyn.F:380:72: 380 | 503 QWJET(K)=PJETS(K,1)+PJETS(K,2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 503 at (1) gfortran eebeg.F gfortran eemax.F gfortran elctrn.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/elctrn.F:63:72: 63 | 10 SIGS(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran epf.F gfortran evol01.F gfortran evol02.F gfortran evol03.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol03.F:38:72: 38 | 105 PJSET(K,NJSET)=PJETS(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol03.F:47:72: 47 | 120 PJSET(K,NJSET)=QWJET(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol03.F:57:72: 57 | 115 PJSET(K,NJSET)=PJETS(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol03.F:115:72: 115 | 400 BP=BP+FRAME(K,1)*PJSET(K,N0W) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1) gfortran evol05.F gfortran evol06.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol06.F:40:72: 40 | 135 PJSET(K,NJSET)=PPAIR(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol06.F:62:72: 62 | 200 JMATCH(I+1)=I | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol06.F:65:72: 65 | 231 FRAME(K,I)=PJSET(K,N0JETS+I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 231 at (1) gfortran evol07.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol07.F:46:72: 46 | 135 PJSET(K,NJSET)=PPAIR(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol07.F:69:72: 69 | 141 JMATCH(J)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 141 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol07.F:73:72: 73 | 142 JDCAY(J)=-2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 142 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol07.F:91:72: 91 | 231 DSUM(K)=DSUM(K)+DPASS(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 231 at (1) gfortran evolms.F gfortran evolve.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evolve.F:42:72: 42 | 105 PJSET(K,NJSET)=PINITS(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evolve.F:81:72: 81 | 505 BP=BP+FRAME(K,IFR)*PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 505 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evolve.F:85:72: 85 | 1 +FRAME(K,IFR)*BP/(FRAME(4,IFR)+FRAME(5,IFR)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) gfortran flavor.F gfortran fortop.F gfortran frgjet.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgjet.F:88:72: 88 | DO 240 K2=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgjet.F:89:72: 89 | 240 PPTCL(K1,IP)=PPTCL(K1,IP)+ROT(K1,K2)*POLD(K2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) gfortran frgmnt.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:39:72: 39 | 100 DSUM(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:47:72: 47 | 102 DSUM(K)=DSUM(K)+DPASS(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 102 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:51:72: 51 | 103 PALLJ(K)=DSUM(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 103 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:62:72: 62 | 120 PIN(K,IB)=PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:85:72: 85 | 130 PSUM(K)=-PALLJ(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:94:72: 94 | 140 PBEAMS(K)=PPTCL(K,NPTCL1)+PPTCL(K,NPTCL2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:121:72: 121 | 220 PSUM(K)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:156:72: 156 | 243 PSUM(K)=PSUM(K)+PJSET(K,JJET) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 243 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:167:72: 167 | 245 CALL FRGJET(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 245 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:172:72: 172 | 250 PSUM(K)=PJSET(K,N0W) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:176:72: 176 | DO 246 K=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 246 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:182:72: 182 | 260 PWREST(K)=PPTCL(K,NPTCL1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:200:72: 200 | 305 BP=BP+FRAME(K,IFR)*PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:204:72: 204 | $ +FRAME(K,IFR)*BP/(FRAME(4,IFR)+FRAME(5,IFR)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:217:72: 217 | 420 FRAME(K,1)=PALLJ(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:220:72: 220 | 430 BP=BP+FRAME(K,1)*PWREST(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:244:72: 244 | 510 BP=BP+FRAME(K,IFR)*PPTCL(K,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:248:72: 248 | $ +FRAME(K,IFR)*BP/(FRAME(4,IFR)+FRAME(5,IFR)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 520 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:293:72: 293 | 531 BP=BP+POLD(K)*PPTCL(K,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 531 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:297:72: 297 | $ +POLD(K)*BP/(POLD(4)+POLD(5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 532 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:302:72: 302 | 533 BP=BP+PNEW(K)*PPTCL(K,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 533 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:306:72: 306 | $ +PNEW(K)*BP/(PNEW(4)+PNEW(5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 534 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:312:72: 312 | 541 PBEAMS(K)=-PNEW(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 541 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/frgmnt.F:332:72: 332 | 620 IORIG(IP1)=ISIGN(IABS(IORIG(IP1))+IPACK*JET,IORIG(IP1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 620 at (1) gfortran getpt.F gfortran gettot.F gfortran heavyx.F gfortran hevolv.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:31:72: 31 | DO 10 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:32:72: 32 | 10 PSAVE(K,I)=PJSET(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:35:72: 35 | DO 30 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:36:72: 36 | 30 PJSET(K,I)=PSAVE(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:38:72: 38 | 40 PFINAL(K)=QWJET(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:105:72: 105 | 130 FZ=FZ+FZIQ(IQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:117:72: 117 | 140 IF(SUM.GT.TRY) GO TO 150 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:203:72: 203 | 200 BST2(K)=PJSET(K,J1)+PJSET(K,J2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:212:72: 212 | 210 B2B1(K)=BST2(K)-BST1(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:232:72: 232 | 221 BP21=BP21+B2B1(K)*PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 221 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:236:72: 236 | $+B2B1(K)*BP1*BIK1+BST2(K)*BP21*BIK2+BST2(K)*BP1*BIK3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 222 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:247:72: 247 | 231 PJSET(K,J)=PJSET(K,JX1)-PJSET(K,JX2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 231 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/hevolv.F:254:72: 254 | 240 PFINAL(K)=PJSET(K,J2)+PJSET(K,NJ1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) gfortran higgs.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/higgs.F:33:72: 33 | 110 PPAIR(K,I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran idanti.F gfortran idgen.F gfortran iframs.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/iframs.F:46:72: 46 | 210 DSUM(K)=DSUM(K)+DPASS(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran inisap.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/inisap.F:57:72: 57 | 18 KEYS(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) gfortran ipartns.F gfortran ipjset.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ipjset.F:25:72: 25 | 115 PJSET(K,NJSET)=PJETS(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) gfortran iprtns.F gfortran irmov0.F gfortran isabeg.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:76:72: 76 | 105 CALL TWOJET | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:87:72: 87 | 205 CALL ELCTRN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:98:72: 98 | 305 CALL DRLLYN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:117:72: 117 | 505 CALL TWOJET | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 505 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:129:72: 129 | 605 CALL WPAIR | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 605 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:145:72: 145 | 705 CALL DRLLYN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 705 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:156:72: 156 | 805 CALL TWOJET | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 805 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:167:72: 167 | 905 CALL DRLLYN | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 905 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/isabeg.F:179:72: 179 | 906 CALL WHIGGS | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 906 at (1) gfortran isaend.F gfortran isaevt.F gfortran isaini.F gfortran isajet.F gfortran isasrt.F gfortran ispjet.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ispjet.F:77:72: 77 | 100 PDMPT(JP)=PINPT(JP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ispjet.F:80:72: 80 | 105 JDORD(JP) = JIORD(NP-JP+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ispjet.F:86:72: 86 | 110 JCNN(JO,1)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ispjet.F:161:72: 161 | 300 PDMPT(JP)=PJPT(JP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ispjet.F:167:72: 167 | 305 JDORD(JP) = JIORD(NPJ-JP+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1) gfortran istrad.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/istrad.F:35:72: 35 | 150 JDCAY(I)=-2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) gfortran iswdky.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/iswdky.F:123:72: 123 | 140 PREST(K)=QWJET(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/iswdky.F:141:72: 141 | 310 BP=BP+PL(K)*PREST(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/iswdky.F:145:72: 145 | $ +PREST(K)*BP/(PREST(4)+PREST(5)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) gfortran jetgen.F gfortran label.F gfortran lboost.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/lboost.F:16:72: 16 | 2 P2(K,I)=P1(K,I)-FACT*PREST(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran logerr.F gfortran logic.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/logic.F:116:72: 116 | 11 YJMIN(I)=AMAX1(YJMIN(I),-YMXPT) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) gfortran logp.F gfortran logphi.F gfortran logphw.F gfortran logpt.F gfortran logqm.F gfortran logqt.F gfortran logthw.F gfortran logx.F gfortran logxw.F gfortran logyth.F gfortran logyw.F gfortran lstsq.F gfortran mbias.F gfortran mbset.F gfortran nogood.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/nogood.F:59:72: 59 | 110 II=II/IOPAK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/nogood.F:62:72: 62 | 120 II=II/IOPAK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/nogood.F:100:72: 100 | 220 II=II/IOPAK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/nogood.F:108:72: 108 | 230 II=II/IOPAK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/nogood.F:111:72: 111 | 240 II=II/IOPAK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) gfortran ordecr.F gfortran order.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:36:72: 36 | 100 IF(MODEIN(I).NE.0) NADD=I | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:42:72: 42 | 110 MODTST(K)=MODEIN(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:45:72: 45 | 120 MODTST(K)=IDANTI(MODEIN(K)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:54:72: 54 | 210 IF(MODE(K,I).NE.0) NADDI=K | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:57:72: 57 | 220 IUSE(K)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:85:72: 85 | 310 MODOUT(K)=MODEIN(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:89:72: 89 | 320 MODOUT(K)=MODE(K,ISAME) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/order.F:93:72: 93 | 330 MODOUT(K)=IDANTI(MODE(K,ISAME)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1) gfortran prtevt.F gfortran prtlim.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/prtlim.F:136:72: 136 | 300 STUF(I)=BLANK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) gfortran ptfun.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ptfun.F:29:72: 29 | 89 STOR(I)=PCPY(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 89 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ptfun.F:140:72: 140 | 109 PCPY(I)=STOR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 109 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ptfun.F:172:72: 172 | 301 PCPY(I)=STOR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 301 at (1) gfortran qcdini.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:40:72: 40 | 97 PFKEEP(K)=PJSET(K,JIN1)+PJSET(K,JIN2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 97 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:61:72: 61 | DO 98 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 98 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:62:72: 62 | 98 PJKEEP(K,I)=PJSET(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 98 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:72:72: 72 | DO 99 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 99 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:73:72: 73 | 99 PJSET(K,I)=PJKEEP(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 99 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:76:72: 76 | 100 PFINAL(K)=PFKEEP(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:179:72: 179 | 120 PJSET(K,NEWF)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:251:72: 251 | 130 PJSET(K,NEWF2)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:285:72: 285 | 201 BOOST1(K)=PFINAL(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 201 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:288:72: 288 | 202 BOOST2(K)=PJSET(K,NEWV)+PJSET(K,IVIR2)-PJSET(K,NEWF) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 202 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:302:72: 302 | 204 DBL2(K)=BOOST2(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 204 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:309:72: 309 | 205 B2B1(K)=DBL2(K)-DBL1(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:330:72: 330 | 215 BP21=BP21+B2B1(K)*PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:334:72: 334 | $+B2B1(K)*BP1*BIK1+BOOST2(K)*BP21*BIK2+BOOST2(K)*BP1*BIK3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:340:72: 340 | 230 PFINAL(K)=BOOST2(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:351:72: 351 | 250 DBL1(K)=PJSET(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdini.F:377:72: 377 | 300 PFINAL(K)=DBL1(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) gfortran qcdint.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdint.F:41:72: 41 | 110 ANF=ANF+T0/(AMQ2+T0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdint.F:59:72: 59 | 210 GAMQ=GAMQ+GAMS(IQ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran qcdinz.F gfortran qcdjet.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdjet.F:113:72: 113 | 225 PJSET(K,JJ(L))=RATIO*PJSET(K,JJ(L)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 225 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdjet.F:130:72: 130 | 420 PPTCL(K,NPTCL+JI-JI1+1)=PJSET(K,JI) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdjet.F:137:72: 137 | DO 430 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdjet.F:210:72: 210 | 241 BP=BP+PJSET(K,J0)*SGN*P1CM(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 241 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qcdjet.F:215:72: 215 | 1 +PJSET(K,J0)*BP/(PJSET(4,J0)+PJSET(5,J0)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 242 at (1) gfortran qcdt.F gfortran qcdz.F gfortran qfunc.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qfunc.F:129:72: 129 | 210 SUMS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/qfunc.F:301:72: 301 | 410 QSELWT(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1) gfortran ranflux.F gfortran ranlux.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ranlux.F:162:72: 162 | 195 TWOM24 = TWOM24 * 0.5 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 195 at (1) gfortran readin.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:117:72: 117 | 20 TITLE(I)=TTL(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:126:72: 126 | 18 KEYS(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:398:72: 398 | 152 IF(JETYP(K,IJ).NE.BLANK) NJTTYP(IJ)=NJTTYP(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 152 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:606:72: 606 | 351 KFORCE(K)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 351 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:621:72: 621 | 352 MFORCE(K,NFORCE+1)=IDANTI(MFORCE(K,NFORCE)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 352 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:636:72: 636 | 353 KFORCE(K)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 353 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:664:72: 664 | 372 IF(WWTYP(K,IJ).NE.BLANK) NWWTYP(IJ)=NWWTYP(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 372 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/readin.F:753:72: 753 | 463 IF(WMODES(K,IJ).NE.BLANK) NWMODE(IJ)=NWMODE(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 463 at (1) gfortran rejfrg.F gfortran rejjet.F gfortran rescal.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:14:72: 14 | 100 PADD(K)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:16:72: 16 | DO 110 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:24:72: 24 | 120 BETA(K)=-PADD(K)/PADD(5) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:31:72: 31 | 220 BP=BP+PPTCL(K,IP)*BETA(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:34:72: 34 | $+BETA(K)*BP/(GAMMA+1.) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:44:72: 44 | 320 PPTCL(K,IP)=SCAL*PPTCL(K,IP) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/rescal.F:50:72: 50 | 301 IF(ABS(SCAL-1.).LE.ERRLIM) GO TO 300 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 301 at (1) gfortran reset.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:57:72: 57 | 111 XGENSS(K)=.5 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 111 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:110:72: 110 | 125 AMLEP(INDEX)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:129:72: 129 | DO 130 J=1,MXGOJ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:130:72: 130 | 130 GOQ(I,J)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:132:72: 132 | 131 GOALL(I)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 131 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:139:72: 139 | DO 132 J=1,25 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 132 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:140:72: 140 | 132 GOWW(J,I)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 132 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:142:72: 142 | DO 133 J=1,25 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 133 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:143:72: 143 | 133 GOWMOD(J,I)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 133 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:149:72: 149 | 140 LOC(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:153:72: 153 | DO 141 K=2,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 141 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:154:72: 154 | 141 JETYP(K,I)=BLANK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 141 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:159:72: 159 | DO 142 K=2,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 142 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:160:72: 160 | 142 WWTYP(K,I)=BLANK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 142 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:164:72: 164 | DO 143 K=2,30 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 143 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/reset.F:165:72: 165 | 143 WMODES(K,I)=BLANK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 143 at (1) gfortran setcon.F gfortran setdky.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/setdky.F:320:72: 320 | 320 MODE(K,LOOP)=MFORCE(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/setdky.F:323:72: 323 | 330 MODE(K,LOOP)=IDANTI(MFORCE(K,I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1) gfortran seth.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/seth.F:56:72: 56 | 100 HGAMS(IQ)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran sethss.F gfortran setnxt.F gfortran settyp.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:77:72: 77 | 1210 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:83:72: 83 | 1220 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:90:72: 90 | 1230 GOQ(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:97:72: 97 | 1240 GOQ(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:139:72: 139 | 5100 GOQ(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:150:72: 150 | 5210 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:156:72: 156 | 5220 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:162:72: 162 | 5230 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5230 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:168:72: 168 | 5240 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:190:72: 190 | 2100 GOQ(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:204:72: 204 | 2210 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:225:72: 225 | 2350 GOWW(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2350 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:238:72: 238 | 2410 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2410 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:244:72: 244 | 2420 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:251:72: 251 | 2430 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:258:72: 258 | 2440 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2440 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:284:72: 284 | 3100 GOQ(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:298:72: 298 | 3210 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:304:72: 304 | 3220 GOQ(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:311:72: 311 | 3240 GOQ(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3240 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:331:72: 331 | 3350 GOWW(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3350 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:344:72: 344 | 3410 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3410 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:350:72: 350 | 3420 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:357:72: 357 | 3430 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:364:72: 364 | 3440 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3440 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:387:72: 387 | 4200 GOWMOD(K,IW)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4200 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:398:72: 398 | 4310 GOWMOD(K,IW)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:404:72: 404 | 4320 GOWMOD(K,IW)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:411:72: 411 | 4330 GOWMOD(K+1,IW)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4330 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:418:72: 418 | 4340 GOWMOD(K+1,IW)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4340 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:443:72: 443 | 6350 GOWW(K,JET)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6350 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:456:72: 456 | 6410 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6410 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:462:72: 462 | 6420 GOWW(K,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:469:72: 469 | 6430 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/settyp.F:476:72: 476 | 6440 GOWW(K+1,JET)=.TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6440 at (1) gfortran setw.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/setw.F:222:72: 222 | 430 RBRWW(IQ,IW,JET)=RBRWW(IQ,IW,JET)/(SUM*TBRWW(IW,JET)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 430 at (1) gfortran sigdy.F gfortran sigdy2.F gfortran sigee.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigee.F:87:72: 87 | 10 SIGS(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sigfil.F gfortran siggam.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/siggam.F:55:72: 55 | DO 110 IQ=1,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) gfortran sigh.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:81:72: 81 | 100 SIGS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:88:72: 88 | 120 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:90:72: 90 | 130 QSAVE(IQ,IH)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:178:72: 178 | DO 311 J=I,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 311 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:188:72: 188 | 314 C=C+ANWWWW(K+1,I,L)*ANWWWW(N-K+1,J,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 314 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:234:72: 234 | DO 321 J=I,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 321 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:244:72: 244 | 324 C=C+ANWWWW(K+1,I,L)*ANWWWW(N-K+1,J,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 324 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:290:72: 290 | DO 411 J=I,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 411 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:300:72: 300 | 414 C=C+ANWWWW(K+1,I,L)*ANWWWW(N-K+1,J,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 414 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:333:72: 333 | DO 421 J=I,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 421 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh.F:343:72: 343 | 424 C=C+ANWWWW(K+1,I,L)*ANWWWW(N-K+1,J,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 424 at (1) gfortran sigh2.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh2.F:74:72: 74 | DO 111 J=I,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 111 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh2.F:84:72: 84 | 114 C=C+ANWWWW(K+1,I,L)*ANWWWW(N-K+1,J,L) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 114 at (1) gfortran sigh3.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:51:72: 51 | DO 10 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:52:72: 52 | 10 PFCM(K,I)=PPAIR(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:54:72: 54 | DO 11 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:55:72: 55 | 11 PWCM(K,I)=PJETS(K,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:63:72: 63 | 20 PFCM(4,I)=TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:67:72: 67 | 21 PWCM(4,I)=TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:80:72: 80 | 30 PFCM(1,I)=TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:85:72: 85 | 31 PFCM(1,I)=TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:98:72: 98 | 40 PFCM(4,I)=TMP | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:110:72: 110 | 100 IF(IDADDR(I).GE.11) IDADDR(I)=IDADDR(I)-4 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:207:72: 207 | 130 TERM=TERM+ANWWWW(I,J,L)*ZCM**(I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:209:72: 209 | 120 FTERM(L)=FTERM(L)+TERM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:238:72: 238 | DO 140 I2=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:240:72: 240 | DO 140 I3=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:242:72: 242 | DO 140 I4=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigh3.F:262:72: 262 | DO 150 I2=1,3 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1) gfortran sighss.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sighss.F:77:72: 77 | 100 SIGS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sighss.F:84:72: 84 | 120 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sighss.F:86:72: 86 | 130 QSAVE(IQ,IH)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gfortran sigint.F gfortran sigqcd.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigqcd.F:76:72: 76 | DO 110 IQ=1,7 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) gfortran sigsse.F gfortran sigssl.F gfortran sigssy.F gfortran sigssz.F gfortran sigtc.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigtc.F:89:72: 89 | 100 SIGS(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigtc.F:99:72: 99 | 120 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigtc.F:101:72: 101 | 130 QSAVE(IQ,IH)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) gfortran sigtc2.F gfortran sigtc3.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigtc3.F:40:72: 40 | DO 10 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigtc3.F:44:72: 44 | DO 11 K=1,5 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 11 at (1) gfortran sigwh.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigwh.F:51:72: 51 | 10 SIGS(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sigwhs.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigwhs.F:46:72: 46 | 10 SIGS(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) gfortran sigww.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:75:72: 75 | 10 SIGS(I)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:96:72: 96 | DO 110 IQ=2,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:97:72: 97 | 110 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:143:72: 143 | DO 210 IQ=2,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:144:72: 144 | 210 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:187:72: 187 | DO 320 IQ=1,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:188:72: 188 | 320 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:267:72: 267 | DO 420 IQ=1,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:268:72: 268 | 420 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:306:72: 306 | DO 510 IQ=2,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 510 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:307:72: 307 | 510 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:326:72: 326 | DO 610 IQ=2,9 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 610 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww.F:327:72: 327 | 610 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) gfortran sigww2.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww2.F:308:24: 304 | DO K=1,5 | 2 ...... 308 | E(K)=SNGL(PZERO(K,1)) | 1 Warning: Array reference at (1) out of bounds (5 > 4) in loop beginning at (2) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww2.F:309:25: 304 | DO K=1,5 | 2 ...... 309 | EB(K)=SNGL(PZERO(K,2)) | 1 Warning: Array reference at (1) out of bounds (5 > 4) in loop beginning at (2) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww2.F:336:24: 332 | DO K=1,5 | 2 ...... 336 | E(K)=SNGL(PZERO(K,1)) | 1 Warning: Array reference at (1) out of bounds (5 > 4) in loop beginning at (2) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/sigww2.F:337:25: 332 | DO K=1,5 | 2 ...... 337 | EB(K)=SNGL(PZERO(K,2)) | 1 Warning: Array reference at (1) out of bounds (5 > 4) in loop beginning at (2) gfortran smszg.F gfortran ssgst.F gfortran ssgt.F gfortran struc.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/struc.F:301:72: 301 | DO 1030 JX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1030 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/struc.F:302:72: 302 | 1030 TERM=TERM+E1STRC(JX,JQ,IFIT2)*CHEBQ(JQ)*CHEBX(JX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1030 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/struc.F:309:72: 309 | DO 1040 JX=1,6 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1040 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/struc.F:310:72: 310 | 1040 TERM=TERM+E1STRC(JX,JQ,3+ISHFT)*CHEBQ(JQ)*CHEBX(JX) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1040 at (1) gfortran strucw.F gfortran timer.F gfortran twojet.F gfortran twokin.F gfortran visaje.F gfortran whiggs.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/whiggs.F:88:72: 88 | 202 BRANCH(JQ)=BRANCH(JQ)/SUMBR | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 202 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/whiggs.F:140:72: 140 | 320 PBOOST(K)=-PJETS(K,JET) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) gfortran wpair.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:69:72: 69 | 121 QSAVE(IQ,IH)=STRUC(X(IH),QSQ,IQ,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 121 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:71:72: 71 | 122 QSAVE(IQ,IH)=0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 122 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:74:72: 74 | 123 QSAVE(IQ,IH)=STRUCW(X(IH),IQ-25,IDIN(IH))/X(IH) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 123 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:117:72: 117 | 202 BRANCH(JQ)=BRANCH(JQ)/SUMBR | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 202 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:195:72: 195 | 320 PBOOST(K)=-PJETS(K,JET) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:208:72: 208 | 340 PZERO(K,NJ0-1)=P1CM0(K)+BOOST*PWW(K,JET) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/wpair.F:213:72: 213 | 350 PZERO(K,NJ0)=P2CM0(K)+BOOST*PWW(K,JET) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1) gfortran wwkin.F gfortran wwss.F gfortran wwst.F gfortran wwtt.F gfortran wzss.F gfortran wzst.F gfortran wzsu.F gfortran wztu.F gfortran xwwww.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xwwww.F:190:72: 190 | DO 100 I=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xwwww.F:192:72: 192 | 110 ANWWWW(K,I,J)=ANWWWW(K,I,J)*GSQ/(16.) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran xwwzz.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xwwzz.F:192:72: 192 | DO 100 I=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xwwzz.F:194:72: 194 | 110 ANWWWW(K,I,J)=ANWWWW(K,I,J)*GSQ/(16.*ZM2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran xzzww.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xzzww.F:188:72: 188 | DO 100 I=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xzzww.F:190:72: 190 | 110 ANWWWW(K,I,J)=ANWWWW(K,I,J)*GSQ/(16.*ZM2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran xzzzz.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xzzzz.F:152:72: 152 | DO 100 I=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/xzzzz.F:154:72: 154 | 110 ANWWWW(K,I,J)=ANWWWW(K,I,J)*GSQ/(16.*ZM4) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) gfortran ygenj.F gfortran decps1.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/decps1.F:62:72: 62 | 210 RND(JSAVE)=RNEW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran decps2.F gfortran decss3.F gfortran dectau.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/dectau.F:169:72: 169 | 210 IF(IDABS(I).EQ.15) INU=I | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran decva.F gfortran dincgm.F gfortran ebeam.F gfortran estruc.F gfortran fbrbm.F gfortran spline.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/spline.F:27:72: 27 | 10 C(4,M) = (C(1,M) - C(1,M-1))/C(3,M) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/spline.F:43:72: 43 | 20 C(4,M) = G*C(3,M-1) + 2.0*(C(3,M)+C(3,M+1)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/spline.F:55:72: 55 | 30 C(2,J) = ( C(2,J) - C(3,J)*C(2,J+1) )/C(4,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/spline.F:62:72: 62 | 40 C(4,I-1) = DIVDF3/DTAU/DTAU | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) gfortran ssfel.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:51:72: 51 | 100 TAU(I) = FLOAT(I-1)*DX | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:53:72: 53 | 110 TAU(19+I) = .9 + FLOAT(I)*1.E-2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:55:72: 55 | 120 TAU(28+I) = .99 + FLOAT(I)*1.E-3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:57:72: 57 | 121 TAU(33+I) = .995 + FLOAT(I)*2.5E-4 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 121 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:59:72: 59 | 130 TAU(45+I) = .998 + FLOAT(I)*1.E-4 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:68:72: 68 | 140 C(1,I) = RES +DC*ESTRUC(Z,QSQBM) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/ssfel.F:96:72: 96 | 2 IF(Z.LT.TAU(I+1)) GOTO 3 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) gfortran zzall.F gfortran zzstar.F gfortran alqcd.F gfortran amgmw.F gfortran dhelas.F gfortran evol11.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol11.F:35:72: 35 | 105 PJSET(K,NJSET)=PJETS(K,3) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/evol11.F:45:72: 45 | 120 PJSET(K,NJSET)=QWJET(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) gfortran kkgf1.F gfortran kkgf2.F gfortran kkgf3.F gfortran logmgm.F gfortran logmgy.F gfortran logmij.F gfortran mginit.F gfortran muljet.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/code/muljet.F:107:72: 107 | 210 RND(JSAVE)=RNEW | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) gfortran setkkg.F gfortran sigkkg.F gfortran szjj1.F gfortran szjj2.F gfortran szjj3.F gfortran szjj4.F gfortran szjj5.F gfortran szjj6.F gfortran szjj7.F gfortran zjj.F gfortran zjj0.F gfortran zjj1.F gfortran zjj2.F gfortran zjj3.F gfortran zjj4.F gfortran zjj5.F gfortran zjj6.F gfortran zjj7.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/code' checking /mclibs/isajet/isadata make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isadata' makedepend shared/ aldata.F gfortran aldata.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isadata' checking /mclibs/isajet/isasusy make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isasusy' makedepend shared/ surg26.F makedepend shared/ surg06.F makedepend shared/ sugrge.F makedepend shared/ sugra.F makedepend shared/ sugmas.F makedepend shared/ sszibf.F makedepend shared/ sswibf.F makedepend shared/ sssnws.F makedepend shared/ ssme3.F makedepend shared/ sugfrz.F makedepend shared/ sugeff.F makedepend shared/ sualfs.F makedepend shared/ sualfe.F makedepend shared/ sszzf4.F makedepend shared/ sszzf3.F makedepend shared/ sszzf2.F makedepend shared/ sszzf5.F makedepend shared/ sszzf1.F makedepend shared/ sszwf1.F makedepend shared/ sszhx.F makedepend shared/ ssxlam.F makedepend shared/ ssxint.F makedepend shared/ sswzf7.F makedepend shared/ sswzf6.F makedepend shared/ sswzf5.F makedepend shared/ sswzf4.F makedepend shared/ sswzf3.F makedepend shared/ sswzf2.F makedepend shared/ sswzf1.F makedepend shared/ sswzbf.F makedepend shared/ sswwf1.F makedepend shared/ sstpbf.F makedepend shared/ sstest.F makedepend shared/ sssvme.F makedepend shared/ ssstbf.F makedepend shared/ sssave.F makedepend shared/ ssqkbf.F makedepend shared/ sspole.F makedepend shared/ ssnorm.F makedepend shared/ ssn1st.F makedepend shared/ ssmssm.F makedepend shared/ ssmqcd.F makedepend shared/ ssmhn.F makedepend shared/ ssmhc.F makedepend shared/ ssmass.F makedepend shared/ sslrt1.F makedepend shared/ sslpbf.F makedepend shared/ ssl1st.F makedepend shared/ sshww2.F makedepend shared/ sshww1.F makedepend shared/ sshww.F makedepend shared/ sshsf.F makedepend shared/ sshnn.F makedepend shared/ sshibf.F makedepend shared/ sshhx.F makedepend shared/ sshgm1.F makedepend shared/ sshgm.F makedepend shared/ sshgl.F makedepend shared/ sshff1.F makedepend shared/ sshff.F makedepend shared/ sshcc.F makedepend shared/ ssgzt.F makedepend shared/ ssgzg3.F makedepend shared/ ssgzg2.F makedepend shared/ ssgzg1.F makedepend shared/ ssgx9.F makedepend shared/ ssgx8.F makedepend shared/ ssgx7.F makedepend shared/ ssgx6.F makedepend shared/ ssgx5.F makedepend shared/ ssgx4.F makedepend shared/ ssgx3.F makedepend shared/ ssgx2.F makedepend shared/ ssgx11.F makedepend shared/ ssgx10.F makedepend shared/ ssgx1.F makedepend shared/ ssgwt8.F makedepend shared/ ssgwt7.F makedepend shared/ ssgwt6.F makedepend shared/ ssgwt5.F makedepend shared/ ssgwt4.F makedepend shared/ ssgwt3.F makedepend shared/ ssgwt2.F makedepend shared/ ssgwt1.F makedepend shared/ ssgwq2.F makedepend shared/ ssgwq1.F makedepend shared/ ssglbf.F makedepend shared/ ssf0.F makedepend shared/ ssdlam.F makedepend shared/ ssdint.F makedepend shared/ ssdhll.F makedepend shared/ ssb1.F makedepend shared/ ssb0.F makedepend shared/ ssalfs.F gfortran ssalfs.F gfortran ssb0.F gfortran ssb1.F gfortran ssdhll.F gfortran ssdint.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssdint.F:96:72: 96 | 15 TVAL=TVAL+W(I)*(F(BB+AA*R(I))+F(BB-AA*R(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssdint.F:107:72: 107 | 20 VAL=VAL+W(I)*(F(BB+AA*R(I))+F(BB-AA*R(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssdint.F:122:72: 122 | 25 TVAL=VAL | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) gfortran ssdlam.F gfortran ssf0.F gfortran ssglbf.F gfortran ssgwq1.F gfortran ssgwq2.F gfortran ssgwt1.F gfortran ssgwt2.F gfortran ssgwt3.F gfortran ssgwt4.F gfortran ssgwt5.F gfortran ssgwt6.F gfortran ssgwt7.F gfortran ssgwt8.F gfortran ssgx1.F gfortran ssgx10.F gfortran ssgx11.F gfortran ssgx2.F gfortran ssgx3.F gfortran ssgx4.F gfortran ssgx5.F gfortran ssgx6.F gfortran ssgx7.F gfortran ssgx8.F gfortran ssgx9.F gfortran ssgzg1.F gfortran ssgzg2.F gfortran ssgzg3.F gfortran ssgzt.F gfortran sshcc.F gfortran sshff.F gfortran sshff1.F gfortran sshgl.F gfortran sshgm.F gfortran sshgm1.F gfortran sshhx.F gfortran sshibf.F gfortran sshnn.F gfortran sshsf.F gfortran sshww.F gfortran sshww1.F gfortran sshww2.F gfortran ssl1st.F gfortran sslpbf.F gfortran sslrt1.F gfortran ssmass.F gfortran ssmhc.F gfortran ssmhn.F gfortran ssmqcd.F gfortran ssmssm.F gfortran ssn1st.F gfortran ssnorm.F gfortran sspole.F gfortran ssqkbf.F gfortran sssave.F gfortran ssstbf.F gfortran sssvme.F gfortran sstest.F gfortran sstpbf.F gfortran sswwf1.F gfortran sswzbf.F gfortran sswzf1.F gfortran sswzf2.F gfortran sswzf3.F gfortran sswzf4.F gfortran sswzf5.F gfortran sswzf6.F gfortran sswzf7.F gfortran ssxint.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssxint.F:78:72: 78 | 15 TVAL=TVAL+W(I)*(F(BB+AA*R(I))+F(BB-AA*R(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssxint.F:89:72: 89 | 20 VAL=VAL+W(I)*(F(BB+AA*R(I))+F(BB-AA*R(I))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/ssxint.F:104:72: 104 | 25 TVAL=VAL | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) gfortran ssxlam.F gfortran sszhx.F gfortran sszwf1.F gfortran sszzf1.F gfortran sszzf5.F gfortran sszzf2.F gfortran sszzf3.F gfortran sszzf4.F gfortran sualfe.F gfortran sualfs.F gfortran sugeff.F gfortran sugfrz.F gfortran ssme3.F gfortran sssnws.F gfortran sswibf.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sswibf.F:152:72: 152 | DO 110 JZ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sswibf.F:187:72: 187 | DO 130 JZ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) gfortran sszibf.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sszibf.F:151:72: 151 | DO 110 JZ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sszibf.F:186:72: 186 | DO 130 JZ=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1) gfortran sugmas.F gfortran sugra.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sugra.F:333:72: 333 | 234 G(I)=G(I)+M0**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 234 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sugra.F:460:72: 460 | 310 G0SAVE(J)=G0(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sugra.F:466:72: 466 | 320 DELG0=MAX(DELG0,ABS((G0(J)-G0SAVE(J))/G0(J))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) gfortran sugrge.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isasusy/sugrge.F:219:72: 219 | 284 G(I)=G(I)+M0**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 284 at (1) gfortran surg06.F gfortran surg26.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isasusy' checking /mclibs/isajet/isarun make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isarun' makedepend shared/ isaset.F makedepend shared/ dialog.F gfortran dialog.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:117:72: 117 | 20 TITLE(I)=TTL(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:130:72: 130 | 18 KEYS(I)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:409:72: 409 | 61 IF(JETYP(K,IJ).NE.BLANK) NJTTYP(IJ)=NJTTYP(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:532:72: 532 | 191 GODY(J)=.FALSE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 191 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:667:72: 667 | 72 MFORCE(K,NFTEMP)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 72 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:686:72: 686 | 73 MFORCE(K,NFTEMP)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 73 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:717:72: 717 | 372 IF(WWTYP(K,IJ).NE.BLANK) NWWTYP(IJ)=NWWTYP(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 372 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isarun/dialog.F:823:72: 823 | 463 IF(WMODES(K,IJ).NE.BLANK) NWMODE(IJ)=NWMODE(IJ)+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 463 at (1) gfortran isaset.F make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isarun' checking /mclibs/isajet/isatape make[5]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isatape' makedepend shared/ zerol.F makedepend shared/ wgens.F makedepend shared/ rgens.F makedepend shared/ rend.F makedepend shared/ rdtape.F makedepend shared/ rdbeg.F makedepend shared/ prtlst.F makedepend shared/ movlev.F makedepend shared/ itrans.F makedepend shared/ isawnd.F makedepend shared/ isawev.F makedepend shared/ isawbg.F makedepend shared/ isahep.F makedepend shared/ edit.F makedepend shared/ bufout.F makedepend shared/ bufin.F gfortran bufin.F gfortran bufout.F gfortran edit.F gfortran isahep.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:48:72: 48 | 100 PHEP(J,NHEP) = QWJET(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:63:72: 63 | 110 PHEP(J,NHEP) = PJETS(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:78:72: 78 | 140 PHEP(J,NHEP) = PPAIR(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:82:72: 82 | DO 160 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:83:72: 83 | 160 VHEP(J,I) = 0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:129:72: 129 | 180 PHEP(J,IHP) = PJSET(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:131:72: 131 | 190 VHEP(J,IHP) = 0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:162:72: 162 | 210 PHEP(J,IHP) = PPTCL(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:164:72: 164 | 220 VHEP(J,IHP) = 0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:184:72: 184 | DO 330 J=1,4 | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 330 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:189:72: 189 | 340 JPAIR(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:203:72: 203 | 410 PJETS(J,IJ1) = PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:209:72: 209 | 420 QWJET(J) = PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:216:72: 216 | 430 PPAIR(J,IJ3) = PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 430 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:222:72: 222 | 440 PJSET(J,IP) = PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/isahep.F:233:72: 233 | 450 PPTCL(J,IPT) = PHEP(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 450 at (1) gfortran isawbg.F gfortran isawev.F gfortran isawnd.F gfortran itrans.F gfortran movlev.F gfortran prtlst.F gfortran rdbeg.F gfortran rdtape.F gfortran rend.F gfortran rgens.F gfortran wgens.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/wgens.F:56:72: 56 | 990 IF(IDCAY(I).EQ.0) NPSTA=NPSTA+1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 990 at (1) gfortran zerol.F /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/isatape/zerol.F:10:72: 10 | 1 Z(I)=0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) make[5]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet/isatape' rebuild shared library libisajet758.so.3_gfortran.2006 in /mclibs/isajet Sun Jan 5 13:44:36 UTC 2020 Sun Jan 5 13:44:37 UTC 2020 install -c -m 0644 libisajet758.so.3_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib rm -f libisajet758.so.3_gfortran && ln -s libisajet758.so.3_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libisajet758.so.3_gfortran rm -f /<>/mclibs-20061220+dfsg3/shlib/libisajet758.so ln -s libisajet758.so.3_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libisajet758.so rm -f libisajet758.so.3_gfortran.2006 ln -s /<>/mclibs-20061220+dfsg3/shlib/libisajet758.so.3_gfortran.2006 libisajet758.so.3_gfortran.2006 make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/isajet' make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs' make[3]: Entering directory '/<>/mclibs-20061220+dfsg3/build/phtools' making Makefiles in /phtools/genbod... making Makefiles in /phtools/fowl... making Makefiles in /phtools/wico... checking /phtools/genbod make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/phtools/genbod' makedepend archive/ genbod.F gfortran genbod.F /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:63:72: 63 | 200 SM(I)=TM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:76:72: 76 | 350 WTMAX=WTMAX*PDK(EMMAX,EMMIN,EM(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:86:72: 86 | 457 RNO(I)=RNDM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 457 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:87:72: 87 | IF(NTM2) 900,509,460 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:91:72: 91 | 508 EMM(J)=RNO(J-1)*(TECMTM)+SM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 508 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:96:72: 96 | 530 WT=WT*PD(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:123:72: 123 | 568 PCM(2,J)=PSAVE | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 568 at (1) make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/phtools/genbod' checking /phtools/fowl make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/phtools/fowl' makedepend archive/ xplsdx.F makedepend archive/ tranch.F makedepend archive/ teedia.F makedepend archive/ scout.F makedepend archive/ rotes2.F makedepend archive/ redata.F makedepend archive/ redat2.F makedepend archive/ rangnr.F makedepend archive/ qqstrt.F makedepend archive/ pdk.F makedepend archive/ labsys.F makedepend archive/ histey.F makedepend archive/ genev.F makedepend archive/ fowlpr.F makedepend archive/ fowlmp.F makedepend archive/ fowl.F makedepend archive/ fmassq.F makedepend archive/ fmass.F makedepend archive/ dumpme.F makedepend archive/ delsq.F makedepend archive/ chmove.F makedepend archive/ breitw.F makedepend archive/ beamin.F makedepend archive/ dummy.c gcc dummy.c gfortran beamin.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/beamin.F:16:72: 16 | IF(DPBM) 99,99,10 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran breitw.F gfortran chmove.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/chmove.F:24:72: 24 | 100 TARGET(IT+I:IT+I) = SOURCE(IS+I:IS+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran delsq.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/delsq.F:43:72: 43 | 250 ETOT = ETOT + PCM(4, JJ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) gfortran dumpme.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:23:50: 23 | DATA IHAVE,IUND,IOVF,INON/0,4HUNDR,4HOVER,4HNONE/ | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:25:72: 25 | IF(IHAVE - 100) 40,30,999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:32:72: 32 | 50 WRITE(6,5002)I,AMASS(I),(PCM(J,I),J=1,5),FM(I),D2(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:55:72: 55 | IF(D(J,JB)) 250,190,250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:23:36: 23 | DATA IHAVE,IUND,IOVF,INON/0,4HUNDR,4HOVER,4HNONE/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:23:43: 23 | DATA IHAVE,IUND,IOVF,INON/0,4HUNDR,4HOVER,4HNONE/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:23:50: 23 | DATA IHAVE,IUND,IOVF,INON/0,4HUNDR,4HOVER,4HNONE/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) gfortran fmass.F gfortran fmassq.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fmassq.F:48:72: 48 | 250 E = E + PCM(4,INEW) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) gfortran fowl.F gfortran fowlmp.F gfortran fowlpr.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:21:26: 21 | DATA Q1,Q2/4HPLCE,4H SUM/ | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:22:38: 22 | DATA IP, IS, IA / 1HP, 1HS, 1HA / | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:60:72: 60 | 100 TOTAL = TOTAL + ABS(BINS(IK2)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:77:72: 77 | 120 ERROUT(IK) = SQRT(BINS(IK4+1)) * TOTAL1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:80:72: 80 | IF(LPUN1) 200,150,140 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:92:72: 92 | 160 WRITE(7,5008) (BINOUT(I),I=L3,L4), DAT1,DAT2,LET,IDO,L | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:122:72: 122 | 230 TOTWT(I) = TOTWT(I) + BINS(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:126:72: 126 | 240 SUMTOT = SUMTOT + TOTWT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:145:72: 145 | 250 ERROUT(I2) = ERROUT(I2) + BINS(K+1)*FACTO2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:150:72: 150 | 270 ERROUT(I2) = SQRT(ERROUT(I2)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:162:72: 162 | 800 ERROUT(I) = 1.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 800 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:22:28: 22 | DATA IP, IS, IA / 1HP, 1HS, 1HA / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:22:33: 22 | DATA IP, IS, IA / 1HP, 1HS, 1HA / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:22:38: 22 | DATA IP, IS, IA / 1HP, 1HS, 1HA / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:21:19: 21 | DATA Q1,Q2/4HPLCE,4H SUM/ | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:21:26: 21 | DATA Q1,Q2/4HPLCE,4H SUM/ | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) gfortran genev.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:33:72: 33 | IF(TECM-ETC) 115,455,115 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:49:72: 49 | 200 SM(I)=TM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:70:72: 70 | 350 WTMAX=WTMAX*PDK(EMMAX,EMMIN,EM(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:79:72: 79 | IF(NTM2) 900,509,460 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:82:72: 82 | 508 EMM(J)=RNO(J-1)*(TECMTM)+SM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 508 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:87:72: 87 | 530 WT=WT*PD(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:116:72: 116 | 568 PCM(2,J)=PSAVE | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 568 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:130:72: 130 | 805 EMMS(I) = EMM(I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 805 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:219:72: 219 | 855 PCM1(NDX+5) = SQRT(PCM1(NDX+4)**2 - EMS(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 855 at (1) gfortran histey.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:14:58: 14 | DATA CROSS, BLANK, ZERO, AXIS / 1HX , 1H , 1H0 , 1HI / | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:21:72: 21 | 100 BMAX = MAX (BMAX, BINOUT(IK)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:32:72: 32 | 150 XOUT(IK) = BLANK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:48:72: 48 | IF(XLO2) 167,168,167 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:52:72: 52 | IF(Y) 175,169,175 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:56:72: 56 | IF(BINOUT(IQ)) 175,170,175 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:14:40: 14 | DATA CROSS, BLANK, ZERO, AXIS / 1HX , 1H , 1H0 , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:14:46: 14 | DATA CROSS, BLANK, ZERO, AXIS / 1HX , 1H , 1H0 , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:14:52: 14 | DATA CROSS, BLANK, ZERO, AXIS / 1HX , 1H , 1H0 , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:14:58: 14 | DATA CROSS, BLANK, ZERO, AXIS / 1HX , 1H , 1H0 , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) gfortran labsys.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/labsys.F:19:72: 19 | 100 PCM(5,I) = SQRT (PCM(1,I)**2 + PCM(2,I)**2 + PCM(3,I)**2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran pdk.F gfortran qqstrt.F gfortran rangnr.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/rangnr.F:30:72: 30 | IF(NTM2 - 2) 200,160,110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/rangnr.F:36:72: 36 | IF(RNO(J) - RNO(J+1)) 140,140,120 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/rangnr.F:42:72: 42 | IF(IQUIT) 200,200,150 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran redat2.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:55: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:130:72: 130 | IF(XLO1-XUP1) 70,70,69 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:135:72: 135 | IF(LOCP(IHIST)) 4000,71,4000 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:139:72: 139 | IF(XLO1) 75,72,75 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:140:72: 140 | 72 IF(XUP1) 75,74,75 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:173:42: 173 | IF(HISTIT(I).EQ.BLANK) CALL UCOPY(4H....,HISTIT(I),1) | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:175:72: 175 | 77 BINS(LMLI) = HISTIT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 77 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:183:72: 183 | 81 WTADD(I) = 0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 81 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:207:72: 207 | 86 LNEXT = LNEXT + 2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 86 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:218:42: 218 | IF(HISTIT(I).EQ.BLANK) CALL UCOPY(4H....,HISTIT(I),1) | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:220:72: 220 | 187 BINS(LNEXT+I-1) = HISTIT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 187 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:264:72: 264 | IF(IGAFF) 140,140,102 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:20: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:27: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:34: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:41: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:48: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:55: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:62: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:20: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:27: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:34: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:41: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:48: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:55: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:62: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:20: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:27: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:34: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:41: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:48: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:55: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) gfortran redata.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redata.F:68:72: 68 | IF(E) 53,53,52 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran rotes2.F gfortran scout.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:65: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:65: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:22:34: 22 | DATA IBLANK, BLIP / 1H , 1HI / | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:25:72: 25 | IF(K) 510,510,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:45:72: 45 | 200 BMAX = MAX(BMAX,ABS(BINS(I2))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:66:72: 66 | IF(B) 272, 275, 277 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:83:72: 83 | 310 Q = Q + XINT1* 5.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:92:72: 92 | 380 KOUT(I3) = BINS(INDEX)*FACTOR | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:103:72: 103 | 410 Q = Q + XINT1* 5.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:22:28: 22 | DATA IBLANK, BLIP / 1H , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:22:34: 22 | DATA IBLANK, BLIP / 1H , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:20: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:25: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:30: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:35: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:40: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:45: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:50: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:55: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:60: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:65: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:20: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:25: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:30: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:35: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:40: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:45: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:50: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:55: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:60: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:65: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) gfortran teedia.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:16:22: 16 | + 4HLCUT/ | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:15:42: 15 | DATA IBEAM,ITARG,IUCUT,JEXP,ILCUT/4HBEAM,4HTARG,4HUCUT,4HEXP , | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:15:49: 15 | DATA IBEAM,ITARG,IUCUT,JEXP,ILCUT/4HBEAM,4HTARG,4HUCUT,4HEXP , | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:15:56: 15 | DATA IBEAM,ITARG,IUCUT,JEXP,ILCUT/4HBEAM,4HTARG,4HUCUT,4HEXP , | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:15:63: 15 | DATA IBEAM,ITARG,IUCUT,JEXP,ILCUT/4HBEAM,4HTARG,4HUCUT,4HEXP , | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:16:22: 16 | + 4HLCUT/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) gfortran tranch.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:23:72: 23 | IF(WT) 100,600,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:27:72: 27 | IF(K) 400,400,250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:28:72: 28 | 250 IF(PLACE(IDO)) 320,380,320 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:31:72: 31 | IF(WMUL) 330,400,330 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:43:72: 43 | IF(K) 460,460,410 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:54:72: 54 | 465 WEIGHT(I) = 1.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 465 at (1) gfortran xplsdx.F make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/phtools/fowl' checking /phtools/wico make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/phtools/wico' makedepend archive/ wicoin.F makedepend archive/ wico.F makedepend archive/ cwicof.F gfortran cwicof.F gfortran wico.F gfortran wicoin.F make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/phtools/wico' rebuild archive library libphtools.a in /phtools Sun Jan 5 13:44:43 UTC 2020 Sun Jan 5 13:44:43 UTC 2020 ranlib libphtools.a install -c -m 0644 libphtools.a /<>/mclibs-20061220+dfsg3/lib/libphtools.a ranlib /<>/mclibs-20061220+dfsg3/lib/libphtools.a rm -f libphtools.a ln -s /<>/mclibs-20061220+dfsg3/lib/libphtools.a libphtools.a make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/phtools' make[3]: Entering directory '/<>/mclibs-20061220+dfsg3/build/phtools' checking /phtools/genbod make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/phtools/genbod' makedepend shared/ genbod.F gfortran genbod.F /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:63:72: 63 | 200 SM(I)=TM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:76:72: 76 | 350 WTMAX=WTMAX*PDK(EMMAX,EMMIN,EM(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:86:72: 86 | 457 RNO(I)=RNDM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 457 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:87:72: 87 | IF(NTM2) 900,509,460 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:91:72: 91 | 508 EMM(J)=RNO(J-1)*(TECMTM)+SM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 508 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:96:72: 96 | 530 WT=WT*PD(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/genbod/genbod.F:123:72: 123 | 568 PCM(2,J)=PSAVE | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 568 at (1) make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/phtools/genbod' checking /phtools/fowl make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/phtools/fowl' makedepend shared/ xplsdx.F makedepend shared/ tranch.F makedepend shared/ teedia.F makedepend shared/ scout.F makedepend shared/ rotes2.F makedepend shared/ redata.F makedepend shared/ redat2.F makedepend shared/ rangnr.F makedepend shared/ qqstrt.F makedepend shared/ pdk.F makedepend shared/ labsys.F makedepend shared/ histey.F makedepend shared/ genev.F makedepend shared/ fowlpr.F makedepend shared/ fowlmp.F makedepend shared/ fowl.F makedepend shared/ fmassq.F makedepend shared/ fmass.F makedepend shared/ dumpme.F makedepend shared/ delsq.F makedepend shared/ chmove.F makedepend shared/ breitw.F makedepend shared/ beamin.F makedepend shared/ dummy.c gcc dummy.c gfortran beamin.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/beamin.F:16:72: 16 | IF(DPBM) 99,99,10 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran breitw.F gfortran chmove.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/chmove.F:24:72: 24 | 100 TARGET(IT+I:IT+I) = SOURCE(IS+I:IS+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran delsq.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/delsq.F:43:72: 43 | 250 ETOT = ETOT + PCM(4, JJ) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) gfortran dumpme.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:23:50: 23 | DATA IHAVE,IUND,IOVF,INON/0,4HUNDR,4HOVER,4HNONE/ | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:25:72: 25 | IF(IHAVE - 100) 40,30,999 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:32:72: 32 | 50 WRITE(6,5002)I,AMASS(I),(PCM(J,I),J=1,5),FM(I),D2(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:55:72: 55 | IF(D(J,JB)) 250,190,250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:23:36: 23 | DATA IHAVE,IUND,IOVF,INON/0,4HUNDR,4HOVER,4HNONE/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:23:43: 23 | DATA IHAVE,IUND,IOVF,INON/0,4HUNDR,4HOVER,4HNONE/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/dumpme.F:23:50: 23 | DATA IHAVE,IUND,IOVF,INON/0,4HUNDR,4HOVER,4HNONE/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) gfortran fmass.F gfortran fmassq.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fmassq.F:48:72: 48 | 250 E = E + PCM(4,INEW) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) gfortran fowl.F gfortran fowlmp.F gfortran fowlpr.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:21:26: 21 | DATA Q1,Q2/4HPLCE,4H SUM/ | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:22:38: 22 | DATA IP, IS, IA / 1HP, 1HS, 1HA / | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:60:72: 60 | 100 TOTAL = TOTAL + ABS(BINS(IK2)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:77:72: 77 | 120 ERROUT(IK) = SQRT(BINS(IK4+1)) * TOTAL1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:80:72: 80 | IF(LPUN1) 200,150,140 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:92:72: 92 | 160 WRITE(7,5008) (BINOUT(I),I=L3,L4), DAT1,DAT2,LET,IDO,L | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:122:72: 122 | 230 TOTWT(I) = TOTWT(I) + BINS(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:126:72: 126 | 240 SUMTOT = SUMTOT + TOTWT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:145:72: 145 | 250 ERROUT(I2) = ERROUT(I2) + BINS(K+1)*FACTO2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:150:72: 150 | 270 ERROUT(I2) = SQRT(ERROUT(I2)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:162:72: 162 | 800 ERROUT(I) = 1.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 800 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:22:28: 22 | DATA IP, IS, IA / 1HP, 1HS, 1HA / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:22:33: 22 | DATA IP, IS, IA / 1HP, 1HS, 1HA / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:22:38: 22 | DATA IP, IS, IA / 1HP, 1HS, 1HA / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:21:19: 21 | DATA Q1,Q2/4HPLCE,4H SUM/ | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/fowlpr.F:21:26: 21 | DATA Q1,Q2/4HPLCE,4H SUM/ | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) gfortran genev.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:33:72: 33 | IF(TECM-ETC) 115,455,115 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:49:72: 49 | 200 SM(I)=TM | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:70:72: 70 | 350 WTMAX=WTMAX*PDK(EMMAX,EMMIN,EM(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:79:72: 79 | IF(NTM2) 900,509,460 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:82:72: 82 | 508 EMM(J)=RNO(J-1)*(TECMTM)+SM(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 508 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:87:72: 87 | 530 WT=WT*PD(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:116:72: 116 | 568 PCM(2,J)=PSAVE | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 568 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:130:72: 130 | 805 EMMS(I) = EMM(I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 805 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/genev.F:219:72: 219 | 855 PCM1(NDX+5) = SQRT(PCM1(NDX+4)**2 - EMS(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 855 at (1) gfortran histey.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:14:58: 14 | DATA CROSS, BLANK, ZERO, AXIS / 1HX , 1H , 1H0 , 1HI / | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:21:72: 21 | 100 BMAX = MAX (BMAX, BINOUT(IK)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:32:72: 32 | 150 XOUT(IK) = BLANK | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:48:72: 48 | IF(XLO2) 167,168,167 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:52:72: 52 | IF(Y) 175,169,175 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:56:72: 56 | IF(BINOUT(IQ)) 175,170,175 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:14:40: 14 | DATA CROSS, BLANK, ZERO, AXIS / 1HX , 1H , 1H0 , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:14:46: 14 | DATA CROSS, BLANK, ZERO, AXIS / 1HX , 1H , 1H0 , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:14:52: 14 | DATA CROSS, BLANK, ZERO, AXIS / 1HX , 1H , 1H0 , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/histey.F:14:58: 14 | DATA CROSS, BLANK, ZERO, AXIS / 1HX , 1H , 1H0 , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) gfortran labsys.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/labsys.F:19:72: 19 | 100 PCM(5,I) = SQRT (PCM(1,I)**2 + PCM(2,I)**2 + PCM(3,I)**2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) gfortran pdk.F gfortran qqstrt.F gfortran rangnr.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/rangnr.F:30:72: 30 | IF(NTM2 - 2) 200,160,110 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/rangnr.F:36:72: 36 | IF(RNO(J) - RNO(J+1)) 140,140,120 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/rangnr.F:42:72: 42 | IF(IQUIT) 200,200,150 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran redat2.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:55: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:130:72: 130 | IF(XLO1-XUP1) 70,70,69 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:135:72: 135 | IF(LOCP(IHIST)) 4000,71,4000 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:139:72: 139 | IF(XLO1) 75,72,75 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:140:72: 140 | 72 IF(XUP1) 75,74,75 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:173:42: 173 | IF(HISTIT(I).EQ.BLANK) CALL UCOPY(4H....,HISTIT(I),1) | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:175:72: 175 | 77 BINS(LMLI) = HISTIT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 77 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:183:72: 183 | 81 WTADD(I) = 0. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 81 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:207:72: 207 | 86 LNEXT = LNEXT + 2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 86 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:218:42: 218 | IF(HISTIT(I).EQ.BLANK) CALL UCOPY(4H....,HISTIT(I),1) | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:220:72: 220 | 187 BINS(LNEXT+I-1) = HISTIT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 187 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:264:72: 264 | IF(IGAFF) 140,140,102 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:20: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:27: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:34: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:41: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:48: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:55: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:35:62: 35 | DATA KONWD /4H ,4HSCAT,4HADD ,4HNADD,4HAHIS,4HEXP ,4HPUNC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:20: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:27: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:34: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:41: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:48: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:55: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:36:62: 36 | + 4HRANI,4HUCUT,4HLCUT,4HDIFF,4HGENE,4HASCA,4HSPAC, | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:20: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:27: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:34: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:41: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:48: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redat2.F:37:55: 37 | + 4H ,4H ,4H ,4H ,4H ,4H / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) gfortran redata.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/redata.F:68:72: 68 | IF(E) 53,53,52 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) gfortran rotes2.F gfortran scout.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:65: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:65: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:22:34: 22 | DATA IBLANK, BLIP / 1H , 1HI / | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:25:72: 25 | IF(K) 510,510,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:45:72: 45 | 200 BMAX = MAX(BMAX,ABS(BINS(I2))) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:66:72: 66 | IF(B) 272, 275, 277 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:83:72: 83 | 310 Q = Q + XINT1* 5.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:92:72: 92 | 380 KOUT(I3) = BINS(INDEX)*FACTOR | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:103:72: 103 | 410 Q = Q + XINT1* 5.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:22:28: 22 | DATA IBLANK, BLIP / 1H , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:22:34: 22 | DATA IBLANK, BLIP / 1H , 1HI / | 1 Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:20: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:25: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:30: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:35: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:40: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:45: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:50: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:55: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:60: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:21:65: 21 | DATA NETTER/2H -,2H-1,2H-2,2H-3,2H-4,2H-5,2H-6,2H-7,2H-8,2H-9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:20: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:25: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:30: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:35: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:40: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:45: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:50: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:55: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:60: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/scout.F:20:65: 20 | DATA LETTER/2H .,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6,2H 7,2H 8,2H 9/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) gfortran teedia.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:16:22: 16 | + 4HLCUT/ | 1 Warning: Legacy Extension: Hollerith constant at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:15:42: 15 | DATA IBEAM,ITARG,IUCUT,JEXP,ILCUT/4HBEAM,4HTARG,4HUCUT,4HEXP , | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:15:49: 15 | DATA IBEAM,ITARG,IUCUT,JEXP,ILCUT/4HBEAM,4HTARG,4HUCUT,4HEXP , | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:15:56: 15 | DATA IBEAM,ITARG,IUCUT,JEXP,ILCUT/4HBEAM,4HTARG,4HUCUT,4HEXP , | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:15:63: 15 | DATA IBEAM,ITARG,IUCUT,JEXP,ILCUT/4HBEAM,4HTARG,4HUCUT,4HEXP , | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/teedia.F:16:22: 16 | + 4HLCUT/ | 1 Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1) gfortran tranch.F /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:23:72: 23 | IF(WT) 100,600,100 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:27:72: 27 | IF(K) 400,400,250 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:28:72: 28 | 250 IF(PLACE(IDO)) 320,380,320 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:31:72: 31 | IF(WMUL) 330,400,330 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:43:72: 43 | IF(K) 460,460,410 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) /<>/mclibs-20061220+dfsg3/src/phtools/fowl/tranch.F:54:72: 54 | 465 WEIGHT(I) = 1.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 465 at (1) gfortran xplsdx.F make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/phtools/fowl' checking /phtools/wico make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/phtools/wico' makedepend shared/ wicoin.F makedepend shared/ wico.F makedepend shared/ cwicof.F gfortran cwicof.F gfortran wico.F gfortran wicoin.F make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/phtools/wico' rebuild shared library libphtools.so.2_gfortran.2006 in /phtools Sun Jan 5 13:44:49 UTC 2020 Sun Jan 5 13:44:49 UTC 2020 install -c -m 0644 libphtools.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib rm -f libphtools.so.2_gfortran && ln -s libphtools.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libphtools.so.2_gfortran rm -f /<>/mclibs-20061220+dfsg3/shlib/libphtools.so ln -s libphtools.so.2_gfortran.2006 /<>/mclibs-20061220+dfsg3/shlib/libphtools.so rm -f libphtools.so.2_gfortran.2006 ln -s /<>/mclibs-20061220+dfsg3/shlib/libphtools.so.2_gfortran.2006 libphtools.so.2_gfortran.2006 make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/phtools' set -e ; \ for package in ; do \ if [ -d /<>/mclibs-20061220+dfsg3/src/$package ] ; then \ cd /<>/mclibs-20061220+dfsg3/build/$package && /usr/bin/make \ MAKEOVERRIDES= CERN_LEVEL=. install.bin ; \ fi ; \ done mkdir -p /<>/mclibs-20061220+dfsg3/doc # # cojets set -e ; \ cd /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/doc ; \ cat title.doc intro.doc physics.doc usage.doc backward.doc patchy.doc \ external.doc iocon.doc ioconfor.doc ioconinp.doc ioconout.doc \ ioisa.doc ioisafor.doc ioisainp.doc ioisaout.doc taperead.doc \ table.doc | sed -e '/^\*$/d' -e '/^\* .*$/d' > \ /<>/mclibs-20061220+dfsg3/doc/cojets.txt # isajet set -e ; \ cd /<>/mclibs-20061220+dfsg3/src/mclibs/isajet/doc ; \ sed '/^\*.*$/d' ztext.doc > /<>/mclibs-20061220+dfsg3/doc/isajet-zebra.txt ; \ sed '/^\*.*$/d' isassdoc.doc > /<>/mclibs-20061220+dfsg3/doc/isasusy.txt ; \ cat intro.doc physics.doc sample.doc patchy.doc main.doc \ input.doc output.doc tape.doc decay.doc ident.doc \ higher.doc susy.doc changes.doc > /<>/mclibs-20061220+dfsg3/doc/isajet.tex; \ cd /<>/mclibs-20061220+dfsg3/doc ; \ latex isajet.tex ; \ latex isajet.tex ; \ latex isajet.tex ; \ dvips isajet.dvi -o isajet.ps This is pdfTeX, Version 3.14159265-2.6-1.40.20 (TeX Live 2019/Debian) (preloaded format=latex) restricted \write18 enabled. entering extended mode (./isajet.tex LaTeX2e <2019-10-01> patch level 3 (/usr/share/texlive/texmf-dist/tex/latex/base/latex209.def Entering LaTeX 2.09 COMPATIBILITY MODE ************************************************************* !!WARNING!! !!WARNING!! !!WARNING!! !!WARNING!! This mode attempts to provide an emulation of the LaTeX 2.09 author environment so that OLD documents can be successfully processed. It should NOT be used for NEW documents! New documents should use Standard LaTeX conventions and start with the \documentclass command. Compatibility mode is UNLIKELY TO WORK with LaTeX 2.09 style files that change any internal macros, especially not with those that change the FONT SELECTION or OUTPUT ROUTINES. Therefore such style files MUST BE UPDATED to use Current Standard LaTeX: LaTeX2e. If you suspect that you may be using such a style file, which is probably very, very old by now, then you should attempt to get it updated by sending a copy of this error message to the author of that file. ************************************************************* (/usr/share/texlive/texmf-dist/tex/latex/base/tracefnt.sty) (/usr/share/texlive/texmf-dist/tex/latex/base/latexsym.sty)) (/usr/share/texlive/texmf-dist/tex/latex/base/article.cls Document Class: article 2019/10/25 v1.4k Standard LaTeX document class (/usr/share/texlive/texmf-dist/tex/latex/base/size12.clo)) No file isajet.aux. (/usr/share/texlive/texmf-dist/tex/latex/base/ulasy.fd) No file isajet.toc. [1] (/usr/share/texlive/texmf-dist/tex/latex/base/omscmr.fd) LaTeX Warning: Reference `SUSY' on page 2 undefined on input line 92. [2] [3] [4] [5] [6] [7] [8] [9] LaTeX Warning: Reference `SUSY' on page 10 undefined on input line 551. LaTeX Warning: Reference `sugrun' on page 10 undefined on input line 556. [10] [11] LaTeX Warning: Reference `hard' on page 12 undefined on input line 660. LaTeX Warning: Reference `qcdshower' on page 12 undefined on input line 663. [12] [13] [14] [15] [16] [17] [18] [19] [20] LaTeX Warning: Reference `INPUT' on page 21 undefined on input line 1097. LaTeX Warning: Reference `OUTPUT' on page 21 undefined on input line 1103. LaTeX Warning: Reference `PATCHY' on page 21 undefined on input line 1119. LaTeX Warning: Reference `INPUT' on page 21 undefined on input line 1142. [21] LaTeX Warning: Reference `TAPE' on page 22 undefined on input line 1150. LaTeX Warning: Reference `PATCHY' on page 22 undefined on input line 1159. LaTeX Warning: Reference `INPUT' on page 22 undefined on input line 1177. Overfull \hbox (23.29504pt too wide) in paragraph at lines 1175--1180 \OT1/cmr/m/n/12 which is con-tained in P=ISAUTIL,D=RUNIBM. The events will be p ro-duced on []\OT1/cmtt/m/n/12 JOBNAME DATA A [22] LaTeX Warning: Reference `INPUT' on page 23 undefined on input line 1232. LaTeX Warning: Reference `TAPE' on page 23 undefined on input line 1238. LaTeX Warning: Reference `MAIN' on page 23 undefined on input line 1243. [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] [56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] [86] (./isajet.aux) LaTeX Warning: There were undefined references. LaTeX Warning: Label(s) may have changed. Rerun to get cross-references right. ) (see the transcript file for additional information) Output written on isajet.dvi (86 pages, 233348 bytes). Transcript written on isajet.log. This is pdfTeX, Version 3.14159265-2.6-1.40.20 (TeX Live 2019/Debian) (preloaded format=latex) restricted \write18 enabled. entering extended mode (./isajet.tex LaTeX2e <2019-10-01> patch level 3 (/usr/share/texlive/texmf-dist/tex/latex/base/latex209.def Entering LaTeX 2.09 COMPATIBILITY MODE ************************************************************* !!WARNING!! !!WARNING!! !!WARNING!! !!WARNING!! This mode attempts to provide an emulation of the LaTeX 2.09 author environment so that OLD documents can be successfully processed. It should NOT be used for NEW documents! New documents should use Standard LaTeX conventions and start with the \documentclass command. Compatibility mode is UNLIKELY TO WORK with LaTeX 2.09 style files that change any internal macros, especially not with those that change the FONT SELECTION or OUTPUT ROUTINES. Therefore such style files MUST BE UPDATED to use Current Standard LaTeX: LaTeX2e. If you suspect that you may be using such a style file, which is probably very, very old by now, then you should attempt to get it updated by sending a copy of this error message to the author of that file. ************************************************************* (/usr/share/texlive/texmf-dist/tex/latex/base/tracefnt.sty) (/usr/share/texlive/texmf-dist/tex/latex/base/latexsym.sty)) (/usr/share/texlive/texmf-dist/tex/latex/base/article.cls Document Class: article 2019/10/25 v1.4k Standard LaTeX document class (/usr/share/texlive/texmf-dist/tex/latex/base/size12.clo)) (./isajet.aux) (/usr/share/texlive/texmf-dist/tex/latex/base/ulasy.fd) (./isajet.toc [1] [2]) [3] (/usr/share/texlive/texmf-dist/tex/latex/base/omscmr.fd) [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] [56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] [86] [87] [88] (./isajet.aux) LaTeX Warning: Label(s) may have changed. Rerun to get cross-references right. ) Output written on isajet.dvi (88 pages, 253008 bytes). Transcript written on isajet.log. This is pdfTeX, Version 3.14159265-2.6-1.40.20 (TeX Live 2019/Debian) (preloaded format=latex) restricted \write18 enabled. entering extended mode (./isajet.tex LaTeX2e <2019-10-01> patch level 3 (/usr/share/texlive/texmf-dist/tex/latex/base/latex209.def Entering LaTeX 2.09 COMPATIBILITY MODE ************************************************************* !!WARNING!! !!WARNING!! !!WARNING!! !!WARNING!! This mode attempts to provide an emulation of the LaTeX 2.09 author environment so that OLD documents can be successfully processed. It should NOT be used for NEW documents! New documents should use Standard LaTeX conventions and start with the \documentclass command. Compatibility mode is UNLIKELY TO WORK with LaTeX 2.09 style files that change any internal macros, especially not with those that change the FONT SELECTION or OUTPUT ROUTINES. Therefore such style files MUST BE UPDATED to use Current Standard LaTeX: LaTeX2e. If you suspect that you may be using such a style file, which is probably very, very old by now, then you should attempt to get it updated by sending a copy of this error message to the author of that file. ************************************************************* (/usr/share/texlive/texmf-dist/tex/latex/base/tracefnt.sty) (/usr/share/texlive/texmf-dist/tex/latex/base/latexsym.sty)) (/usr/share/texlive/texmf-dist/tex/latex/base/article.cls Document Class: article 2019/10/25 v1.4k Standard LaTeX document class (/usr/share/texlive/texmf-dist/tex/latex/base/size12.clo)) (./isajet.aux) (/usr/share/texlive/texmf-dist/tex/latex/base/ulasy.fd) (./isajet.toc [1] [2]) [3] (/usr/share/texlive/texmf-dist/tex/latex/base/omscmr.fd) [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] [56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] [86] [87] [88] (./isajet.aux) ) Output written on isajet.dvi (88 pages, 253008 bytes). Transcript written on isajet.log. This is dvips(k) 5.999 Copyright 2019 Radical Eye Software (www.radicaleye.com) ' TeX output 2020.01.05:1344' -> isajet.ps . [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] [56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] [86] [87] [88] # eurodec set -e ; \ cd /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/doc ; \ sed -e '/^\*.*$/d' -e 's/C\.//g' eudtxt > /<>/mclibs-20061220+dfsg3/doc/eurodec.txt make[2]: Leaving directory '/<>/mclibs-20061220+dfsg3' mkdir -p stampdir touch stampdir/cernlib-arch-stamp make[1]: Leaving directory '/<>/mclibs-20061220+dfsg3' # run test suite if not disabled by DEB_BUILD_OPTIONS if [ -z "$LD_LIBRARY_PATH" ] ; then \ export LD_LIBRARY_PATH="/<>/mclibs-20061220+dfsg3/shlib" ; \ else \ export LD_LIBRARY_PATH="${LD_LIBRARY_PATH}:/<>/mclibs-20061220+dfsg3/shlib" ; \ fi ; \ /usr/bin/make prefix=/usr mandir=/usr/share/man sysconfdir=/etc \ LOCAL_DEFINES='-DCERNLIB_VERBOSE -DCERNLIB_DEBIAN -DDEBIAN_VERSION=\"20061220+dfsg3-3.1build3\" -DCERNLIB_QGETCWD' cernlib-test make[1]: Entering directory '/<>/mclibs-20061220+dfsg3' set -e ; \ if [ "Linux" = Linux ] ; then \ if [ -z "$LD_LIBRARY_PATH" ] ; then \ export LD_LIBRARY_PATH="/<>/mclibs-20061220+dfsg3/shlib" ; \ else \ export LD_LIBRARY_PATH="/<>/mclibs-20061220+dfsg3/shlib:${LD_LIBRARY_PATH}" ;\ fi ; \ fi ; \ for package in mclibs phtools; do \ if [ -d /<>/mclibs-20061220+dfsg3/src/$package ] ; then \ /usr/bin/make -C /<>/mclibs-20061220+dfsg3/build/$package MAKEOVERRIDES= \ test || touch stampdir/cernlib-test-fail ; \ fi ; \ done ; \ if [ -e stampdir/cernlib-test-fail ] ; then \ echo "*** Failed test suite!!! ***" ; \ exit 1 ; \ else touch stampdir/cernlib-test-pass ; fi make[2]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs' testing in /mclibs/cojets... make[3]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets' making Makefiles in /mclibs/cojets/test... testing in /mclibs/cojets/test... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/test' gfortran test.F /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/test/test.F:16:20: 16 | call dummysub(cojdat) | 1 Warning: Invalid procedure argument at (1) /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/test/test.F:17:20: 17 | call dummysub(cojver) | 1 Warning: Invalid procedure argument at (1) rm -f cojetst Linking with cern libraries -L/<>/mclibs-20061220+dfsg3/shlib -L/<>/mclibs-20061220+dfsg3/lib -lcojets -lmathlib -lpacklib -lkernlib -llapack -lm -lnsl -lcrypt -ldl -lgfortran gfortran -g -o cojetst -O3 -D_FORTIFY_SOURCE=2 -fno-range-check -fno-automatic -fno-second-underscore -fstack-protector --param=ssp-buffer-size=4 -Wl,-z,relro -L/<>/mclibs-20061220+dfsg3/src/lib test.o `cernlib -dy mathlib kernlib cojets` \ || rm -f cojetst rm -f cojets.dat ln -s /<>/mclibs-20061220+dfsg3/build/mclibs/cojets/cojets.dat cojets.dat cp /<>/mclibs-20061220+dfsg3/src/mclibs/cojets/test/test.input test.in Testing cojets ... using cojetst 1 ******************************************************************************** ******************************************************************************** *********************** COJETS VERSION 5.15 6 MAR 90 *********************** ******************************************************************************** ******************************************************************************** USER COMMANDS ============= SAMPLE TWOJET JOB 630.000000 10 2 1 TWOJET LAMBDA 0.200000003 PTFFF 10.0000000 0.00000000 STOP EVENT NO. 1 *************** RUN ID 200105 134451 EVENT TYPE CODE = 1 INITIAL AND FINAL CHANNEL CODES = 5, 1 PARTONS ORIGINATING INITIAL SHOWERS TYPE ID PX PY X 1 GL 9 -0.07 0.04 0.29065E-01 2 GL 9 -0.19 -0.24 0.85222E-01 PARTONS ENTERING THE SUBPROCESS TYPE ID PX PY X 1 GL 9 -2.22 0.23 0.20444E-01 2 GL 9 -0.52 -0.85 0.82655E-01 FINAL PRIMARY PARTON PARAMETERS LAB FRAME: PARTON TYPE ID PX PY PZ P0 MASS 1 GL 9 -4.98 8.59 -16.26 22.12 11.25 2 GL 9 2.24 -9.22 -3.52 10.56 3.00 PARTON CMS: SQRT(SHAT) = 25.86 QSQFFF = 198.15 SQRT(QSQFFF) = 14.08 PCM = 10.23 THETA = 1.87 COS(THETA) = -0.29 PHI = 5.41 PARTON CASCADE PARAMETERS I JET ORIG TYPE ID DECAY PX PY PZ P0 MASS 1 11 5 GL 9 FINAL -2.22 0.23 6.25 6.63 -18.74 2 11 5 GL 9 3- 4 2.14 -0.19 -3.61 9.04 8.00 3 11 2 DB -2 FINAL -1.39 -0.87 -0.60 3.47 3.00 4 11 2 DN 2 FINAL 3.53 0.68 -3.01 5.57 3.00 5 11 0 GL 9 1- 2 -0.07 0.04 9.16 9.16 -4.00 6 12 8 GL 9 FINAL -0.52 -0.85 -26.03 26.05 -110.47 7 12 8 GL 9 FINAL 0.71 0.53 1.29 2.50 1.95 8 12 10 GL 9 6- 7 0.20 -0.32 -26.64 26.64 -5.96 9 12 10 GL 9 FINAL -0.39 0.08 0.13 0.54 0.34 10 12 0 GL 9 8- 9 -0.19 -0.24 -26.84 26.85 -4.00 11 1 0 GL 9 12- 13 -4.98 8.59 -16.26 22.12 11.25 12 1 11 GL 9 FINAL -3.79 10.04 -14.12 17.99 3.00 13 1 11 GL 9 FINAL -1.19 -1.45 -2.13 4.13 3.00 14 2 0 GL 9 FINAL 2.24 -9.22 -3.52 10.56 3.00 NOTE: FOR SPACELIKE PARTONS, IDENTIFIED BY NEGATIVE MASSES, THE MASS REPRESENTS ONLY THE PARTON VIRTUALITY. P0-PL, WHERE PL IS THE LONGITUDINAL MOMENTUM ALONG THE BEAM DIRECTION, IS DEFINED FOR THEM AS: P0-PL=(PX**2+PY**2)/(P0+PL) JET FRAGMENTATION PRODUCTS JET NO. 1 FLAVOR = DB JETSET = 3 JETN = 11 E = 3.47 PX = -1.39 PY = -0.87 PZ = -0.60 PT = 1.64 Y = -0.36 THETA= 1.92 PHI = -2.58 (INITIAL BREMSSTRAHLUNG) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 1 11 -3 PI+ 120 STABLE -0.07 -0.91 -0.30 0.97 0.91 1.8946 4.6401 2 11 -3 PI- -120 STABLE -0.39 -0.26 -0.35 0.60 0.46 2.2102 3.7314 3 11 -3 GM 10 STABLE -0.17 0.24 -0.10 0.31 0.30 1.9006 2.1754 4 11 -3 GM 10 STABLE -0.33 0.22 -0.12 0.42 0.40 1.8618 2.5687 5 11 -3 PI+ 120 STABLE -0.38 -0.05 -0.22 0.46 0.38 2.0884 3.2654 6 11 -3 PI- -120 STABLE -0.24 -0.29 0.15 0.43 0.38 1.1845 4.0168 7 11 -3 GM 10 STABLE -0.14 -0.09 0.16 0.23 0.17 0.8181 3.6812 8 11 -3 GM 10 STABLE -0.02 0.04 0.03 0.06 0.05 0.9904 1.9953 JET NO. 2 FLAVOR = DN JETSET = 4 JETN = 11 E = 5.57 PX = 3.53 PY = 0.68 PZ = -3.01 PT = 3.60 Y = -0.76 THETA= 2.27 PHI = 0.19 (INITIAL BREMSSTRAHLUNG) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 9 11 -4 KS 20 STABLE 0.34 0.00 -0.01 0.61 0.34 1.6042 0.0075 10 11 -4 GM 10 STABLE 0.19 0.20 -0.43 0.51 0.28 2.5739 0.8184 11 11 -4 GM 10 STABLE 0.00 0.04 -0.01 0.04 0.04 1.7942 1.4981 12 11 -4 KL -20 STABLE 1.35 -0.13 -1.05 1.78 1.35 2.2310 6.1837 13 11 -4 PI- -120 STABLE 0.40 0.18 0.03 0.46 0.44 1.4935 0.4182 14 11 -4 GM 10 STABLE 0.06 0.11 -0.15 0.20 0.12 2.4601 1.0961 15 11 -4 GM 10 STABLE 0.34 0.81 -0.60 1.06 0.88 2.1687 1.1681 16 11 -4 PI+ 120 STABLE 0.22 -0.36 -0.19 0.48 0.42 1.9950 5.2464 17 11 -4 PI- -120 STABLE 0.20 -0.25 -0.23 0.42 0.32 2.2015 5.4038 JET NO. 3 FLAVOR = GL JETSET = 12 JETN = 1 E = 17.99 PX = -3.79 PY = 10.04 PZ = -14.12 PT = 10.74 Y = -1.09 THETA= 2.49 PHI = 1.93 (PARTON FINAL STATE) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 18 1 -12 KL -20 STABLE -0.61 0.68 -0.23 1.07 0.92 1.8178 2.3017 19 1 -12 KL -20 STABLE -1.56 3.21 -4.79 6.00 3.57 2.5011 2.0222 20 1 -12 PI+ 120 STABLE 0.15 0.18 0.03 0.27 0.23 1.4204 0.8733 21 1 -12 PI- -120 STABLE 0.75 0.28 -0.07 0.81 0.80 1.6584 0.3537 22 1 -12 GM 10 STABLE 0.11 0.06 -0.13 0.18 0.12 2.3886 0.5047 23 1 -12 K- -130 STABLE -2.01 0.64 -1.61 2.70 2.10 2.2245 2.8332 24 1 -12 PI+ 120 STABLE -0.05 -0.02 -0.21 0.26 0.06 2.8789 3.5071 25 1 -12 K+ 130 STABLE -0.13 1.43 -1.62 2.22 1.43 2.4175 1.6606 26 1 -12 K- -130 STABLE -0.39 1.94 -2.33 3.10 1.98 2.4355 1.7706 27 1 -12 KS 20 STABLE 0.20 -0.11 -0.34 0.64 0.23 2.5485 5.7947 28 1 -12 KL -20 STABLE 0.41 0.01 -0.36 0.74 0.41 2.2913 0.0166 JET NO. 4 FLAVOR = GL JETSET = 13 JETN = 1 E = 4.13 PX = -1.19 PY = -1.45 PZ = -2.13 PT = 1.88 Y = -0.98 THETA= 2.42 PHI = -2.25 (PARTON FINAL STATE) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 29 1 -13 K+ 130 STABLE -0.20 -2.21 -1.71 2.84 2.22 2.2269 4.6216 30 1 -13 PI- -120 STABLE -0.93 0.81 -0.34 1.29 1.24 1.8386 2.4256 JET NO. 5 FLAVOR = GL JETSET = 14 JETN = 2 E = 10.56 PX = 2.24 PY = -9.22 PZ = -3.52 PT = 9.49 Y = -0.36 THETA= 1.93 PHI = -1.33 (PARTON FINAL STATE) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 31 2 -14 PI- -120 STABLE 0.09 -0.01 -0.06 0.17 0.09 2.1482 6.1461 32 2 -14 KS 20 STABLE -0.29 -1.29 0.07 1.42 1.32 1.5186 4.4886 33 2 -14 PI+ 120 STABLE -0.00 -0.15 -0.18 0.27 0.15 2.4458 4.6972 34 2 -14 PI- -120 STABLE 0.36 -1.31 -1.38 1.94 1.36 2.3622 4.9789 35 2 -14 GM 10 STABLE 0.19 -0.11 -0.17 0.28 0.22 2.2317 5.7543 36 2 -14 GM 10 STABLE 0.24 -0.34 -0.39 0.57 0.42 2.3173 5.3190 37 2 -14 N 1220 STABLE 0.43 -1.87 -0.26 2.15 1.92 1.7078 4.9392 38 2 -14 GM 10 STABLE 0.46 -0.95 -0.04 1.05 1.05 1.6047 5.1608 39 2 -14 GM 10 STABLE -0.00 -0.01 0.01 0.02 0.01 0.8039 4.5503 40 2 -14 AS+ -2230 STABLE -0.13 -0.06 -0.02 1.21 0.15 1.6803 3.5845 41 2 -14 PI- -120 STABLE 0.22 -0.24 -0.03 0.35 0.32 1.6501 5.4508 42 2 -14 KS 20 STABLE -0.15 0.15 -0.09 0.55 0.21 1.9637 2.3635 43 2 -14 PI+ 120 STABLE -0.06 -0.13 0.24 0.31 0.14 0.5507 4.3056 44 2 -14 PI- -120 STABLE 0.19 0.04 -0.13 0.27 0.20 2.1465 0.2151 BEAM JETS KINEMATIC PARAMETERS OF SOFT PARTICLE SYSTEM PX = 0.137E+01 PY =-0.133E+00 PZ = 0.195E+02 E = 0.588E+03 INVARIANT MASS = 0.588E+03 I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 45 0 0 AP -1120 STABLE -0.04 0.06 45.75 45.76 0.07 0.0016 2.1518 46 0 0 P 1120 STABLE -0.46 0.32 -110.97 110.98 0.56 3.1365 2.5430 47 0 0 K+ 130 STABLE -0.16 0.42 -2.02 2.13 0.45 2.9240 1.9261 48 0 0 K- -130 STABLE 0.65 0.16 -6.32 6.38 0.67 3.0361 0.2395 49 0 0 PI+ 120 STABLE -0.16 0.19 0.16 0.33 0.25 1.0083 2.2774 50 0 0 PI- -120 STABLE -0.10 -0.37 -0.22 0.47 0.39 2.0921 4.4400 51 0 0 PI+ 120 STABLE -0.39 -0.05 19.11 19.11 0.40 0.0208 3.2761 52 0 0 PI- -120 STABLE -0.13 0.01 0.78 0.80 0.13 0.1694 3.0548 53 0 0 PI+ 120 STABLE 0.07 0.28 8.38 8.38 0.29 0.0342 1.3216 54 0 0 PI- -120 STABLE 0.23 -0.15 0.03 0.31 0.28 1.4688 5.7200 55 0 0 PI+ 120 STABLE -0.49 0.72 52.33 52.34 0.87 0.0166 2.1676 56 0 0 PI- -120 STABLE 0.36 -0.36 -25.11 25.11 0.51 3.1213 5.4929 57 0 0 PI+ 120 STABLE 0.26 -0.43 9.61 9.62 0.50 0.0522 5.2452 58 0 0 PI- -120 STABLE -0.15 -0.06 1.05 1.07 0.16 0.1498 3.5219 59 0 0 PI+ 120 STABLE 0.21 0.04 1.09 1.12 0.21 0.1912 0.2084 60 0 0 PI- -120 STABLE -0.14 0.54 -0.05 0.58 0.56 1.6589 1.8193 61 0 0 PI+ 120 STABLE 0.27 0.00 0.65 0.72 0.27 0.3925 0.0008 62 0 0 PI- -120 STABLE 0.27 0.01 0.52 0.60 0.27 0.4772 0.0238 63 0 0 PI+ 120 STABLE -0.08 -0.29 23.34 23.34 0.30 0.0129 4.4425 64 0 0 PI- -120 STABLE 0.16 -0.25 3.33 3.35 0.30 0.0893 5.2663 65 0 0 PI+ 120 STABLE 0.03 -0.04 -0.30 0.33 0.05 2.9600 5.3598 66 0 0 PI- -120 STABLE -0.19 -0.01 15.78 15.78 0.19 0.0120 3.1878 67 0 0 PI+ 120 STABLE 0.09 0.40 1.33 1.40 0.41 0.2967 1.3511 68 0 0 PI- -120 STABLE -0.36 -0.11 2.81 2.84 0.37 0.1323 3.4486 69 0 0 PI+ 120 STABLE 0.02 -0.01 -4.75 4.75 0.02 3.1366 5.8720 70 0 0 PI- -120 STABLE -0.22 -0.05 -1.02 1.05 0.23 2.9196 3.3479 71 0 0 PI+ 120 STABLE 0.01 0.34 -10.60 10.61 0.34 3.1096 1.5493 72 0 0 PI- -120 STABLE 0.15 0.07 0.02 0.22 0.17 1.4523 0.4460 73 0 0 PI+ 120 STABLE 0.10 -0.03 -0.71 0.73 0.11 2.9920 6.0214 74 0 0 PI- -120 STABLE -0.58 0.08 -0.15 0.62 0.59 1.8249 3.0053 75 0 0 GM 10 STABLE 0.19 0.15 -0.90 0.94 0.24 2.8810 0.6860 76 0 0 GM 10 STABLE 0.75 -0.30 -1.41 1.63 0.81 2.6220 5.9090 77 0 0 GM 10 STABLE -0.28 0.02 -14.74 14.74 0.28 3.1228 3.0548 78 0 0 GM 10 STABLE 0.08 -0.09 -0.83 0.84 0.12 2.9996 5.4351 79 0 0 GM 10 STABLE 0.25 0.16 -0.73 0.79 0.30 2.7571 0.5815 80 0 0 GM 10 STABLE -0.16 -0.11 -0.11 0.22 0.19 2.1040 3.7170 81 0 0 GM 10 STABLE 0.04 -0.10 5.61 5.61 0.11 0.0191 5.1069 82 0 0 GM 10 STABLE 0.15 -0.35 10.26 10.27 0.38 0.0369 5.1108 83 0 0 GM 10 STABLE 0.55 0.73 -0.26 0.95 0.91 1.8474 0.9243 84 0 0 GM 10 STABLE -0.13 0.21 0.00 0.24 0.24 1.5527 2.1249 85 0 0 GM 10 STABLE 0.03 -0.22 0.23 0.32 0.22 0.7658 4.8536 86 0 0 GM 10 STABLE 0.18 -0.26 0.24 0.40 0.32 0.9295 5.3117 87 0 0 GM 10 STABLE 0.48 -0.32 -2.21 2.28 0.57 2.8887 5.6967 88 0 0 GM 10 STABLE -0.07 0.12 -0.59 0.60 0.14 2.9100 2.1194 89 0 0 GM 10 STABLE 0.36 0.21 9.47 9.48 0.41 0.0436 0.5347 90 0 0 GM 10 STABLE 0.05 -0.01 0.57 0.57 0.05 0.0815 6.0662 91 0 0 GM 10 STABLE -0.00 -0.02 0.10 0.11 0.02 0.2004 4.5629 92 0 0 GM 10 STABLE -0.35 0.06 3.34 3.36 0.36 0.1060 2.9806 93 0 0 GM 10 STABLE 0.24 -0.05 -0.29 0.39 0.25 2.4344 6.0665 94 0 0 GM 10 STABLE 0.06 -0.08 -0.21 0.23 0.09 2.7116 5.3536 95 0 0 GM 10 STABLE 0.09 -0.11 0.12 0.19 0.14 0.8703 5.4177 96 0 0 GM 10 STABLE 0.00 -0.26 0.28 0.39 0.26 0.7392 4.7267 97 0 0 GM 10 STABLE 0.10 0.00 0.01 0.10 0.10 1.4725 0.0215 98 0 0 GM 10 STABLE 0.04 0.03 -0.11 0.12 0.05 2.7150 0.5431 99 0 0 PI+ 120 STABLE 0.12 0.02 1.03 1.04 0.12 0.1178 0.1665 100 0 0 PI- -120 STABLE -0.07 0.01 1.67 1.67 0.07 0.0430 3.0260 101 0 0 GM 10 STABLE 0.11 -0.24 -0.85 0.89 0.26 2.8409 5.1465 102 0 0 GM 10 STABLE 0.03 0.00 -0.04 0.05 0.03 2.4380 0.0031 103 0 0 GM 10 STABLE 0.39 -0.24 -9.68 9.69 0.46 3.0946 5.7320 104 0 0 GM 10 STABLE 0.00 -0.04 -1.28 1.28 0.04 3.1140 4.7800 105 0 0 GM 10 STABLE -0.07 0.19 -1.85 1.86 0.20 3.0324 1.9259 106 0 0 GM 10 STABLE -0.11 0.06 -0.68 0.69 0.12 2.9624 2.6281 107 0 0 GM 10 STABLE 0.02 0.16 0.97 0.99 0.16 0.1658 1.4176 108 0 0 GM 10 STABLE -0.04 0.05 1.06 1.06 0.06 0.0613 2.2418 109 0 0 GM 10 STABLE 0.33 0.47 0.36 0.67 0.57 1.0084 0.9541 110 0 0 GM 10 STABLE 0.09 0.21 0.07 0.24 0.23 1.2716 1.1862 111 0 0 GM 10 STABLE 0.01 0.02 -0.05 0.05 0.02 2.6669 0.9529 112 0 0 GM 10 STABLE 0.12 -0.16 -1.13 1.15 0.20 2.9664 5.3317 113 0 0 GM 10 STABLE 0.22 -0.37 -1.07 1.15 0.43 2.7634 5.2431 114 0 0 GM 10 STABLE -0.16 0.10 -0.56 0.59 0.19 2.8232 2.5807 115 0 0 GM 10 STABLE -0.03 -0.05 -3.40 3.40 0.06 3.1254 4.1696 116 0 0 GM 10 STABLE 0.01 -0.41 -12.55 12.56 0.41 3.1090 4.7254 117 0 0 GM 10 STABLE 0.03 0.01 0.08 0.09 0.03 0.3710 0.2595 118 0 0 GM 10 STABLE 0.04 -0.05 -0.04 0.08 0.07 2.1129 5.3254 119 0 0 GM 10 STABLE -0.15 -0.29 1.39 1.43 0.32 0.2276 4.2361 120 0 0 GM 10 STABLE 0.03 -0.06 0.21 0.22 0.06 0.2974 5.1715 121 0 0 GM 10 STABLE -0.02 0.03 0.15 0.16 0.04 0.2367 1.9938 122 0 0 GM 10 STABLE -0.35 0.21 4.18 4.20 0.41 0.0978 2.6125 123 0 0 GM 10 STABLE -0.12 0.38 0.83 0.92 0.40 0.4517 1.8694 124 0 0 GM 10 STABLE -0.17 0.33 1.06 1.12 0.37 0.3368 2.0469 125 0 0 GM 10 STABLE -0.09 0.05 -5.11 5.11 0.10 3.1215 2.6259 126 0 0 GM 10 STABLE -0.76 0.84 -44.72 44.73 1.13 3.1163 2.3025 127 0 0 GM 10 STABLE 0.06 -0.25 0.71 0.76 0.26 0.3488 4.9481 128 0 0 GM 10 STABLE 0.01 -0.03 0.36 0.36 0.03 0.0919 4.8748 129 0 0 GM 10 STABLE -0.22 -0.11 -1.45 1.47 0.25 2.9719 3.5979 130 0 0 GM 10 STABLE 0.02 -0.01 -0.19 0.20 0.02 3.0275 5.7652 131 0 0 GM 10 STABLE -0.10 -0.01 -0.96 0.97 0.10 3.0387 3.2539 132 0 0 GM 10 STABLE -0.22 -0.14 -1.28 1.31 0.26 2.9381 3.7085 133 0 0 GM 10 STABLE 0.08 0.13 8.84 8.84 0.15 0.0174 1.0023 134 0 0 GM 10 STABLE 0.20 -0.57 31.12 31.13 0.60 0.0193 5.0469 135 0 0 PI+ 120 STABLE -0.08 -0.13 -2.21 2.22 0.15 3.0733 4.1288 136 0 0 PI- -120 STABLE 0.12 0.01 -3.61 3.62 0.12 3.1073 0.0459 137 0 0 GM 10 STABLE 0.08 -0.02 0.20 0.21 0.08 0.3812 6.0594 138 0 0 GM 10 STABLE 0.10 0.06 0.95 0.96 0.12 0.1230 0.5165 139 0 0 GM 10 STABLE -0.09 -0.04 0.60 0.61 0.10 0.1676 3.5716 140 0 0 GM 10 STABLE 0.04 -0.06 0.41 0.42 0.07 0.1761 5.3692 141 0 0 GM 10 STABLE -0.07 0.07 0.73 0.74 0.10 0.1339 2.3360 142 0 0 GM 10 STABLE 0.03 -0.02 0.75 0.75 0.04 0.0481 5.5529 143 0 0 GM 10 STABLE 0.03 -0.06 0.19 0.21 0.07 0.3428 5.1486 144 0 0 GM 10 STABLE -0.12 -0.16 0.92 0.95 0.20 0.2171 4.0605 145 0 0 GM 10 STABLE 0.04 -0.10 1.27 1.28 0.11 0.0826 5.1049 146 0 0 GM 10 STABLE 0.25 -0.26 7.68 7.69 0.35 0.0461 5.4772 147 0 0 GM 10 STABLE 0.06 -0.06 0.96 0.96 0.09 0.0896 5.4300 148 0 0 GM 10 STABLE 0.12 -0.01 3.74 3.74 0.12 0.0310 6.2150 149 0 0 GM 10 STABLE 0.13 -0.41 9.19 9.20 0.43 0.0465 5.0310 150 0 0 GM 10 STABLE 0.04 -0.05 2.76 2.77 0.07 0.0239 5.4614 151 0 0 GM 10 STABLE -0.03 -0.03 -0.12 0.13 0.04 2.7974 4.0075 152 0 0 GM 10 STABLE 0.02 0.07 -0.03 0.08 0.07 1.9739 1.3011 153 0 0 GM 10 STABLE -0.37 0.06 -0.29 0.47 0.37 2.2257 2.9813 154 0 0 GM 10 STABLE 0.01 -0.00 -0.04 0.04 0.01 2.9875 5.7593 155 0 0 GM 10 STABLE -0.04 -0.06 0.01 0.07 0.07 1.3578 4.1350 156 0 0 GM 10 STABLE -0.04 -0.02 -0.13 0.14 0.04 2.8372 3.7138 157 0 0 GM 10 STABLE -0.01 0.06 -1.77 1.77 0.06 3.1055 1.7361 158 0 0 GM 10 STABLE 0.06 -0.05 -1.54 1.54 0.08 3.0901 5.6273 EVENT NO. 2 *************** RUN ID 200105 134451 EVENT TYPE CODE = 1 INITIAL AND FINAL CHANNEL CODES = 4, 1 PARTONS ORIGINATING INITIAL SHOWERS TYPE ID PX PY X 1 UB -1 0.19 -0.14 0.14912E+00 2 GL 9 -0.33 -0.55 0.10836E-01 PARTONS ENTERING THE SUBPROCESS TYPE ID PX PY X 1 UB -1 0.19 -0.14 0.14912E+00 2 GL 9 -2.90 2.14 0.59436E-02 FINAL PRIMARY PARTON PARAMETERS LAB FRAME: PARTON TYPE ID PX PY PZ P0 MASS 1 UB -1 -5.24 5.80 25.94 27.26 3.00 2 GL 9 2.53 -3.80 20.89 23.32 9.30 PARTON CMS: SQRT(SHAT) = 18.80 QSQFFF = 116.72 SQRT(QSQFFF) = 10.80 PCM = 6.70 THETA = 1.49 COS(THETA) = 0.08 PHI = 2.90 PARTON CASCADE PARAMETERS I JET ORIG TYPE ID DECAY PX PY PZ P0 MASS 1 11 0 UB -1 FINAL 0.19 -0.14 46.97 46.97 -4.00 2 12 4 GL 9 FINAL -2.90 2.14 -0.14 3.61 -22.42 3 12 4 GL 9 FINAL 2.15 -5.42 8.53 10.76 3.00 4 12 6 GL 9 2- 3 -0.75 -3.28 -2.04 3.93 -10.02 5 12 6 GL 9 FINAL 0.30 2.71 7.10 7.90 2.16 6 12 8 GL 9 4- 5 -0.46 -0.57 -3.35 3.43 -8.64 7 12 8 GL 9 FINAL 0.23 0.23 5.48 5.50 0.33 8 12 10 GL 9 6- 7 -0.23 -0.34 -3.39 3.41 -6.04 9 12 10 GL 9 FINAL -0.25 -0.02 2.69 2.70 0.08 10 12 12 GL 9 8- 9 -0.47 -0.36 -3.38 3.43 -5.75 11 12 12 GL 9 FINAL 0.14 -0.18 2.42 2.44 0.16 12 12 0 GL 9 10- 11 -0.33 -0.55 -3.38 3.44 -4.00 13 1 0 UB -1 FINAL -5.24 5.80 25.94 27.26 3.00 14 2 0 GL 9 15- 16 2.53 -3.80 20.89 23.32 9.30 15 2 14 GL 9 FINAL 1.57 -3.34 19.06 19.65 3.00 16 2 14 GL 9 FINAL 0.96 -0.46 1.83 3.67 3.00 NOTE: FOR SPACELIKE PARTONS, IDENTIFIED BY NEGATIVE MASSES, THE MASS REPRESENTS ONLY THE PARTON VIRTUALITY. P0-PL, WHERE PL IS THE LONGITUDINAL MOMENTUM ALONG THE BEAM DIRECTION, IS DEFINED FOR THEM AS: P0-PL=(PX**2+PY**2)/(P0+PL) JET FRAGMENTATION PRODUCTS JET NO. 1 FLAVOR = GL JETSET = 3 JETN = 12 E = 10.76 PX = 2.15 PY = -5.42 PZ = 8.53 PT = 5.83 Y = 1.17 THETA= 0.60 PHI = -1.19 (INITIAL BREMSSTRAHLUNG) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 1 12 -3 GM 10 STABLE 0.32 -0.97 1.64 1.93 1.02 0.5580 5.0337 2 12 -3 GM 10 STABLE 0.06 -0.10 0.15 0.19 0.12 0.6813 5.2727 3 12 -3 GM 10 STABLE 1.04 -1.84 1.80 2.78 2.11 0.8648 5.2285 4 12 -3 PI- -120 STABLE -0.43 0.47 0.62 0.90 0.64 0.8041 2.3147 5 12 -3 PI+ 120 STABLE 0.64 -1.42 2.41 2.87 1.56 0.5743 5.1372 6 12 -3 GM 10 STABLE 0.01 0.05 0.05 0.07 0.05 0.7477 1.3946 7 12 -3 GM 10 STABLE -0.15 -0.00 0.14 0.21 0.15 0.8291 3.1608 8 12 -3 GM 10 STABLE -0.05 0.01 -0.05 0.07 0.05 2.3207 2.9251 9 12 -3 GM 10 STABLE -0.10 0.12 0.08 0.17 0.15 1.0903 2.2987 10 12 -3 GM 10 STABLE -0.06 -0.10 0.04 0.13 0.12 1.2295 4.1568 11 12 -3 GM 10 STABLE -0.14 -0.02 0.15 0.21 0.15 0.7865 3.2631 12 12 -3 N 1220 STABLE 0.58 -0.50 -0.25 1.24 0.76 1.8832 5.5660 JET NO. 2 FLAVOR = GL JETSET = 5 JETN = 12 E = 7.90 PX = 0.30 PY = 2.71 PZ = 7.10 PT = 2.72 Y = 1.69 THETA= 0.37 PHI = 1.46 (INITIAL BREMSSTRAHLUNG) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 13 12 -5 PI- -120 STABLE -0.03 0.04 0.31 0.34 0.05 0.1466 2.1827 14 12 -5 GM 10 STABLE -0.39 0.97 0.33 1.10 1.05 1.2674 1.9564 15 12 -5 GM 10 STABLE -0.09 0.29 0.17 0.35 0.30 1.0614 1.8752 16 12 -5 PI+ 120 STABLE 0.27 0.00 0.96 1.01 0.27 0.2720 0.0166 17 12 -5 GM 10 STABLE 0.05 -0.06 0.05 0.09 0.08 1.0324 5.3472 18 12 -5 GM 10 STABLE 0.04 -0.14 -0.09 0.17 0.14 2.1357 4.9787 19 12 -5 PI- -120 STABLE -0.09 -0.27 0.35 0.47 0.28 0.6799 4.3745 20 12 -5 GM 10 STABLE -0.27 0.20 -0.04 0.34 0.34 1.6986 2.5072 21 12 -5 GM 10 STABLE -0.03 0.11 -0.00 0.11 0.11 1.5856 1.8123 22 12 -5 GM 10 STABLE -0.15 0.18 0.30 0.38 0.23 0.6546 2.2719 23 12 -5 GM 10 STABLE 0.56 0.31 0.74 0.98 0.64 0.7119 0.5070 24 12 -5 GM 10 STABLE 0.35 0.08 0.44 0.56 0.35 0.6796 0.2280 25 12 -5 PI+ 120 STABLE -0.12 -0.05 0.07 0.20 0.13 1.0993 3.5665 26 12 -5 PI- -120 STABLE 0.20 -0.27 0.07 0.37 0.33 1.3752 5.3572 27 12 -5 GM 10 STABLE -0.03 0.01 0.00 0.03 0.03 1.5162 2.8146 28 12 -5 GM 10 STABLE -0.15 -0.09 0.39 0.43 0.18 0.4326 3.6649 29 12 -5 PI+ 120 STABLE 0.12 -0.17 0.08 0.26 0.21 1.1840 5.3463 30 12 -5 KS 20 STABLE -0.05 0.48 0.14 0.71 0.48 1.2806 1.6756 JET NO. 3 FLAVOR = GL JETSET = 7 JETN = 12 E = 5.50 PX = 0.23 PY = 0.23 PZ = 5.48 PT = 0.32 Y = 3.52 THETA= 0.06 PHI = 0.78 (INITIAL BREMSSTRAHLUNG) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 31 12 -7 K- -130 STABLE -0.43 -0.23 3.13 3.21 0.49 0.1553 3.6371 32 12 -7 PI+ 120 STABLE 0.12 0.17 0.89 0.92 0.20 0.2267 0.9642 33 12 -7 P 1120 STABLE 0.33 -0.02 0.25 1.03 0.33 0.9147 6.2348 34 12 -7 PI- -120 STABLE 0.16 0.26 -0.05 0.34 0.31 1.7172 1.0006 JET NO. 4 FLAVOR = UB JETSET = 13 JETN = 1 E = 27.26 PX = -5.24 PY = 5.80 PZ = 25.94 PT = 7.82 Y = 1.91 THETA= 0.29 PHI = 2.31 (PARTON FINAL STATE) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 35 1 -13 PI- -120 STABLE -3.46 4.17 17.72 18.53 5.42 0.2968 2.2635 36 1 -13 PI+ 120 STABLE -0.12 0.50 0.52 0.75 0.51 0.7769 1.7990 37 1 -13 AP -1120 STABLE -0.68 -0.36 2.53 2.81 0.76 0.2929 3.6261 38 1 -13 P 1120 STABLE 0.14 0.65 1.85 2.18 0.67 0.3467 1.3585 39 1 -13 K- -130 STABLE 0.18 -0.28 1.09 1.25 0.33 0.2961 5.2795 40 1 -13 K+ 130 STABLE -0.84 0.63 0.38 1.22 1.05 1.2206 2.4980 41 1 -13 K- -130 STABLE -0.12 0.09 0.08 0.52 0.15 1.0523 2.4832 JET NO. 5 FLAVOR = GL JETSET = 15 JETN = 2 E = 19.65 PX = 1.57 PY = -3.34 PZ = 19.06 PT = 3.69 Y = 2.35 THETA= 0.19 PHI = -1.13 (PARTON FINAL STATE) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 42 2 -15 GM 10 STABLE 0.03 -0.06 0.05 0.08 0.07 0.9549 5.2167 43 2 -15 GM 10 STABLE 0.06 0.08 0.07 0.12 0.10 0.9247 0.9292 44 2 -15 GM 10 STABLE 0.06 0.03 0.13 0.15 0.07 0.4893 0.4762 45 2 -15 GM 10 STABLE -0.07 0.08 0.18 0.21 0.10 0.5158 2.2958 46 2 -15 GM 10 STABLE 0.07 0.13 0.17 0.23 0.14 0.6939 1.0764 47 2 -15 GM 10 STABLE -0.06 0.23 0.33 0.40 0.24 0.6303 1.8131 48 2 -15 KS 20 STABLE 0.31 -1.45 7.49 7.66 1.49 0.1960 4.9250 49 2 -15 KL -20 STABLE 0.12 -1.33 6.19 6.36 1.33 0.2118 4.8056 50 2 -15 K+ 130 STABLE 0.97 -0.87 1.26 1.88 1.31 0.8051 5.5531 51 2 -15 PI- -120 STABLE 0.11 0.28 1.13 1.18 0.30 0.2592 1.2125 52 2 -15 GM 10 STABLE 0.15 -0.31 0.50 0.61 0.35 0.6069 5.1676 53 2 -15 GM 10 STABLE 0.06 -0.09 0.34 0.36 0.11 0.3219 5.2863 54 2 -15 PI+ 120 STABLE -0.35 0.15 0.09 0.42 0.38 1.3422 2.7378 JET NO. 6 FLAVOR = GL JETSET = 16 JETN = 2 E = 3.67 PX = 0.96 PY = -0.46 PZ = 1.83 PT = 1.07 Y = 1.31 THETA= 0.53 PHI = -0.45 (PARTON FINAL STATE) I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 55 2 -16 GM 10 STABLE -0.01 0.08 0.03 0.09 0.08 1.2475 1.6779 56 2 -16 GM 10 STABLE -0.09 -0.02 -0.00 0.09 0.09 1.6252 3.3779 57 2 -16 GM 10 STABLE 0.04 -0.04 -0.01 0.05 0.05 1.8169 5.4916 58 2 -16 GM 10 STABLE -0.02 -0.12 0.16 0.20 0.12 0.6475 4.5251 59 2 -16 GM 10 STABLE -0.02 0.03 -0.03 0.05 0.04 2.2917 2.2768 60 2 -16 GM 10 STABLE -0.06 -0.02 0.11 0.13 0.06 0.5031 3.4347 61 2 -16 GM 10 STABLE 0.09 -0.04 0.08 0.13 0.10 0.9212 5.8404 62 2 -16 GM 10 STABLE 0.11 0.01 -0.05 0.12 0.11 1.9667 0.0473 63 2 -16 GM 10 STABLE -0.01 -0.06 0.05 0.08 0.06 0.8322 4.5946 64 2 -16 GM 10 STABLE 0.03 0.07 0.07 0.11 0.08 0.8230 1.2230 65 2 -16 PI+ 120 STABLE -0.29 -0.19 1.00 1.07 0.34 0.3315 3.7271 66 2 -16 PI+ 120 STABLE 0.25 0.19 0.25 0.43 0.32 0.9081 0.6543 67 2 -16 PI- -120 STABLE 0.41 -0.46 -0.10 0.64 0.62 1.7365 5.4485 68 2 -16 PI- -120 STABLE 0.44 0.14 0.11 0.49 0.46 1.3284 0.3078 BEAM JETS KINEMATIC PARAMETERS OF SOFT PARTICLE SYSTEM PX = 0.477E+00 PY = 0.655E+00 PZ =-0.591E+02 E = 0.555E+03 INVARIANT MASS = 0.552E+03 I JET ORIG TYPE ID DECAY PX PY PZ P0 PT THETA PHI 69 0 0 AP -1120 STABLE -0.10 0.06 33.45 33.47 0.12 0.0035 2.6034 70 0 0 P 1120 STABLE -0.26 0.07 -100.50 100.51 0.27 3.1389 2.8896 71 0 0 L 2130 STABLE -0.15 -0.08 19.35 19.38 0.17 0.0089 3.6234 72 0 0 AL -2130 STABLE 0.26 -0.31 0.06 1.19 0.40 1.4118 5.4244 73 0 0 PI+ 120 STABLE 0.15 -0.03 -0.41 0.46 0.16 2.7804 6.0907 74 0 0 PI- -120 STABLE -0.84 -0.33 -2.71 2.86 0.90 2.8216 3.5126 75 0 0 K+ 130 STABLE 0.17 0.03 0.38 0.65 0.17 0.4210 0.1546 76 0 0 K- -130 STABLE 0.03 0.20 1.03 1.16 0.20 0.1924 1.4120 77 0 0 PI+ 120 STABLE 0.21 0.06 6.00 6.01 0.22 0.0373 0.2877 78 0 0 PI- -120 STABLE -0.14 0.22 0.17 0.34 0.26 1.0077 2.1330 79 0 0 PI+ 120 STABLE 0.08 0.11 -4.92 4.92 0.13 3.1148 0.9502 80 0 0 PI- -120 STABLE 0.09 -0.35 -0.57 0.69 0.37 2.5751 4.9572 81 0 0 PI+ 120 STABLE -0.06 0.10 -0.76 0.78 0.12 2.9906 2.0772 82 0 0 PI- -120 STABLE -0.15 0.23 -0.44 0.53 0.27 2.5854 2.1412 83 0 0 PI+ 120 STABLE -0.07 -0.15 -4.19 4.20 0.17 3.1011 4.2756 84 0 0 PI- -120 STABLE -0.18 0.30 3.02 3.04 0.35 0.1157 2.1096 85 0 0 PI+ 120 STABLE 0.33 0.47 -7.84 7.86 0.57 3.0686 0.9497 86 0 0 PI- -120 STABLE 0.06 0.30 -7.19 7.19 0.31 3.0991 1.3866 87 0 0 N 1220 STABLE -0.27 0.06 -4.17 4.28 0.27 3.0759 2.9311 88 0 0 AN -1220 STABLE 0.98 -0.42 -3.42 3.70 1.06 2.8401 5.8748 89 0 0 N 1220 STABLE -0.10 0.23 -11.53 11.57 0.25 3.1201 1.9751 90 0 0 AN -1220 STABLE -0.24 0.24 -24.59 24.61 0.34 3.1279 2.3640 91 0 0 PI+ 120 STABLE 0.20 0.51 -0.04 0.56 0.54 1.6400 1.2001 92 0 0 PI- -120 STABLE 0.29 0.13 -1.01 1.07 0.32 2.8377 0.4233 93 0 0 PI+ 120 STABLE 0.10 -0.05 0.44 0.47 0.11 0.2526 5.7930 94 0 0 PI- -120 STABLE 0.10 0.27 -0.14 0.35 0.29 2.0212 1.2076 95 0 0 PI+ 120 STABLE 0.20 0.25 -2.03 2.06 0.32 2.9849 0.8806 96 0 0 PI- -120 STABLE 0.01 0.10 0.66 0.68 0.10 0.1574 1.4971 97 0 0 L 2130 STABLE 0.74 0.05 -17.39 17.44 0.74 3.0988 0.0688 98 0 0 AL -2130 STABLE -0.62 -0.78 8.62 8.75 1.00 0.1152 4.0409 99 0 0 PI+ 120 STABLE 0.04 -0.30 0.22 0.40 0.31 0.9428 4.8583 100 0 0 PI- -120 STABLE -0.14 0.32 7.14 7.15 0.35 0.0491 1.9787 101 0 0 PI+ 120 STABLE -0.12 -0.24 -2.25 2.27 0.27 3.0235 4.2566 102 0 0 PI- -120 STABLE 0.08 -0.22 -0.05 0.28 0.24 1.7955 5.0601 103 0 0 PI+ 120 STABLE -0.10 -0.27 0.25 0.40 0.29 0.8609 4.3629 104 0 0 PI- -120 STABLE 0.63 0.38 21.92 21.93 0.73 0.0333 0.5414 105 0 0 PI+ 120 STABLE -0.87 -0.09 -0.78 1.18 0.88 2.2946 3.2482 106 0 0 PI- -120 STABLE -0.18 0.27 2.51 2.53 0.33 0.1312 2.1618 107 0 0 PI+ 120 STABLE 0.21 -0.67 4.29 4.35 0.70 0.1624 5.0155 108 0 0 PI- -120 STABLE 0.20 -0.10 -1.23 1.26 0.22 2.9615 5.7984 109 0 0 L 2130 STABLE 0.17 -0.80 16.40 16.45 0.82 0.0501 4.9220 110 0 0 AL -2130 STABLE -0.21 -1.99 46.80 46.86 2.01 0.0428 4.6060 111 0 0 PI+ 120 STABLE 0.25 0.43 -10.65 10.66 0.50 3.0946 1.0458 112 0 0 PI- -120 STABLE -0.73 -0.20 -0.20 0.79 0.75 1.8302 3.4091 113 0 0 PI+ 120 STABLE -0.23 -0.10 0.15 0.33 0.25 1.0280 3.5457 114 0 0 PI- -120 STABLE -0.18 0.06 0.15 0.28 0.19 0.9177 2.8064 115 0 0 PI+ 120 STABLE -0.14 -0.09 -0.46 0.51 0.16 2.7989 3.7199 116 0 0 PI- -120 STABLE 0.12 0.13 -0.03 0.23 0.18 1.7252 0.8520 117 0 0 K+ 130 STABLE -0.49 0.13 -12.41 12.43 0.50 3.1010 2.8802 118 0 0 K- -130 STABLE -0.44 0.61 1.79 2.00 0.75 0.3949 2.1973 119 0 0 P 1120 STABLE -0.16 -0.06 -25.81 25.82 0.17 3.1351 3.5144 120 0 0 AP -1120 STABLE -0.48 0.35 0.09 1.11 0.59 1.4165 2.5037 121 0 0 KL -20 STABLE -0.35 0.60 1.20 1.48 0.70 0.5236 2.1014 122 0 0 KL -20 STABLE 0.52 0.05 0.88 1.13 0.52 0.5333 0.1029 123 0 0 KS 20 STABLE -0.10 0.13 0.06 0.53 0.16 1.1955 2.2209 124 0 0 KL -20 STABLE -0.29 0.05 3.44 3.49 0.30 0.0855 2.9714 125 0 0 GM 10 STABLE 0.78 -0.03 -3.15 3.24 0.78 2.8982 6.2482 126 0 0 GM 10 STABLE 0.18 -0.05 -0.97 0.99 0.18 2.9537 6.0075 127 0 0 GM 10 STABLE -0.01 0.01 -0.08 0.08 0.01 3.0057 2.5854 128 0 0 GM 10 STABLE -1.00 -0.20 -20.83 20.85 1.02 3.0928 3.3358 129 0 0 KS 20 STABLE -0.12 -0.05 4.35 4.38 0.13 0.0303 3.5033 130 0 0 KS 20 STABLE 0.22 0.24 -9.30 9.32 0.32 3.1068 0.8220 131 0 0 GM 10 STABLE -0.15 0.21 -0.76 0.80 0.26 2.8111 2.2069 132 0 0 GM 10 STABLE -0.04 0.17 -0.29 0.33 0.17 2.6030 1.8149 133 0 0 GM 10 STABLE -0.20 -0.07 0.13 0.25 0.22 1.0231 3.4909 134 0 0 GM 10 STABLE -0.21 -0.24 0.14 0.35 0.32 1.1556 3.9878 135 0 0 GM 10 STABLE 0.07 -0.02 -0.12 0.14 0.07 2.5836 5.9461 136 0 0 GM 10 STABLE 0.12 0.09 -0.06 0.16 0.15 1.9313 0.6358 137 0 0 GM 10 STABLE 0.07 0.05 -1.20 1.20 0.09 3.0693 0.6542 138 0 0 GM 10 STABLE -0.04 0.00 -0.16 0.16 0.04 2.8918 3.0327 139 0 0 GM 10 STABLE 0.38 -0.28 -1.96 2.02 0.48 2.9032 5.6532 140 0 0 GM 10 STABLE 0.23 0.18 -0.49 0.57 0.29 2.6033 0.6520 141 0 0 GM 10 STABLE 0.02 -0.00 -0.09 0.09 0.02 2.9757 6.1198 142 0 0 GM 10 STABLE 0.15 0.18 -0.18 0.30 0.24 2.2266 0.8735 143 0 0 KS 20 STABLE -0.03 0.50 2.33 2.43 0.50 0.2118 1.6238 144 0 0 KS 20 STABLE 0.03 0.11 12.12 12.13 0.11 0.0091 1.3407 145 0 0 GM 10 STABLE -0.14 0.10 -0.09 0.19 0.17 2.0471 2.5237 146 0 0 GM 10 STABLE -0.11 -0.03 -0.12 0.17 0.12 2.3755 3.4220 147 0 0 GM 10 STABLE 0.12 -0.38 -0.22 0.46 0.40 2.0832 5.0082 148 0 0 GM 10 STABLE -0.27 0.02 -0.09 0.29 0.27 1.8973 3.0627 149 0 0 KL -20 STABLE 0.15 0.22 -5.93 5.95 0.27 3.0960 0.9627 150 0 0 KL -20 STABLE -0.09 -0.10 0.48 0.70 0.13 0.2730 3.9860 151 0 0 GM 10 STABLE 0.07 -0.33 6.61 6.62 0.33 0.0505 4.9337 152 0 0 GM 10 STABLE 0.11 -0.14 4.98 4.99 0.18 0.0354 5.3621 153 0 0 GM 10 STABLE 0.04 -0.03 -0.01 0.05 0.05 1.6814 5.7148 154 0 0 GM 10 STABLE -0.01 0.08 -0.10 0.13 0.08 2.4759 1.7541 155 0 0 KS 20 STABLE 0.15 -0.31 5.48 5.52 0.35 0.0632 5.1613 156 0 0 KL -20 STABLE -0.24 -0.12 1.71 1.80 0.27 0.1543 3.6262 157 0 0 KL -20 STABLE 0.24 0.32 0.25 0.68 0.39 1.0083 0.9301 158 0 0 KS 20 STABLE 0.23 0.23 -0.07 0.60 0.33 1.7906 0.7714 159 0 0 KS 20 STABLE 0.20 -0.41 4.23 4.28 0.46 0.1074 5.1655 160 0 0 KS 20 STABLE 0.78 1.10 4.07 4.31 1.35 0.3199 0.9539 161 0 0 GM 10 STABLE 0.40 0.02 -2.26 2.30 0.40 2.9658 0.0528 162 0 0 GM 10 STABLE 0.08 -0.05 -0.37 0.38 0.10 2.8882 5.7459 163 0 0 GM 10 STABLE 0.06 -0.07 1.62 1.62 0.09 0.0576 5.3844 164 0 0 GM 10 STABLE -0.04 0.03 1.07 1.07 0.05 0.0461 2.5602 165 0 0 GM 10 STABLE -0.04 -0.02 -0.57 0.57 0.04 3.0670 3.5026 166 0 0 GM 10 STABLE 0.02 0.11 -3.39 3.39 0.12 3.1075 1.3806 167 0 0 GM 10 STABLE -0.01 -0.77 8.03 8.06 0.77 0.0958 4.6968 168 0 0 GM 10 STABLE -0.05 -0.10 1.40 1.41 0.11 0.0784 4.2764 169 0 0 GM 10 STABLE 0.08 0.19 0.55 0.59 0.21 0.3583 1.1477 170 0 0 GM 10 STABLE 0.13 -0.36 0.55 0.67 0.39 0.6149 5.0644 171 0 0 GM 10 STABLE 0.27 -0.10 -0.24 0.38 0.29 2.2739 5.9299 172 0 0 GM 10 STABLE 0.03 -0.05 0.00 0.06 0.06 1.5163 5.2978 173 0 0 GM 10 STABLE 0.08 0.50 0.30 0.59 0.50 1.0354 1.4045 174 0 0 GM 10 STABLE -0.02 0.08 0.10 0.13 0.08 0.6594 1.8516 175 0 0 GM 10 STABLE -0.09 0.26 0.42 0.50 0.27 0.5743 1.9122 176 0 0 GM 10 STABLE 0.04 0.16 0.33 0.37 0.17 0.4808 1.3047 1 ************************************************************************************************************************ ************************************************************************************************************************ ****************************************************** ****************************************************** ****************************************************** COJETS ****************************************************** ****************************************************** ****************************************************** ************************************************************************************************************************ ********************************************** VERSION 5.15 -- 6 MAR 90 ********************************************** ************************************************************************************************************************ ************************************************************************************************************************ ***************************************************** RUN ID ***************************************************** ***************************************************** Y M D H M S ***************************************************** ***************************************************** 200105134451 ***************************************************** ************************************************************************************************************************ ************************************************************************************************************************ * * * * * ANTIPROTON-PROTON COLLISIONS ECM = 0.630E+03 GEV * * * * * * LAMBDA = 0.200E+00 GEV PT CUTOFF = 0.400E+01 GEV MEAN KT**2 = 0.400E+00 GEV**2 INEL. X-SECT. = 0.481E+02 MB * * * * QZEV = 0.400E+01 GEV K FACTOR = 0.200E+01 * * * * GENERATION FORCED OVER PT(HARD SCATTERING) .GT. 0.100E+02 (GEV) WITH X-SECTION = 0.175E+00 (MB) * * * * ***X-SECTION VALUE INCLUDES EFFECTS FROM EDIT SELECTIONS WHEN WRITING TO TAPE - REJECTED EVENTS = 0 * * * * ***X-SECTION VALUE INCLUDES K-FACTOR = 0.200E+01 * * * * NO. OF KINEMATIC POINTS TO CALCULATE X-SECTION = 1148 (TIME SPENT = 0.100E-01 SEC) * * * * TOTAL NO. OF EVENTS 10 * * * * WEIGHT=1 EVENTS * * * * NO. OF QUARK FLAVORS 5 * * * * EICHTEN ET AL. STRUCTURE FUNCTIONS SET 1 USED * * * * ****STABLE PARTICLES ONLY HAVE BEEN RETAINED * * * * * * TIME SPENT PER EVENT: 0.200E-02 SEC * * * * * * * * * * **UTILIZATION OF ARRAY DIMENSIONS** * * MAX UTILIZATION OF VARIABLE LENGTH ARRAYS IS REPORTED * * THEIR DIMENSIONS CAN BE CHANGED BY MEANS OF LISTED DIMENSION CONTROL PARAMETERS * * CURR. DIM. MXPART= 2000 USED UP TO 462 * * CURR. DIM. MAXQUA= 200 USED UP TO 9 * * CURR. DIM. MXJSET= 400 USED UP TO 24 * * CURR. DIM. MAXJTP= 900 USED UP TO 304 * * CURR. DIM. MXINQ = 150 USED UP TO 9 * * CURR. DIM. MXCUEV= 50 USED UP TO 4 * * CURR. DIM. MXCUEJ= 50 USED UP TO 0 * * * ************************************************************************************************************************ THIS RUN WROTE 25 PHYSICAL RECORDS ON TAPE 2 CORRESPONDING TO 10 EVENTS Test result = 0 make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets/test' make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/cojets' testing in /mclibs/eurodec... make[3]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec' making Makefiles in /mclibs/eurodec/eudtest... testing in /mclibs/eurodec/eudtest... make[4]: Entering directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/eudtest' gfortran main.F gfortran steerd.F gfortran steerf.F gfortran testd.F /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudtest/testd.F:48:72: 48 | 20 PTEIL(I,1)=5.*EURRAN(NEVENT+I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) gfortran testf.F rm -f eudtest Linking with cern libraries -L/<>/mclibs-20061220+dfsg3/shlib -L/<>/mclibs-20061220+dfsg3/lib -leurodec -lpacklib -lkernlib -lm -lnsl -lcrypt -ldl -lgfortran gfortran -g -o eudtest -O3 -D_FORTIFY_SOURCE=2 -fno-range-check -fno-automatic -fno-second-underscore -fstack-protector --param=ssp-buffer-size=4 -fno-automatic -no-pie -Wl,-z,relro -L/<>/mclibs-20061220+dfsg3/src/lib main.o steerd.o steerf.o testd.o testf.o `cernlib -dy eurodec packlib` \ || rm -f eudtest rm -f eurodec.dat ln -s /<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/eurodec.dat eurodec.dat cp /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudtest/eutitle.data eutitle.dat Testing eurodec ... using eudtest Program received signal SIGSEGV: Segmentation fault - invalid memory reference. Backtrace for this error: #0 0xffffa7d07a87 in ??? #1 0xffffa7d06b57 in ??? #2 0xffffa8b0f50f in ??? #3 0xffffa811d3d8 in ??? #4 0xffffa811a8c3 in ??? #5 0xffffa7fd612f in ??? #6 0x40103f in euexam at /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudtest/main.F:15 #7 0x400ef3 in main at /<>/mclibs-20061220+dfsg3/src/mclibs/eurodec/eudtest/main.F:30 Segmentation fault (core dumped) Test result = 139 make[4]: *** [Makefile:485: test] Error 139 make[4]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec/eudtest' make[3]: *** [Makefile:649: test] Error 2 make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs/eurodec' make[2]: *** [Makefile:455: test] Error 2 make[2]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/mclibs' make[2]: Entering directory '/<>/mclibs-20061220+dfsg3/build/phtools' making Makefiles in /phtools/wicoexam... testing in /phtools/wicoexam... make[3]: Entering directory '/<>/mclibs-20061220+dfsg3/build/phtools/wicoexam' gfortran wicoex.F rm -f wicot Linking with cern libraries -L/<>/mclibs-20061220+dfsg3/shlib -L/<>/mclibs-20061220+dfsg3/lib -lphtools -lmathlib -lpacklib -lkernlib -llapack -lm -lnsl -lcrypt -ldl -lgfortran gfortran -g -o wicot -O3 -D_FORTIFY_SOURCE=2 -fno-range-check -fno-automatic -fno-second-underscore -fstack-protector --param=ssp-buffer-size=4 -Wl,-z,relro -L/<>/mclibs-20061220+dfsg3/src/lib wicoex.o `cernlib -dy packlib phtools` \ || rm -f wicot Testing phtools ... using wicot Winston Cone LENGTH = 19.165445973633908 photon transmitted - IERR=0 output coordinate -0.15073983363881169 0.31095801896907377 output direction 0.15002616295945156 -0.96634440051597137 -0.20897523781322044 total path length 19.626024629316717 total number of bounces 2 Test result = 0 make[3]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/phtools/wicoexam' make[2]: Leaving directory '/<>/mclibs-20061220+dfsg3/build/phtools' *** Failed test suite!!! *** make[1]: *** [/usr/share/cernlib/cernlib.mk:197: stampdir/cernlib-test-pass] Error 1 make[1]: Leaving directory '/<>/mclibs-20061220+dfsg3' make: *** [/usr/share/cernlib/cernlib-debian.mk:122: build-arch] Error 2 dpkg-buildpackage: error: debian/rules build-arch subprocess returned exit status 2 -------------------------------------------------------------------------------- Build finished at 20200105-1344 Finished -------- E: Build failure (dpkg-buildpackage died) +------------------------------------------------------------------------------+ | Cleanup | +------------------------------------------------------------------------------+ Purging /<> Not removing build depends: as requested +------------------------------------------------------------------------------+ | Summary | +------------------------------------------------------------------------------+ Build Architecture: arm64 Build-Space: 192536 Build-Time: 732 Distribution: focal Fail-Stage: build Host Architecture: arm64 Install-Time: 49 Job: mclibs_20061220+dfsg3-3.1build3.dsc Machine Architecture: arm64 Package: mclibs Package-Time: 783 Source-Version: 20061220+dfsg3-3.1build3 Space: 192536 Status: attempted Version: 20061220+dfsg3-3.1build3 -------------------------------------------------------------------------------- Finished at 20200105-1344 Build needed 00:13:03, 192536k disc space RUN: /usr/share/launchpad-buildd/bin/in-target scan-for-processes --backend=chroot --series=focal --arch=arm64 PACKAGEBUILD-18328613 Scanning for processes to kill in build PACKAGEBUILD-18328613