Build:
- 0
2025-12-09 07:37.05: New job: test odepack.0.6.9 with dune.3.21.0~alpha2, using opam dev
from https://github.com/ocaml/opam-repository.git#refs/pull/29042/head (a9b8a0d0db631d21208bd4ab7355e867d7ecf88d)
on debian-13-ocaml-5.4/amd64
To reproduce locally:
cd $(mktemp -d)
git clone --recursive "https://github.com/ocaml/opam-repository.git" && cd "opam-repository" && git fetch origin "refs/pull/29042/head" && git reset --hard a9b8a0d0
git fetch origin master
git merge --no-edit 2e91c1385fa6ee7c38e1108967fe3bf9ccba52f6
cat > ../Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:debian-13-ocaml-5.4@sha256:8c62cc7b043f64833949d4049211997093b28a2f1b98377748d3e185ae301c04
USER 1000:1000
WORKDIR /home/opam
RUN sudo ln -f /usr/bin/opam-dev /usr/bin/opam
RUN opam init --reinit -ni
RUN opam option solver=builtin-0install && opam config report
ENV OPAMDOWNLOADJOBS="1"
ENV OPAMERRLOGLEN="0"
ENV OPAMPRECISETRACKING="1"
ENV CI="true"
ENV OPAM_REPO_CI="true"
RUN rm -rf opam-repository/
COPY --chown=1000:1000 . opam-repository/
RUN opam repository set-url --strict default opam-repository/
RUN opam update --depexts || true
RUN opam pin add -k version -yn dune.3.21.0~alpha2 3.21.0~alpha2
RUN opam reinstall dune.3.21.0~alpha2; \
res=$?; \
test "$res" != 31 && exit "$res"; \
export OPAMCLI=2.0; \
build_dir=$(opam var prefix)/.opam-switch/build; \
failed=$(ls "$build_dir"); \
partial_fails=""; \
for pkg in $failed; do \
if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'dune.3.21.0~alpha2' && partial_fails="$partial_fails $pkg"; \
done; \
test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
exit 1
RUN opam reinstall odepack.0.6.9; \
res=$?; \
test "$res" != 31 && exit "$res"; \
export OPAMCLI=2.0; \
build_dir=$(opam var prefix)/.opam-switch/build; \
failed=$(ls "$build_dir"); \
partial_fails=""; \
for pkg in $failed; do \
if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'odepack.0.6.9' && partial_fails="$partial_fails $pkg"; \
done; \
test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
exit 1
RUN (opam reinstall --with-test odepack.0.6.9) || true
RUN opam reinstall --with-test --verbose odepack.0.6.9; \
res=$?; \
test "$res" != 31 && exit "$res"; \
export OPAMCLI=2.0; \
build_dir=$(opam var prefix)/.opam-switch/build; \
failed=$(ls "$build_dir"); \
partial_fails=""; \
for pkg in $failed; do \
if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'odepack.0.6.9' && partial_fails="$partial_fails $pkg"; \
done; \
test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
exit 1
END-OF-DOCKERFILE
docker build -f ../Dockerfile .
2025-12-09 07:37.05: Using cache hint "ocaml/opam:debian-13-ocaml-5.4@sha256:8c62cc7b043f64833949d4049211997093b28a2f1b98377748d3e185ae301c04-dune.3.21.0~alpha2-odepack.0.6.9-a9b8a0d0db631d21208bd4ab7355e867d7ecf88d"
2025-12-09 07:37.05: Using OBuilder spec:
((from ocaml/opam:debian-13-ocaml-5.4@sha256:8c62cc7b043f64833949d4049211997093b28a2f1b98377748d3e185ae301c04)
(user (uid 1000) (gid 1000))
(workdir /home/opam)
(run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
(run (network host)
(shell "opam init --reinit --config .opamrc-sandbox -ni"))
(run (shell "opam option solver=builtin-0install && opam config report"))
(env OPAMDOWNLOADJOBS 1)
(env OPAMERRLOGLEN 0)
(env OPAMPRECISETRACKING 1)
(env CI true)
(env OPAM_REPO_CI true)
(run (shell "rm -rf opam-repository/"))
(copy (src .) (dst opam-repository/))
(run (shell "opam repository set-url --strict default opam-repository/"))
(run (network host)
(shell "opam update --depexts || true"))
(run (shell "opam pin add -k version -yn dune.3.21.0~alpha2 3.21.0~alpha2"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall dune.3.21.0~alpha2;\
\n res=$?;\
\n test \"$res\" != 31 && exit \"$res\";\
\n export OPAMCLI=2.0;\
\n build_dir=$(opam var prefix)/.opam-switch/build;\
\n failed=$(ls \"$build_dir\");\
\n partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'dune.3.21.0~alpha2' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall odepack.0.6.9;\
\n res=$?;\
\n test \"$res\" != 31 && exit \"$res\";\
\n export OPAMCLI=2.0;\
\n build_dir=$(opam var prefix)/.opam-switch/build;\
\n failed=$(ls \"$build_dir\");\
\n partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'odepack.0.6.9' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
(run (network host)
(shell "(opam reinstall --with-test odepack.0.6.9) || true"))
(run (shell "opam reinstall --with-test --verbose odepack.0.6.9;\
\n res=$?;\
\n test \"$res\" != 31 && exit \"$res\";\
\n export OPAMCLI=2.0;\
\n build_dir=$(opam var prefix)/.opam-switch/build;\
\n failed=$(ls \"$build_dir\");\
\n partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'odepack.0.6.9' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
)
2025-12-09 07:37.05: Waiting for resource in pool OCluster
2025-12-09 17:57.26: Waiting for worker…
2025-12-09 18:00.07: Got resource from pool OCluster
Building on clete
All commits already cached
HEAD is now at 2e91c1385f Merge pull request #29043 from hannesm/mirage-kv
Merge made by the 'ort' strategy.
.../chrome-trace/chrome-trace.3.21.0~alpha2/opam | 41 ++++++++++++
.../dune-action-plugin.3.21.0~alpha2/opam | 54 ++++++++++++++++
.../dune-build-info.3.21.0~alpha2/opam | 47 ++++++++++++++
.../dune-configurator.3.21.0~alpha2/opam | 51 +++++++++++++++
packages/dune-glob/dune-glob.3.21.0~alpha2/opam | 44 +++++++++++++
.../dune-private-libs.3.21.0~alpha2/opam | 52 +++++++++++++++
.../dune-rpc-lwt/dune-rpc-lwt.3.21.0~alpha2/opam | 43 +++++++++++++
packages/dune-rpc/dune-rpc.3.21.0~alpha2/opam | 46 +++++++++++++
packages/dune-site/dune-site.3.21.0~alpha2/opam | 39 +++++++++++
packages/dune/dune.3.21.0~alpha2/opam | 75 ++++++++++++++++++++++
packages/dyn/dyn.3.21.0~alpha2/opam | 42 ++++++++++++
packages/fs-io/fs-io.3.21.0~alpha2/opam | 40 ++++++++++++
packages/ocamlc-loc/ocamlc-loc.3.21.0~alpha2/opam | 45 +++++++++++++
packages/ordering/ordering.3.21.0~alpha2/opam | 40 ++++++++++++
packages/stdune/stdune.3.21.0~alpha2/opam | 48 ++++++++++++++
.../top-closure/top-closure.3.21.0~alpha2/opam | 39 +++++++++++
packages/xdg/xdg.3.21.0~alpha2/opam | 41 ++++++++++++
17 files changed, 787 insertions(+)
create mode 100644 packages/chrome-trace/chrome-trace.3.21.0~alpha2/opam
create mode 100644 packages/dune-action-plugin/dune-action-plugin.3.21.0~alpha2/opam
create mode 100644 packages/dune-build-info/dune-build-info.3.21.0~alpha2/opam
create mode 100644 packages/dune-configurator/dune-configurator.3.21.0~alpha2/opam
create mode 100644 packages/dune-glob/dune-glob.3.21.0~alpha2/opam
create mode 100644 packages/dune-private-libs/dune-private-libs.3.21.0~alpha2/opam
create mode 100644 packages/dune-rpc-lwt/dune-rpc-lwt.3.21.0~alpha2/opam
create mode 100644 packages/dune-rpc/dune-rpc.3.21.0~alpha2/opam
create mode 100644 packages/dune-site/dune-site.3.21.0~alpha2/opam
create mode 100644 packages/dune/dune.3.21.0~alpha2/opam
create mode 100644 packages/dyn/dyn.3.21.0~alpha2/opam
create mode 100644 packages/fs-io/fs-io.3.21.0~alpha2/opam
create mode 100644 packages/ocamlc-loc/ocamlc-loc.3.21.0~alpha2/opam
create mode 100644 packages/ordering/ordering.3.21.0~alpha2/opam
create mode 100644 packages/stdune/stdune.3.21.0~alpha2/opam
create mode 100644 packages/top-closure/top-closure.3.21.0~alpha2/opam
create mode 100644 packages/xdg/xdg.3.21.0~alpha2/opam
(from ocaml/opam:debian-13-ocaml-5.4@sha256:8c62cc7b043f64833949d4049211997093b28a2f1b98377748d3e185ae301c04)
2025-12-09 18:00.13 ---> using "5f87df8c1f6f0886e7311dfd3df40b8bbb961cc34c83c0d033c6dd248c84bc7d" from cache
/: (user (uid 1000) (gid 1000))
/: (workdir /home/opam)
/home/opam: (run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
2025-12-09 18:00.13 ---> using "f1296791f2d76481058db697105a569091a6b6345f05c94bbc5a650f1a364f9a" from cache
/home/opam: (run (network host)
(shell "opam init --reinit --config .opamrc-sandbox -ni"))
Configuring from /home/opam/.opamrc-sandbox, then /home/opam/.opamrc, and finally from built-in defaults.
Checking for available remotes: rsync and local, git.
- you won't be able to use mercurial repositories unless you install the hg command on your system.
- you won't be able to use darcs repositories unless you install the darcs command on your system.
This version of opam requires an update to the layout of /home/opam/.opam from version 2.0 to version 2.2, which can't be reverted.
You may want to back it up before going further.
Continue? [Y/n] y
Format upgrade done.
<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] Initialised
2025-12-09 18:00.13 ---> using "0cac9a31b4750e6a46df8ed8d2f68352091a988199fdf62c52779549510cd6bf" from cache
/home/opam: (run (shell "opam option solver=builtin-0install && opam config report"))
Set to 'builtin-0install' the field solver in global configuration
# opam config report
# opam-version 2.5.0
# self-upgrade no
# system arch=x86_64 os=linux os-distribution=debian os-version=13
# solver builtin-0install
# install-criteria -changed,-count[avoid-version,solution]
# upgrade-criteria -count[avoid-version,solution]
# jobs 71
# repositories 1 (version-controlled)
# pinned 1 (version)
# current-switch 5.4
# invariant ["ocaml-base-compiler" {>= "5.4.0"}]
# compiler-packages ocaml-base-compiler.5.4.0, ocaml-compiler.5.4.0, ocaml-options-vanilla.1
# ocaml:native true
# ocaml:native-tools true
# ocaml:native-dynlink true
# ocaml:stubsdir /home/opam/.opam/5.4/lib/ocaml/stublibs:/home/opam/.opam/5.4/lib/ocaml
# ocaml:preinstalled false
# ocaml:compiler 5.4.0
2025-12-09 18:00.13 ---> using "1deb91dc3badca969976ed6f3bc5fe7c443d73a2cfa957be662fd6f93e30aa7b" from cache
/home/opam: (env OPAMDOWNLOADJOBS 1)
/home/opam: (env OPAMERRLOGLEN 0)
/home/opam: (env OPAMPRECISETRACKING 1)
/home/opam: (env CI true)
/home/opam: (env OPAM_REPO_CI true)
/home/opam: (run (shell "rm -rf opam-repository/"))
2025-12-09 18:00.13 ---> using "1a02438c8753bf7228a9eb625e65b7af26778a022b9ce0b16be5ef4f294c58cd" from cache
/home/opam: (copy (src .) (dst opam-repository/))
2025-12-09 18:00.14 ---> using "5eb86997857236bc32f8e9906c0a6a1698d33db864496f8e374d3bf25b889084" from cache
/home/opam: (run (shell "opam repository set-url --strict default opam-repository/"))
[default] Initialised
2025-12-09 18:00.14 ---> using "461b809ba40b3a1f0f49bbba2df1162936b2a997b1e1fab87951df5ee9c3828d" from cache
/home/opam: (run (network host)
(shell "opam update --depexts || true"))
+ /usr/bin/sudo "apt-get" "update"
- Hit:1 http://deb.debian.org/debian trixie InRelease
- Get:2 http://deb.debian.org/debian trixie-updates InRelease [47.3 kB]
- Get:3 http://deb.debian.org/debian-security trixie-security InRelease [43.4 kB]
- Get:4 http://deb.debian.org/debian-security trixie-security/main amd64 Packages [81.7 kB]
- Fetched 172 kB in 0s (1521 kB/s)
- Reading package lists...
-
2025-12-09 18:00.14 ---> using "d953188c1144583f4d6c9508d29746bc7aa496329e24e2133499412480d3b360" from cache
/home/opam: (run (shell "opam pin add -k version -yn dune.3.21.0~alpha2 3.21.0~alpha2"))
dune is now pinned to version 3.21.0~alpha2
2025-12-09 18:00.14 ---> using "4bbb6c46577f14fbf00d88ad9fe4a416fdaa3fe45eb57c7c8107e7f4e475d88b" from cache
/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall dune.3.21.0~alpha2;\
\n res=$?;\
\n test \"$res\" != 31 && exit \"$res\";\
\n export OPAMCLI=2.0;\
\n build_dir=$(opam var prefix)/.opam-switch/build;\
\n failed=$(ls \"$build_dir\");\
\n partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'dune.3.21.0~alpha2' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
dune.3.21.0~alpha2 is not installed. Install it? [Y/n] y
The following actions will be performed:
=== install 1 package
- install dune 3.21.0~alpha2 (pinned)
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved dune.3.21.0~alpha2 (cached)
-> installed dune.3.21.0~alpha2
Done.
# To update the current shell environment, run: eval $(opam env)
2025-12-09 18:00.14 ---> using "6e916170e11b6a845780488e15d6d58d70f93cf536b2d72ac046cb05589b0a6d" from cache
/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall odepack.0.6.9;\
\n res=$?;\
\n test \"$res\" != 31 && exit \"$res\";\
\n export OPAMCLI=2.0;\
\n build_dir=$(opam var prefix)/.opam-switch/build;\
\n failed=$(ls \"$build_dir\");\
\n partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'odepack.0.6.9' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
odepack.0.6.9 is not installed. Install it? [Y/n] y
The following actions will be performed:
=== install 6 packages
- install base-bytes base [required by odepack]
- install conf-gfortran 0 [required by odepack]
- install csexp 1.5.2 [required by dune-configurator]
- install dune-configurator 3.21.0~alpha2 [required by odepack]
- install ocamlfind 1.9.8 [required by base-bytes]
- install odepack 0.6.9
The following system packages will first need to be installed:
gfortran
<><> Handling external dependencies <><><><><><><><><><><><><><><><><><><><><><>
opam believes some required external dependencies are missing. opam can:
> 1. Run apt-get to install them (may need root/sudo access)
2. Display the recommended apt-get command and wait while you run it manually (e.g. in another terminal)
3. Continue anyway, and, upon success, permanently register that this external dependency is present, but not detectable
4. Abort the installation
[1/2/3/4] 1
+ /usr/bin/sudo "apt-get" "install" "-qq" "-yy" "gfortran"
- Selecting previously unselected package libgfortran5:amd64.
- (Reading database ...
(Reading database ... 5%
(Reading database ... 10%
(Reading database ... 15%
(Reading database ... 20%
(Reading database ... 25%
(Reading database ... 30%
(Reading database ... 35%
(Reading database ... 40%
(Reading database ... 45%
(Reading database ... 50%
(Reading database ... 55%
(Reading database ... 60%
(Reading database ... 65%
(Reading database ... 70%
(Reading database ... 75%
(Reading database ... 80%
(Reading database ... 85%
(Reading database ... 90%
(Reading database ... 95%
(Reading database ... 100%
(Reading database ... 20653 files and directories currently installed.)
- Preparing to unpack .../0-libgfortran5_14.2.0-19_amd64.deb ...
- Unpacking libgfortran5:amd64 (14.2.0-19) ...
- Selecting previously unselected package libgfortran-14-dev:amd64.
- Preparing to unpack .../1-libgfortran-14-dev_14.2.0-19_amd64.deb ...
- Unpacking libgfortran-14-dev:amd64 (14.2.0-19) ...
- Selecting previously unselected package gfortran-14-x86-64-linux-gnu.
- Preparing to unpack .../2-gfortran-14-x86-64-linux-gnu_14.2.0-19_amd64.deb ...
- Unpacking gfortran-14-x86-64-linux-gnu (14.2.0-19) ...
- Selecting previously unselected package gfortran-14.
- Preparing to unpack .../3-gfortran-14_14.2.0-19_amd64.deb ...
- Unpacking gfortran-14 (14.2.0-19) ...
- Selecting previously unselected package gfortran-x86-64-linux-gnu.
- Preparing to unpack .../4-gfortran-x86-64-linux-gnu_4%3a14.2.0-1_amd64.deb ...
- Unpacking gfortran-x86-64-linux-gnu (4:14.2.0-1) ...
- Selecting previously unselected package gfortran.
- Preparing to unpack .../5-gfortran_4%3a14.2.0-1_amd64.deb ...
- Unpacking gfortran (4:14.2.0-1) ...
- Setting up libgfortran5:amd64 (14.2.0-19) ...
- Setting up libgfortran-14-dev:amd64 (14.2.0-19) ...
- Setting up gfortran-14-x86-64-linux-gnu (14.2.0-19) ...
- Setting up gfortran-14 (14.2.0-19) ...
- Setting up gfortran-x86-64-linux-gnu (4:14.2.0-1) ...
- Setting up gfortran (4:14.2.0-1) ...
- 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
- Processing triggers for libc-bin (2.41-12) ...
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved csexp.1.5.2 (cached)
-> installed conf-gfortran.0
-> installed csexp.1.5.2
-> retrieved dune-configurator.3.21.0~alpha2 (cached)
-> retrieved ocamlfind.1.9.8 (cached)
-> retrieved odepack.0.6.9 (cached)
-> installed dune-configurator.3.21.0~alpha2
-> installed ocamlfind.1.9.8
-> installed base-bytes.base
[ERROR] The compilation of odepack.0.6.9 failed at "dune build -p odepack -j 71".
#=== ERROR while compiling odepack.0.6.9 ======================================#
# context 2.5.0 | linux/x86_64 | ocaml-base-compiler.5.4.0 | file:///home/opam/opam-repository
# path ~/.opam/5.4/.opam-switch/build/odepack.0.6.9
# command ~/.opam/opam-init/hooks/sandbox.sh build dune build -p odepack -j 71
# exit-code 1
# env-file ~/.opam/log/odepack-7-e1c16f.env
# output-file ~/.opam/log/odepack-7-e1c16f.out
### output ###
# File "src/fortran/dune", lines 15-18, characters 0-151:
# 15 | (rule
# 16 | (targets opkda1.o opkda2.o opkdmain.o)
# 17 | (deps opkda1.f opkda2.f opkdmain.f)
# 18 | (action (run %{read-lines:fortranc.txt} -c -fPIC -O3 %{deps})))
# (cd _build/default/src/fortran && /usr/bin/x86_64-linux-gnu-gfortran -c -fPIC -O3 opkda1.f opkda2.f opkdmain.f)
# opkda1.f:123:72:
#
# 123 | 110 PC(I) = PC(I-1) + FNQM1*PC(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:132:72:
#
# 132 | 120 XPIN = XPIN + TSIGN*PC(I)/(I+1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:137:72:
#
# 137 | 130 ELCO(I+1,NQ) = RQ1FAC*PC(I)/I
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkda1.f:160:72:
#
# 160 | 210 PC(I) = PC(I-1) + FNQ*PC(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:164:72:
#
# 164 | 220 ELCO(I,NQ) = PC(I)/PC(2)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:246:72:
#
# 246 | 10 IC = IC*JJ
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:249:72:
#
# 249 | 20 DKY(I) = C*YH(I,L)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:259:72:
#
# 259 | 30 IC = IC*JJ
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
# opkda1.f:262:72:
#
# 262 | 40 DKY(I) = C*YH(I,JP1) + S*DKY(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:267:72:
#
# 267 | 60 DKY(I) = R*DKY(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
# opkda1.f:370:72:
#
# 370 | 110 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:374:72:
#
# 374 | 120 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:389:72:
#
# 389 | 220 WM(I+J1) = (FTEM(I) - SAVF(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:399:72:
#
# 399 | 250 J = J + NP1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
# opkda1.f:408:72:
#
# 408 | 310 Y(I) = Y(I) + R*(H*SAVF(I) - YH(I,2))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
# opkda1.f:430:72:
#
# 430 | 410 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkda1.f:434:72:
#
# 434 | 420 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
# opkda1.f:451:72:
#
# 451 | 530 Y(I) = Y(I) + R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:462:72:
#
# 462 | 540 WM(II+I) = (FTEM(I) - SAVF(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
# opkda1.f:470:72:
#
# 470 | 580 II = II + MEBAND
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1)
# opkda1.f:554:72:
#
# 554 | 320 WM(I+2) = 1.0D0/DI
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
# opkda1.f:556:72:
#
# 556 | 340 X(I) = WM(I+2)*X(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
# opkda1.f:617:72:
#
# 617 | 10 RSAV(I) = RLS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:619:72:
#
# 619 | 20 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:624:72:
#
# 624 | 110 RLS(I) = RSAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:626:72:
#
# 626 | 120 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:808:72:
#
# 808 | 125 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:829:72:
#
# 829 | 155 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:852:72:
#
# 852 | DO 180 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
# opkda1.f:853:72:
#
# 853 | 180 YH(I,J) = YH(I,J)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:874:72:
#
# 874 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:884:72:
#
# 884 | 230 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
# opkda1.f:900:72:
#
# 900 | 260 ACOR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkda1.f:908:72:
#
# 908 | 290 Y(I) = SAVF(I) - ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
# opkda1.f:912:72:
#
# 912 | 300 ACOR(I) = SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
# opkda1.f:920:72:
#
# 920 | 360 Y(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
# opkda1.f:927:72:
#
# 927 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
# opkda1.f:962:72:
#
# 962 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
# opkda1.f:997:72:
#
# 997 | DO 470 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
# opkda1.f:998:72:
#
# 998 | 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
# opkda1.f:1004:72:
#
# 1004 | 490 YH(I,LMAX) = ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
# opkda1.f:1020:72:
#
# 1020 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
# opkda1.f:1040:72:
#
# 1040 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:1067:72:
#
# 1067 | 600 YH(I,NEWQ+1) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
# opkda1.f:1097:72:
#
# 1097 | 645 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
# opkda1.f:1101:72:
#
# 1101 | 650 YH(I,2) = H*SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
# opkda1.f:1122:72:
#
# 1122 | 710 ACOR(I) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
# opkda1.f:1160:72:
#
# 1160 | 15 EWT(I) = RTOL(1)*ABS(YCUR(I)) + ATOL(1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
# opkda1.f:1164:72:
#
# 1164 | 25 EWT(I) = RTOL(1)*ABS(YCUR(I)) + ATOL(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:1168:72:
#
# 1168 | 35 EWT(I) = RTOL(I)*ABS(YCUR(I)) + ATOL(1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
# opkda1.f:1172:72:
#
# 1172 | 45 EWT(I) = RTOL(I)*ABS(YCUR(I)) + ATOL(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 45 at (1)
# opkda1.f:1206:72:
#
# 1206 | 10 SUM = SUM + (V(I)*W(I))**2
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:1266:72:
#
# 1266 | 10 RWORK(I) = RWORK(I+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:1276:72:
#
# 1276 | 30 RWORK(I+LEWTN-1) = RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
# opkda1.f:1370:72:
#
# 1370 | 25 Y(I) = YH(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:1408:72:
#
# 1408 | 75 SAVF(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 75 at (1)
# opkda1.f:1450:72:
#
# 1450 | 145 Y(I) = YH(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 145 at (1)
# opkda1.f:1481:72:
#
# 1481 | 170 IWK(IBR+I) = I
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
# opkda1.f:1496:72:
#
# 1496 | 180 WK(IBA+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:1572:72:
#
# 1572 | 10 JDONE(J) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:1577:72:
#
# 1577 | 20 INCL(I) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:1594:72:
#
# 1594 | 40 INCL(I) = 1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:1652:72:
#
# 1652 | IF (JA(J) - II) 10, 40, 30
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda1.f:1762:72:
#
# 1762 | 110 FTEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:1785:72:
#
# 1785 | 210 Y(JJ) = Y(JJ) + R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:1833:72:
#
# 1833 | 295 FTEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 295 at (1)
# opkda1.f:1851:72:
#
# 1851 | 310 Y(I) = Y(I) + R*(H*SAVF(I) - YH(I,2))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
# opkda1.f:1937:72:
#
# 1937 | 320 WK(I+2) = 1.0D0/DI
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
# opkda1.f:1939:72:
#
# 1939 | 340 X(I) = WK(I+2)*X(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
# opkda1.f:1972:72:
#
# 1972 | 10 RSAV(I) = RLS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:1974:72:
#
# 1974 | 15 RSAV(LENRLS+I) = RLSS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
# opkda1.f:1977:72:
#
# 1977 | 20 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:1979:72:
#
# 1979 | 25 ISAV(LENILS+I) = ILSS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:1985:72:
#
# 1985 | 110 RLS(I) = RSAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:1987:72:
#
# 1987 | 115 RLSS(I) = RSAV(LENRLS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkda1.f:1990:72:
#
# 1990 | 120 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:1992:72:
#
# 1992 | 125 ILSS(I) = ISAV(LENILS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:2310:72:
#
# 2310 | 5 last(next(k)) = k
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
# opkda1.f:2326:72:
#
# 2326 | 1 head(vi) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
# opkda1.f:2337:72:
#
# 2337 | if (vj-vi) 2, 5, 4
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda1.f:2375:72:
#
# 2375 | 7 mark(vi) = tag
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1)
# opkda1.f:2547:72:
#
# 2547 | if (last(vi)) 1, 10, 8
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda1.f:2653:72:
#
# 2653 | 1 q(i) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
# opkda1.f:2669:72:
#
# 2669 | 2 q(k) = q(k) + 1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
# opkda1.f:2677:72:
#
# 2677 | 4 q(i) = ia(i+1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:2698:72:
#
# 2698 | 6 j = j-1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1)
# opkda1.f:2940:72:
#
# 2940 | 4 isp(ju+j-1) = isp(jutmp+j-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:3211:72:
#
# 3211 | 4 a(j) = ar(i)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:3292:72:
#
# 3292 | 1 jru(k) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
# opkda1.f:3302:72:
#
# 3302 | 2 ira(k) = iak
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
# opkda1.f:3369:72:
#
# 3369 | if (jl(j) - qm) 12, 13, 15
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda1.f:3388:72:
#
# 3388 | 16 jl(j) = qm
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1)
# opkda1.f:3471:72:
#
# 3471 | if (ju(j) - qm) 29, 30, 32
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda1.f:3490:72:
#
# 3490 | 33 ju(j) = qm
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 33 at (1)
# opkda1.f:3614:72:
#
# 3614 | 4 row(ju(j)) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:3636:72:
#
# 3636 | 8 row(ju(mu+j)) = row(ju(mu+j)) + lki * u(j)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 8 at (1)
# opkda1.f:3651:72:
#
# 3651 | 11 u(j) = row(ju(mu+j)) * dk
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1)
# opkda1.f:3684:72:
#
# 3684 | 20 sum = sum - u(j) * tmp(ju(mu+j))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:3687:72:
#
# 3687 | 22 k = k-1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1)
# opkda1.f:3725:72:
#
# 3725 | 1 tmp(k) = b(r(k))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
# opkda1.f:3735:72:
#
# 3735 | 2 tmp(jl(ml+j)) = tmp(jl(ml+j)) + tmpk * l(j)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
# opkda1.f:3746:72:
#
# 3746 | 4 sum = sum + u(j) * tmp(ju(mu+j))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:3778:72:
#
# 3778 | 1 tmp(k) = b(c(k))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
# opkda1.f:3787:72:
#
# 3787 | 2 tmp(ju(mu+j)) = tmp(ju(mu+j)) + tmpk * u(j)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
# opkda1.f:3798:72:
#
# 3798 | 4 sum = sum + l(j) * tmp(jl(ml+j))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:3961:72:
#
# 3961 | 10 CM2(I) = TESCO(2,I)*ELCO(I+1,I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:3964:72:
#
# 3964 | 20 CM1(I) = TESCO(2,I)*ELCO(I+1,I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:3989:72:
#
# 3989 | 155 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:4024:72:
#
# 4024 | DO 180 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
# opkda1.f:4025:72:
#
# 4025 | 180 YH(I,J) = YH(I,J)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:4046:72:
#
# 4046 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:4059:72:
#
# 4059 | 230 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
# opkda1.f:4075:72:
#
# 4075 | 260 ACOR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkda1.f:4083:72:
#
# 4083 | 290 Y(I) = SAVF(I) - ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
# opkda1.f:4087:72:
#
# 4087 | 300 ACOR(I) = SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
# opkda1.f:4095:72:
#
# 4095 | 360 Y(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
# opkda1.f:4102:72:
#
# 4102 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
# opkda1.f:4156:72:
#
# 4156 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
# opkda1.f:4195:72:
#
# 4195 | DO 460 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 460 at (1)
# opkda1.f:4196:72:
#
# 4196 | 460 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 460 at (1)
# opkda1.f:4304:72:
#
# 4304 | 490 YH(I,LMAX) = ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
# opkda1.f:4320:72:
#
# 4320 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
# opkda1.f:4340:72:
#
# 4340 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:4374:72:
#
# 4374 | 600 YH(I,NEWQ+1) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
# opkda1.f:4407:72:
#
# 4407 | 645 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
# opkda1.f:4411:72:
#
# 4411 | 650 YH(I,2) = H*SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
# opkda1.f:4432:72:
#
# 4432 | 710 ACOR(I) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
# opkda1.f:4509:72:
#
# 4509 | 110 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:4513:72:
#
# 4513 | 120 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:4528:72:
#
# 4528 | 220 WM(I+J1) = (FTEM(I) - SAVF(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:4541:72:
#
# 4541 | 250 J = J + NP1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
# opkda1.f:4556:72:
#
# 4556 | 410 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkda1.f:4560:72:
#
# 4560 | 420 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
# opkda1.f:4577:72:
#
# 4577 | 530 Y(I) = Y(I) + R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:4588:72:
#
# 4588 | 540 WM(II+I) = (FTEM(I) - SAVF(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
# opkda1.f:4600:72:
#
# 4600 | 580 II = II + MEBAND
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1)
# opkda1.f:4620:72:
#
# 4620 | 10 VM = MAX(VM,ABS(V(I))*W(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:4640:72:
#
# 4640 | 10 SUM = SUM + ABS(A(I,J))/W(J)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:4670:72:
#
# 4670 | 10 SUM = SUM + ABS(A(I1-J,J))/W(J)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:4704:72:
#
# 4704 | 10 RSAV(I) = RLS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:4706:72:
#
# 4706 | 15 RSAV(LENRLS+I) = RLSA(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
# opkda1.f:4709:72:
#
# 4709 | 20 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:4711:72:
#
# 4711 | 25 ISAV(LENILS+I) = ILSA(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:4717:72:
#
# 4717 | 110 RLS(I) = RSAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:4719:72:
#
# 4719 | 115 RLSA(I) = RSAV(LENRLS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkda1.f:4722:72:
#
# 4722 | 120 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:4724:72:
#
# 4724 | 125 ILSA(I) = ISAV(LENILS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:4792:72:
#
# 4792 | 10 JROOT(I) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:4804:72:
#
# 4804 | 110 IF (ABS(G0(I)) .LE. 0.0D0) ZROOT = .TRUE.
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:4811:72:
#
# 4811 | 120 Y(I) = Y(I) + TEMP2*YH(I,2)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:4816:72:
#
# 4816 | 130 IF (ABS(G0(I)) .LE. 0.0D0) ZROOT = .TRUE.
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkda1.f:4834:72:
#
# 4834 | 210 IF (ABS(G0(I)) .LE. 0.0D0) ZROOT = .TRUE.
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:4842:72:
#
# 4842 | 220 Y(I) = Y(I) + TEMP2*YH(I,2)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:4870:72:
#
# 4870 | 320 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
# opkda1.f:5145:72:
#
# 5145 | 10 RSAV(I) = RLS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:5147:72:
#
# 5147 | 15 RSAV(LENRLS+I) = RLSA(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
# opkda1.f:5150:72:
#
# 5150 | 20 RSAV(IOFF+I) = RLSR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:5153:72:
#
# 5153 | 30 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
# opkda1.f:5155:72:
#
# 5155 | 35 ISAV(LENILS+I) = ILSA(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
# opkda1.f:5158:72:
#
# 5158 | 40 ISAV(IOFF+I) = ILSR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:5164:72:
#
# 5164 | 110 RLS(I) = RSAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:5166:72:
#
# 5166 | 115 RLSA(I) = RSAV(LENRLS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkda1.f:5169:72:
#
# 5169 | 120 RLSR(I) = RSAV(IOFF+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:5172:72:
#
# 5172 | 130 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkda1.f:5174:72:
#
# 5174 | 135 ILSA(I) = ISAV(LENILS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1)
# opkda1.f:5177:72:
#
# 5177 | 140 ILSR(I) = ISAV(IOFF+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkda1.f:5360:72:
#
# 5360 | 125 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:5382:72:
#
# 5382 | 155 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:5406:72:
#
# 5406 | DO 180 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
# opkda1.f:5407:72:
#
# 5407 | 180 YH(I,J) = YH(I,J)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:5433:72:
#
# 5433 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:5444:72:
#
# 5444 | 230 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
# opkda1.f:5461:72:
#
# 5461 | 260 ACOR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkda1.f:5469:72:
#
# 5469 | 290 Y(I) = SAVF(I) - ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
# opkda1.f:5473:72:
#
# 5473 | 300 ACOR(I) = SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
# opkda1.f:5481:72:
#
# 5481 | 360 SAVX(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
# opkda1.f:5488:72:
#
# 5488 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
# opkda1.f:5525:72:
#
# 5525 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
# opkda1.f:5560:72:
#
# 5560 | DO 470 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
# opkda1.f:5561:72:
#
# 5561 | 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
# opkda1.f:5567:72:
#
# 5567 | 490 YH(I,LMAX) = ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
# opkda1.f:5583:72:
#
# 5583 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
# opkda1.f:5603:72:
#
# 5603 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:5630:72:
#
# 5630 | 600 YH(I,NEWQ+1) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
# opkda1.f:5660:72:
#
# 5660 | 645 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
# opkda1.f:5664:72:
#
# 5664 | 650 YH(I,2) = H*SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
# opkda1.f:5685:72:
#
# 5685 | 710 ACOR(I) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
# opkda1.f:6019:72:
#
# 6019 | 10 V(I,1) = B(I)*WGHT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:6027:72:
#
# 6027 | 25 X(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:6038:72:
#
# 6038 | 50 V(I,1) = B(I)*WGHT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
# opkda1.f:6046:72:
#
# 6046 | 60 HES(I,J) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
# opkda1.f:6114:72:
#
# 6114 | 210 B(K) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:6118:72:
#
# 6118 | 220 X(K) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:6123:72:
#
# 6123 | 240 X(I) = X(I)/WGHT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
# opkda1.f:6214:72:
#
# 6214 | 10 VTEM(I) = V(I)/WGHT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:6221:72:
#
# 6221 | 20 Y(I) = Z(I) + VTEM(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:6232:72:
#
# 6232 | 40 Z(I) = VTEM(I)*WGHT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# ...TRUNCATED BY DUNE...
# opkda1.f:6853:72:
#
# 6853 | 60 P(I) = Z(I) + BETA*P(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
# opkda1.f:6862:72:
#
# 6862 | 80 PTW = PTW + P(I)*W(I)*WGHT(I)**2
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkda1.f:6946:72:
#
# 6946 | 20 Y(I) = W(I) + P(I)*RPNRM
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:6952:72:
#
# 6952 | 40 W(I) = P(I) - FAC*(WK(I) - SAVF(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:7031:72:
#
# 7031 | 20 X(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:7077:72:
#
# 7077 | 20 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:7079:72:
#
# 7079 | 40 ISAV(LENILS+I) = ILSP(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:7086:72:
#
# 7086 | 120 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:7088:72:
#
# 7088 | 140 ILSP(I) = ISAV(LENILS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkda1.f:7658:72:
#
# 7658 | 60 Y(I) = Y0(I) + HG*YDOT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
# opkda1.f:7661:72:
#
# 7661 | 70 TEMP(I) = (TEMP(I) - YDOT(I))/HG
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
# opkda1.f:7875:72:
#
# 7875 | 125 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:7897:72:
#
# 7897 | 155 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:7921:72:
#
# 7921 | DO 180 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
# opkda1.f:7922:72:
#
# 7922 | 180 YH(I,J) = YH(I,J)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:7951:72:
#
# 7951 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:7968:72:
#
# 7968 | 230 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
# opkda1.f:7995:72:
#
# 7995 | 260 ACOR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkda1.f:8003:72:
#
# 8003 | 290 Y(I) = SAVF(I) - ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
# opkda1.f:8007:72:
#
# 8007 | 300 ACOR(I) = SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
# opkda1.f:8017:72:
#
# 8017 | 360 SAVX(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
# opkda1.f:8026:72:
#
# 8026 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
# opkda1.f:8085:72:
#
# 8085 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
# opkda1.f:8126:72:
#
# 8126 | DO 470 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
# opkda1.f:8127:72:
#
# 8127 | 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
# opkda1.f:8133:72:
#
# 8133 | 490 YH(I,LMAX) = ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
# opkda1.f:8149:72:
#
# 8149 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
# opkda1.f:8169:72:
#
# 8169 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:8196:72:
#
# 8196 | 600 YH(I,NEWQ+1) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
# opkda1.f:8226:72:
#
# 8226 | 645 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
# opkda1.f:8230:72:
#
# 8230 | 650 YH(I,2) = H*SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
# opkda1.f:8251:72:
#
# 8251 | 710 ACOR(I) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
# opkda1.f:8357:72:
#
# 8357 | 20 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:8364:72:
#
# 8364 | 30 ISAV(IOFF+I) = ILSR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
# opkda1.f:8367:72:
#
# 8367 | 40 ISAV(IOFF+I) = ILSP(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:8376:72:
#
# 8376 | 120 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:8383:72:
#
# 8383 | 130 ILSR(I) = ISAV(IOFF+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkda1.f:8386:72:
#
# 8386 | 140 ILSP(I) = ISAV(IOFF+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkda1.f:8416:72:
#
# 8416 | 10 PW(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:8436:72:
#
# 8436 | 110 PW(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:8615:72:
#
# 8615 | 125 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:8636:72:
#
# 8636 | 155 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:8659:72:
#
# 8659 | DO 180 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
# opkda1.f:8660:72:
#
# 8660 | 180 YH(I,J) = YH(I,J)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:8681:72:
#
# 8681 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:8692:72:
#
# 8692 | 230 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
# opkda1.f:8716:72:
#
# 8716 | 260 ACOR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkda1.f:8730:72:
#
# 8730 | 380 Y(I) = YH(I,1) + EL1H*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
# opkda1.f:8768:72:
#
# 8768 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
# opkda1.f:8808:72:
#
# 8808 | DO 470 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
# opkda1.f:8809:72:
#
# 8809 | 470 YH(I,J) = YH(I,J) + ELJH*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
# opkda1.f:8815:72:
#
# 8815 | 490 YH(I,LMAX) = ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
# opkda1.f:8831:72:
#
# 8831 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
# opkda1.f:8851:72:
#
# 8851 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:8878:72:
#
# 8878 | 600 YH(I,NEWQ+1) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
# opkda1.f:8909:72:
#
# 8909 | 710 ACOR(I) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
# opkda1.f:8987:72:
#
# 8987 | 110 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:8991:72:
#
# 8991 | 120 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:9010:72:
#
# 9010 | 220 WM(I+J1) = (RTEM(I) - SAVR(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:9039:72:
#
# 9039 | 410 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkda1.f:9043:72:
#
# 9043 | 420 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
# opkda1.f:9063:72:
#
# 9063 | 530 Y(I) = Y(I) + R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:9076:72:
#
# 9076 | 540 WM(II+I) = (RTEM(I) - SAVR(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
# opkda1.f:9120:72:
#
# 9120 | 10 PW(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:9209:72:
#
# 9209 | 110 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:9213:72:
#
# 9213 | 120 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:9225:72:
#
# 9225 | 205 WM(2+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1)
# opkda1.f:9238:72:
#
# 9238 | 215 RTEM(I) = RTEM(I) - SAVR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1)
# opkda1.f:9249:72:
#
# 9249 | 221 WM(IPA+J2) = RTEM(IIA+J2)*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 221 at (1)
# opkda1.f:9255:72:
#
# 9255 | 222 WM(IPB+J2) = RTEM(IIB+J2)*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 222 at (1)
# opkda1.f:9262:72:
#
# 9262 | 224 WM(IPC+J2) = RTEM(IIC+J2)*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 224 at (1)
# opkda1.f:9268:72:
#
# 9268 | 226 WM(IPC+J2) = RTEM(J2)*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 226 at (1)
# opkda1.f:9275:72:
#
# 9275 | 228 WM(IPB+J2) = RTEM(IIB+J2)*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 228 at (1)
# opkda1.f:9408:72:
#
# 9408 | 80 CALL odepack_DGESL (A(1,1,K), M, M, IP(1,K), B(1,J,K), 0)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkda1.f:9551:72:
#
# 9551 | 10 RWORK(I) = RWORK(I+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:9561:72:
#
# 9561 | 30 RWORK(I+LEWTN-1) = RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
# opkda1.f:9668:72:
#
# 9668 | 25 S(I) = YH(N+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:9678:72:
#
# 9678 | 35 IWK(LIWK+I) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
# opkda1.f:9711:72:
#
# 9711 | 75 WK(LENWK1+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 75 at (1)
# opkda1.f:9735:72:
#
# 9735 | 105 WK(LENWK1+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
# opkda1.f:9771:72:
#
# 9771 | 155 SAVR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:9836:72:
#
# 9836 | 245 Y(I) = YH(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 245 at (1)
# opkda1.f:9870:72:
#
# 9870 | 270 IWK(IBR+I) = I
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
# opkda1.f:9885:72:
#
# 9885 | 280 WK(IBA+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
# opkda1.f:9987:72:
#
# 9987 | 10 WK(IBA+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:9998:72:
#
# 9998 | 15 TEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
# opkda1.f:10002:72:
#
# 10002 | 20 WK(IBA+K) = TEM(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:10008:72:
#
# 10008 | 40 TEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:10110:72:
#
# 10110 | 110 RTEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:10113:72:
#
# 10113 | 120 RTEM(I) = RTEM(I)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:10136:72:
#
# 10136 | 210 Y(JJ) = Y(JJ) + R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:10168:72:
#
# 10168 | 295 RTEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 295 at (1)
# opkda1.f:1256:72:
#
# 1256 | 1 RWORK(LACOR), IA, JA, RWORK(LWM), RWORK(LWM), IPFLAG, F, JAC)
# | 1
# Error: Type mismatch in argument 'iwk' at (1); passed REAL(8) to INTEGER(4)
# opkda1.f:9541:72:
#
# 9541 | 2 RES, JAC, ADDA)
# | 1
# Error: Type mismatch in argument 'iwk' at (1); passed REAL(8) to INTEGER(4)
# opkda2.f:630:72:
#
# 630 | IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda2.f:719:72:
#
# 719 | IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda2.f:812:72:
#
# 812 | IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda2.f:939:72:
#
# 939 | 10 ASSIGN 30 TO NEXT
# | 1
# Warning: Deleted feature: ASSIGN statement at (1)
# opkda2.f:946:20:
#
# 946 | 20 GO TO NEXT,(30, 50, 70, 110)
# | 1
# Warning: Deleted feature: Assigned GOTO statement at (1)
# opkda2.f:948:72:
#
# 948 | ASSIGN 50 TO NEXT
# | 1
# Warning: Deleted feature: ASSIGN statement at (1)
# opkda2.f:958:72:
#
# 958 | ASSIGN 70 TO NEXT
# | 1
# Warning: Deleted feature: ASSIGN statement at (1)
# opkda2.f:964:72:
#
# 964 | ASSIGN 110 TO NEXT
# | 1
# Warning: Deleted feature: ASSIGN statement at (1)
# opkda2.f:998:72:
#
# 998 | 95 SUM = SUM + DX(J)**2
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:1352:72:
#
# 1352 | 80 RWORK(I+LSAVF-1) = RWORK(I+LWM-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkdmain.f:1361:72:
#
# 1361 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:1395:72:
#
# 1395 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:1402:72:
#
# 1402 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkdmain.f:1426:72:
#
# 1426 | 130 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkdmain.f:1447:72:
#
# 1447 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:1498:72:
#
# 1498 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:1568:72:
#
# 1568 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:1638:72:
#
# 1638 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:3225:72:
#
# 3225 | 72 RWORK(J) = RWORK(J+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 72 at (1)
# opkdmain.f:3229:72:
#
# 3229 | 76 RWORK(I) = RWORK(I+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 76 at (1)
# opkdmain.f:3239:72:
#
# 3239 | 82 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 82 at (1)
# opkdmain.f:3263:72:
#
# 3263 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:3285:72:
#
# 3285 | 105 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
# opkdmain.f:3294:72:
#
# 3294 | 110 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkdmain.f:3359:72:
#
# 3359 | 130 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkdmain.f:3380:72:
#
# 3380 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:3431:72:
#
# 3431 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:3501:72:
#
# 3501 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:3586:72:
#
# 3586 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:4943:72:
#
# 4943 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:4980:72:
#
# 4980 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:4987:72:
#
# 4987 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkdmain.f:5014:72:
#
# 5014 | 130 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkdmain.f:5035:72:
#
# 5035 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:5091:72:
#
# 5091 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:5184:72:
#
# 5184 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:5272:72:
#
# 5272 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:6735:72:
#
# 6735 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:6772:72:
#
# 6772 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:6779:72:
#
# 6779 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkdmain.f:6806:72:
#
# 6806 | 130 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkdmain.f:6827:72:
#
# 6827 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:6911:72:
#
# 6911 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:7017:72:
#
# 7017 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:7108:72:
#
# 7108 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:8534:72:
#
# 8534 | 80 RWORK(I+LSAVF-1) = RWORK(I+LWM-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkdmain.f:8542:72:
#
# 8542 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:8585:72:
#
# 8585 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:8592:72:
#
# 8592 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkdmain.f:8616:72:
#
# 8616 | 130 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkdmain.f:8637:72:
#
# 8637 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:8732:72:
#
# 8732 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:8802:72:
#
# 8802 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:8885:72:
#
# 8885 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:10413:72:
#
# 10413 | 80 RWORK(I+LSAVF-1) = RWORK(I+LWM-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkdmain.f:10421:72:
#
# 10421 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:10466:72:
#
# 10466 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:10473:72:
#
# 10473 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkdmain.f:10487:72:
#
# 10487 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:10610:72:
#
# 10610 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:10693:72:
#
# 10693 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:10781:72:
#
# 10781 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:12228:72:
#
# 12228 | 80 YDOTI(I) = RWORK(I+LWM-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkdmain.f:12237:72:
#
# 12237 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:12277:72:
#
# 12277 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:12282:72:
#
# 12282 | 125 RWORK(I+LYD0-1) = YDOTI(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkdmain.f:12290:72:
#
# 12290 | 135 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1)
# opkdmain.f:12314:72:
#
# 12314 | 140 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkdmain.f:12335:72:
#
# 12335 | 190 RWORK(I+LYD0-1) = H0*RWORK(I+LYD0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:12386:72:
#
# 12386 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:12462:72:
#
# 12462 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:12561:72:
#
# 12561 | 585 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 585 at (1)
# opkdmain.f:12573:72:
#
# 12573 | 592 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 592 at (1)
# opkdmain.f:14038:72:
#
# 14038 | 80 YDOTI(I) = RWORK(I+LWM-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkdmain.f:14047:72:
#
# 14047 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:14087:72:
#
# 14087 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:14092:72:
#
# 14092 | 125 RWORK(I+LYD0-1) = YDOTI(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkdmain.f:14100:72:
#
# 14100 | 135 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1)
# opkdmain.f:14124:72:
#
# 14124 | 140 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkdmain.f:14145:72:
#
# 14145 | 190 RWORK(I+LYD0-1) = H0*RWORK(I+LYD0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:14196:72:
#
# 14196 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:14271:72:
#
# 14271 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:14369:72:
#
# 14369 | 585 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 585 at (1)
# opkdmain.f:14381:72:
#
# 14381 | 592 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 592 at (1)
# opkdmain.f:16090:72:
#
# 16090 | 72 RWORK(J) = RWORK(J+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 72 at (1)
# opkdmain.f:16094:72:
#
# 16094 | 76 RWORK(I) = RWORK(I+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 76 at (1)
# opkdmain.f:16103:72:
#
# 16103 | 82 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 82 at (1)
# opkdmain.f:16126:72:
#
# 16126 | 92 YDOTI(I) = RWORK(I+LSAVF-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 92 at (1)
# opkdmain.f:16133:72:
#
# 16133 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:16156:72:
#
# 16156 | 105 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
# opkdmain.f:16161:72:
#
# 16161 | 106 RWORK(I+LYD0-1) = YDOTI(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 106 at (1)
# opkdmain.f:16167:72:
#
# 16167 | 110 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkdmain.f:16234:72:
#
# 16234 | 140 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkdmain.f:16255:72:
#
# 16255 | 190 RWORK(I+LYD0-1) = H0*RWORK(I+LYD0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:16306:72:
#
# 16306 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:16382:72:
#
# 16382 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:16495:72:
#
# 16495 | 585 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 585 at (1)
# opkdmain.f:16507:72:
#
# 16507 | 592 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 592 at (1)
# opkdmain.f:3458:49:
#
# 1525 | 1 RWORK(LSAVF), RWORK(LACOR), RWORK(LWM), IWORK(LIWM),
# | 2
# ......
# 3458 | 1 RWORK(LSAVF), RWORK(LACOR), RWORK(LWM), RWORK(LWM),
# | 1
# Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
# opkdmain.f:16336:9:
#
# 12416 | 2 IWORK(LIWM), RES, ADDA, JAC, odepack_odepack_odepack_DPREPJI,
# | 2
# ......
# 16336 | 2 RWORK(LWM), RES, ADDA, JAC, odepack_DPRJIS, odepack_DSOLSS )
# | 1
# Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
<><> Error report <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
+- The following actions failed
| - build odepack 0.6.9
+-
+- The following changes have been performed
| - install base-bytes base
| - install conf-gfortran 0
| - install csexp 1.5.2
| - install dune-configurator 3.21.0~alpha2
| - install ocamlfind 1.9.8
+-
# To update the current shell environment, run: eval $(opam env)
The former state can be restored with:
/usr/bin/opam switch import "/home/opam/.opam/5.4/.opam-switch/backup/state-20251209180015.export"
[WARNING] OPAMCONFIRMLEVEL was ignored because CLI 2.0 was requested and it was introduced in 2.1.
[WARNING] OPAMCONFIRMLEVEL was ignored because CLI 2.0 was requested and it was introduced in 2.1.
"/usr/bin/env" "bash" "-c" "opam reinstall odepack.0.6.9;
res=$?;
test "$res" != 31 && exit "$res";
export OPAMCLI=2.0;
build_dir=$(opam var prefix)/.opam-switch/build;
failed=$(ls "$build_dir");
partial_fails="";
for pkg in $failed; do
if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.";
fi;
test "$pkg" != 'odepack.0.6.9' && partial_fails="$partial_fails $pkg";
done;
test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}";
exit 1" failed with exit status 1
2025-12-09 18:00.58: Job failed: Failed: Build failed
2025-12-09 18:00.58: Log analysis:
2025-12-09 18:00.58: >>>
[ERROR] The compilation of odepack.0.6.9 failed at "dune build -p odepack -j 71".
(score = 20)
2025-12-09 18:00.58: >>>
# Error: Type mismatch in argument 'iwk' at (1); passed REAL(8) to INTEGER(4)
(score = 48)
2025-12-09 18:00.58: >>>
# Error: Type mismatch in argument 'iwk' at (1); passed REAL(8) to INTEGER(4)
(score = 48)
2025-12-09 18:00.58: >>>
# Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
(score = 48)
2025-12-09 18:00.58: >>>
# Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
(score = 48)
2025-12-09 18:00.58: Type mismatch in argument 'iwk' at (1); passed REAL(8) to INTEGER(4)