On This Page
package odepack
odepack 0.7
Error log
The package failed to build. The error log from opam follows.
[NOTE] Package dune is already installed (current version is 3.17.2).
[NOTE] Package ocamlfind is already installed (current version is 1.9.8).
The following actions will be performed:
=== install 5 packages
- install base-bytes base
- install conf-gfortran 0
- install csexp 1.5.2
- install dune-configurator 3.17.2
- install odepack 0.7
The following system packages will first need to be installed:
gfortran
<><> Handling external dependencies <><><><><><><><><><><><><><><><><><><><><><>
opam believes some required external dependencies are missing. opam can:
> 1. Run apt-get to install them (may need root/sudo access)
2. Display the recommended apt-get command and wait while you run it manually (e.g. in another terminal)
3. Continue anyway, and, upon success, permanently register that this external dependency is present, but not detectable
4. Abort the installation
[1/2/3/4] 1
+ /usr/bin/sudo "apt-get" "install" "-qq" "-yy" "gfortran"
- debconf: delaying package configuration, since apt-utils is not installed
- Selecting previously unselected package libgfortran5:amd64.
- (Reading database ...
(Reading database ... 5%
(Reading database ... 10%
(Reading database ... 15%
(Reading database ... 20%
(Reading database ... 25%
(Reading database ... 30%
(Reading database ... 35%
(Reading database ... 40%
(Reading database ... 45%
(Reading database ... 50%
(Reading database ... 55%
(Reading database ... 60%
(Reading database ... 65%
(Reading database ... 70%
(Reading database ... 75%
(Reading database ... 80%
(Reading database ... 85%
(Reading database ... 90%
(Reading database ... 95%
(Reading database ... 100%
(Reading database ... 18776 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+deb12u9) ...
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> installed base-bytes.base
-> retrieved csexp.1.5.2 (cached)
-> installed conf-gfortran.0
-> installed csexp.1.5.2
-> retrieved dune-configurator.3.17.2 (cached)
-> retrieved odepack.0.7 (https://github.com/Chris00/ocaml-odepack/releases/download/0.7/odepack-0.7.tbz)
-> installed dune-configurator.3.17.2
[ERROR] The compilation of odepack.0.7 failed at "dune build -p odepack -j 31".
#=== ERROR while compiling odepack.0.7 ========================================#
# context 2.3.0 | 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 31
# exit-code 1
# env-file ~/.opam/log/odepack-113-36dd2a.env
# output-file ~/.opam/log/odepack-113-36dd2a.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.17.2
+-
# To update the current shell environment, run: eval $(opam env)
The former state can be restored with:
/usr/bin/opam switch import "/home/opam/.opam/5.1/.opam-switch/backup/state-20250206042559.export"
On This Page