Building on x86-bm-c1.sw.ocaml.org
(from ocaml/opam:debian-unstable)
Unable to find image 'ocaml/opam:debian-unstable' locally
debian-unstable: Pulling from ocaml/opam
ef2933d1afaf: Pulling fs layer
ef2933d1afaf: Verifying Checksum
ef2933d1afaf: Download complete
ef2933d1afaf: Pull complete
Digest: sha256:38af8268f3f7cade696a3f900b2f886e5e9739e9be7dba4734087d5abcda5859
Status: Downloaded newer image for ocaml/opam:debian-unstable
2024-02-25 23:43.56 ---> 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-02-25 23:43.56 ---> 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 2a02a17fca7c0ba16208c9648957e82b716caae1"))
2024-02-25 23:43.56 ---> using "c7869af31cb9633260f23d7300aa991fcb38a1f2e661dad0b3c0754c87ebe887" 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-02-25 23:43.56 ---> using "78086396efc7bc2ab0e6d8aff93a8dfeb3805e49d39b088cb5e6ef696a6d7256" from cache
/: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam switch create --repositories=default '4.11' '4.11.2'"))
<><> Installing new switch packages <><><><><><><><><><><><><><><><><><><><><><>
Switch invariant: ["ocaml-base-compiler" {= "4.11.2"} | "ocaml-system" {= "4.11.2"}]
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> installed base-bigarray.base
-> installed base-threads.base
-> installed base-unix.base
-> retrieved ocaml-base-compiler.4.11.2 (cached)
-> installed ocaml-base-compiler.4.11.2
-> installed ocaml-config.1
-> installed ocaml.4.11.2
Done.
# Run eval $(opam env --switch=4.11) to update the current shell environment
2024-02-25 23:49.42 ---> saved as "0d85e08ec1e236503e11c16fd3e8af3a17624589531cdbc6f75a25fba4ddd364"
/: (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-02-25-2007.56-F-2024-02-23-2016.30.pdiff [96.8 kB]
- Get:3 http://deb.debian.org/debian unstable/main amd64 Packages T-2024-02-25-2007.56-F-2024-02-23-2016.30.pdiff [96.8 kB]
- Fetched 358 kB in 5s (68.8 kB/s)
- Reading package lists...
-
2024-02-25 23:49.50 ---> saved as "2738eecbe2fbfa84acccf5ef7b9483110f21c1ff1467a6a984320d51f11caf4d"
/: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "\
\nopam remove -y \"odepack.0.7\"\
\nopam install -vy \"odepack.0.7\"\
\nres=$?\
\nif [ $res = 31 ]; then\
\n if opam show -f x-ci-accept-failures: \"odepack.0.7\" | 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"))
[NOTE] odepack.0.7 is not installed.
Nothing to do.
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.14.0 [required by odepack]
- install dune-configurator 3.14.0 [required by odepack]
- install ocamlfind 1.9.6 [required by base-bytes]
- install odepack 0.7
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 ... 19849 files and directories currently installed.)
- Preparing to unpack .../0-libgfortran5_14-20240201-3_amd64.deb ...
- Unpacking libgfortran5:amd64 (14-20240201-3) ...
- Selecting previously unselected package libgfortran-13-dev:amd64.
- Preparing to unpack .../1-libgfortran-13-dev_13.2.0-13_amd64.deb ...
- Unpacking libgfortran-13-dev:amd64 (13.2.0-13) ...
- Selecting previously unselected package gfortran-13-x86-64-linux-gnu.
- Preparing to unpack .../2-gfortran-13-x86-64-linux-gnu_13.2.0-13_amd64.deb ...
- Unpacking gfortran-13-x86-64-linux-gnu (13.2.0-13) ...
- Selecting previously unselected package gfortran-13.
- Preparing to unpack .../3-gfortran-13_13.2.0-13_amd64.deb ...
- Unpacking gfortran-13 (13.2.0-13) ...
- 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-20240201-3) ...
- Setting up libgfortran-13-dev:amd64 (13.2.0-13) ...
- Setting up gfortran-13-x86-64-linux-gnu (13.2.0-13) ...
- Setting up gfortran-13 (13.2.0-13) ...
- 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.37-15) ...
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Processing 3/20:
Processing 4/20:
Processing 5/20:
Processing 6/20: [conf-gfortran: gfortran]
-> retrieved csexp.1.5.2 (cached)
Processing 7/20: [conf-gfortran: gfortran]
-> retrieved ocamlfind.1.9.6 (cached)
[ocamlfind: patch] applying 0001-Harden-test-for-OCaml-5.patch
Processing 8/20: [conf-gfortran: gfortran] [ocamlfind: patch]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "gfortran" "--version" (CWD=/home/opam/.opam/4.11/.opam-switch/build/conf-gfortran.0)
- GNU Fortran (Debian 13.2.0-13) 13.2.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: [ocamlfind: patch]
-> installed conf-gfortran.0
Processing 9/20: [ocamlfind: patch]
-> retrieved odepack.0.7 (cached)
Processing 9/20: [ocamlfind: ./configure]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "./configure" "-bindir" "/home/opam/.opam/4.11/bin" "-sitelib" "/home/opam/.opam/4.11/lib" "-mandir" "/home/opam/.opam/4.11/man" "-config" "/home/opam/.opam/4.11/lib/findlib.conf" "-no-custom" "-no-camlp4" (CWD=/home/opam/.opam/4.11/.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...
- Querying installation: META list not found
- make install will double-check installed META files
- Configuring libraries...
- unix: found
- dynlink: found
- bigarray: found
- 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: found
- threads: found (in +threads)
- str: found
- labltk: not present (normal since 4.02)
- native dynlink: found
- camlp4: disabled
- bytes: found, installing fake library
- Configuration for stdlib written to site-lib-src/stdlib/META
- Configuration for unix written to site-lib-src/unix/META
- Configuration for dynlink written to site-lib-src/dynlink/META
- Configuration for bigarray written to site-lib-src/bigarray/META
- Configuration for compiler-libs written to site-lib-src/compiler-libs/META
- Configuration for ocamldoc written to site-lib-src/ocamldoc/META
- Configuration for raw_spacetime written to site-lib-src/raw_spacetime/META
- Configuration for threads written to site-lib-src/threads/META
- Configuration for str written to site-lib-src/str/META
- 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/4.11/lib/ocaml
- Binaries: /home/opam/.opam/4.11/bin
- Manual pages: /home/opam/.opam/4.11/man
- Multi-threading type: posix
- The directory of site-specific packages will be
- site-lib: /home/opam/.opam/4.11/lib
- The configuration file is written to:
- findlib config file: /home/opam/.opam/4.11/lib/findlib.conf
- Software will be installed:
- Libraries: in <site-lib>/findlib
- Binaries: /home/opam/.opam/4.11/bin
- Manual pages: /home/opam/.opam/4.11/man
- topfind script: /home/opam/.opam/4.11/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 9/20: [ocamlfind: make all]
-> retrieved dune.3.14.0, dune-configurator.3.14.0 (cached)
Processing 10/20: [dune: ocaml 39] [ocamlfind: make all]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "make" "all" (CWD=/home/opam/.opam/4.11/.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/4.11/.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/4.11/lib/findlib.conf' | \
- ../../tools/patch '@STDLIB@' '/home/opam/.opam/4.11/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 -opaque -I +unix -I +dynlink -g -c findlib_config.ml
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_split.ml
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_metatoken.ml
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_meta.ml
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c fl_metascanner.mli
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_metascanner.ml
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c fl_topo.mli
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_topo.ml
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c fl_package_base.mli
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_package_base.ml
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c findlib.mli
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c findlib.ml
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_args.ml
- ocamlc -I +compiler-libs -opaque -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 -opaque -I +unix -I +dynlink -g -c ocaml_args.ml
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c frontend.ml
- ocamlc -I +compiler-libs -o ocamlfind -g findlib.cma unix.cma \
- -I +unix -I +dynlink ocaml_args.cmo frontend.cmo
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c topfind.mli
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c topfind.ml
- 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/4.11/lib' \
- >topfind
- ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c fl_dynload.mli
- ocamlc -I +compiler-libs -opaque -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/4.11/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
- make all-config
- make[1]: Entering directory '/home/opam/.opam/4.11/.opam-switch/build/ocamlfind.1.9.6'
- USE_CYGPATH="0"; \
- export USE_CYGPATH; \
- cat findlib.conf.in | \
- tools/patch '@SITELIB@' '/home/opam/.opam/4.11/lib' | \
- tools/patch '@FINDLIB_PATH@' '/home/opam/.opam/4.11/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/4.11/.opam-switch/build/ocamlfind.1.9.6'
Processing 10/20: [dune: ocaml 39] [ocamlfind: make opt]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "make" "opt" (CWD=/home/opam/.opam/4.11/.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/4.11/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c findlib_config.ml
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_split.ml
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_metatoken.ml
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_meta.ml
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_metascanner.ml
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_topo.ml
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_package_base.ml
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c findlib.ml
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_args.ml
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_lint.ml
- ocamlopt -I +compiler-libs -g -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 -g -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 -g -opaque -I +unix -I +dynlink -c ocaml_args.ml
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c frontend.ml
- ocamlopt -I +compiler-libs -g -o ocamlfind_opt findlib.cmxa unix.cmxa \
- -I +unix -I +dynlink ocaml_args.cmx frontend.cmx
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c topfind.ml
- File "_none_", line 1:
- Warning 58: no cmx file was found in path for module Topdirs, and its interface was not compiled with -opaque
- File "_none_", line 1:
- Warning 58: no cmx file was found in path for module Toploop, and its interface was not compiled with -opaque
- ocamlopt -I +compiler-libs -g -a -o findlib_top.cmxa topfind.cmx
- if [ 1 -gt 0 ]; then \
- ocamlopt -I +compiler-libs -g -shared -o findlib_top.cmxs topfind.cmx; \
- fi
- ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_dynload.ml
- ocamlopt -I +compiler-libs -g -a -o findlib_dynload.cmxa fl_dynload.cmx
- if [ 1 -gt 0 ]; then \
- ocamlopt -I +compiler-libs -g -shared -o findlib_dynload.cmxs fl_dynload.cmx; \
- fi
- make[1]: Leaving directory '/home/opam/.opam/4.11/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
-> compiled ocamlfind.1.9.6
Processing 10/20: [dune: ocaml 39]
Processing 11/20: [dune: ocaml 39] [ocamlfind: make install]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "install" "make" "install" (CWD=/home/opam/.opam/4.11/.opam-switch/build/ocamlfind.1.9.6)
- if [ "1" -eq 1 ]; then \
- for x in camlp4 dbm graphics labltk num ocamlbuild; do \
- if [ -f "/home/opam/.opam/4.11/lib/$x/META" ]; then \
- if ! grep -Fq '[distributed with Ocaml]' "//home/opam/.opam/4.11/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/4.11/bin"
- install -d "/home/opam/.opam/4.11/man"
- make install-config
- make[1]: Entering directory '/home/opam/.opam/4.11/.opam-switch/build/ocamlfind.1.9.6'
- install -d "`dirname \"/home/opam/.opam/4.11/lib/findlib.conf\"`"
- test -f "/home/opam/.opam/4.11/lib/findlib.conf" || install -c findlib.conf "/home/opam/.opam/4.11/lib/findlib.conf"
- make[1]: Leaving directory '/home/opam/.opam/4.11/.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/4.11/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
- install -d "/home/opam/.opam/4.11/lib/findlib"
- install -d "/home/opam/.opam/4.11/bin"
- test 1 -eq 0 || install -d "/home/opam/.opam/4.11/lib/ocaml"
- test 1 -eq 0 || install -c topfind "/home/opam/.opam/4.11/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/4.11/lib/findlib/"
- f="ocamlfind"; { test -f ocamlfind_opt && f="ocamlfind_opt"; }; \
- install -c $f "/home/opam/.opam/4.11/bin/ocamlfind"
- # the following "if" block is only needed for 4.00beta2
- if [ 1 -eq 0 -a -f "/home/opam/.opam/4.11/lib/ocaml/compiler-libs/topdirs.cmi" ]; then \
- cd "/home/opam/.opam/4.11/lib/ocaml/compiler-libs/"; \
- install -c topdirs.cmi toploop.cmi "/home/opam/.opam/4.11/lib/findlib/"; \
- fi
- make[1]: Leaving directory '/home/opam/.opam/4.11/.opam-switch/build/ocamlfind.1.9.6/src/findlib'
- make install-meta
- make[1]: Entering directory '/home/opam/.opam/4.11/.opam-switch/build/ocamlfind.1.9.6'
- for x in bigarray bytes compiler-libs dynlink ocamldoc raw_spacetime stdlib str threads unix ; do install -d "/home/opam/.opam/4.11/lib/$x"; install -c site-lib-src/$x/META "/home/opam/.opam/4.11/lib/$x/META.tmp" && mv "/home/opam/.opam/4.11/lib/$x/META.tmp" "/home/opam/.opam/4.11/lib/$x/META"; done
- install -d "/home/opam/.opam/4.11/lib/findlib"; install -c Makefile.packages "/home/opam/.opam/4.11/lib/findlib/Makefile.packages"
- make[1]: Leaving directory '/home/opam/.opam/4.11/.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/4.11/bin"
- make install-doc
- make[1]: Entering directory '/home/opam/.opam/4.11/.opam-switch/build/ocamlfind.1.9.6'
- install -d "/home/opam/.opam/4.11/man/man1" "/home/opam/.opam/4.11/man/man3" "/home/opam/.opam/4.11/man/man5"
- install -c doc/ref-man/ocamlfind.1 "/home/opam/.opam/4.11/man/man1"
- install -c doc/ref-man/META.5 doc/ref-man/site-lib.5 doc/ref-man/findlib.conf.5 "/home/opam/.opam/4.11/man/man5"
- make[1]: Leaving directory '/home/opam/.opam/4.11/.opam-switch/build/ocamlfind.1.9.6'
-> installed ocamlfind.1.9.6
Processing 11/20: [dune: ocaml 39]
Processing 12/20: [dune: ocaml 39]
-> installed base-bytes.base
Processing 13/20: [dune: ocaml 39]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "ocaml" "boot/bootstrap.ml" "-j" "39" (CWD=/home/opam/.opam/4.11/.opam-switch/build/dune.3.14.0)
- ocamlc -output-complete-exe -w -24 -g -o .duneboot.exe -I boot unix.cma boot/libs.ml boot/duneboot.ml
- ./.duneboot.exe -j 39
- cd _boot && /home/opam/.opam/4.11/bin/ocamlopt.opt -c -g -no-alias-deps -w -49-6 -alert -unstable -I +threads opamLocal.ml
- File "vendor/opam/src/repository/opamLocal.ml", lines 109-114, characters 46-34:
- Warning 8: this pattern-matching is not exhaustive.
- Here is an example of a case that is not matched:
- Checksum_mismatch _
- File "vendor/opam/src/repository/opamLocal.ml", lines 170-189, characters 44-56:
- Warning 8: this pattern-matching is not exhaustive.
- Here is an example of a case that is not matched:
- Checksum_mismatch _
- File "vendor/opam/src/repository/opamLocal.ml", lines 209-231, characters 8-44:
- Warning 8: this pattern-matching is not exhaustive.
- Here is an example of a case that is not matched:
- Checksum_mismatch _
- cd _boot && /home/opam/.opam/4.11/bin/ocamlopt.opt -c -g -no-alias-deps -w -49-6 -alert -unstable -I +threads opamVCS.ml
- File "vendor/opam/src/repository/opamVCS.ml", lines 179-182, characters 11-40:
- Warning 8: this pattern-matching is not exhaustive.
- Here is an example of a case that is not matched:
- Checksum_mismatch _
- cd _boot && /home/opam/.opam/4.11/bin/ocamlopt.opt -c -g -no-alias-deps -w -49-6 -alert -unstable -I +threads dune_util__Gc.ml
- File "src/dune_util/gc.ml", lines 78-95, characters 5-6:
- Warning 23: all the fields are explicitly listed in this record:
- the 'with' clause is useless.
- cd _boot && /home/opam/.opam/4.11/bin/ocamlopt.opt -c -g -no-alias-deps -w -49-6 -alert -unstable -I +threads opamDownload.ml
- File "vendor/opam/src/repository/opamDownload.ml", lines 323-361, characters 42-41:
- Warning 8: this pattern-matching is not exhaustive.
- Here is an example of a case that is not matched:
- Checksum_mismatch _
- cd _boot && /home/opam/.opam/4.11/bin/ocamlopt.opt -c -g -no-alias-deps -w -49-6 -alert -unstable -I +threads opamRepository.ml
- File "vendor/opam/src/repository/opamRepository.ml", lines 88-90, characters 45-77:
- Warning 8: this pattern-matching is not exhaustive.
- Here is an example of a case that is not matched:
- Checksum_mismatch _
- File "vendor/opam/src/repository/opamRepository.ml", lines 277-281, characters 38-17:
- Warning 8: this pattern-matching is not exhaustive.
- Here is an example of a case that is not matched:
- Checksum_mismatch _
- File "vendor/opam/src/repository/opamRepository.ml", lines 423-427, characters 12-42:
- Warning 8: this pattern-matching is not exhaustive.
- Here is an example of a case that is not matched:
- (_, Checksum_mismatch _)
-
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" "39" (CWD=/home/opam/.opam/4.11/.opam-switch/build/dune.3.14.0)
-> compiled dune.3.14.0
-> installed dune.3.14.0
Processing 15/20: [csexp: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "csexp" "-j" "39" "@install" (CWD=/home/opam/.opam/4.11/.opam-switch/build/csexp.1.5.2)
-> 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/4.11/.opam-switch/build/dune-configurator.3.14.0)
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "rm" "-rf" "vendor/pp" (CWD=/home/opam/.opam/4.11/.opam-switch/build/dune-configurator.3.14.0)
Processing 17/20: [dune-configurator: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "dune-configurator" "-j" "39" "@install" (CWD=/home/opam/.opam/4.11/.opam-switch/build/dune-configurator.3.14.0)
-> compiled dune-configurator.3.14.0
-> installed dune-configurator.3.14.0
Processing 19/20: [odepack: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "odepack" "-j" "39" (CWD=/home/opam/.opam/4.11/.opam-switch/build/odepack.0.7)
- File "src/fortran/dune", line 16, characters 0-151:
- 16 | (rule
- 17 | (targets opkda1.o opkda2.o opkdmain.o)
- 18 | (deps opkda1.f opkda2.f opkdmain.f)
- 19 | (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)
[ERROR] The compilation of odepack.0.7 failed at "dune build -p odepack -j 39".
- 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 while compiling odepack.0.7 ========================================#
# context 2.2.0~beta2~dev | linux/x86_64 | ocaml-base-compiler.4.11.2 | file:///home/opam/opam-repository
# path ~/.opam/4.11/.opam-switch/build/odepack.0.7
# command ~/.opam/opam-init/hooks/sandbox.sh build dune build -p odepack -j 39
# exit-code 1
# env-file ~/.opam/log/odepack-7-b94bed.env
# output-file ~/.opam/log/odepack-7-b94bed.out
### output ###
# File "src/fortran/dune", line 16, characters 0-151:
# 16 | (rule
# 17 | (targets opkda1.o opkda2.o opkdmain.o)
# 18 | (deps opkda1.f opkda2.f opkdmain.f)
# 19 | (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.7
+-
+- The following changes have been performed
| - install base-bytes base
| - install conf-gfortran 0
| - install csexp 1.5.2
| - install dune 3.14.0
| - install dune-configurator 3.14.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/4.11/.opam-switch/backup/state-20240225234953.export"
'opam install -vy odepack.0.7' failed.
"/usr/bin/env" "bash" "-c" "
opam remove -y "odepack.0.7"
opam install -vy "odepack.0.7"
res=$?
if [ $res = 31 ]; then
if opam show -f x-ci-accept-failures: "odepack.0.7" | 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