=> "/opt/local/bin/bmake" ["-C", "/data/jenkins/workspace/pkgsrc-trunk-x86_64/math/odepack", "all", "BATCH=1", "DEPENDS_TARGET=/nonexistent"] WARNING: [license.mk] Every package should define a LICENSE. ===> Building for odepack-20001130nb2 /bin/cp /data/jenkins/workspace/pkgsrc-trunk-x86_64/math/odepack/files/Makefile /tmp/work/math/odepack/work/odepack --- adjlr.o --- --- aigbt.o --- gfortran -O -c aigbt.f --- adjlr.o --- gfortran -O -c adjlr.f --- aigbt.o --- aigbt.f:26:72: 26 | 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) --- ainvg.o --- gfortran -O -c ainvg.f --- blkdta000.o --- gfortran -O -c blkdta000.f --- ainvg.o --- ainvg.f:27:72: 27 | 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) ainvg.f:47:72: 47 | 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) --- bnorm.o --- gfortran -O -c bnorm.f bnorm.f:24:72: 24 | 10 sum = sum + dabs(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) --- cdrv.o --- gfortran -O -c cdrv.f cdrv.f:222:72: 222 | 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) --- cfode.o --- gfortran -O -c cfode.f cfode.f:62:72: 62 | 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) cfode.f:71:72: 71 | 120 xpin = xpin + tsign*pc(i)/dfloat(i+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) cfode.f:76:72: 76 | 130 elco(i+1,nq) = rq1fac*pc(i)/dfloat(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) cfode.f:99:72: 99 | 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) cfode.f:103:72: 103 | 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) --- cntnzu.o --- gfortran -O -c cntnzu.f cntnzu.f:19:72: 19 | if (ja(j) - ii) 10, 40, 30 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) cntnzu.f:16:18: 14 | do 50 ii = 1,n | 2 15 | jmin = ia(ii) 16 | jmax = ia(ii+1) - 1 | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) --- decbt.o --- gfortran -O -c decbt.f --- ewset.o --- gfortran -O -c ewset.f --- decbt.o --- decbt.f:84:72: 84 | 80 call 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) --- ewset.o --- ewset.f:17:72: 17 | 15 ewt(i) = rtol(1)*dabs(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) ewset.f:21:72: 21 | 25 ewt(i) = rtol(1)*dabs(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) ewset.f:25:72: 25 | 35 ewt(i) = rtol(i)*dabs(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) ewset.f:29:72: 29 | 45 ewt(i) = rtol(i)*dabs(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) --- fnorm.o --- gfortran -O -c fnorm.f fnorm.f:16:72: 16 | 10 sum = sum + dabs(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) --- intdy.o --- --- iprep.o --- --- intdy.o --- gfortran -O -c intdy.f --- iprep.o --- gfortran -O -c iprep.f --- intdy.o --- intdy.f:48:72: 48 | 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) intdy.f:51:72: 51 | 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) intdy.f:61:72: 61 | 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) intdy.f:64:72: 64 | 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) intdy.f:69:72: 69 | 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) intdy.f:72:22: 72 | 80 call xerrwv(30hintdy-- k (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) intdy.f:76:22: 76 | 90 call xerrwv(30hintdy-- t (=r1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) intdy.f:79:12: 79 | 1 60h t not in interval tcur - hu (= r1) to tcur (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) --- iprep.o --- iprep.f:56:72: 56 | 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) iprep.f:66:72: 66 | 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) --- jgroup.o --- --- lsoda.o --- --- jgroup.o --- gfortran -O -c jgroup.f --- lsoda.o --- gfortran -O -c lsoda.f --- jgroup.o --- jgroup.f:29:72: 29 | 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) jgroup.f:34:72: 34 | 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) jgroup.f:51:72: 51 | 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) --- lsoda.o --- lsoda.f:1136:12: 1136 | 1 60hlsoda-- warning.. rwork length is sufficient for now, but , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1139:12: 1139 | 1 60h may not be later. integration will proceed anyway. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1142:12: 1142 | 1 50h length needed is lenrw = i1, while lrw = i2., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1150:12: 1150 | 1 60hlsoda-- warning.. iwork length is sufficient for now, but , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1153:12: 1153 | 1 60h may not be later. integration will proceed anyway. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1156:12: 1156 | 1 50h length needed is leniw = i1, while liw = i2., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1177:72: 1177 | 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) lsoda.f:1214:72: 1214 | 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) lsoda.f:1221:72: 1221 | 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) lsoda.f:1248:72: 1248 | 130 tol = dmax1(tol,rtol(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) lsoda.f:1269:72: 1269 | 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) lsoda.f:1325:72: 1325 | 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) lsoda.f:1334:22: 1334 | call xerrwv(50hlsoda-- warning..internal t (=r1) and h (=r2) are, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1337:12: 1337 | 1 60h such that in the machine, t + h = t on the next step , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1339:22: 1339 | call xerrwv(50h (h = step size). solver will continue anyway, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1342:22: 1342 | call xerrwv(50hlsoda-- above warning has been issued i1 times. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1344:22: 1344 | call xerrwv(50h it will not be issued again for this problem, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1375:12: 1375 | 1 60hlsoda-- a switch to the bdf (stiff) method has occurred , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1378:12: 1378 | 1 60hlsoda-- a switch to the adams (nonstiff) method has occurred, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1381:12: 1381 | 1 60h at t = r1, tentative step size h = r2, step nst = i1 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1418:72: 1418 | 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) lsoda.f:1440:12: 1440 | 1 60hlsoda-- repeated calls with istate = 1 and tout = t (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1453:22: 1453 | 500 call xerrwv(50hlsoda-- at current t (=r1), mxstep (=i1) steps , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1455:22: 1455 | call xerrwv(50h taken on this call before reaching tout , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1461:22: 1461 | call xerrwv(50hlsoda-- at t (=r1), ewt(i1) has become r2 .le. 0., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1466:22: 1466 | 520 call xerrwv(50hlsoda-- at t (=r1), too much accuracy requested , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1468:22: 1468 | call xerrwv(50h for precision of machine.. see tolsf (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1474:22: 1474 | 530 call xerrwv(50hlsoda-- at t(=r1) and step size h(=r2), the error, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1476:22: 1476 | call xerrwv(50h test failed repeatedly or with abs(h) = hmin, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1481:22: 1481 | 540 call xerrwv(50hlsoda-- at t (=r1) and step size h (=r2), the , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1483:22: 1483 | call xerrwv(50h corrector convergence failed repeatedly , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1485:22: 1485 | call xerrwv(30h or with abs(h) = hmin , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1490:22: 1490 | 550 call xerrwv(50hlsoda-- at current t(=r1), rwork length too small, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1493:12: 1493 | 1 60h to proceed. the integration was otherwise successful., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1498:22: 1498 | 555 call xerrwv(50hlsoda-- at current t(=r1), iwork length too small, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1501:12: 1501 | 1 60h to proceed. the integration was otherwise successful., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1517:72: 1517 | 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) lsoda.f:1540:22: 1540 | 601 call xerrwv(30hlsoda-- istate (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1543:22: 1543 | 602 call xerrwv(30hlsoda-- itask (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1546:22: 1546 | 603 call xerrwv(50hlsoda-- istate .gt. 1 but lsoda not initialized , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1549:22: 1549 | 604 call xerrwv(30hlsoda-- neq (=i1) .lt. 1 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1552:22: 1552 | 605 call xerrwv(50hlsoda-- istate = 3 and neq increased (i1 to i2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1555:22: 1555 | 606 call xerrwv(30hlsoda-- itol (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1558:22: 1558 | 607 call xerrwv(30hlsoda-- iopt (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1561:22: 1561 | 608 call xerrwv(30hlsoda-- jt (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1564:22: 1564 | 609 call xerrwv(50hlsoda-- ml (=i1) illegal.. .lt.0 or .ge.neq (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1567:22: 1567 | 610 call xerrwv(50hlsoda-- mu (=i1) illegal.. .lt.0 or .ge.neq (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1570:22: 1570 | 611 call xerrwv(30hlsoda-- ixpr (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1573:22: 1573 | 612 call xerrwv(30hlsoda-- mxstep (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1576:22: 1576 | 613 call xerrwv(30hlsoda-- mxhnil (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1579:22: 1579 | 614 call xerrwv(40hlsoda-- tout (=r1) behind t (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1581:22: 1581 | call xerrwv(50h integration direction is given by h0 (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1584:22: 1584 | 615 call xerrwv(30hlsoda-- hmax (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1587:22: 1587 | 616 call xerrwv(30hlsoda-- hmin (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1591:12: 1591 | 1 60hlsoda-- rwork length needed, lenrw (=i1), exceeds lrw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1595:12: 1595 | 1 60hlsoda-- iwork length needed, leniw (=i1), exceeds liw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1598:22: 1598 | 619 call xerrwv(40hlsoda-- rtol(i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1601:22: 1601 | 620 call xerrwv(40hlsoda-- atol(i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1605:22: 1605 | call xerrwv(40hlsoda-- ewt(i1) is r1 .le. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1609:12: 1609 | 1 60hlsoda-- tout (=r1) too close to t(=r2) to start integration, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1613:12: 1613 | 1 60hlsoda-- itask = i1 and tout (=r1) behind tcur - hu (= r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1617:12: 1617 | 1 60hlsoda-- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1621:12: 1621 | 1 60hlsoda-- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1624:22: 1624 | 626 call xerrwv(50hlsoda-- at start of problem, too much accuracy , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1627:12: 1627 | 1 60h requested for precision of machine.. see tolsf (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1631:22: 1631 | 627 call xerrwv(50hlsoda-- trouble from intdy. itask = i1, tout = r1, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1634:22: 1634 | 628 call xerrwv(30hlsoda-- mxordn (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1637:22: 1637 | 629 call xerrwv(30hlsoda-- mxords (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1644:22: 1644 | 710 call xerrwv(50hlsoda-- repeated occurrences of illegal input , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoda.f:1647:22: 1647 | 800 call xerrwv(50hlsoda-- run aborted.. apparent infinite loop , | 1 Warning: Legacy Extension: Hollerith constant at (1) --- lsodar.o --- gfortran -O -c lsodar.f lsodar.f:1280:12: 1280 | 1 60hlsodar- warning.. rwork length is sufficient for now, but , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1283:12: 1283 | 1 60h may not be later. integration will proceed anyway. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1286:12: 1286 | 1 50h length needed is lenrw = i1, while lrw = i2., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1294:12: 1294 | 1 60hlsodar- warning.. iwork length is sufficient for now, but , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1297:12: 1297 | 1 60h may not be later. integration will proceed anyway. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1300:12: 1300 | 1 50h length needed is leniw = i1, while liw = i2., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1321:72: 1321 | 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) lsodar.f:1358:72: 1358 | 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) lsodar.f:1365:72: 1365 | 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) lsodar.f:1392:72: 1392 | 130 tol = dmax1(tol,rtol(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) lsodar.f:1413:72: 1413 | 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) lsodar.f:1497:72: 1497 | 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) lsodar.f:1506:22: 1506 | call xerrwv(50hlsodar- warning..internal t (=r1) and h (=r2) are, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1509:12: 1509 | 1 60h such that in the machine, t + h = t on the next step , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1511:22: 1511 | call xerrwv(50h (h = step size). solver will continue anyway, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1514:22: 1514 | call xerrwv(50hlsodar- above warning has been issued i1 times. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1516:22: 1516 | call xerrwv(50h it will not be issued again for this problem, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1548:12: 1548 | 1 60hlsodar- a switch to the bdf (stiff) method has occurred , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1551:12: 1551 | 1 60hlsodar- a switch to the adams (nonstiff) method has occurred, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1554:12: 1554 | 1 60h at t = r1, tentative step size h = r2, step nst = i1 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1603:72: 1603 | 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) lsodar.f:1628:12: 1628 | 1 60hlsodar- repeated calls with istate = 1 and tout = t (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1641:22: 1641 | 500 call xerrwv(50hlsodar- at current t (=r1), mxstep (=i1) steps , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1643:22: 1643 | call xerrwv(50h taken on this call before reaching tout , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1649:22: 1649 | call xerrwv(50hlsodar- at t (=r1), ewt(i1) has become r2 .le. 0., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1654:22: 1654 | 520 call xerrwv(50hlsodar- at t (=r1), too much accuracy requested , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1656:22: 1656 | call xerrwv(50h for precision of machine.. see tolsf (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1662:22: 1662 | 530 call xerrwv(50hlsodar- at t(=r1) and step size h(=r2), the error, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1664:22: 1664 | call xerrwv(50h test failed repeatedly or with abs(h) = hmin, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1669:22: 1669 | 540 call xerrwv(50hlsodar- at t (=r1) and step size h (=r2), the , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1671:22: 1671 | call xerrwv(50h corrector convergence failed repeatedly , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1673:22: 1673 | call xerrwv(30h or with abs(h) = hmin , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1678:22: 1678 | 550 call xerrwv(50hlsodar- at current t(=r1), rwork length too small, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1681:12: 1681 | 1 60h to proceed. the integration was otherwise successful., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1686:22: 1686 | 555 call xerrwv(50hlsodar- at current t(=r1), iwork length too small, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1689:12: 1689 | 1 60h to proceed. the integration was otherwise successful., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1705:72: 1705 | 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) lsodar.f:1730:22: 1730 | 601 call xerrwv(30hlsodar- istate (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1733:22: 1733 | 602 call xerrwv(30hlsodar- itask (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1736:22: 1736 | 603 call xerrwv(50hlsodar- istate .gt. 1 but lsodar not initialized , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1739:22: 1739 | 604 call xerrwv(30hlsodar- neq (=i1) .lt. 1 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1742:22: 1742 | 605 call xerrwv(50hlsodar- istate = 3 and neq increased (i1 to i2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1745:22: 1745 | 606 call xerrwv(30hlsodar- itol (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1748:22: 1748 | 607 call xerrwv(30hlsodar- iopt (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1751:22: 1751 | 608 call xerrwv(30hlsodar- jt (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1754:22: 1754 | 609 call xerrwv(50hlsodar- ml (=i1) illegal.. .lt.0 or .ge.neq (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1757:22: 1757 | 610 call xerrwv(50hlsodar- mu (=i1) illegal.. .lt.0 or .ge.neq (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1760:22: 1760 | 611 call xerrwv(30hlsodar- ixpr (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1763:22: 1763 | 612 call xerrwv(30hlsodar- mxstep (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1766:22: 1766 | 613 call xerrwv(30hlsodar- mxhnil (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1769:22: 1769 | 614 call xerrwv(40hlsodar- tout (=r1) behind t (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1771:22: 1771 | call xerrwv(50h integration direction is given by h0 (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1774:22: 1774 | 615 call xerrwv(30hlsodar- hmax (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1777:22: 1777 | 616 call xerrwv(30hlsodar- hmin (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1781:12: 1781 | 1 60hlsodar- rwork length needed, lenrw (=i1), exceeds lrw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1785:12: 1785 | 1 60hlsodar- iwork length needed, leniw (=i1), exceeds liw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1788:22: 1788 | 619 call xerrwv(40hlsodar- rtol(i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1791:22: 1791 | 620 call xerrwv(40hlsodar- atol(i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1795:22: 1795 | call xerrwv(40hlsodar- ewt(i1) is r1 .le. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1799:12: 1799 | 1 60hlsodar- tout (=r1) too close to t(=r2) to start integration, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1803:12: 1803 | 1 60hlsodar- itask = i1 and tout (=r1) behind tcur - hu (= r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1807:12: 1807 | 1 60hlsodar- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1811:12: 1811 | 1 60hlsodar- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1814:22: 1814 | 626 call xerrwv(50hlsodar- at start of problem, too much accuracy , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1817:12: 1817 | 1 60h requested for precision of machine.. see tolsf (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1821:22: 1821 | 627 call xerrwv(50hlsodar- trouble from intdy. itask = i1, tout = r1, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1824:22: 1824 | 628 call xerrwv(30hlsodar- mxordn (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1827:22: 1827 | 629 call xerrwv(30hlsodar- mxords (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1830:22: 1830 | 630 call xerrwv(30hlsodar- ng (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1833:22: 1833 | 631 call xerrwv(50hlsodar- ng changed (from i1 to i2) illegally, , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1835:22: 1835 | call xerrwv(50h i.e. not immediately after a root was found , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1838:22: 1838 | 632 call xerrwv(50hlsodar- one or more components of g has a root , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1840:22: 1840 | call xerrwv(40h too near to the initial point , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1848:22: 1848 | 710 call xerrwv(50hlsodar- repeated occurrences of illegal input , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodar.f:1851:22: 1851 | 800 call xerrwv(50hlsodar- run aborted.. apparent infinite loop , | 1 Warning: Legacy Extension: Hollerith constant at (1) --- lsode.o --- gfortran -O -c lsode.f lsode.f:1091:72: 1091 | 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) lsode.f:1100:72: 1100 | 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) lsode.f:1134:72: 1134 | 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) lsode.f:1141:72: 1141 | 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) lsode.f:1165:72: 1165 | 130 tol = dmax1(tol,rtol(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) lsode.f:1186:72: 1186 | 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) lsode.f:1237:72: 1237 | 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) lsode.f:1246:22: 1246 | call xerrwv(50hlsode-- warning..internal t (=r1) and h (=r2) are, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1249:12: 1249 | 1 60h such that in the machine, t + h = t on the next step , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1251:22: 1251 | call xerrwv(50h (h = step size). solver will continue anyway, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1254:22: 1254 | call xerrwv(50hlsode-- above warning has been issued i1 times. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1256:22: 1256 | call xerrwv(50h it will not be issued again for this problem, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1308:72: 1308 | 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) lsode.f:1327:12: 1327 | 1 60hlsode-- repeated calls with istate = 1 and tout = t (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1340:22: 1340 | 500 call xerrwv(50hlsode-- at current t (=r1), mxstep (=i1) steps , | 1 Warning: Legacy Extension: Hollerith constant at (1) --- lsodes.o --- --- lsode.o --- lsode.f:1342:22: 1342 | call xerrwv(50h taken on this call before reaching tout , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1348:22: 1348 | call xerrwv(50hlsode-- at t (=r1), ewt(i1) has become r2 .le. 0., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1353:22: 1353 | 520 call xerrwv(50hlsode-- at t (=r1), too much accuracy requested , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1355:22: 1355 | call xerrwv(50h for precision of machine.. see tolsf (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1361:22: 1361 | 530 call xerrwv(50hlsode-- at t(=r1) and step size h(=r2), the error, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1363:22: 1363 | call xerrwv(50h test failed repeatedly or with abs(h) = hmin, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1368:22: 1368 | 540 call xerrwv(50hlsode-- at t (=r1) and step size h (=r2), the , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1370:22: 1370 | call xerrwv(50h corrector convergence failed repeatedly , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1372:22: 1372 | call xerrwv(30h or with abs(h) = hmin , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1387:72: 1387 | 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) lsode.f:1407:22: 1407 | 601 call xerrwv(30hlsode-- istate (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1410:22: 1410 | 602 call xerrwv(30hlsode-- itask (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1413:22: 1413 | 603 call xerrwv(50hlsode-- istate .gt. 1 but lsode not initialized , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1416:22: 1416 | 604 call xerrwv(30hlsode-- neq (=i1) .lt. 1 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1419:22: 1419 | 605 call xerrwv(50hlsode-- istate = 3 and neq increased (i1 to i2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1422:22: 1422 | 606 call xerrwv(30hlsode-- itol (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1425:22: 1425 | 607 call xerrwv(30hlsode-- iopt (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1428:22: 1428 | 608 call xerrwv(30hlsode-- mf (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) --- lsodes.o --- gfortran -O -c lsodes.f --- lsode.o --- lsode.f:1431:22: 1431 | 609 call xerrwv(50hlsode-- ml (=i1) illegal.. .lt.0 or .ge.neq (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1434:22: 1434 | 610 call xerrwv(50hlsode-- mu (=i1) illegal.. .lt.0 or .ge.neq (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1437:22: 1437 | 611 call xerrwv(30hlsode-- maxord (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1440:22: 1440 | 612 call xerrwv(30hlsode-- mxstep (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1443:22: 1443 | 613 call xerrwv(30hlsode-- mxhnil (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1446:22: 1446 | 614 call xerrwv(40hlsode-- tout (=r1) behind t (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1448:22: 1448 | call xerrwv(50h integration direction is given by h0 (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1451:22: 1451 | 615 call xerrwv(30hlsode-- hmax (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1454:22: 1454 | 616 call xerrwv(30hlsode-- hmin (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1458:12: 1458 | 1 60hlsode-- rwork length needed, lenrw (=i1), exceeds lrw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1462:12: 1462 | 1 60hlsode-- iwork length needed, leniw (=i1), exceeds liw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1465:22: 1465 | 619 call xerrwv(40hlsode-- rtol(i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1468:22: 1468 | 620 call xerrwv(40hlsode-- atol(i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1472:22: 1472 | call xerrwv(40hlsode-- ewt(i1) is r1 .le. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1476:12: 1476 | 1 60hlsode-- tout (=r1) too close to t(=r2) to start integration, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1480:12: 1480 | 1 60hlsode-- itask = i1 and tout (=r1) behind tcur - hu (= r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1484:12: 1484 | 1 60hlsode-- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1488:12: 1488 | 1 60hlsode-- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1491:22: 1491 | 626 call xerrwv(50hlsode-- at start of problem, too much accuracy , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1494:12: 1494 | 1 60h requested for precision of machine.. see tolsf (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1498:22: 1498 | 627 call xerrwv(50hlsode-- trouble from intdy. itask = i1, tout = r1, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1505:22: 1505 | 710 call xerrwv(50hlsode-- repeated occurrences of illegal input , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsode.f:1508:22: 1508 | 800 call xerrwv(50hlsode-- run aborted.. apparent infinite loop , | 1 Warning: Legacy Extension: Hollerith constant at (1) --- lsodes.o --- lsodes.f:1436:72: 1436 | if (lyhd) 70,80,74 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) lsodes.f:1439:72: 1439 | 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) lsodes.f:1442:72: 1442 | 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) lsodes.f:1451:72: 1451 | 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) lsodes.f:1474:72: 1474 | 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) lsodes.f:1496:72: 1496 | 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) lsodes.f:1505:72: 1505 | 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) lsodes.f:1568:72: 1568 | 130 tol = dmax1(tol,rtol(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) lsodes.f:1589:72: 1589 | 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) lsodes.f:1640:72: 1640 | 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) lsodes.f:1649:22: 1649 | call xerrwv(50hlsodes-- warning..internal t (=r1) and h (=r2) are, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1652:12: 1652 | 1 60h such that in the machine, t + h = t on the next step , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1654:22: 1654 | call xerrwv(50h (h = step size). solver will continue anyway, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1657:22: 1657 | call xerrwv(50hlsodes-- above warning has been issued i1 times. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1659:22: 1659 | call xerrwv(50h it will not be issued again for this problem, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1711:72: 1711 | 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) lsodes.f:1735:12: 1735 | 1 60hlsodes-- repeated calls with istate = 1 and tout = t (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1748:22: 1748 | 500 call xerrwv(50hlsodes-- at current t (=r1), mxstep (=i1) steps , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1750:22: 1750 | call xerrwv(50h taken on this call before reaching tout , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1756:22: 1756 | call xerrwv(50hlsodes-- at t (=r1), ewt(i1) has become r2 .le. 0., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1761:22: 1761 | 520 call xerrwv(50hlsodes-- at t (=r1), too much accuracy requested , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1763:22: 1763 | call xerrwv(50h for precision of machine.. see tolsf (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1769:22: 1769 | 530 call xerrwv(50hlsodes-- at t(=r1) and step size h(=r2), the error, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1771:22: 1771 | call xerrwv(50h test failed repeatedly or with abs(h) = hmin, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1776:22: 1776 | 540 call xerrwv(50hlsodes-- at t (=r1) and step size h (=r2), the , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1778:22: 1778 | call xerrwv(50h corrector convergence failed repeatedly , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1780:22: 1780 | call xerrwv(30h or with abs(h) = hmin , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1785:22: 1785 | 550 call xerrwv(50hlsodes-- at t (=r1) and step size h (=r2), a fatal, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1787:22: 1787 | call xerrwv(50h error flag was returned by cdrv (by way of , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1789:22: 1789 | call xerrwv(30h subroutine prjs or slss), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1805:72: 1805 | 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) lsodes.f:1830:22: 1830 | 601 call xerrwv(30hlsodes-- istate (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1833:22: 1833 | 602 call xerrwv(30hlsodes-- itask (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1836:22: 1836 | 603 call xerrwv(50hlsodes-- istate .gt. 1 but lsodes not initialized , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1839:22: 1839 | 604 call xerrwv(30hlsodes-- neq (=i1) .lt. 1 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1842:22: 1842 | 605 call xerrwv(50hlsodes-- istate = 3 and neq increased (i1 to i2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1845:22: 1845 | 606 call xerrwv(30hlsodes-- itol (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1848:22: 1848 | 607 call xerrwv(30hlsodes-- iopt (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1851:22: 1851 | 608 call xerrwv(30hlsodes-- mf (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1854:22: 1854 | 609 call xerrwv(30hlsodes-- seth (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1857:22: 1857 | 611 call xerrwv(30hlsodes-- maxord (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1860:22: 1860 | 612 call xerrwv(30hlsodes-- mxstep (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1863:22: 1863 | 613 call xerrwv(30hlsodes-- mxhnil (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1866:22: 1866 | 614 call xerrwv(40hlsodes-- tout (=r1) behind t (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1868:22: 1868 | call xerrwv(50h integration direction is given by h0 (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1871:22: 1871 | 615 call xerrwv(30hlsodes-- hmax (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1874:22: 1874 | 616 call xerrwv(30hlsodes-- hmin (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1877:22: 1877 | 617 call xerrwv(50hlsodes-- rwork length is insufficient to proceed. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1880:12: 1880 | 1 60h length needed is .ge. lenrw (=i1), exceeds lrw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1883:22: 1883 | 618 call xerrwv(50hlsodes-- iwork length is insufficient to proceed. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1886:12: 1886 | 1 60h length needed is .ge. leniw (=i1), exceeds liw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1889:22: 1889 | 619 call xerrwv(40hlsodes-- rtol(i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1892:22: 1892 | 620 call xerrwv(40hlsodes-- atol(i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1896:22: 1896 | call xerrwv(40hlsodes-- ewt(i1) is r1 .le. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1900:12: 1900 | 1 60hlsodes-- tout (=r1) too close to t(=r2) to start integration, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1904:12: 1904 | 1 60hlsodes-- itask = i1 and tout (=r1) behind tcur - hu (= r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1908:12: 1908 | 1 60hlsodes-- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1912:12: 1912 | 1 60hlsodes-- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1915:22: 1915 | 626 call xerrwv(50hlsodes-- at start of problem, too much accuracy , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1918:12: 1918 | 1 60h requested for precision of machine.. see tolsf (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1922:22: 1922 | 627 call xerrwv(50hlsodes-- trouble from intdy. itask = i1, tout = r1, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1926:12: 1926 | 1 60hlsodes-- rwork length insufficient (for subroutine prep). , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1929:12: 1929 | 1 60h length needed is .ge. lenrw (=i1), exceeds lrw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1933:12: 1933 | 1 60hlsodes-- rwork length insufficient (for subroutine jgroup). , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1936:12: 1936 | 1 60h length needed is .ge. lenrw (=i1), exceeds lrw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1940:12: 1940 | 1 60hlsodes-- rwork length insufficient (for subroutine odrv). , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1943:12: 1943 | 1 60h length needed is .ge. lenrw (=i1), exceeds lrw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1947:12: 1947 | 1 60hlsodes-- error from odrv in yale sparse matrix package , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1952:12: 1952 | 1 60h at t (=r1), odrv returned error flag = i1*neq + i2. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1956:12: 1956 | 1 60hlsodes-- rwork length insufficient (for subroutine cdrv). , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1959:12: 1959 | 1 60h length needed is .ge. lenrw (=i1), exceeds lrw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1963:12: 1963 | 1 60hlsodes-- error from cdrv in yale sparse matrix package , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1968:12: 1968 | 1 60h at t (=r1), cdrv returned error flag = i1*neq + i2. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1971:12: 1971 | 1 60h duplicate entry in sparsity structure descriptors , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1974:12: 1974 | 1 60h insufficient storage for nsfc (called by cdrv) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1981:22: 1981 | 710 call xerrwv(50hlsodes-- repeated occurrences of illegal input , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodes.f:1984:22: 1984 | 800 call xerrwv(50hlsodes-- run aborted.. apparent infinite loop , | 1 Warning: Legacy Extension: Hollerith constant at (1) --- lsodi.o --- gfortran -O -c lsodi.f lsodi.f:1282:72: 1282 | 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) lsodi.f:1291:72: 1291 | 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) lsodi.f:1328:72: 1328 | if (ier) 560,110,565 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) lsodi.f:1331:72: 1331 | 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) lsodi.f:1336:72: 1336 | 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) lsodi.f:1344:72: 1344 | 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) lsodi.f:1368:72: 1368 | 140 tol = dmax1(tol,rtol(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) lsodi.f:1389:72: 1389 | 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) lsodi.f:1440:72: 1440 | 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) lsodi.f:1449:22: 1449 | call xerrwv(50hlsodi-- warning..internal t (=r1) and h (=r2) are, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1452:12: 1452 | 1 60h such that in the machine, t + h = t on the next step , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1454:22: 1454 | call xerrwv(50h (h = step size). solver will continue anyway, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1457:22: 1457 | call xerrwv(50hlsodi-- above warning has been issued i1 times. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1459:22: 1459 | call xerrwv(50h it will not be issued again for this problem, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1516:72: 1516 | 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) lsodi.f:1536:12: 1536 | 1 60hlsodi-- repeated calls with istate= 0 or 1 and tout= t(=r1), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1549:22: 1549 | 500 call xerrwv(50hlsodi-- at current t (=r1), mxstep (=i1) steps , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1551:22: 1551 | call xerrwv(50h taken on this call before reaching tout , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1557:22: 1557 | call xerrwv(50hlsodi-- at t (=r1), ewt(i1) has become r2 .le. 0., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1562:22: 1562 | 520 call xerrwv(50hlsodi-- at t (=r1), too much accuracy requested , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1564:22: 1564 | call xerrwv(50h for precision of machine.. see tolsf (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1570:22: 1570 | 530 call xerrwv(50hlsodi-- at t(=r1) and step size h(=r2), the error, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1572:22: 1572 | call xerrwv(50h test failed repeatedly or with abs(h) = hmin, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1577:22: 1577 | 540 call xerrwv(50hlsodi-- at t (=r1) and step size h (=r2), the , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1579:22: 1579 | call xerrwv(50h corrector convergence failed repeatedly , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1581:22: 1581 | call xerrwv(30h or with abs(h) = hmin , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1586:22: 1586 | 550 call xerrwv(50hlsodi-- at t (=r1) residual routine returned , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1588:22: 1588 | call xerrwv(40h error ires = 3 repeatedly , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1595:12: 1595 | 1 60hlsodi-- attempt to initialize dy/dt failed.. matrix a is , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1597:22: 1597 | call xerrwv(50h singular. sgefa or sgbfa returned info=(i1), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1602:22: 1602 | 565 call xerrwv(50hlsodi-- attempt to initialize dy/dt failed , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1604:22: 1604 | call xerrwv(50h because residual routine set its error flag , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1606:22: 1606 | call xerrwv(20h to ires = (i1), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1624:72: 1624 | 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) lsodi.f:1629:22: 1629 | call xerrwv(50hlsodi-- residual routine set its flag ires , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1631:22: 1631 | call xerrwv(50h to (i1) when called for final output. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1636:72: 1636 | 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) lsodi.f:1656:22: 1656 | 601 call xerrwv(30hlsodi-- istate (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1659:22: 1659 | 602 call xerrwv(30hlsodi-- itask (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1662:22: 1662 | 603 call xerrwv(50hlsodi-- istate .gt. 1 but lsodi not initialized , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1665:22: 1665 | 604 call xerrwv(30hlsodi-- neq (=i1) .lt. 1 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1668:22: 1668 | 605 call xerrwv(50hlsodi-- istate = 3 and neq increased (i1 to i2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1671:22: 1671 | 606 call xerrwv(30hlsodi-- itol (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1674:22: 1674 | 607 call xerrwv(30hlsodi-- iopt (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1677:22: 1677 | 608 call xerrwv(30hlsodi-- mf (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1680:22: 1680 | 609 call xerrwv(50hlsodi-- ml(=i1) illegal.. .lt. 0 or .ge. neq(=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1683:22: 1683 | 610 call xerrwv(50hlsodi-- mu(=i1) illegal.. .lt. 0 or .ge. neq(=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1686:22: 1686 | 611 call xerrwv(30hlsodi-- maxord (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1689:22: 1689 | 612 call xerrwv(30hlsodi-- mxstep (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1692:22: 1692 | 613 call xerrwv(30hlsodi-- mxhnil (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1695:22: 1695 | 614 call xerrwv(40hlsodi-- tout (=r1) behind t (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1697:22: 1697 | call xerrwv(50h integration direction is given by h0 (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1700:22: 1700 | 615 call xerrwv(30hlsodi-- hmax (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1703:22: 1703 | 616 call xerrwv(30hlsodi-- hmin (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1707:12: 1707 | 1 60hlsodi-- rwork length needed, lenrw (=i1), exceeds lrw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1711:12: 1711 | 1 60hlsodi-- iwork length needed, leniw (=i1), exceeds liw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1714:22: 1714 | 619 call xerrwv(40hlsodi-- rtol(=i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1717:22: 1717 | 620 call xerrwv(40hlsodi-- atol(=i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1721:22: 1721 | call xerrwv(40hlsodi-- ewt(=i1) is r1 .le. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1725:12: 1725 | 1 60hlsodi-- tout (=r1) too close to t(=r2) to start integration, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1729:12: 1729 | 1 60hlsodi-- itask = i1 and tout (=r1) behind tcur - hu (= r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1733:12: 1733 | 1 60hlsodi-- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1737:12: 1737 | 1 60hlsodi-- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1740:22: 1740 | 626 call xerrwv(50hlsodi-- at start of problem, too much accuracy , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1743:12: 1743 | 1 60h requested for precision of machine.. see tolsf (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1747:22: 1747 | 627 call xerrwv(50hlsodi-- trouble from intdy. itask = i1, tout = r1, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1754:22: 1754 | 710 call xerrwv(50hlsodi-- repeated occurrences of illegal input , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsodi.f:1757:22: 1757 | 800 call xerrwv(50hlsodi-- run aborted.. apparent infinite loop , | 1 Warning: Legacy Extension: Hollerith constant at (1) --- lsoibt.o --- gfortran -O -c lsoibt.f lsoibt.f:1336:72: 1336 | 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) lsoibt.f:1345:72: 1345 | 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) lsoibt.f:1382:72: 1382 | if (ier) 560,110,565 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) lsoibt.f:1385:72: 1385 | 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) lsoibt.f:1390:72: 1390 | 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) lsoibt.f:1398:72: 1398 | 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) lsoibt.f:1422:72: 1422 | 140 tol = dmax1(tol,rtol(i)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) lsoibt.f:1443:72: 1443 | 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) lsoibt.f:1494:72: 1494 | 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) lsoibt.f:1503:22: 1503 | call xerrwv(50hlsoibt-- warning..internal t (=r1) and h (=r2) are, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1506:12: 1506 | 1 60h such that in the machine, t + h = t on the next step , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1508:22: 1508 | call xerrwv(50h (h = step size). solver will continue anyway, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1511:22: 1511 | call xerrwv(50hlsoibt-- above warning has been issued i1 times. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1513:22: 1513 | call xerrwv(50h it will not be issued again for this problem, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1570:72: 1570 | 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) lsoibt.f:1590:12: 1590 | 1 60hlsoibt-- repeated calls with istate= 0 or 1 and tout= t(=r1), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1603:22: 1603 | 500 call xerrwv(50hlsoibt-- at current t (=r1), mxstep (=i1) steps , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1605:22: 1605 | call xerrwv(50h taken on this call before reaching tout , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1611:22: 1611 | call xerrwv(50hlsoibt-- at t (=r1), ewt(i1) has become r2 .le. 0., | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1616:22: 1616 | 520 call xerrwv(50hlsoibt-- at t (=r1), too much accuracy requested , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1618:22: 1618 | call xerrwv(50h for precision of machine.. see tolsf (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1624:22: 1624 | 530 call xerrwv(50hlsoibt-- at t(=r1) and step size h(=r2), the error, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1626:22: 1626 | call xerrwv(50h test failed repeatedly or with abs(h) = hmin, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1631:22: 1631 | 540 call xerrwv(50hlsoibt-- at t (=r1) and step size h (=r2), the , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1633:22: 1633 | call xerrwv(50h corrector convergence failed repeatedly , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1635:22: 1635 | call xerrwv(30h or with abs(h) = hmin , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1640:22: 1640 | 550 call xerrwv(50hlsoibt-- at t (=r1) residual routine returned , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1642:22: 1642 | call xerrwv(40h error ires = 3 repeatedly , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1649:12: 1649 | 1 60hlsoibt-- attempt to initialize dy/dt failed.. matrix a has a, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1651:22: 1651 | call xerrwv(50h singular diagonal block, block no. = (i1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1656:22: 1656 | 565 call xerrwv(50hlsoibt-- attempt to initialize dy/dt failed , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1658:22: 1658 | call xerrwv(50h because residual routine set its error flag , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1660:22: 1660 | call xerrwv(20h to ires = (i1), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1678:72: 1678 | 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) lsoibt.f:1683:22: 1683 | call xerrwv(50hlsoibt-- residual routine set its flag ires , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1685:22: 1685 | call xerrwv(50h to (i1) when called for final output. , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1690:72: 1690 | 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) lsoibt.f:1710:22: 1710 | 601 call xerrwv(30hlsoibt-- istate (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1713:22: 1713 | 602 call xerrwv(30hlsoibt-- itask (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1716:22: 1716 | 603 call xerrwv(50hlsoibt-- istate .gt. 1 but lsoibt not initialized , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1719:22: 1719 | 604 call xerrwv(30hlsoibt-- neq (=i1) .lt. 1 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1722:22: 1722 | 605 call xerrwv(50hlsoibt-- istate = 3 and neq increased (i1 to i2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1725:22: 1725 | 606 call xerrwv(30hlsoibt-- itol (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1728:22: 1728 | 607 call xerrwv(30hlsoibt-- iopt (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1731:22: 1731 | 608 call xerrwv(30hlsoibt-- mf (=i1) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1734:22: 1734 | 609 call xerrwv(40hlsoibt-- mb (=i1) or nb (=i2) illegal , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1737:22: 1737 | 610 call xerrwv(40hlsoibt-- nb(=i1) illegal.. .lt. 4 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1740:22: 1740 | 611 call xerrwv(30hlsoibt-- maxord (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1743:22: 1743 | 612 call xerrwv(30hlsoibt-- mxstep (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1746:22: 1746 | 613 call xerrwv(30hlsoibt-- mxhnil (=i1) .lt. 0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1749:22: 1749 | 614 call xerrwv(40hlsoibt-- tout (=r1) behind t (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1751:22: 1751 | call xerrwv(50h integration direction is given by h0 (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1754:22: 1754 | 615 call xerrwv(30hlsoibt-- hmax (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1757:22: 1757 | 616 call xerrwv(30hlsoibt-- hmin (=r1) .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1761:12: 1761 | 1 60hlsoibt-- rwork length needed, lenrw (=i1), exceeds lrw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1765:12: 1765 | 1 60hlsoibt-- iwork length needed, leniw (=i1), exceeds liw (=i2), | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1768:22: 1768 | 619 call xerrwv(40hlsoibt-- rtol(=i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1771:22: 1771 | 620 call xerrwv(40hlsoibt-- atol(=i1) is r1 .lt. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1775:22: 1775 | call xerrwv(40hlsoibt-- ewt(=i1) is r1 .le. 0.0 , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1779:12: 1779 | 1 60hlsoibt-- tout (=r1) too close to t(=r2) to start integration, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1783:12: 1783 | 1 60hlsoibt-- itask = i1 and tout (=r1) behind tcur - hu (= r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1787:12: 1787 | 1 60hlsoibt-- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1791:12: 1791 | 1 60hlsoibt-- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1794:22: 1794 | 626 call xerrwv(50hlsoibt-- at start of problem, too much accuracy , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1797:12: 1797 | 1 60h requested for precision of machine.. see tolsf (=r1) , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1801:22: 1801 | 627 call xerrwv(50hlsoibt-- trouble from intdy. itask = i1, tout = r1, | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1808:22: 1808 | 710 call xerrwv(50hlsoibt-- repeated occurrences of illegal input , | 1 Warning: Legacy Extension: Hollerith constant at (1) lsoibt.f:1811:22: 1811 | 800 call xerrwv(50hlsoibt-- run aborted.. apparent infinite loop , | 1 Warning: Legacy Extension: Hollerith constant at (1) --- md.o --- gfortran -O -c md.f md.f:137:72: 137 | 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) --- mdi.o --- gfortran -O -c mdi.f mdi.f:14:72: 14 | 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) mdi.f:25:72: 25 | if (vj-vi) 2, 5, 4 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) mdi.f:63:72: 63 | 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) mdi.f:21:18: 19 | do 6 vi=1,n | 2 20 | jmin = ia(vi) 21 | jmax = ia(vi+1) - 1 | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) --- mdm.o --- gfortran -O -c mdm.f --- mdp.o --- gfortran -O -c mdp.f --- mdu.o --- gfortran -O -c mdu.f mdu.f:22:72: 22 | if (last(vi)) 1, 10, 8 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) --- nnfc.o --- gfortran -O -c nnfc.f nnfc.f:68:72: 68 | 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) nnfc.f:90:72: 90 | 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) nnfc.f:105:72: 105 | 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) nnfc.f:138:72: 138 | 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) nnfc.f:141:72: 141 | 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) --- nnsc.o --- gfortran -O -c nnsc.f nnsc.f:25:72: 25 | 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) nnsc.f:35:72: 35 | 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) nnsc.f:46:72: 46 | 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) nnsc.f:29:18: 27 | do 3 k=1,n | 2 28 | jmin = il(k) 29 | jmax = il(k+1) - 1 | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) --- nntc.o --- gfortran -O -c nntc.f --- nroc.o --- gfortran -O -c nroc.f --- nntc.o --- nntc.f:26:72: 26 | 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) nntc.f:35:72: 35 | 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) nntc.f:46:72: 46 | 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) nntc.f:30:18: 28 | do 3 k=1,n | 2 29 | jmin = iu(k) 30 | jmax = iu(k+1) - 1 | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) --- nroc.o --- nroc.f:226:72: 226 | 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) nroc.f:205:18: 203 | do 5 k=1,n | 2 204 | jmin = ia(k) 205 | jmax = ia(k+1) - 1 | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) --- nsfc.o --- gfortran -O -c nsfc.f --- odrv.o --- gfortran -O -c odrv.f --- nsfc.o --- nsfc.f:74:72: 74 | 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) nsfc.f:84:72: 84 | 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) nsfc.f:151:72: 151 | if (jl(j) - qm) 12, 13, 15 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) nsfc.f:170:72: 170 | 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) nsfc.f:253:72: 253 | if (ju(j) - qm) 29, 30, 32 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) nsfc.f:272:72: 272 | 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) --- pjibt.o --- gfortran -O -c pjibt.f pjibt.f:74:72: 74 | 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) pjibt.f:78:72: 78 | 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) pjibt.f:90:72: 90 | 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) pjibt.f:103:72: 103 | 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) pjibt.f:114:72: 114 | 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) pjibt.f:120:72: 120 | 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) pjibt.f:127:72: 127 | 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) pjibt.f:133:72: 133 | 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) pjibt.f:140:72: 140 | 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) --- prep.o --- gfortran -O -c prep.f prep.f:88:72: 88 | 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) prep.f:126:72: 126 | 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) prep.f:168:72: 168 | 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) prep.f:198:72: 198 | 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) prep.f:213:72: 213 | 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) prep.f:97:18: 95 | do 60 j = 1,n | 2 96 | jfound = 0 97 | kmax = ia(j+1) - 1 | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) --- prepj.o --- gfortran -O -c prepj.f prepj.f:65:72: 65 | 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) prepj.f:69:72: 69 | 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) prepj.f:84:72: 84 | 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) prepj.f:94:72: 94 | 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) prepj.f:103:72: 103 | 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) prepj.f:125:72: 125 | 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) prepj.f:129:72: 129 | 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) prepj.f:146:72: 146 | 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) prepj.f:157:72: 157 | 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) prepj.f:165:72: 165 | 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) --- prepji.o --- gfortran -O -c prepji.f prepji.f:70:72: 70 | 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) prepji.f:74:72: 74 | 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) prepji.f:93:72: 93 | 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) prepji.f:122:72: 122 | 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) prepji.f:126:72: 126 | 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) prepji.f:146:72: 146 | 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) prepji.f:159:72: 159 | 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) --- prja.o --- gfortran -O -c prja.f prja.f:69:72: 69 | 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) prja.f:73:72: 73 | 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) prja.f:88:72: 88 | 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) prja.f:101:72: 101 | 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) prja.f:116:72: 116 | 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) prja.f:120:72: 120 | 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) prja.f:137:72: 137 | 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) prja.f:148:72: 148 | 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) prja.f:159:72: 159 | 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) --- prjs.o --- gfortran -O -c prjs.f prjs.f:93:72: 93 | 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) prjs.f:116:72: 116 | 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) prjs.f:164:72: 164 | 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) prjs.f:182:72: 182 | 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) --- rchek.o --- gfortran -O -c rchek.f rchek.f:63:72: 63 | 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) rchek.f:75:72: 75 | 110 if (dabs(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) rchek.f:82:72: 82 | 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) rchek.f:87:72: 87 | 130 if (dabs(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) rchek.f:105:72: 105 | 210 if (dabs(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) rchek.f:113:72: 113 | 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) rchek.f:142:72: 142 | 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) --- roots.o --- gfortran -O -c roots.f --- slsbt.o --- gfortran -O -c slsbt.f --- slss.o --- gfortran -O -c slss.f --- solbt.o --- gfortran -O -c solbt.f --- slss.o --- slss.f:69:72: 69 | 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) slss.f:71:72: 71 | 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) --- solsy.o --- gfortran -O -c solsy.f --- srcar.o --- gfortran -O -c srcar.f --- solsy.o --- solsy.f:55:72: 55 | 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) solsy.f:57:72: 57 | 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) --- srcar.o --- srcar.f:29:72: 29 | 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) srcar.f:31:72: 31 | 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) srcar.f:34:72: 34 | 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) srcar.f:37:72: 37 | 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) srcar.f:39:72: 39 | 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) srcar.f:42:72: 42 | 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) srcar.f:51:72: 51 | 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) srcar.f:53:72: 53 | 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) srcar.f:56:72: 56 | 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) srcar.f:59:72: 59 | 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) srcar.f:61:72: 61 | 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) srcar.f:64:72: 64 | 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) --- srcma.o --- gfortran -O -c srcma.f --- srcms.o --- gfortran -O -c srcms.f --- srcma.o --- srcma.f:27:72: 27 | 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) srcma.f:29:72: 29 | 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) srcma.f:32:72: 32 | 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) srcma.f:34:72: 34 | 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) srcma.f:42:72: 42 | 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) srcma.f:44:72: 44 | 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) srcma.f:47:72: 47 | 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) srcma.f:49:72: 49 | 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) --- srcms.o --- srcms.f:26:72: 26 | 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) srcms.f:28:72: 28 | 15 rsav(lenrl+i) = rlss(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) srcms.f:31:72: 31 | 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) srcms.f:33:72: 33 | 25 isav(lenil+i) = ilss(i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) srcms.f:41:72: 41 | 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) srcms.f:43:72: 43 | 115 rlss(i) = rsav(lenrl+i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1) srcms.f:46:72: 46 | 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) srcms.f:48:72: 48 | 125 ilss(i) = isav(lenil+i) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1) --- srcom.o --- gfortran -O -c srcom.f --- sro.o --- gfortran -O -c sro.f --- srcom.o --- srcom.f:26:72: 26 | 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) srcom.f:28:72: 28 | 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) srcom.f:35:72: 35 | 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) srcom.f:37:72: 37 | 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) --- sro.o --- sro.f:42:72: 42 | 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) sro.f:58:72: 58 | 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) sro.f:66:72: 66 | 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) sro.f:87:72: 87 | 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) sro.f:47:18: 45 | do 3 i=1,n | 2 46 | jmin = ia(i) 47 | jmax = ia(i+1) - 1 | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) sro.f:65:11: 64 | do 4 i=1,n | 2 65 | ia(i+1) = ia(i) + q(i) | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) sro.f:66:18: 64 | do 4 i=1,n | 2 65 | ia(i+1) = ia(i) + q(i) 66 | 4 q(i) = ia(i+1) | 1 Warning: Array reference at (1) out of bounds (2 > 1) in loop beginning at (2) --- stoda.o --- gfortran -O -c stoda.f stoda.f:155:72: 155 | 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) stoda.f:158:72: 158 | 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) stoda.f:183:72: 183 | 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) stoda.f:218:72: 218 | do 180 i = 1,n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1) stoda.f:219:72: 219 | 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) stoda.f:240:72: 240 | 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) stoda.f:253:72: 253 | 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) stoda.f:269:72: 269 | 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) stoda.f:277:72: 277 | 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) stoda.f:281:72: 281 | 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) stoda.f:289:72: 289 | 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) stoda.f:296:72: 296 | 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) stoda.f:350:72: 350 | 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) stoda.f:389:72: 389 | do 460 i = 1,n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 460 at (1) stoda.f:390:72: 390 | 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) stoda.f:498:72: 498 | 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) stoda.f:514:72: 514 | 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) stoda.f:534:72: 534 | 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) stoda.f:568:72: 568 | 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) stoda.f:601:72: 601 | 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) stoda.f:605:72: 605 | 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) stoda.f:626:72: 626 | 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) --- stode.o --- gfortran -O -c stode.f stode.f:154:72: 154 | 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) stode.f:175:72: 175 | 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) stode.f:198:72: 198 | do 180 i = 1,n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1) stode.f:199:72: 199 | 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) stode.f:220:72: 220 | 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) stode.f:230:72: 230 | 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) stode.f:246:72: 246 | 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) stode.f:254:72: 254 | 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) stode.f:258:72: 258 | 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) stode.f:266:72: 266 | 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) stode.f:273:72: 273 | 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) stode.f:308:72: 308 | 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) stode.f:343:72: 343 | do 470 i = 1,n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1) stode.f:344:72: 344 | 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) stode.f:350:72: 350 | 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) stode.f:366:72: 366 | 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) stode.f:386:72: 386 | 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) stode.f:413:72: 413 | 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) stode.f:443:72: 443 | 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) stode.f:447:72: 447 | 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) stode.f:468:72: 468 | 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) --- stodi.o --- gfortran -O -c stodi.f --- vmnorm.o --- gfortran -O -c vmnorm.f --- stodi.o --- stodi.f:162:72: 162 | 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) stodi.f:183:72: 183 | 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) stodi.f:206:72: 206 | do 180 i = 1,n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1) stodi.f:207:72: 207 | 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) stodi.f:228:72: 228 | 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) stodi.f:239:72: 239 | 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) stodi.f:262:72: 262 | 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) stodi.f:276:72: 276 | 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) stodi.f:314:72: 314 | 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) stodi.f:353:72: 353 | do 470 i = 1,n | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1) stodi.f:354:72: 354 | 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) stodi.f:360:72: 360 | 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) stodi.f:376:72: 376 | 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) stodi.f:396:72: 396 | 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) stodi.f:423:72: 423 | 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) stodi.f:454:72: 454 | 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) --- vmnorm.o --- vmnorm.f:14:72: 14 | 10 vm = dmax1(vm,dabs(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) --- vnorm.o --- gfortran -O -c vnorm.f vnorm.f:14:72: 14 | 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) --- xerrwv.o --- gfortran -O -c xerrwv.f --- xsetf.o --- gfortran -O -c xsetf.f --- xsetun.o --- gfortran -O -c xsetun.f --- libodepack.a --- ar cru libodepack.a adjlr.o aigbt.o ainvg.o blkdta000.o bnorm.o cdrv.o cfode.o cntnzu.o decbt.o ewset.o fnorm.o intdy.o iprep.o jgroup.o lsoda.o lsodar.o lsode.o lsodes.o lsodi.o lsoibt.o md.o mdi.o mdm.o mdp.o mdu.o nnfc.o nnsc.o nntc.o nroc.o nsfc.o odrv.o pjibt.o prep.o prepj.o prepji.o prja.o prjs.o rchek.o roots.o slsbt.o slss.o solbt.o solsy.o srcar.o srcma.o srcms.o srcom.o sro.o stoda.o stode.o stodi.o vmnorm.o vnorm.o xerrwv.o xsetf.o xsetun.o ranlib libodepack.a