Building on asteria.caelum.ci.dev
(from ocaml/opam:debian-unstable)
2024-07-01 11:33.05 ---> using "0acd5aeaa8f7bc314514d9795d14a7f12ec72a6a5b11c5904350189734c6859b" from cache
/: (user (uid 1000) (gid 1000))
/: (env OPAMPRECISETRACKING 1)
/: (env OPAMUTF8 never)
/: (env OPAMEXTERNALSOLVER builtin-0install)
/: (env OPAMCRITERIA +removed)
/: (run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
2024-07-01 11:33.05 ---> using "65c3237f501f7c75f3828458ecf2342bc41c98aaef8c6a7fd82bf46a58cb258c" from cache
/: (run (network host)
(shell "rm -rf ~/opam-repository && git clone -q 'https://github.com/ocaml/opam-repository' ~/opam-repository && git -C ~/opam-repository checkout -q 3bcb45c36ed254e850b498bff678e3e5848b23e1"))
2024-07-01 11:33.05 ---> using "3d0bfbfa177ca2531fcfa9e2869627278a2c31cf290ac589bbf0639aba3b017c" from cache
/: (run (shell "rm -rf ~/.opam && opam init -ya --bare --config ~/.opamrc-sandbox ~/opam-repository"))
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.
<><> Fetching repository information ><><><><><><><><><><><><><><><><><><><><><>
[default] Initialised
User configuration:
~/.profile is already up-to-date.
[NOTE] Make sure that ~/.profile is well sourced in your ~/.bashrc.
2024-07-01 11:33.05 ---> using "5dff26d510618c1d48fe6b00f268416e83e2cb4c80c378ed525d97eb709030a0" from cache
/: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam switch create --repositories=default '5.2' '5.2.0'"))
<><> Installing new switch packages <><><><><><><><><><><><><><><><><><><><><><>
Switch invariant: ["ocaml-base-compiler" {= "5.2.0"} | "ocaml-system" {= "5.2.0"}]
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved ocaml-config.3 (cached)
-> installed base-bigarray.base
-> installed base-threads.base
-> installed base-unix.base
-> installed host-arch-x86_64.1
-> installed host-system-other.1
-> installed ocaml-options-vanilla.1
-> retrieved ocaml-base-compiler.5.2.0 (cached)
-> installed ocaml-base-compiler.5.2.0
-> installed ocaml-config.3
-> installed ocaml.5.2.0
-> installed base-domains.base
-> installed base-nnp.base
Done.
# Run eval $(opam env --switch=5.2) to update the current shell environment
2024-07-01 11:33.05 ---> using "94b269842f3dfb0b3e258d96ed8fd8903115e1a3e34c23c534e7fcc31621f08f" from cache
/: (run (network host)
(shell "opam update --depexts"))
+ /usr/bin/sudo "apt-get" "update"
- Get:1 http://deb.debian.org/debian unstable InRelease [198 kB]
- Get:2 http://deb.debian.org/debian unstable/main amd64 Packages.diff/Index [63.6 kB]
- Get:3 http://deb.debian.org/debian unstable/main amd64 Packages T-2024-06-30-1411.31-F-2024-06-27-0211.32.pdiff [248 kB]
- Get:3 http://deb.debian.org/debian unstable/main amd64 Packages T-2024-06-30-1411.31-F-2024-06-27-0211.32.pdiff [248 kB]
- Fetched 510 kB in 2s (288 kB/s)
- Reading package lists...
-
2024-07-01 11:33.05 ---> using "91fb7e04ea7bdcb35e50fba309604fa43ac7fa6672935838eb7bdab577e0e0ad" from cache
/: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "\
\nopam remove -y \"odepack.0.6.9\"\
\nopam install -vy \"odepack.0.6.9\"\
\nres=$?\
\nif [ $res = 31 ]; then\
\n if opam show -f x-ci-accept-failures: \"odepack.0.6.9\" | grep -q '\"debian-unstable\"'; then\
\n echo \"This package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\"\
\n exit 69\
\n fi\
\nfi\
\n\
\n\
\nexit $res\
\n"))
Nothing to do.
[NOTE] odepack.0.6.9 is not installed.
The following actions will be performed:
=== install 7 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 3.16.0 [required by odepack]
- install dune-configurator 3.16.0 [required by odepack]
- install ocamlfind 1.9.6 [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"
- debconf: delaying package configuration, since apt-utils is not installed
- 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 ... 19416 files and directories currently installed.)
- Preparing to unpack .../0-libgfortran5_14.1.0-2_amd64.deb ...
- Unpacking libgfortran5:amd64 (14.1.0-2) ...
- Selecting previously unselected package libgfortran-13-dev:amd64.
- Preparing to unpack .../1-libgfortran-13-dev_13.3.0-1_amd64.deb ...
- Unpacking libgfortran-13-dev:amd64 (13.3.0-1) ...
- Selecting previously unselected package gfortran-13-x86-64-linux-gnu.
- Preparing to unpack .../2-gfortran-13-x86-64-linux-gnu_13.3.0-1_amd64.deb ...
- Unpacking gfortran-13-x86-64-linux-gnu (13.3.0-1) ...
- Selecting previously unselected package gfortran-13.
- Preparing to unpack .../3-gfortran-13_13.3.0-1_amd64.deb ...
- Unpacking gfortran-13 (13.3.0-1) ...
- Selecting previously unselected package gfortran-x86-64-linux-gnu.
- Preparing to unpack .../4-gfortran-x86-64-linux-gnu_4%3a13.2.0-7_amd64.deb ...
- Unpacking gfortran-x86-64-linux-gnu (4:13.2.0-7) ...
- Selecting previously unselected package gfortran.
- Preparing to unpack .../5-gfortran_4%3a13.2.0-7_amd64.deb ...
- Unpacking gfortran (4:13.2.0-7) ...
- Setting up libgfortran5:amd64 (14.1.0-2) ...
- Setting up libgfortran-13-dev:amd64 (13.3.0-1) ...
- Setting up gfortran-13-x86-64-linux-gnu (13.3.0-1) ...
- Setting up gfortran-13 (13.3.0-1) ...
- Setting up gfortran-x86-64-linux-gnu (4:13.2.0-7) ...
- Setting up gfortran (4:13.2.0-7) ...
- 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.38-13) ...
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Processing 3/20: [csexp.1.5.2: extract]
Processing 4/20: [csexp.1.5.2: extract] [dune.3.16.0, dune-configurator.3.16.0: extract]
Processing 5/20: [csexp.1.5.2: extract] [dune.3.16.0, dune-configurator.3.16.0: extract] [ocamlfind.1.9.6: extract]
Processing 6/20: [csexp.1.5.2: extract] [dune.3.16.0, dune-configurator.3.16.0: extract] [ocamlfind.1.9.6: extract] [conf-gfortran: gfortran]
-> retrieved csexp.1.5.2 (cached)
Processing 6/20: [dune.3.16.0, dune-configurator.3.16.0: extract] [ocamlfind.1.9.6: extract] [conf-gfortran: gfortran]
Processing 7/20: [dune.3.16.0, dune-configurator.3.16.0: extract] [ocamlfind.1.9.6: extract] [odepack.0.6.9: extract] [conf-gfortran: gfortran]
-> retrieved ocamlfind.1.9.6 (cached)
Processing 7/20: [dune.3.16.0, dune-configurator.3.16.0: extract] [odepack.0.6.9: extract] [conf-gfortran: gfortran]
[ocamlfind: patch] applying 0001-Harden-test-for-OCaml-5.patch
Processing 8/20: [dune.3.16.0, dune-configurator.3.16.0: extract] [odepack.0.6.9: extract] [conf-gfortran: gfortran] [ocamlfind: patch]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "gfortran" "--version" (CWD=/home/opam/.opam/5.2/.opam-switch/build/conf-gfortran.0)
- GNU Fortran (Debian 13.3.0-1) 13.3.0
- Copyright (C) 2023 Free Software Foundation, Inc.
- This is free software; see the source for copying conditions. There is NO
- warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
-> compiled conf-gfortran.0
Processing 8/20: [dune.3.16.0, dune-configurator.3.16.0: extract] [odepack.0.6.9: extract] [ocamlfind: patch]
-> installed conf-gfortran.0
Processing 9/20: [dune.3.16.0, dune-configurator.3.16.0: extract] [odepack.0.6.9: extract] [ocamlfind: patch]
-> retrieved odepack.0.6.9 (cached)
Processing 9/20: [dune.3.16.0, dune-configurator.3.16.0: extract] [ocamlfind: patch]
Processing 9/20: [dune.3.16.0, dune-configurator.3.16.0: extract] [ocamlfind: ./configure]
-> retrieved dune.3.16.0, dune-configurator.3.16.0 (cached)
Processing 9/20: [ocamlfind: ./configure]
Processing 10/20: [dune: ocaml 255] [ocamlfind: ./configure]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "./configure" "-bindir" "/home/opam/.opam/5.2/bin" "-sitelib" "/home/opam/.opam/5.2/lib" "-mandir" "/home/opam/.opam/5.2/man" "-config" "/home/opam/.opam/5.2/lib/findlib.conf" "-no-custom" "-no-camlp4" (CWD=/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6)
- Welcome to findlib version 1.9.6
- Configuring core...
- Checking for #remove_directory...
- Testing threading model...
- systhread_supported: true
- Testing DLLs...
- Testing whether ppxopt can be supported...
- Checking for ocamlc -opaque...
- Checking for ocamlopt -g...
- Configuring libraries...
- unix: found (in +unix)
- dynlink: found (in +dynlink)
- bigarray: not present (possible since 4.08)
- compiler-libs: found
- dbm: not present (normal since 4.00)
- graphics: not present (normal since 4.09)
- num: not present (normal since 4.06)
- ocamlbuild: not present (normal since 4.03)
- ocamldoc: found (in +ocamldoc)
- raw_spacetime: not present (normal since 4.12)
- threads: found (in +threads)
- str: found (in +str)
- labltk: not present (normal since 4.02)
- native dynlink: found
- camlp4: disabled
- bytes: found, installing fake library
- Configuration for bytes written to site-lib-src/bytes/META
- Detecting compiler arguments: (extractor built) ok
-
- About the OCAML core installation:
- Standard library: /home/opam/.opam/5.2/lib/ocaml
- Binaries: /home/opam/.opam/5.2/bin
- Manual pages: /home/opam/.opam/5.2/man
- Multi-threading type: posix
- The directory of site-specific packages will be
- site-lib: /home/opam/.opam/5.2/lib
- The configuration file is written to:
- findlib config file: /home/opam/.opam/5.2/lib/findlib.conf
- Software will be installed:
- Libraries: in <site-lib>/findlib
- Binaries: /home/opam/.opam/5.2/bin
- Manual pages: /home/opam/.opam/5.2/man
- topfind script: /home/opam/.opam/5.2/lib/ocaml
- Topfind ppxopt support: yes
- Toolbox: no
- Link custom runtime: no
- Need bytes compatibility: no
-
- Configuration has been written to Makefile.config
-
- You can now do 'make all', and optionally 'make opt', to build ocamlfind.
Processing 10/20: [dune: ocaml 255] [ocamlfind: make all]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "make" "all" (CWD=/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6)
- for p in findlib; do ( cd src/$p; make all ) || exit; done
- make[1]: Entering directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
- ocamllex fl_meta.mll
- 22 states, 392 transitions, table size 1700 bytes
- USE_CYGPATH="0"; \
- export USE_CYGPATH; \
- cat findlib_config.mlp | \
- ../../tools/patch '@CONFIGFILE@' '/home/opam/.opam/5.2/lib/findlib.conf' | \
- ../../tools/patch '@STDLIB@' '/home/opam/.opam/5.2/lib/ocaml' | \
- sed -e 's;@AUTOLINK@;true;g' \
- -e 's;@SYSTEM@;linux;g' \
- >findlib_config.ml
- if [ "true" = "true" ]; then \
- cp topfind.ml.in topfind.ml; \
- else \
- sed -e '/PPXOPT_BEGIN/,/PPXOPT_END/ d' topfind.ml.in \
- > topfind.ml ; \
- fi
- ocamldep *.ml *.mli >depend
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c findlib_config.ml
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c fl_split.ml
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c fl_metatoken.ml
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c fl_meta.ml
- ocamlc -I +compiler-libs -I +unix -I +dynlink -c fl_metascanner.mli
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c fl_metascanner.ml
- ocamlc -I +compiler-libs -I +unix -I +dynlink -c fl_topo.mli
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c fl_topo.ml
- ocamlc -I +compiler-libs -I +unix -I +dynlink -c fl_package_base.mli
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c fl_package_base.ml
- File "fl_package_base.ml", line 304, characters 22-40:
- 304 | let pkg_ancestors = query_requirements predlist pkg in
- ^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
-
- File "fl_package_base.ml", line 350, characters 18-36:
- 350 | let ancestors = query_requirements predlist package_name in
- ^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
-
- File "fl_package_base.ml", line 375, characters 23-41:
- 375 | let pkg_ancestors = query_requirements predlist pkg in
- ^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
-
- File "fl_package_base.ml", line 510, characters 16-35:
- 510 | ( let c = package_definitions search_path pkg.package_name in
- ^^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label search_path was omitted in the application of this function.
- ocamlc -I +compiler-libs -I +unix -I +dynlink -c findlib.mli
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c findlib.ml
- File "findlib.ml", line 390, characters 2-26:
- 390 | Fl_package_base.requires predlist pkg
- ^^^^^^^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
-
- File "findlib.ml", line 396, characters 2-33:
- 396 | Fl_package_base.requires_deeply predlist pkglist
- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c fl_args.ml
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c fl_lint.ml
- ocamlc -I +compiler-libs -a -o findlib.cma findlib_config.cmo fl_split.cmo fl_metatoken.cmo fl_meta.cmo fl_metascanner.cmo fl_topo.cmo fl_package_base.cmo findlib.cmo fl_args.cmo fl_lint.cmo
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c ocaml_args.ml
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c frontend.ml
- File "frontend.ml", line 859, characters 10-39:
- 859 | Fl_package_base.package_users predicates1 packages1
- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
- ocamlc -I +compiler-libs -o ocamlfind -g findlib.cma unix.cma \
- -I +unix -I +dynlink ocaml_args.cmo frontend.cmo
- ocamlc -I +compiler-libs -I +unix -I +dynlink -c topfind.mli
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c topfind.ml
- File "topfind.ml", line 128, characters 40-63:
- 128 | match Hashtbl.find Toploop.directive_table "ppx" with
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 258, characters 4-27:
- 258 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 268, characters 4-27:
- 268 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 280, characters 4-27:
- 280 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 293, characters 4-27:
- 293 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 307, characters 4-27:
- 307 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 319, characters 4-27:
- 319 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
- ocamlc -I +compiler-libs -a -o findlib_top.cma topfind.cmo
- USE_CYGPATH="0"; \
- export USE_CYGPATH; \
- cat topfind_rd1.p | \
- ../../tools/patch '@SITELIB@' '/home/opam/.opam/5.2/lib' \
- >topfind
- ocamlc -I +compiler-libs -I +unix -I +dynlink -c fl_dynload.mli
- ocamlc -I +compiler-libs -I +unix -I +dynlink -g -c fl_dynload.ml
- ocamlc -I +compiler-libs -a -o findlib_dynload.cma fl_dynload.cmo
- make[1]: Leaving directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
- make all-config
- make[1]: Entering directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6'
- USE_CYGPATH="0"; \
- export USE_CYGPATH; \
- cat findlib.conf.in | \
- tools/patch '@SITELIB@' '/home/opam/.opam/5.2/lib' | \
- tools/patch '@FINDLIB_PATH@' '/home/opam/.opam/5.2/lib/ocaml:/home/opam/.opam/5.2/lib' -p >findlib.conf
- if ./tools/cmd_from_same_dir ocamlc; then \
- echo 'ocamlc="ocamlc.opt"' >>findlib.conf; \
- fi
- if ./tools/cmd_from_same_dir ocamlopt; then \
- echo 'ocamlopt="ocamlopt.opt"' >>findlib.conf; \
- fi
- if ./tools/cmd_from_same_dir ocamldep; then \
- echo 'ocamldep="ocamldep.opt"' >>findlib.conf; \
- fi
- if ./tools/cmd_from_same_dir ocamldoc; then \
- echo 'ocamldoc="ocamldoc.opt"' >>findlib.conf; \
- fi
- make[1]: Leaving directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6'
Processing 10/20: [dune: ocaml 255] [ocamlfind: make opt]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "make" "opt" (CWD=/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6)
- for p in findlib; do ( cd src/$p; make opt ) || exit; done
- make[1]: Entering directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c findlib_config.ml
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c fl_split.ml
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c fl_metatoken.ml
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c fl_meta.ml
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c fl_metascanner.ml
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c fl_topo.ml
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c fl_package_base.ml
- File "fl_package_base.ml", line 304, characters 22-40:
- 304 | let pkg_ancestors = query_requirements predlist pkg in
- ^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
-
- File "fl_package_base.ml", line 350, characters 18-36:
- 350 | let ancestors = query_requirements predlist package_name in
- ^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
-
- File "fl_package_base.ml", line 375, characters 23-41:
- 375 | let pkg_ancestors = query_requirements predlist pkg in
- ^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
-
- File "fl_package_base.ml", line 510, characters 16-35:
- 510 | ( let c = package_definitions search_path pkg.package_name in
- ^^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label search_path was omitted in the application of this function.
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c findlib.ml
- File "findlib.ml", line 390, characters 2-26:
- 390 | Fl_package_base.requires predlist pkg
- ^^^^^^^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
-
- File "findlib.ml", line 396, characters 2-33:
- 396 | Fl_package_base.requires_deeply predlist pkglist
- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c fl_args.ml
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c fl_lint.ml
- ocamlopt -I +compiler-libs -a -o findlib.cmxa findlib_config.cmx fl_split.cmx fl_metatoken.cmx fl_meta.cmx fl_metascanner.cmx fl_topo.cmx fl_package_base.cmx findlib.cmx fl_args.cmx fl_lint.cmx
- if [ 1 -gt 0 ]; then \
- ocamlopt -I +compiler-libs -shared -o findlib.cmxs findlib_config.cmx fl_split.cmx fl_metatoken.cmx fl_meta.cmx fl_metascanner.cmx fl_topo.cmx fl_package_base.cmx findlib.cmx fl_args.cmx fl_lint.cmx; \
- fi
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c ocaml_args.ml
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c frontend.ml
- File "frontend.ml", line 859, characters 10-39:
- 859 | Fl_package_base.package_users predicates1 packages1
- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
- Warning 6 [labels-omitted]: label preds was omitted in the application of this function.
- ocamlopt -I +compiler-libs -o ocamlfind_opt findlib.cmxa unix.cmxa \
- -I +unix -I +dynlink ocaml_args.cmx frontend.cmx
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c topfind.ml
- File "topfind.ml", line 128, characters 40-63:
- 128 | match Hashtbl.find Toploop.directive_table "ppx" with
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 258, characters 4-27:
- 258 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 268, characters 4-27:
- 268 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 280, characters 4-27:
- 280 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 293, characters 4-27:
- 293 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 307, characters 4-27:
- 307 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
-
- File "topfind.ml", line 319, characters 4-27:
- 319 | Toploop.directive_table
- ^^^^^^^^^^^^^^^^^^^^^^^
- Alert deprecated: Toploop.directive_table
- ocamlopt -I +compiler-libs -a -o findlib_top.cmxa topfind.cmx
- if [ 1 -gt 0 ]; then \
- ocamlopt -I +compiler-libs -shared -o findlib_top.cmxs topfind.cmx; \
- fi
- ocamlopt -I +compiler-libs -I +unix -I +dynlink -c fl_dynload.ml
- ocamlopt -I +compiler-libs -a -o findlib_dynload.cmxa fl_dynload.cmx
- if [ 1 -gt 0 ]; then \
- ocamlopt -I +compiler-libs -shared -o findlib_dynload.cmxs fl_dynload.cmx; \
- fi
- make[1]: Leaving directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
-> compiled ocamlfind.1.9.6
Processing 10/20: [dune: ocaml 255]
Processing 11/20: [dune: ocaml 255] [ocamlfind: make install]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "install" "make" "install" (CWD=/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6)
- if [ "0" -eq 1 ]; then \
- for x in camlp4 dbm graphics labltk num ocamlbuild; do \
- if [ -f "/home/opam/.opam/5.2/lib/$x/META" ]; then \
- if ! grep -Fq '[distributed with Ocaml]' "//home/opam/.opam/5.2/lib/$x/META"; then \
- rm -f site-lib-src/$x/META; \
- fi; \
- fi; \
- done; \
- test -f "site-lib-src/num/META" || rm -f "site-lib-src/num-top/META"; \
- fi
- echo 'SITELIB_META =' > Makefile.packages.in
- for x in `ls site-lib-src`; do test ! -f "site-lib-src/$x/META" || echo $x >> Makefile.packages.in; done
- tr '\n' ' ' < Makefile.packages.in > Makefile.packages
- rm Makefile.packages.in
- install -d "/home/opam/.opam/5.2/bin"
- install -d "/home/opam/.opam/5.2/man"
- make install-config
- make[1]: Entering directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6'
- install -d "`dirname \"/home/opam/.opam/5.2/lib/findlib.conf\"`"
- test -f "/home/opam/.opam/5.2/lib/findlib.conf" || install -c findlib.conf "/home/opam/.opam/5.2/lib/findlib.conf"
- make[1]: Leaving directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6'
- for p in findlib; do ( cd src/$p; make install ); done
- make[1]: Entering directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
- install -d "/home/opam/.opam/5.2/lib/findlib"
- install -d "/home/opam/.opam/5.2/bin"
- test 1 -eq 0 || install -d "/home/opam/.opam/5.2/lib/ocaml"
- test 1 -eq 0 || install -c topfind "/home/opam/.opam/5.2/lib/ocaml/"
- files=` ../../tools/collect_files ../../Makefile.config \
- findlib.cmi findlib.mli findlib.cma findlib.cmxa findlib.a findlib.cmxs \
- findlib_config.cmi findlib_config.ml topfind.cmi topfind.mli \
- fl_args.cmi fl_lint.cmi fl_meta.cmi fl_split.cmi fl_topo.cmi ocaml_args.cmi \
- fl_package_base.mli fl_package_base.cmi fl_metascanner.mli fl_metascanner.cmi \
- fl_metatoken.cmi findlib_top.cma findlib_top.cmxa findlib_top.a findlib_top.cmxs \
- findlib_dynload.cma findlib_dynload.cmxa findlib_dynload.a findlib_dynload.cmxs fl_dynload.mli fl_dynload.cmi \
- META` && \
- install -c $files "/home/opam/.opam/5.2/lib/findlib/"
- f="ocamlfind"; { test -f ocamlfind_opt && f="ocamlfind_opt"; }; \
- install -c $f "/home/opam/.opam/5.2/bin/ocamlfind"
- # the following "if" block is only needed for 4.00beta2
- if [ 1 -eq 0 -a -f "/home/opam/.opam/5.2/lib/ocaml/compiler-libs/topdirs.cmi" ]; then \
- cd "/home/opam/.opam/5.2/lib/ocaml/compiler-libs/"; \
- install -c topdirs.cmi toploop.cmi "/home/opam/.opam/5.2/lib/findlib/"; \
- fi
- make[1]: Leaving directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
- make install-meta
- make[1]: Entering directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6'
- for x in bytes ; do install -d "/home/opam/.opam/5.2/lib/$x"; install -c site-lib-src/$x/META "/home/opam/.opam/5.2/lib/$x/META.tmp" && mv "/home/opam/.opam/5.2/lib/$x/META.tmp" "/home/opam/.opam/5.2/lib/$x/META"; done
- install -d "/home/opam/.opam/5.2/lib/findlib"; install -c Makefile.packages "/home/opam/.opam/5.2/lib/findlib/Makefile.packages"
- make[1]: Leaving directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6'
- test ! -f 'site-lib-src/num-top/META' || { cd src/findlib; make install-num-top; }
- test ! -f 'site-lib-src/camlp4/META' || install -c tools/safe_camlp4 "/home/opam/.opam/5.2/bin"
- make install-doc
- make[1]: Entering directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6'
- install -d "/home/opam/.opam/5.2/man/man1" "/home/opam/.opam/5.2/man/man3" "/home/opam/.opam/5.2/man/man5"
- install -c doc/ref-man/ocamlfind.1 "/home/opam/.opam/5.2/man/man1"
- install -c doc/ref-man/META.5 doc/ref-man/site-lib.5 doc/ref-man/findlib.conf.5 "/home/opam/.opam/5.2/man/man5"
- make[1]: Leaving directory '/home/opam/.opam/5.2/.opam-switch/build/ocamlfind.1.9.6'
-> installed ocamlfind.1.9.6
Processing 11/20: [dune: ocaml 255]
Processing 12/20: [dune: ocaml 255]
-> installed base-bytes.base
Processing 13/20: [dune: ocaml 255]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "ocaml" "boot/bootstrap.ml" "-j" "255" (CWD=/home/opam/.opam/5.2/.opam-switch/build/dune.3.16.0)
- ocamlc -output-complete-exe -w -24 -g -o .duneboot.exe -I boot -I +unix unix.cma boot/libs.ml boot/duneboot.ml
- ./.duneboot.exe -j 255
- cd _boot && /home/opam/.opam/5.2/bin/ocamlopt.opt -c -g -no-alias-deps -w -49-6 -alert -unstable -I +unix -I +threads stdune.ml
- File "otherlibs/stdune/src/stdune.ml", line 1, characters 4-9:
- Warning 53 [misplaced-attribute]: the "alert" attribute cannot appear in this context
-
Processing 13/20: [dune: ./_boot/dune.exe build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "./_boot/dune.exe" "build" "dune.install" "--release" "--profile" "dune-bootstrap" "-j" "255" (CWD=/home/opam/.opam/5.2/.opam-switch/build/dune.3.16.0)
-> compiled dune.3.16.0
-> installed dune.3.16.0
Processing 15/20: [csexp: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "csexp" "-j" "255" "@install" (CWD=/home/opam/.opam/5.2/.opam-switch/build/csexp.1.5.2)
- (cd _build/default && /home/opam/.opam/5.2/bin/ocamlc.opt -w -40 -g -bin-annot -bin-annot-occurrences -I src/.csexp.objs/byte -intf-suffix .ml -no-alias-deps -o src/.csexp.objs/byte/csexp.cmo -c -impl src/csexp.ml)
- File "src/csexp.ml", line 236, characters 7-14:
- 236 | [@@inlined always]
- ^^^^^^^
- Warning 53 [misplaced-attribute]: the "inlined" attribute cannot appear in this context
- (cd _build/default && /home/opam/.opam/5.2/bin/ocamlopt.opt -w -40 -g -I src/.csexp.objs/byte -I src/.csexp.objs/native -intf-suffix .ml -no-alias-deps -o src/.csexp.objs/native/csexp.cmx -c -impl src/csexp.ml)
- File "src/csexp.ml", line 236, characters 7-14:
- 236 | [@@inlined always]
- ^^^^^^^
- Warning 53 [misplaced-attribute]: the "inlined" attribute cannot appear in this context
-> compiled csexp.1.5.2
-> installed csexp.1.5.2
Processing 17/20: [dune-configurator: rm]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "rm" "-rf" "vendor/csexp" (CWD=/home/opam/.opam/5.2/.opam-switch/build/dune-configurator.3.16.0)
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "rm" "-rf" "vendor/pp" (CWD=/home/opam/.opam/5.2/.opam-switch/build/dune-configurator.3.16.0)
Processing 17/20: [dune-configurator: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "dune-configurator" "-j" "255" "@install" (CWD=/home/opam/.opam/5.2/.opam-switch/build/dune-configurator.3.16.0)
-> compiled dune-configurator.3.16.0
-> installed dune-configurator.3.16.0
Processing 19/20: [odepack: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "odepack" "-j" "255" (CWD=/home/opam/.opam/5.2/.opam-switch/build/odepack.0.6.9)
- 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] The compilation of odepack.0.6.9 failed at "dune build -p odepack -j 255".
#=== ERROR while compiling odepack.0.6.9 ======================================#
# context 2.2.0~rc1 | linux/x86_64 | ocaml-base-compiler.5.2.0 | file:///home/opam/opam-repository
# path ~/.opam/5.2/.opam-switch/build/odepack.0.6.9
# command ~/.opam/opam-init/hooks/sandbox.sh build dune build -p odepack -j 255
# exit-code 1
# env-file ~/.opam/log/odepack-8-17365a.env
# output-file ~/.opam/log/odepack-8-17365a.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 3.16.0
| - install dune-configurator 3.16.0
| - install ocamlfind 1.9.6
+-
# Run eval $(opam env) to update the current shell environment
The former state can be restored with:
/usr/bin/opam switch import "/home/opam/.opam/5.2/.opam-switch/backup/state-20240701113306.export"
'opam install -vy odepack.0.6.9' failed.
"/usr/bin/env" "bash" "-c" "
opam remove -y "odepack.0.6.9"
opam install -vy "odepack.0.6.9"
res=$?
if [ $res = 31 ]; then
if opam show -f x-ci-accept-failures: "odepack.0.6.9" | grep -q '"debian-unstable"'; then
echo "This package failed and has been disabled for CI using the 'x-ci-accept-failures' field."
exit 69
fi
fi
exit $res
" failed with exit status 31
Failed: Build failed
Home|Differences with the last checks|Previous runs