On This Page
package odepack
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.1-1
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved opam-depext.1.2.1-1 (cached)
-> removed opam-depext.1.2.1-1
-> installed opam-depext.1.2.1-1
Done.
<><> opam-depext.1.2.1-1 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.13.0 dune.3.13.0 csexp.1.5.2 conf-gfortran.0 base-bytes.base"
You are using opam 2.1+, where external dependency handling has been integrated: consider calling opam directly, the 'depext' plugin interface is provided for backwards compatibility only
# 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.13.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.13.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 ... 18774 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+deb12u3) ...
<><> 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.13.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" "255" "@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.13.0)
+ /usr/bin/rm "-rf" "vendor/pp" (CWD=/home/opam/.opam/5.1/.opam-switch/build/dune-configurator.3.13.0)
Processing 12/15: [dune-configurator: dune build]
+ /home/opam/.opam/5.1/bin/dune "build" "-p" "dune-configurator" "-j" "255" "@install" (CWD=/home/opam/.opam/5.1/.opam-switch/build/dune-configurator.3.13.0)
-> compiled dune-configurator.3.13.0
-> installed dune-configurator.3.13.0
Processing 14/15: [odepack: dune build]
+ /home/opam/.opam/5.1/bin/dune "build" "-p" "odepack" "-j" "255" (CWD=/home/opam/.opam/5.1/.opam-switch/build/odepack.0.7)
- File "src/fortran/dune", line 16, characters 0-151:
- 16 | (rule
- 17 | (targets opkda1.o opkda2.o opkdmain.o)
- 18 | (deps opkda1.f opkda2.f opkdmain.f)
- 19 | (action (run %{read-lines:fortranc.txt} -c -fPIC -O3 %{deps})))
- (cd _build/default/src/fortran && /usr/bin/x86_64-linux-gnu-gfortran -c -fPIC -O3 opkda1.f opkda2.f opkdmain.f)
- opkda1.f:123:72:
-
- 123 | 110 PC(I) = PC(I-1) + FNQM1*PC(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:132:72:
-
- 132 | 120 XPIN = XPIN + TSIGN*PC(I)/(I+1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:137:72:
-
- 137 | 130 ELCO(I+1,NQ) = RQ1FAC*PC(I)/I
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
- opkda1.f:160:72:
-
- 160 | 210 PC(I) = PC(I-1) + FNQ*PC(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
- opkda1.f:164:72:
-
- 164 | 220 ELCO(I,NQ) = PC(I)/PC(2)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
- opkda1.f:246:72:
-
- 246 | 10 IC = IC*JJ
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:249:72:
-
- 249 | 20 DKY(I) = C*YH(I,L)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:259:72:
-
- 259 | 30 IC = IC*JJ
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
- opkda1.f:262:72:
-
- 262 | 40 DKY(I) = C*YH(I,JP1) + S*DKY(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
- opkda1.f:267:72:
-
- 267 | 60 DKY(I) = R*DKY(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
- opkda1.f:370:72:
-
- 370 | 110 WM(I+2) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:374:72:
-
- 374 | 120 WM(I+2) = WM(I+2)*CON
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:389:72:
-
- 389 | 220 WM(I+J1) = (FTEM(I) - SAVF(I))*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
- opkda1.f:399:72:
-
- 399 | 250 J = J + NP1
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
- opkda1.f:408:72:
-
- 408 | 310 Y(I) = Y(I) + R*(H*SAVF(I) - YH(I,2))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
- opkda1.f:430:72:
-
- 430 | 410 WM(I+2) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
- opkda1.f:434:72:
-
- 434 | 420 WM(I+2) = WM(I+2)*CON
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
- opkda1.f:451:72:
-
- 451 | 530 Y(I) = Y(I) + R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
- opkda1.f:462:72:
-
- 462 | 540 WM(II+I) = (FTEM(I) - SAVF(I))*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
- opkda1.f:470:72:
-
- 470 | 580 II = II + MEBAND
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1)
- opkda1.f:554:72:
-
- 554 | 320 WM(I+2) = 1.0D0/DI
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
- opkda1.f:556:72:
-
- 556 | 340 X(I) = WM(I+2)*X(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
- opkda1.f:617:72:
-
- 617 | 10 RSAV(I) = RLS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:619:72:
-
- 619 | 20 ISAV(I) = ILS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:624:72:
-
- 624 | 110 RLS(I) = RSAV(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:626:72:
-
- 626 | 120 ILS(I) = ISAV(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:808:72:
-
- 808 | 125 EL(I) = ELCO(I,NQ)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
- opkda1.f:829:72:
-
- 829 | 155 EL(I) = ELCO(I,NQ)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
- opkda1.f:852:72:
-
- 852 | DO 180 I = 1,N
- | 1
- Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
- opkda1.f:853:72:
-
- 853 | 180 YH(I,J) = YH(I,J)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
- opkda1.f:874:72:
-
- 874 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
- opkda1.f:884:72:
-
- 884 | 230 Y(I) = YH(I,1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
- opkda1.f:900:72:
-
- 900 | 260 ACOR(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
- opkda1.f:908:72:
-
- 908 | 290 Y(I) = SAVF(I) - ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
- opkda1.f:912:72:
-
- 912 | 300 ACOR(I) = SAVF(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
- opkda1.f:920:72:
-
- 920 | 360 Y(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
- opkda1.f:927:72:
-
- 927 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
- opkda1.f:962:72:
-
- 962 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
- opkda1.f:997:72:
-
- 997 | DO 470 I = 1,N
- | 1
- Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
- opkda1.f:998:72:
-
- 998 | 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
- opkda1.f:1004:72:
-
- 1004 | 490 YH(I,LMAX) = ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
- opkda1.f:1020:72:
-
- 1020 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
- opkda1.f:1040:72:
-
- 1040 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
- opkda1.f:1067:72:
-
- 1067 | 600 YH(I,NEWQ+1) = ACOR(I)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
- opkda1.f:1097:72:
-
- 1097 | 645 Y(I) = YH(I,1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
- opkda1.f:1101:72:
-
- 1101 | 650 YH(I,2) = H*SAVF(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
- opkda1.f:1122:72:
-
- 1122 | 710 ACOR(I) = ACOR(I)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
- opkda1.f:1160:72:
-
- 1160 | 15 EWT(I) = RTOL(1)*ABS(YCUR(I)) + ATOL(1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
- opkda1.f:1164:72:
-
- 1164 | 25 EWT(I) = RTOL(1)*ABS(YCUR(I)) + ATOL(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
- opkda1.f:1168:72:
-
- 1168 | 35 EWT(I) = RTOL(I)*ABS(YCUR(I)) + ATOL(1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
- opkda1.f:1172:72:
-
- 1172 | 45 EWT(I) = RTOL(I)*ABS(YCUR(I)) + ATOL(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 45 at (1)
- opkda1.f:1206:72:
-
- 1206 | 10 SUM = SUM + (V(I)*W(I))**2
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:1266:72:
-
- 1266 | 10 RWORK(I) = RWORK(I+LYHD)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:1276:72:
-
- 1276 | 30 RWORK(I+LEWTN-1) = RWORK(I+LEWT-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
- opkda1.f:1370:72:
-
- 1370 | 25 Y(I) = YH(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
- opkda1.f:1408:72:
-
- 1408 | 75 SAVF(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 75 at (1)
- opkda1.f:1450:72:
-
- 1450 | 145 Y(I) = YH(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 145 at (1)
- opkda1.f:1481:72:
-
- 1481 | 170 IWK(IBR+I) = I
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
- opkda1.f:1496:72:
-
- 1496 | 180 WK(IBA+I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
- opkda1.f:1572:72:
-
- 1572 | 10 JDONE(J) = 0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:1577:72:
-
- 1577 | 20 INCL(I) = 0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:1594:72:
-
- 1594 | 40 INCL(I) = 1
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
- opkda1.f:1652:72:
-
- 1652 | IF (JA(J) - II) 10, 40, 30
- | 1
- Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
- opkda1.f:1762:72:
-
- 1762 | 110 FTEM(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:1785:72:
-
- 1785 | 210 Y(JJ) = Y(JJ) + R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
- opkda1.f:1833:72:
-
- 1833 | 295 FTEM(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 295 at (1)
- opkda1.f:1851:72:
-
- 1851 | 310 Y(I) = Y(I) + R*(H*SAVF(I) - YH(I,2))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
- opkda1.f:1937:72:
-
- 1937 | 320 WK(I+2) = 1.0D0/DI
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
- opkda1.f:1939:72:
-
- 1939 | 340 X(I) = WK(I+2)*X(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
- opkda1.f:1972:72:
-
- 1972 | 10 RSAV(I) = RLS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:1974:72:
-
- 1974 | 15 RSAV(LENRLS+I) = RLSS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
- opkda1.f:1977:72:
-
- 1977 | 20 ISAV(I) = ILS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:1979:72:
-
- 1979 | 25 ISAV(LENILS+I) = ILSS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
- opkda1.f:1985:72:
-
- 1985 | 110 RLS(I) = RSAV(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:1987:72:
-
- 1987 | 115 RLSS(I) = RSAV(LENRLS+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
- opkda1.f:1990:72:
-
- 1990 | 120 ILS(I) = ISAV(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:1992:72:
-
- 1992 | 125 ILSS(I) = ISAV(LENILS+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
- opkda1.f:2310:72:
-
- 2310 | 5 last(next(k)) = k
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
- opkda1.f:2326:72:
-
- 2326 | 1 head(vi) = 0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
- opkda1.f:2337:72:
-
- 2337 | if (vj-vi) 2, 5, 4
- | 1
- Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
- opkda1.f:2375:72:
-
- 2375 | 7 mark(vi) = tag
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1)
- opkda1.f:2547:72:
-
- 2547 | if (last(vi)) 1, 10, 8
- | 1
- Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
- opkda1.f:2653:72:
-
- 2653 | 1 q(i) = 0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
- opkda1.f:2669:72:
-
- 2669 | 2 q(k) = q(k) + 1
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
- opkda1.f:2677:72:
-
- 2677 | 4 q(i) = ia(i+1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
- opkda1.f:2698:72:
-
- 2698 | 6 j = j-1
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1)
- opkda1.f:2940:72:
-
- 2940 | 4 isp(ju+j-1) = isp(jutmp+j-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
- opkda1.f:3211:72:
-
- 3211 | 4 a(j) = ar(i)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
- opkda1.f:3292:72:
-
- 3292 | 1 jru(k) = 0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
- opkda1.f:3302:72:
-
- 3302 | 2 ira(k) = iak
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
- opkda1.f:3369:72:
-
- 3369 | if (jl(j) - qm) 12, 13, 15
- | 1
- Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
- opkda1.f:3388:72:
-
- 3388 | 16 jl(j) = qm
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1)
- opkda1.f:3471:72:
-
- 3471 | if (ju(j) - qm) 29, 30, 32
- | 1
- Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
- opkda1.f:3490:72:
-
- 3490 | 33 ju(j) = qm
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 33 at (1)
- opkda1.f:3614:72:
-
- 3614 | 4 row(ju(j)) = 0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
- opkda1.f:3636:72:
-
- 3636 | 8 row(ju(mu+j)) = row(ju(mu+j)) + lki * u(j)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 8 at (1)
- opkda1.f:3651:72:
-
- 3651 | 11 u(j) = row(ju(mu+j)) * dk
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1)
- opkda1.f:3684:72:
-
- 3684 | 20 sum = sum - u(j) * tmp(ju(mu+j))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:3687:72:
-
- 3687 | 22 k = k-1
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1)
- opkda1.f:3725:72:
-
- 3725 | 1 tmp(k) = b(r(k))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
- opkda1.f:3735:72:
-
- 3735 | 2 tmp(jl(ml+j)) = tmp(jl(ml+j)) + tmpk * l(j)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
- opkda1.f:3746:72:
-
- 3746 | 4 sum = sum + u(j) * tmp(ju(mu+j))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
- opkda1.f:3778:72:
-
- 3778 | 1 tmp(k) = b(c(k))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
- opkda1.f:3787:72:
-
- 3787 | 2 tmp(ju(mu+j)) = tmp(ju(mu+j)) + tmpk * u(j)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
- opkda1.f:3798:72:
-
- 3798 | 4 sum = sum + l(j) * tmp(jl(ml+j))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
- opkda1.f:3961:72:
-
- 3961 | 10 CM2(I) = TESCO(2,I)*ELCO(I+1,I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:3964:72:
-
- 3964 | 20 CM1(I) = TESCO(2,I)*ELCO(I+1,I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:3989:72:
-
- 3989 | 155 EL(I) = ELCO(I,NQ)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
- opkda1.f:4024:72:
-
- 4024 | DO 180 I = 1,N
- | 1
- Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
- opkda1.f:4025:72:
-
- 4025 | 180 YH(I,J) = YH(I,J)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
- opkda1.f:4046:72:
-
- 4046 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
- opkda1.f:4059:72:
-
- 4059 | 230 Y(I) = YH(I,1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
- opkda1.f:4075:72:
-
- 4075 | 260 ACOR(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
- opkda1.f:4083:72:
-
- 4083 | 290 Y(I) = SAVF(I) - ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
- opkda1.f:4087:72:
-
- 4087 | 300 ACOR(I) = SAVF(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
- opkda1.f:4095:72:
-
- 4095 | 360 Y(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
- opkda1.f:4102:72:
-
- 4102 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
- opkda1.f:4156:72:
-
- 4156 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
- opkda1.f:4195:72:
-
- 4195 | DO 460 I = 1,N
- | 1
- Warning: Fortran 2018 deleted feature: Shared DO termination label 460 at (1)
- opkda1.f:4196:72:
-
- 4196 | 460 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 460 at (1)
- opkda1.f:4304:72:
-
- 4304 | 490 YH(I,LMAX) = ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
- opkda1.f:4320:72:
-
- 4320 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
- opkda1.f:4340:72:
-
- 4340 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
- opkda1.f:4374:72:
-
- 4374 | 600 YH(I,NEWQ+1) = ACOR(I)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
- opkda1.f:4407:72:
-
- 4407 | 645 Y(I) = YH(I,1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
- opkda1.f:4411:72:
-
- 4411 | 650 YH(I,2) = H*SAVF(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
- opkda1.f:4432:72:
-
- 4432 | 710 ACOR(I) = ACOR(I)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
- opkda1.f:4509:72:
-
- 4509 | 110 WM(I+2) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:4513:72:
-
- 4513 | 120 WM(I+2) = WM(I+2)*CON
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:4528:72:
-
- 4528 | 220 WM(I+J1) = (FTEM(I) - SAVF(I))*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
- opkda1.f:4541:72:
-
- 4541 | 250 J = J + NP1
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
- opkda1.f:4556:72:
-
- 4556 | 410 WM(I+2) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
- opkda1.f:4560:72:
-
- 4560 | 420 WM(I+2) = WM(I+2)*CON
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
- opkda1.f:4577:72:
-
- 4577 | 530 Y(I) = Y(I) + R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
- opkda1.f:4588:72:
-
- 4588 | 540 WM(II+I) = (FTEM(I) - SAVF(I))*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
- opkda1.f:4600:72:
-
- 4600 | 580 II = II + MEBAND
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1)
- opkda1.f:4620:72:
-
- 4620 | 10 VM = MAX(VM,ABS(V(I))*W(I))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:4640:72:
-
- 4640 | 10 SUM = SUM + ABS(A(I,J))/W(J)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:4670:72:
-
- 4670 | 10 SUM = SUM + ABS(A(I1-J,J))/W(J)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:4704:72:
-
- 4704 | 10 RSAV(I) = RLS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:4706:72:
-
- 4706 | 15 RSAV(LENRLS+I) = RLSA(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
- opkda1.f:4709:72:
-
- 4709 | 20 ISAV(I) = ILS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:4711:72:
-
- 4711 | 25 ISAV(LENILS+I) = ILSA(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
- opkda1.f:4717:72:
-
- 4717 | 110 RLS(I) = RSAV(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:4719:72:
-
- 4719 | 115 RLSA(I) = RSAV(LENRLS+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
- opkda1.f:4722:72:
-
- 4722 | 120 ILS(I) = ISAV(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:4724:72:
-
- 4724 | 125 ILSA(I) = ISAV(LENILS+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
- opkda1.f:4792:72:
-
- 4792 | 10 JROOT(I) = 0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:4804:72:
-
- 4804 | 110 IF (ABS(G0(I)) .LE. 0.0D0) ZROOT = .TRUE.
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:4811:72:
-
- 4811 | 120 Y(I) = Y(I) + TEMP2*YH(I,2)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:4816:72:
-
- 4816 | 130 IF (ABS(G0(I)) .LE. 0.0D0) ZROOT = .TRUE.
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
- opkda1.f:4834:72:
-
- 4834 | 210 IF (ABS(G0(I)) .LE. 0.0D0) ZROOT = .TRUE.
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
- opkda1.f:4842:72:
-
- 4842 | 220 Y(I) = Y(I) + TEMP2*YH(I,2)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
- opkda1.f:4870:72:
-
- 4870 | 320 Y(I) = YH(I,1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
- opkda1.f:5145:72:
-
- 5145 | 10 RSAV(I) = RLS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:5147:72:
-
- 5147 | 15 RSAV(LENRLS+I) = RLSA(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
- opkda1.f:5150:72:
-
- 5150 | 20 RSAV(IOFF+I) = RLSR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:5153:72:
-
- 5153 | 30 ISAV(I) = ILS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
- opkda1.f:5155:72:
-
- 5155 | 35 ISAV(LENILS+I) = ILSA(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
- opkda1.f:5158:72:
-
- 5158 | 40 ISAV(IOFF+I) = ILSR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
- opkda1.f:5164:72:
-
- 5164 | 110 RLS(I) = RSAV(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:5166:72:
-
- 5166 | 115 RLSA(I) = RSAV(LENRLS+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
- opkda1.f:5169:72:
-
- 5169 | 120 RLSR(I) = RSAV(IOFF+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:5172:72:
-
- 5172 | 130 ILS(I) = ISAV(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
- opkda1.f:5174:72:
-
- 5174 | 135 ILSA(I) = ISAV(LENILS+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1)
- opkda1.f:5177:72:
-
- 5177 | 140 ILSR(I) = ISAV(IOFF+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
- opkda1.f:5360:72:
-
- 5360 | 125 EL(I) = ELCO(I,NQ)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
- opkda1.f:5382:72:
-
- 5382 | 155 EL(I) = ELCO(I,NQ)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
- opkda1.f:5406:72:
-
- 5406 | DO 180 I = 1,N
- | 1
- Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
- opkda1.f:5407:72:
-
- 5407 | 180 YH(I,J) = YH(I,J)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
- opkda1.f:5433:72:
-
- 5433 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
- opkda1.f:5444:72:
-
- 5444 | 230 Y(I) = YH(I,1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
- opkda1.f:5461:72:
-
- 5461 | 260 ACOR(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
- opkda1.f:5469:72:
-
- 5469 | 290 Y(I) = SAVF(I) - ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
- opkda1.f:5473:72:
-
- 5473 | 300 ACOR(I) = SAVF(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
- opkda1.f:5481:72:
-
- 5481 | 360 SAVX(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
- opkda1.f:5488:72:
-
- 5488 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
- opkda1.f:5525:72:
-
- 5525 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
- opkda1.f:5560:72:
-
- 5560 | DO 470 I = 1,N
- | 1
- Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
- opkda1.f:5561:72:
-
- 5561 | 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
- opkda1.f:5567:72:
-
- 5567 | 490 YH(I,LMAX) = ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
- opkda1.f:5583:72:
-
- 5583 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
- opkda1.f:5603:72:
-
- 5603 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
- opkda1.f:5630:72:
-
- 5630 | 600 YH(I,NEWQ+1) = ACOR(I)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
- opkda1.f:5660:72:
-
- 5660 | 645 Y(I) = YH(I,1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
- opkda1.f:5664:72:
-
- 5664 | 650 YH(I,2) = H*SAVF(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
- opkda1.f:5685:72:
-
- 5685 | 710 ACOR(I) = ACOR(I)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
- opkda1.f:6019:72:
-
- 6019 | 10 V(I,1) = B(I)*WGHT(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:6027:72:
-
- 6027 | 25 X(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
- opkda1.f:6038:72:
-
- 6038 | 50 V(I,1) = B(I)*WGHT(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
- opkda1.f:6046:72:
-
- 6046 | 60 HES(I,J) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
- opkda1.f:6114:72:
-
- 6114 | 210 B(K) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
- opkda1.f:6118:72:
-
- 6118 | 220 X(K) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
- opkda1.f:6123:72:
-
- 6123 | 240 X(I) = X(I)/WGHT(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
- opkda1.f:6214:72:
-
- 6214 | 10 VTEM(I) = V(I)/WGHT(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:6221:72:
-
- 6221 | 20 Y(I) = Z(I) + VTEM(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:6232:72:
-
- 6232 | 40 Z(I) = VTEM(I)*WGHT(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
- ...TRUNCATED BY DUNE...
- opkda1.f:6853:72:
-
- 6853 | 60 P(I) = Z(I) + BETA*P(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
- opkda1.f:6862:72:
-
- 6862 | 80 PTW = PTW + P(I)*W(I)*WGHT(I)**2
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
- opkda1.f:6946:72:
-
- 6946 | 20 Y(I) = W(I) + P(I)*RPNRM
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:6952:72:
-
- 6952 | 40 W(I) = P(I) - FAC*(WK(I) - SAVF(I))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
- opkda1.f:7031:72:
-
- 7031 | 20 X(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:7077:72:
-
- 7077 | 20 ISAV(I) = ILS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:7079:72:
-
- 7079 | 40 ISAV(LENILS+I) = ILSP(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
- opkda1.f:7086:72:
-
- 7086 | 120 ILS(I) = ISAV(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:7088:72:
-
- 7088 | 140 ILSP(I) = ISAV(LENILS+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
- opkda1.f:7658:72:
-
- 7658 | 60 Y(I) = Y0(I) + HG*YDOT(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
- opkda1.f:7661:72:
-
- 7661 | 70 TEMP(I) = (TEMP(I) - YDOT(I))/HG
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
- opkda1.f:7875:72:
-
- 7875 | 125 EL(I) = ELCO(I,NQ)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
- opkda1.f:7897:72:
-
- 7897 | 155 EL(I) = ELCO(I,NQ)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
- opkda1.f:7921:72:
-
- 7921 | DO 180 I = 1,N
- | 1
- Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
- opkda1.f:7922:72:
-
- 7922 | 180 YH(I,J) = YH(I,J)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
- opkda1.f:7951:72:
-
- 7951 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
- opkda1.f:7968:72:
-
- 7968 | 230 Y(I) = YH(I,1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
- opkda1.f:7995:72:
-
- 7995 | 260 ACOR(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
- opkda1.f:8003:72:
-
- 8003 | 290 Y(I) = SAVF(I) - ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
- opkda1.f:8007:72:
-
- 8007 | 300 ACOR(I) = SAVF(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
- opkda1.f:8017:72:
-
- 8017 | 360 SAVX(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
- opkda1.f:8026:72:
-
- 8026 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
- opkda1.f:8085:72:
-
- 8085 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
- opkda1.f:8126:72:
-
- 8126 | DO 470 I = 1,N
- | 1
- Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
- opkda1.f:8127:72:
-
- 8127 | 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
- opkda1.f:8133:72:
-
- 8133 | 490 YH(I,LMAX) = ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
- opkda1.f:8149:72:
-
- 8149 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
- opkda1.f:8169:72:
-
- 8169 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
- opkda1.f:8196:72:
-
- 8196 | 600 YH(I,NEWQ+1) = ACOR(I)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
- opkda1.f:8226:72:
-
- 8226 | 645 Y(I) = YH(I,1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
- opkda1.f:8230:72:
-
- 8230 | 650 YH(I,2) = H*SAVF(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
- opkda1.f:8251:72:
-
- 8251 | 710 ACOR(I) = ACOR(I)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
- opkda1.f:8357:72:
-
- 8357 | 20 ISAV(I) = ILS(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:8364:72:
-
- 8364 | 30 ISAV(IOFF+I) = ILSR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
- opkda1.f:8367:72:
-
- 8367 | 40 ISAV(IOFF+I) = ILSP(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
- opkda1.f:8376:72:
-
- 8376 | 120 ILS(I) = ISAV(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:8383:72:
-
- 8383 | 130 ILSR(I) = ISAV(IOFF+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
- opkda1.f:8386:72:
-
- 8386 | 140 ILSP(I) = ISAV(IOFF+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
- opkda1.f:8416:72:
-
- 8416 | 10 PW(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:8436:72:
-
- 8436 | 110 PW(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:8615:72:
-
- 8615 | 125 EL(I) = ELCO(I,NQ)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
- opkda1.f:8636:72:
-
- 8636 | 155 EL(I) = ELCO(I,NQ)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
- opkda1.f:8659:72:
-
- 8659 | DO 180 I = 1,N
- | 1
- Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
- opkda1.f:8660:72:
-
- 8660 | 180 YH(I,J) = YH(I,J)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
- opkda1.f:8681:72:
-
- 8681 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
- opkda1.f:8692:72:
-
- 8692 | 230 Y(I) = YH(I,1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
- opkda1.f:8716:72:
-
- 8716 | 260 ACOR(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
- opkda1.f:8730:72:
-
- 8730 | 380 Y(I) = YH(I,1) + EL1H*ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
- opkda1.f:8768:72:
-
- 8768 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
- opkda1.f:8808:72:
-
- 8808 | DO 470 I = 1,N
- | 1
- Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
- opkda1.f:8809:72:
-
- 8809 | 470 YH(I,J) = YH(I,J) + ELJH*ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
- opkda1.f:8815:72:
-
- 8815 | 490 YH(I,LMAX) = ACOR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
- opkda1.f:8831:72:
-
- 8831 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
- opkda1.f:8851:72:
-
- 8851 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
- opkda1.f:8878:72:
-
- 8878 | 600 YH(I,NEWQ+1) = ACOR(I)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
- opkda1.f:8909:72:
-
- 8909 | 710 ACOR(I) = ACOR(I)*R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
- opkda1.f:8987:72:
-
- 8987 | 110 WM(I+2) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:8991:72:
-
- 8991 | 120 WM(I+2) = WM(I+2)*CON
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:9010:72:
-
- 9010 | 220 WM(I+J1) = (RTEM(I) - SAVR(I))*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
- opkda1.f:9039:72:
-
- 9039 | 410 WM(I+2) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
- opkda1.f:9043:72:
-
- 9043 | 420 WM(I+2) = WM(I+2)*CON
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
- opkda1.f:9063:72:
-
- 9063 | 530 Y(I) = Y(I) + R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
- opkda1.f:9076:72:
-
- 9076 | 540 WM(II+I) = (RTEM(I) - SAVR(I))*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
- opkda1.f:9120:72:
-
- 9120 | 10 PW(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:9209:72:
-
- 9209 | 110 WM(I+2) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:9213:72:
-
- 9213 | 120 WM(I+2) = WM(I+2)*CON
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:9225:72:
-
- 9225 | 205 WM(2+I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1)
- opkda1.f:9238:72:
-
- 9238 | 215 RTEM(I) = RTEM(I) - SAVR(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1)
- opkda1.f:9249:72:
-
- 9249 | 221 WM(IPA+J2) = RTEM(IIA+J2)*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 221 at (1)
- opkda1.f:9255:72:
-
- 9255 | 222 WM(IPB+J2) = RTEM(IIB+J2)*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 222 at (1)
- opkda1.f:9262:72:
-
- 9262 | 224 WM(IPC+J2) = RTEM(IIC+J2)*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 224 at (1)
- opkda1.f:9268:72:
-
- 9268 | 226 WM(IPC+J2) = RTEM(J2)*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 226 at (1)
- opkda1.f:9275:72:
-
- 9275 | 228 WM(IPB+J2) = RTEM(IIB+J2)*FAC
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 228 at (1)
- opkda1.f:9408:72:
-
- 9408 | 80 CALL odepack_DGESL (A(1,1,K), M, M, IP(1,K), B(1,J,K), 0)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
- opkda1.f:9551:72:
-
- 9551 | 10 RWORK(I) = RWORK(I+LYHD)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:9561:72:
-
- 9561 | 30 RWORK(I+LEWTN-1) = RWORK(I+LEWT-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
- opkda1.f:9668:72:
-
- 9668 | 25 S(I) = YH(N+I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
- opkda1.f:9678:72:
-
- 9678 | 35 IWK(LIWK+I) = 0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
- opkda1.f:9711:72:
-
- 9711 | 75 WK(LENWK1+I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 75 at (1)
- opkda1.f:9735:72:
-
- 9735 | 105 WK(LENWK1+I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
- opkda1.f:9771:72:
-
- 9771 | 155 SAVR(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
- opkda1.f:9836:72:
-
- 9836 | 245 Y(I) = YH(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 245 at (1)
- opkda1.f:9870:72:
-
- 9870 | 270 IWK(IBR+I) = I
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
- opkda1.f:9885:72:
-
- 9885 | 280 WK(IBA+I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
- opkda1.f:9987:72:
-
- 9987 | 10 WK(IBA+I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
- opkda1.f:9998:72:
-
- 9998 | 15 TEM(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
- opkda1.f:10002:72:
-
- 10002 | 20 WK(IBA+K) = TEM(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
- opkda1.f:10008:72:
-
- 10008 | 40 TEM(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
- opkda1.f:10110:72:
-
- 10110 | 110 RTEM(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkda1.f:10113:72:
-
- 10113 | 120 RTEM(I) = RTEM(I)*CON
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkda1.f:10136:72:
-
- 10136 | 210 Y(JJ) = Y(JJ) + R
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
- opkda1.f:10168:72:
-
- 10168 | 295 RTEM(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 295 at (1)
- opkda1.f:1256:72:
-
- 1256 | 1 RWORK(LACOR), IA, JA, RWORK(LWM), RWORK(LWM), IPFLAG, F, JAC)
- | 1
- Error: Type mismatch in argument 'iwk' at (1); passed REAL(8) to INTEGER(4)
- opkda1.f:9541:72:
-
- 9541 | 2 RES, JAC, ADDA)
- | 1
- Error: Type mismatch in argument 'iwk' at (1); passed REAL(8) to INTEGER(4)
- opkda2.f:630:72:
-
- 630 | IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
- | 1
- Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
- opkda2.f:719:72:
-
- 719 | IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
- | 1
- Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
- opkda2.f:812:72:
-
- 812 | IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
- | 1
- Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
- opkda2.f:939:72:
-
- 939 | 10 ASSIGN 30 TO NEXT
- | 1
- Warning: Deleted feature: ASSIGN statement at (1)
- opkda2.f:946:20:
-
- 946 | 20 GO TO NEXT,(30, 50, 70, 110)
- | 1
- Warning: Deleted feature: Assigned GOTO statement at (1)
- opkda2.f:948:72:
-
- 948 | ASSIGN 50 TO NEXT
- | 1
- Warning: Deleted feature: ASSIGN statement at (1)
- opkda2.f:958:72:
-
- 958 | ASSIGN 70 TO NEXT
- | 1
- Warning: Deleted feature: ASSIGN statement at (1)
- opkda2.f:964:72:
-
- 964 | ASSIGN 110 TO NEXT
- | 1
- Warning: Deleted feature: ASSIGN statement at (1)
- opkda2.f:998:72:
-
- 998 | 95 SUM = SUM + DX(J)**2
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
- opkdmain.f:1352:72:
-
- 1352 | 80 RWORK(I+LSAVF-1) = RWORK(I+LWM-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
- opkdmain.f:1361:72:
-
- 1361 | 95 RWORK(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
- opkdmain.f:1395:72:
-
- 1395 | 115 RWORK(I+LYH-1) = Y(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
- opkdmain.f:1402:72:
-
- 1402 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
- opkdmain.f:1426:72:
-
- 1426 | 130 TOL = MAX(TOL,RTOL(I))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
- opkdmain.f:1447:72:
-
- 1447 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
- opkdmain.f:1498:72:
-
- 1498 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
- opkdmain.f:1568:72:
-
- 1568 | 410 Y(I) = RWORK(I+LYH-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
- opkdmain.f:1638:72:
-
- 1638 | 590 Y(I) = RWORK(I+LYH-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
- opkdmain.f:3225:72:
-
- 3225 | 72 RWORK(J) = RWORK(J+LYHD)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 72 at (1)
- opkdmain.f:3229:72:
-
- 3229 | 76 RWORK(I) = RWORK(I+LYHD)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 76 at (1)
- opkdmain.f:3239:72:
-
- 3239 | 82 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 82 at (1)
- opkdmain.f:3263:72:
-
- 3263 | 95 RWORK(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
- opkdmain.f:3285:72:
-
- 3285 | 105 RWORK(I+LYH-1) = Y(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
- opkdmain.f:3294:72:
-
- 3294 | 110 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
- opkdmain.f:3359:72:
-
- 3359 | 130 TOL = MAX(TOL,RTOL(I))
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
- opkdmain.f:3380:72:
-
- 3380 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
- opkdmain.f:3431:72:
-
- 3431 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
- opkdmain.f:3501:72:
-
- 3501 | 410 Y(I) = RWORK(I+LYH-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
- opkdmain.f:3586:72:
-
- 3586 | 590 Y(I) = RWORK(I+LYH-1)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
- opkdmain.f:4943:72:
-
- 4943 | 95 RWORK(I) = 0.0D0
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
- opkdmain.f:4980:72:
-
- 4980 | 115 RWORK(I+LYH-1) = Y(I)
- | 1
- Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
- 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 255".
#=== ERROR while compiling odepack.0.7 ========================================#
# context 2.1.5 | 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 255
# exit-code 1
# env-file ~/.opam/log/odepack-113-1a4fbe.env
# output-file ~/.opam/log/odepack-113-1a4fbe.out
### output ###
# File "src/fortran/dune", line 16, characters 0-151:
# 16 | (rule
# 17 | (targets opkda1.o opkda2.o opkdmain.o)
# 18 | (deps opkda1.f opkda2.f opkdmain.f)
# 19 | (action (run %{read-lines:fortranc.txt} -c -fPIC -O3 %{deps})))
# (cd _build/default/src/fortran && /usr/bin/x86_64-linux-gnu-gfortran -c -fPIC -O3 opkda1.f opkda2.f opkdmain.f)
# opkda1.f:123:72:
#
# 123 | 110 PC(I) = PC(I-1) + FNQM1*PC(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:132:72:
#
# 132 | 120 XPIN = XPIN + TSIGN*PC(I)/(I+1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:137:72:
#
# 137 | 130 ELCO(I+1,NQ) = RQ1FAC*PC(I)/I
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkda1.f:160:72:
#
# 160 | 210 PC(I) = PC(I-1) + FNQ*PC(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:164:72:
#
# 164 | 220 ELCO(I,NQ) = PC(I)/PC(2)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:246:72:
#
# 246 | 10 IC = IC*JJ
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:249:72:
#
# 249 | 20 DKY(I) = C*YH(I,L)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:259:72:
#
# 259 | 30 IC = IC*JJ
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
# opkda1.f:262:72:
#
# 262 | 40 DKY(I) = C*YH(I,JP1) + S*DKY(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:267:72:
#
# 267 | 60 DKY(I) = R*DKY(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
# opkda1.f:370:72:
#
# 370 | 110 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:374:72:
#
# 374 | 120 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:389:72:
#
# 389 | 220 WM(I+J1) = (FTEM(I) - SAVF(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:399:72:
#
# 399 | 250 J = J + NP1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
# opkda1.f:408:72:
#
# 408 | 310 Y(I) = Y(I) + R*(H*SAVF(I) - YH(I,2))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
# opkda1.f:430:72:
#
# 430 | 410 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkda1.f:434:72:
#
# 434 | 420 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
# opkda1.f:451:72:
#
# 451 | 530 Y(I) = Y(I) + R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:462:72:
#
# 462 | 540 WM(II+I) = (FTEM(I) - SAVF(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
# opkda1.f:470:72:
#
# 470 | 580 II = II + MEBAND
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1)
# opkda1.f:554:72:
#
# 554 | 320 WM(I+2) = 1.0D0/DI
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
# opkda1.f:556:72:
#
# 556 | 340 X(I) = WM(I+2)*X(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
# opkda1.f:617:72:
#
# 617 | 10 RSAV(I) = RLS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:619:72:
#
# 619 | 20 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:624:72:
#
# 624 | 110 RLS(I) = RSAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:626:72:
#
# 626 | 120 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:808:72:
#
# 808 | 125 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:829:72:
#
# 829 | 155 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:852:72:
#
# 852 | DO 180 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
# opkda1.f:853:72:
#
# 853 | 180 YH(I,J) = YH(I,J)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:874:72:
#
# 874 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:884:72:
#
# 884 | 230 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
# opkda1.f:900:72:
#
# 900 | 260 ACOR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkda1.f:908:72:
#
# 908 | 290 Y(I) = SAVF(I) - ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
# opkda1.f:912:72:
#
# 912 | 300 ACOR(I) = SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
# opkda1.f:920:72:
#
# 920 | 360 Y(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
# opkda1.f:927:72:
#
# 927 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
# opkda1.f:962:72:
#
# 962 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
# opkda1.f:997:72:
#
# 997 | DO 470 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
# opkda1.f:998:72:
#
# 998 | 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
# opkda1.f:1004:72:
#
# 1004 | 490 YH(I,LMAX) = ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
# opkda1.f:1020:72:
#
# 1020 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
# opkda1.f:1040:72:
#
# 1040 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:1067:72:
#
# 1067 | 600 YH(I,NEWQ+1) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
# opkda1.f:1097:72:
#
# 1097 | 645 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
# opkda1.f:1101:72:
#
# 1101 | 650 YH(I,2) = H*SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
# opkda1.f:1122:72:
#
# 1122 | 710 ACOR(I) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
# opkda1.f:1160:72:
#
# 1160 | 15 EWT(I) = RTOL(1)*ABS(YCUR(I)) + ATOL(1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
# opkda1.f:1164:72:
#
# 1164 | 25 EWT(I) = RTOL(1)*ABS(YCUR(I)) + ATOL(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:1168:72:
#
# 1168 | 35 EWT(I) = RTOL(I)*ABS(YCUR(I)) + ATOL(1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
# opkda1.f:1172:72:
#
# 1172 | 45 EWT(I) = RTOL(I)*ABS(YCUR(I)) + ATOL(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 45 at (1)
# opkda1.f:1206:72:
#
# 1206 | 10 SUM = SUM + (V(I)*W(I))**2
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:1266:72:
#
# 1266 | 10 RWORK(I) = RWORK(I+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:1276:72:
#
# 1276 | 30 RWORK(I+LEWTN-1) = RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
# opkda1.f:1370:72:
#
# 1370 | 25 Y(I) = YH(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:1408:72:
#
# 1408 | 75 SAVF(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 75 at (1)
# opkda1.f:1450:72:
#
# 1450 | 145 Y(I) = YH(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 145 at (1)
# opkda1.f:1481:72:
#
# 1481 | 170 IWK(IBR+I) = I
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
# opkda1.f:1496:72:
#
# 1496 | 180 WK(IBA+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:1572:72:
#
# 1572 | 10 JDONE(J) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:1577:72:
#
# 1577 | 20 INCL(I) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:1594:72:
#
# 1594 | 40 INCL(I) = 1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:1652:72:
#
# 1652 | IF (JA(J) - II) 10, 40, 30
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda1.f:1762:72:
#
# 1762 | 110 FTEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:1785:72:
#
# 1785 | 210 Y(JJ) = Y(JJ) + R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:1833:72:
#
# 1833 | 295 FTEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 295 at (1)
# opkda1.f:1851:72:
#
# 1851 | 310 Y(I) = Y(I) + R*(H*SAVF(I) - YH(I,2))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
# opkda1.f:1937:72:
#
# 1937 | 320 WK(I+2) = 1.0D0/DI
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
# opkda1.f:1939:72:
#
# 1939 | 340 X(I) = WK(I+2)*X(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
# opkda1.f:1972:72:
#
# 1972 | 10 RSAV(I) = RLS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:1974:72:
#
# 1974 | 15 RSAV(LENRLS+I) = RLSS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
# opkda1.f:1977:72:
#
# 1977 | 20 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:1979:72:
#
# 1979 | 25 ISAV(LENILS+I) = ILSS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:1985:72:
#
# 1985 | 110 RLS(I) = RSAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:1987:72:
#
# 1987 | 115 RLSS(I) = RSAV(LENRLS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkda1.f:1990:72:
#
# 1990 | 120 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:1992:72:
#
# 1992 | 125 ILSS(I) = ISAV(LENILS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:2310:72:
#
# 2310 | 5 last(next(k)) = k
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
# opkda1.f:2326:72:
#
# 2326 | 1 head(vi) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
# opkda1.f:2337:72:
#
# 2337 | if (vj-vi) 2, 5, 4
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda1.f:2375:72:
#
# 2375 | 7 mark(vi) = tag
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1)
# opkda1.f:2547:72:
#
# 2547 | if (last(vi)) 1, 10, 8
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda1.f:2653:72:
#
# 2653 | 1 q(i) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
# opkda1.f:2669:72:
#
# 2669 | 2 q(k) = q(k) + 1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
# opkda1.f:2677:72:
#
# 2677 | 4 q(i) = ia(i+1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:2698:72:
#
# 2698 | 6 j = j-1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1)
# opkda1.f:2940:72:
#
# 2940 | 4 isp(ju+j-1) = isp(jutmp+j-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:3211:72:
#
# 3211 | 4 a(j) = ar(i)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:3292:72:
#
# 3292 | 1 jru(k) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
# opkda1.f:3302:72:
#
# 3302 | 2 ira(k) = iak
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
# opkda1.f:3369:72:
#
# 3369 | if (jl(j) - qm) 12, 13, 15
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda1.f:3388:72:
#
# 3388 | 16 jl(j) = qm
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1)
# opkda1.f:3471:72:
#
# 3471 | if (ju(j) - qm) 29, 30, 32
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda1.f:3490:72:
#
# 3490 | 33 ju(j) = qm
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 33 at (1)
# opkda1.f:3614:72:
#
# 3614 | 4 row(ju(j)) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:3636:72:
#
# 3636 | 8 row(ju(mu+j)) = row(ju(mu+j)) + lki * u(j)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 8 at (1)
# opkda1.f:3651:72:
#
# 3651 | 11 u(j) = row(ju(mu+j)) * dk
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1)
# opkda1.f:3684:72:
#
# 3684 | 20 sum = sum - u(j) * tmp(ju(mu+j))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:3687:72:
#
# 3687 | 22 k = k-1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1)
# opkda1.f:3725:72:
#
# 3725 | 1 tmp(k) = b(r(k))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
# opkda1.f:3735:72:
#
# 3735 | 2 tmp(jl(ml+j)) = tmp(jl(ml+j)) + tmpk * l(j)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
# opkda1.f:3746:72:
#
# 3746 | 4 sum = sum + u(j) * tmp(ju(mu+j))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:3778:72:
#
# 3778 | 1 tmp(k) = b(c(k))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
# opkda1.f:3787:72:
#
# 3787 | 2 tmp(ju(mu+j)) = tmp(ju(mu+j)) + tmpk * u(j)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
# opkda1.f:3798:72:
#
# 3798 | 4 sum = sum + l(j) * tmp(jl(ml+j))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
# opkda1.f:3961:72:
#
# 3961 | 10 CM2(I) = TESCO(2,I)*ELCO(I+1,I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:3964:72:
#
# 3964 | 20 CM1(I) = TESCO(2,I)*ELCO(I+1,I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:3989:72:
#
# 3989 | 155 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:4024:72:
#
# 4024 | DO 180 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
# opkda1.f:4025:72:
#
# 4025 | 180 YH(I,J) = YH(I,J)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:4046:72:
#
# 4046 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:4059:72:
#
# 4059 | 230 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
# opkda1.f:4075:72:
#
# 4075 | 260 ACOR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkda1.f:4083:72:
#
# 4083 | 290 Y(I) = SAVF(I) - ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
# opkda1.f:4087:72:
#
# 4087 | 300 ACOR(I) = SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
# opkda1.f:4095:72:
#
# 4095 | 360 Y(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
# opkda1.f:4102:72:
#
# 4102 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
# opkda1.f:4156:72:
#
# 4156 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
# opkda1.f:4195:72:
#
# 4195 | DO 460 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 460 at (1)
# opkda1.f:4196:72:
#
# 4196 | 460 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 460 at (1)
# opkda1.f:4304:72:
#
# 4304 | 490 YH(I,LMAX) = ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
# opkda1.f:4320:72:
#
# 4320 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
# opkda1.f:4340:72:
#
# 4340 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:4374:72:
#
# 4374 | 600 YH(I,NEWQ+1) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
# opkda1.f:4407:72:
#
# 4407 | 645 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
# opkda1.f:4411:72:
#
# 4411 | 650 YH(I,2) = H*SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
# opkda1.f:4432:72:
#
# 4432 | 710 ACOR(I) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
# opkda1.f:4509:72:
#
# 4509 | 110 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:4513:72:
#
# 4513 | 120 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:4528:72:
#
# 4528 | 220 WM(I+J1) = (FTEM(I) - SAVF(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:4541:72:
#
# 4541 | 250 J = J + NP1
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
# opkda1.f:4556:72:
#
# 4556 | 410 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkda1.f:4560:72:
#
# 4560 | 420 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
# opkda1.f:4577:72:
#
# 4577 | 530 Y(I) = Y(I) + R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:4588:72:
#
# 4588 | 540 WM(II+I) = (FTEM(I) - SAVF(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
# opkda1.f:4600:72:
#
# 4600 | 580 II = II + MEBAND
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1)
# opkda1.f:4620:72:
#
# 4620 | 10 VM = MAX(VM,ABS(V(I))*W(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:4640:72:
#
# 4640 | 10 SUM = SUM + ABS(A(I,J))/W(J)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:4670:72:
#
# 4670 | 10 SUM = SUM + ABS(A(I1-J,J))/W(J)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:4704:72:
#
# 4704 | 10 RSAV(I) = RLS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:4706:72:
#
# 4706 | 15 RSAV(LENRLS+I) = RLSA(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
# opkda1.f:4709:72:
#
# 4709 | 20 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:4711:72:
#
# 4711 | 25 ISAV(LENILS+I) = ILSA(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:4717:72:
#
# 4717 | 110 RLS(I) = RSAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:4719:72:
#
# 4719 | 115 RLSA(I) = RSAV(LENRLS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkda1.f:4722:72:
#
# 4722 | 120 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:4724:72:
#
# 4724 | 125 ILSA(I) = ISAV(LENILS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:4792:72:
#
# 4792 | 10 JROOT(I) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:4804:72:
#
# 4804 | 110 IF (ABS(G0(I)) .LE. 0.0D0) ZROOT = .TRUE.
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:4811:72:
#
# 4811 | 120 Y(I) = Y(I) + TEMP2*YH(I,2)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:4816:72:
#
# 4816 | 130 IF (ABS(G0(I)) .LE. 0.0D0) ZROOT = .TRUE.
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkda1.f:4834:72:
#
# 4834 | 210 IF (ABS(G0(I)) .LE. 0.0D0) ZROOT = .TRUE.
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:4842:72:
#
# 4842 | 220 Y(I) = Y(I) + TEMP2*YH(I,2)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:4870:72:
#
# 4870 | 320 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
# opkda1.f:5145:72:
#
# 5145 | 10 RSAV(I) = RLS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:5147:72:
#
# 5147 | 15 RSAV(LENRLS+I) = RLSA(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
# opkda1.f:5150:72:
#
# 5150 | 20 RSAV(IOFF+I) = RLSR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:5153:72:
#
# 5153 | 30 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
# opkda1.f:5155:72:
#
# 5155 | 35 ISAV(LENILS+I) = ILSA(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
# opkda1.f:5158:72:
#
# 5158 | 40 ISAV(IOFF+I) = ILSR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:5164:72:
#
# 5164 | 110 RLS(I) = RSAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:5166:72:
#
# 5166 | 115 RLSA(I) = RSAV(LENRLS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkda1.f:5169:72:
#
# 5169 | 120 RLSR(I) = RSAV(IOFF+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:5172:72:
#
# 5172 | 130 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkda1.f:5174:72:
#
# 5174 | 135 ILSA(I) = ISAV(LENILS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1)
# opkda1.f:5177:72:
#
# 5177 | 140 ILSR(I) = ISAV(IOFF+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkda1.f:5360:72:
#
# 5360 | 125 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:5382:72:
#
# 5382 | 155 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:5406:72:
#
# 5406 | DO 180 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
# opkda1.f:5407:72:
#
# 5407 | 180 YH(I,J) = YH(I,J)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:5433:72:
#
# 5433 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:5444:72:
#
# 5444 | 230 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
# opkda1.f:5461:72:
#
# 5461 | 260 ACOR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkda1.f:5469:72:
#
# 5469 | 290 Y(I) = SAVF(I) - ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
# opkda1.f:5473:72:
#
# 5473 | 300 ACOR(I) = SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
# opkda1.f:5481:72:
#
# 5481 | 360 SAVX(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
# opkda1.f:5488:72:
#
# 5488 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
# opkda1.f:5525:72:
#
# 5525 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
# opkda1.f:5560:72:
#
# 5560 | DO 470 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
# opkda1.f:5561:72:
#
# 5561 | 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
# opkda1.f:5567:72:
#
# 5567 | 490 YH(I,LMAX) = ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
# opkda1.f:5583:72:
#
# 5583 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
# opkda1.f:5603:72:
#
# 5603 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:5630:72:
#
# 5630 | 600 YH(I,NEWQ+1) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
# opkda1.f:5660:72:
#
# 5660 | 645 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
# opkda1.f:5664:72:
#
# 5664 | 650 YH(I,2) = H*SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
# opkda1.f:5685:72:
#
# 5685 | 710 ACOR(I) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
# opkda1.f:6019:72:
#
# 6019 | 10 V(I,1) = B(I)*WGHT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:6027:72:
#
# 6027 | 25 X(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:6038:72:
#
# 6038 | 50 V(I,1) = B(I)*WGHT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
# opkda1.f:6046:72:
#
# 6046 | 60 HES(I,J) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
# opkda1.f:6114:72:
#
# 6114 | 210 B(K) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:6118:72:
#
# 6118 | 220 X(K) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:6123:72:
#
# 6123 | 240 X(I) = X(I)/WGHT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
# opkda1.f:6214:72:
#
# 6214 | 10 VTEM(I) = V(I)/WGHT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:6221:72:
#
# 6221 | 20 Y(I) = Z(I) + VTEM(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:6232:72:
#
# 6232 | 40 Z(I) = VTEM(I)*WGHT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# ...TRUNCATED BY DUNE...
# opkda1.f:6853:72:
#
# 6853 | 60 P(I) = Z(I) + BETA*P(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
# opkda1.f:6862:72:
#
# 6862 | 80 PTW = PTW + P(I)*W(I)*WGHT(I)**2
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkda1.f:6946:72:
#
# 6946 | 20 Y(I) = W(I) + P(I)*RPNRM
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:6952:72:
#
# 6952 | 40 W(I) = P(I) - FAC*(WK(I) - SAVF(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:7031:72:
#
# 7031 | 20 X(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:7077:72:
#
# 7077 | 20 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:7079:72:
#
# 7079 | 40 ISAV(LENILS+I) = ILSP(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:7086:72:
#
# 7086 | 120 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:7088:72:
#
# 7088 | 140 ILSP(I) = ISAV(LENILS+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkda1.f:7658:72:
#
# 7658 | 60 Y(I) = Y0(I) + HG*YDOT(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
# opkda1.f:7661:72:
#
# 7661 | 70 TEMP(I) = (TEMP(I) - YDOT(I))/HG
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
# opkda1.f:7875:72:
#
# 7875 | 125 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:7897:72:
#
# 7897 | 155 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:7921:72:
#
# 7921 | DO 180 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
# opkda1.f:7922:72:
#
# 7922 | 180 YH(I,J) = YH(I,J)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:7951:72:
#
# 7951 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:7968:72:
#
# 7968 | 230 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
# opkda1.f:7995:72:
#
# 7995 | 260 ACOR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkda1.f:8003:72:
#
# 8003 | 290 Y(I) = SAVF(I) - ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
# opkda1.f:8007:72:
#
# 8007 | 300 ACOR(I) = SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
# opkda1.f:8017:72:
#
# 8017 | 360 SAVX(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
# opkda1.f:8026:72:
#
# 8026 | 380 Y(I) = YH(I,1) + EL(1)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
# opkda1.f:8085:72:
#
# 8085 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
# opkda1.f:8126:72:
#
# 8126 | DO 470 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
# opkda1.f:8127:72:
#
# 8127 | 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
# opkda1.f:8133:72:
#
# 8133 | 490 YH(I,LMAX) = ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
# opkda1.f:8149:72:
#
# 8149 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
# opkda1.f:8169:72:
#
# 8169 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:8196:72:
#
# 8196 | 600 YH(I,NEWQ+1) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
# opkda1.f:8226:72:
#
# 8226 | 645 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
# opkda1.f:8230:72:
#
# 8230 | 650 YH(I,2) = H*SAVF(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
# opkda1.f:8251:72:
#
# 8251 | 710 ACOR(I) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
# opkda1.f:8357:72:
#
# 8357 | 20 ISAV(I) = ILS(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:8364:72:
#
# 8364 | 30 ISAV(IOFF+I) = ILSR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
# opkda1.f:8367:72:
#
# 8367 | 40 ISAV(IOFF+I) = ILSP(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:8376:72:
#
# 8376 | 120 ILS(I) = ISAV(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:8383:72:
#
# 8383 | 130 ILSR(I) = ISAV(IOFF+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkda1.f:8386:72:
#
# 8386 | 140 ILSP(I) = ISAV(IOFF+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkda1.f:8416:72:
#
# 8416 | 10 PW(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:8436:72:
#
# 8436 | 110 PW(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:8615:72:
#
# 8615 | 125 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkda1.f:8636:72:
#
# 8636 | 155 EL(I) = ELCO(I,NQ)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:8659:72:
#
# 8659 | DO 180 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
# opkda1.f:8660:72:
#
# 8660 | 180 YH(I,J) = YH(I,J)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
# opkda1.f:8681:72:
#
# 8681 | 210 YH1(I) = YH1(I) + YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:8692:72:
#
# 8692 | 230 Y(I) = YH(I,1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
# opkda1.f:8716:72:
#
# 8716 | 260 ACOR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkda1.f:8730:72:
#
# 8730 | 380 Y(I) = YH(I,1) + EL1H*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
# opkda1.f:8768:72:
#
# 8768 | 440 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
# opkda1.f:8808:72:
#
# 8808 | DO 470 I = 1,N
# | 1
# Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
# opkda1.f:8809:72:
#
# 8809 | 470 YH(I,J) = YH(I,J) + ELJH*ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
# opkda1.f:8815:72:
#
# 8815 | 490 YH(I,LMAX) = ACOR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
# opkda1.f:8831:72:
#
# 8831 | 510 YH1(I) = YH1(I) - YH1(I+NYH)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
# opkda1.f:8851:72:
#
# 8851 | 530 SAVF(I) = ACOR(I) - YH(I,LMAX)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:8878:72:
#
# 8878 | 600 YH(I,NEWQ+1) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
# opkda1.f:8909:72:
#
# 8909 | 710 ACOR(I) = ACOR(I)*R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
# opkda1.f:8987:72:
#
# 8987 | 110 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:8991:72:
#
# 8991 | 120 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:9010:72:
#
# 9010 | 220 WM(I+J1) = (RTEM(I) - SAVR(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
# opkda1.f:9039:72:
#
# 9039 | 410 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkda1.f:9043:72:
#
# 9043 | 420 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
# opkda1.f:9063:72:
#
# 9063 | 530 Y(I) = Y(I) + R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
# opkda1.f:9076:72:
#
# 9076 | 540 WM(II+I) = (RTEM(I) - SAVR(I))*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
# opkda1.f:9120:72:
#
# 9120 | 10 PW(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:9209:72:
#
# 9209 | 110 WM(I+2) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:9213:72:
#
# 9213 | 120 WM(I+2) = WM(I+2)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:9225:72:
#
# 9225 | 205 WM(2+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1)
# opkda1.f:9238:72:
#
# 9238 | 215 RTEM(I) = RTEM(I) - SAVR(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1)
# opkda1.f:9249:72:
#
# 9249 | 221 WM(IPA+J2) = RTEM(IIA+J2)*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 221 at (1)
# opkda1.f:9255:72:
#
# 9255 | 222 WM(IPB+J2) = RTEM(IIB+J2)*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 222 at (1)
# opkda1.f:9262:72:
#
# 9262 | 224 WM(IPC+J2) = RTEM(IIC+J2)*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 224 at (1)
# opkda1.f:9268:72:
#
# 9268 | 226 WM(IPC+J2) = RTEM(J2)*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 226 at (1)
# opkda1.f:9275:72:
#
# 9275 | 228 WM(IPB+J2) = RTEM(IIB+J2)*FAC
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 228 at (1)
# opkda1.f:9408:72:
#
# 9408 | 80 CALL odepack_DGESL (A(1,1,K), M, M, IP(1,K), B(1,J,K), 0)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkda1.f:9551:72:
#
# 9551 | 10 RWORK(I) = RWORK(I+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:9561:72:
#
# 9561 | 30 RWORK(I+LEWTN-1) = RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
# opkda1.f:9668:72:
#
# 9668 | 25 S(I) = YH(N+I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
# opkda1.f:9678:72:
#
# 9678 | 35 IWK(LIWK+I) = 0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
# opkda1.f:9711:72:
#
# 9711 | 75 WK(LENWK1+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 75 at (1)
# opkda1.f:9735:72:
#
# 9735 | 105 WK(LENWK1+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
# opkda1.f:9771:72:
#
# 9771 | 155 SAVR(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
# opkda1.f:9836:72:
#
# 9836 | 245 Y(I) = YH(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 245 at (1)
# opkda1.f:9870:72:
#
# 9870 | 270 IWK(IBR+I) = I
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
# opkda1.f:9885:72:
#
# 9885 | 280 WK(IBA+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
# opkda1.f:9987:72:
#
# 9987 | 10 WK(IBA+I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
# opkda1.f:9998:72:
#
# 9998 | 15 TEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
# opkda1.f:10002:72:
#
# 10002 | 20 WK(IBA+K) = TEM(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
# opkda1.f:10008:72:
#
# 10008 | 40 TEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
# opkda1.f:10110:72:
#
# 10110 | 110 RTEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkda1.f:10113:72:
#
# 10113 | 120 RTEM(I) = RTEM(I)*CON
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkda1.f:10136:72:
#
# 10136 | 210 Y(JJ) = Y(JJ) + R
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
# opkda1.f:10168:72:
#
# 10168 | 295 RTEM(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 295 at (1)
# opkda1.f:1256:72:
#
# 1256 | 1 RWORK(LACOR), IA, JA, RWORK(LWM), RWORK(LWM), IPFLAG, F, JAC)
# | 1
# Error: Type mismatch in argument 'iwk' at (1); passed REAL(8) to INTEGER(4)
# opkda1.f:9541:72:
#
# 9541 | 2 RES, JAC, ADDA)
# | 1
# Error: Type mismatch in argument 'iwk' at (1); passed REAL(8) to INTEGER(4)
# opkda2.f:630:72:
#
# 630 | IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda2.f:719:72:
#
# 719 | IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda2.f:812:72:
#
# 812 | IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
# | 1
# Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
# opkda2.f:939:72:
#
# 939 | 10 ASSIGN 30 TO NEXT
# | 1
# Warning: Deleted feature: ASSIGN statement at (1)
# opkda2.f:946:20:
#
# 946 | 20 GO TO NEXT,(30, 50, 70, 110)
# | 1
# Warning: Deleted feature: Assigned GOTO statement at (1)
# opkda2.f:948:72:
#
# 948 | ASSIGN 50 TO NEXT
# | 1
# Warning: Deleted feature: ASSIGN statement at (1)
# opkda2.f:958:72:
#
# 958 | ASSIGN 70 TO NEXT
# | 1
# Warning: Deleted feature: ASSIGN statement at (1)
# opkda2.f:964:72:
#
# 964 | ASSIGN 110 TO NEXT
# | 1
# Warning: Deleted feature: ASSIGN statement at (1)
# opkda2.f:998:72:
#
# 998 | 95 SUM = SUM + DX(J)**2
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:1352:72:
#
# 1352 | 80 RWORK(I+LSAVF-1) = RWORK(I+LWM-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkdmain.f:1361:72:
#
# 1361 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:1395:72:
#
# 1395 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:1402:72:
#
# 1402 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkdmain.f:1426:72:
#
# 1426 | 130 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkdmain.f:1447:72:
#
# 1447 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:1498:72:
#
# 1498 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:1568:72:
#
# 1568 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:1638:72:
#
# 1638 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:3225:72:
#
# 3225 | 72 RWORK(J) = RWORK(J+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 72 at (1)
# opkdmain.f:3229:72:
#
# 3229 | 76 RWORK(I) = RWORK(I+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 76 at (1)
# opkdmain.f:3239:72:
#
# 3239 | 82 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 82 at (1)
# opkdmain.f:3263:72:
#
# 3263 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:3285:72:
#
# 3285 | 105 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
# opkdmain.f:3294:72:
#
# 3294 | 110 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkdmain.f:3359:72:
#
# 3359 | 130 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkdmain.f:3380:72:
#
# 3380 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:3431:72:
#
# 3431 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:3501:72:
#
# 3501 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:3586:72:
#
# 3586 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:4943:72:
#
# 4943 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:4980:72:
#
# 4980 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:4987:72:
#
# 4987 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkdmain.f:5014:72:
#
# 5014 | 130 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkdmain.f:5035:72:
#
# 5035 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:5091:72:
#
# 5091 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:5184:72:
#
# 5184 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:5272:72:
#
# 5272 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:6735:72:
#
# 6735 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:6772:72:
#
# 6772 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:6779:72:
#
# 6779 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkdmain.f:6806:72:
#
# 6806 | 130 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkdmain.f:6827:72:
#
# 6827 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:6911:72:
#
# 6911 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:7017:72:
#
# 7017 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:7108:72:
#
# 7108 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:8534:72:
#
# 8534 | 80 RWORK(I+LSAVF-1) = RWORK(I+LWM-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkdmain.f:8542:72:
#
# 8542 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:8585:72:
#
# 8585 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:8592:72:
#
# 8592 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkdmain.f:8616:72:
#
# 8616 | 130 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
# opkdmain.f:8637:72:
#
# 8637 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:8732:72:
#
# 8732 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:8802:72:
#
# 8802 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:8885:72:
#
# 8885 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:10413:72:
#
# 10413 | 80 RWORK(I+LSAVF-1) = RWORK(I+LWM-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkdmain.f:10421:72:
#
# 10421 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:10466:72:
#
# 10466 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:10473:72:
#
# 10473 | 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
# opkdmain.f:10487:72:
#
# 10487 | 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:10610:72:
#
# 10610 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:10693:72:
#
# 10693 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:10781:72:
#
# 10781 | 590 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
# opkdmain.f:12228:72:
#
# 12228 | 80 YDOTI(I) = RWORK(I+LWM-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkdmain.f:12237:72:
#
# 12237 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:12277:72:
#
# 12277 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:12282:72:
#
# 12282 | 125 RWORK(I+LYD0-1) = YDOTI(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkdmain.f:12290:72:
#
# 12290 | 135 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1)
# opkdmain.f:12314:72:
#
# 12314 | 140 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkdmain.f:12335:72:
#
# 12335 | 190 RWORK(I+LYD0-1) = H0*RWORK(I+LYD0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:12386:72:
#
# 12386 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:12462:72:
#
# 12462 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:12561:72:
#
# 12561 | 585 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 585 at (1)
# opkdmain.f:12573:72:
#
# 12573 | 592 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 592 at (1)
# opkdmain.f:14038:72:
#
# 14038 | 80 YDOTI(I) = RWORK(I+LWM-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
# opkdmain.f:14047:72:
#
# 14047 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:14087:72:
#
# 14087 | 115 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
# opkdmain.f:14092:72:
#
# 14092 | 125 RWORK(I+LYD0-1) = YDOTI(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
# opkdmain.f:14100:72:
#
# 14100 | 135 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1)
# opkdmain.f:14124:72:
#
# 14124 | 140 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkdmain.f:14145:72:
#
# 14145 | 190 RWORK(I+LYD0-1) = H0*RWORK(I+LYD0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:14196:72:
#
# 14196 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:14271:72:
#
# 14271 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:14369:72:
#
# 14369 | 585 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 585 at (1)
# opkdmain.f:14381:72:
#
# 14381 | 592 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 592 at (1)
# opkdmain.f:16090:72:
#
# 16090 | 72 RWORK(J) = RWORK(J+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 72 at (1)
# opkdmain.f:16094:72:
#
# 16094 | 76 RWORK(I) = RWORK(I+LYHD)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 76 at (1)
# opkdmain.f:16103:72:
#
# 16103 | 82 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 82 at (1)
# opkdmain.f:16126:72:
#
# 16126 | 92 YDOTI(I) = RWORK(I+LSAVF-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 92 at (1)
# opkdmain.f:16133:72:
#
# 16133 | 95 RWORK(I) = 0.0D0
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
# opkdmain.f:16156:72:
#
# 16156 | 105 RWORK(I+LYH-1) = Y(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
# opkdmain.f:16161:72:
#
# 16161 | 106 RWORK(I+LYD0-1) = YDOTI(I)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 106 at (1)
# opkdmain.f:16167:72:
#
# 16167 | 110 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
# opkdmain.f:16234:72:
#
# 16234 | 140 TOL = MAX(TOL,RTOL(I))
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
# opkdmain.f:16255:72:
#
# 16255 | 190 RWORK(I+LYD0-1) = H0*RWORK(I+LYD0-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
# opkdmain.f:16306:72:
#
# 16306 | 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
# opkdmain.f:16382:72:
#
# 16382 | 410 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
# opkdmain.f:16495:72:
#
# 16495 | 585 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 585 at (1)
# opkdmain.f:16507:72:
#
# 16507 | 592 Y(I) = RWORK(I+LYH-1)
# | 1
# Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 592 at (1)
# opkdmain.f:3458:49:
#
# 1525 | 1 RWORK(LSAVF), RWORK(LACOR), RWORK(LWM), IWORK(LIWM),
# | 2
# ......
# 3458 | 1 RWORK(LSAVF), RWORK(LACOR), RWORK(LWM), RWORK(LWM),
# | 1
# Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
# opkdmain.f:16336:9:
#
# 12416 | 2 IWORK(LIWM), RES, ADDA, JAC, odepack_odepack_odepack_DPREPJI,
# | 2
# ......
# 16336 | 2 RWORK(LWM), RES, ADDA, JAC, odepack_DPRJIS, odepack_DSOLSS )
# | 1
# Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
<><> Error report <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
+- The following actions failed
| - build odepack 0.7
+-
+- The following changes have been performed
| - install base-bytes base
| - install conf-gfortran 0
| - install csexp 1.5.2
| - install dune-configurator 3.13.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-20240129153327.export"
'opam --cli=2.1 install odepack.0.7 ocamlfind.1.9.6 dune-configurator.3.13.0 dune.3.13.0 csexp.1.5.2 conf-gfortran.0 base-bytes.base --verbose --yes --confirm-level=unsafe-yes' failed.
On This Page