package odepack

  1. Overview
  2. Docs
On This Page
  1. Error log

odepack 0.7

Error log

The package failed to build. The error log from opam follows.

Opam plugin "depext" may require upgrading/reinstalling. Reinstall the plugin on the current switch? [Y/n] y
The following actions will be performed:
  - recompile opam-depext 1.2.3

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved opam-depext.1.2.3  (cached)
-> removed   opam-depext.1.2.3
-> installed opam-depext.1.2.3
Done.

<><> opam-depext.1.2.3 installed successfully <><><><><><><><><><><><><><><><><>
=> opam-depext is unnecessary when used with opam >= 2.1. Please use opam install directly instead
# Run eval $(opam env) to update the current shell environment

<><> Carrying on to "opam depext -viy odepack.0.7 ocamlfind.1.9.6 dune-configurator.3.16.0 dune.3.16.0 csexp.1.5.2 conf-gfortran.0 base-bytes.base" 

Since version 2.1, opam now handles external dependencies alongside OCaml ones, and the `depext` plugin interface is provided for backwards compatibility only. Consider using your usual `opam install` command to install both OCaml and system dependencies, or `opam install <pkg> --depext-only` if you want to only install external dependencies.
# Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian
# The following system packages are needed:
gfortran
[NOTE] Package dune is already installed (current version is 3.16.0).
[NOTE] Package ocamlfind is already installed (current version is 1.9.6).
The following actions will be performed:
  - install conf-gfortran     0
  - install csexp             1.5.2
  - install base-bytes        base
  - install dune-configurator 3.16.0
  - install odepack           0.7
===== 5 to install =====

The following system packages will first need to be installed:
    gfortran

<><> Handling external dependencies <><><><><><><><><><><><><><><><><><><><><><>
Let opam run your package manager to install the required system packages?
(answer 'n' for other options) [Y/n] y
+ /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 ... 18764 files and directories currently installed.)
- Preparing to unpack .../libgfortran5_12.2.0-14_amd64.deb ...
- Unpacking libgfortran5:amd64 (12.2.0-14) ...
- Selecting previously unselected package libgfortran-12-dev:amd64.
- Preparing to unpack .../libgfortran-12-dev_12.2.0-14_amd64.deb ...
- Unpacking libgfortran-12-dev:amd64 (12.2.0-14) ...
- Selecting previously unselected package gfortran-12.
- Preparing to unpack .../gfortran-12_12.2.0-14_amd64.deb ...
- Unpacking gfortran-12 (12.2.0-14) ...
- Selecting previously unselected package gfortran.
- Preparing to unpack .../gfortran_4%3a12.2.0-3_amd64.deb ...
- Unpacking gfortran (4:12.2.0-3) ...
- Setting up libgfortran5:amd64 (12.2.0-14) ...
- Setting up libgfortran-12-dev:amd64 (12.2.0-14) ...
- Setting up gfortran-12 (12.2.0-14) ...
- Setting up gfortran (4:12.2.0-3) ...
- 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.36-9+deb12u8) ...

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Processing  3/15:
Processing  4/15:
Processing  5/15:
Processing  6/15:
Processing  7/15: [conf-gfortran: gfortran]
-> installed base-bytes.base
Processing  8/15: [conf-gfortran: gfortran]
-> retrieved csexp.1.5.2  (cached)
Processing  9/15: [conf-gfortran: gfortran] [csexp: dune build]
-> retrieved dune-configurator.3.16.0  (cached)
-> retrieved odepack.0.7  (cached)
- GNU Fortran (Debian 12.2.0-14) 12.2.0
- Copyright (C) 2022 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  9/15: [csexp: dune build]
-> installed conf-gfortran.0
Processing 10/15: [csexp: dune build]
+ /home/opam/.opam/5.1/bin/dune "build" "-p" "csexp" "-j" "39" "@install" (CWD=/home/opam/.opam/5.1/.opam-switch/build/csexp.1.5.2)
-> compiled  csexp.1.5.2
-> installed csexp.1.5.2
Processing 12/15: [dune-configurator: rm]
+ /usr/bin/rm "-rf" "vendor/csexp" (CWD=/home/opam/.opam/5.1/.opam-switch/build/dune-configurator.3.16.0)
+ /usr/bin/rm "-rf" "vendor/pp" (CWD=/home/opam/.opam/5.1/.opam-switch/build/dune-configurator.3.16.0)
Processing 12/15: [dune-configurator: dune build]
+ /home/opam/.opam/5.1/bin/dune "build" "-p" "dune-configurator" "-j" "39" "@install" (CWD=/home/opam/.opam/5.1/.opam-switch/build/dune-configurator.3.16.0)
-> compiled  dune-configurator.3.16.0
-> installed dune-configurator.3.16.0
Processing 14/15: [odepack: dune build]
+ /home/opam/.opam/5.1/bin/dune "build" "-p" "odepack" "-j" "39" (CWD=/home/opam/.opam/5.1/.opam-switch/build/odepack.0.7)
- File "src/fortran/dune", lines 16-19, 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] The compilation of odepack.0.7 failed at "dune build -p odepack -j 39".

#=== ERROR while compiling odepack.0.7 ========================================#
# context              2.1.6 | linux/x86_64 | ocaml-base-compiler.5.1.1 | file:///src
# path                 ~/.opam/5.1/.opam-switch/build/odepack.0.7
# command              ~/.opam/5.1/bin/dune build -p odepack -j 39
# exit-code            1
# env-file             ~/.opam/log/odepack-115-905d38.env
# output-file          ~/.opam/log/odepack-115-905d38.out
### output ###
# File "src/fortran/dune", lines 16-19, 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-configurator 3.16.0
+- 
# Run eval $(opam env) to update the current shell environment

The former state can be restored with:
    /usr/bin/opam switch import "/home/opam/.opam/5.1/.opam-switch/backup/state-20240912102825.export"
'opam --cli=2.1 install odepack.0.7 ocamlfind.1.9.6 dune-configurator.3.16.0 dune.3.16.0 csexp.1.5.2 conf-gfortran.0 base-bytes.base --verbose --yes --confirm-level=unsafe-yes' failed.
OCaml

Innovation. Community. Security.