* installing *source* package ‘dse’ ... ** package ‘dse’ successfully unpacked and MD5 sums checked ** using staged installation ** libs using Fortran compiler: ‘GNU Fortran (GCC) 12.2.0’ using SDK: ‘MacOSX11.3.sdk’ /opt/gfortran/bin/gfortran -arch arm64 -fPIC -Wall -g -O2 -c dsefor.f -o dsefor.o dsefor.f:129:72: 129 | DO 2001 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2001 at (1) dsefor.f:130:72: 130 | 2001 Z(IT,I)=Z(IT,I)+F(I,K)*Z(IT-1,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2001 at (1) dsefor.f:133:72: 133 | DO 2003 K=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2003 at (1) dsefor.f:134:72: 134 | 2003 Z(IT,I)=Z(IT,I)+G(I,K)*U(IT,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2003 at (1) dsefor.f:138:72: 138 | DO 2004 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2004 at (1) dsefor.f:139:72: 139 | 2004 Z(IT,I)=Z(IT,I)+FK(I,K)*W(IT-1,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2004 at (1) dsefor.f:142:72: 142 | DO 2005 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2005 at (1) dsefor.f:143:72: 143 | 2005 Z(IT,I)=Z(IT,I)+Q(I,K)*E(IT-1,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2005 at (1) dsefor.f:148:72: 148 | DO 2010 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2010 at (1) dsefor.f:149:72: 149 | 2010 Y(IT,I)= Y(IT,I) + H(I,J)*Z(IT,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2010 at (1) dsefor.f:152:72: 152 | 2014 Y(IT,I)=Y(IT,I)+W(IT,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2014 at (1) dsefor.f:155:72: 155 | DO 2015 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2015 at (1) dsefor.f:156:72: 156 | 2015 Y(IT,I)=Y(IT,I)+R(I,K)*W(IT,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2015 at (1) dsefor.f:201:72: 201 | DO 902 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 902 at (1) dsefor.f:202:72: 202 | 902 PT1(I,J)=TRKERR(NSMPL,I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 902 at (1) dsefor.f:208:72: 208 | DO 2 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:210:72: 210 | DO 2 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:211:72: 211 | 2 A(J,I)=A(J,I)+TRKERR(IT,I,K)*H(J,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) dsefor.f:214:72: 214 | DO 3 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1) dsefor.f:216:72: 216 | DO 3 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1) dsefor.f:217:72: 217 | 3 D(I,J)=D(I,J)+H(I,K)*A(J,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) dsefor.f:238:72: 238 | DO 4 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1) dsefor.f:239:72: 239 | 4 L(I,J)=A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) dsefor.f:251:72: 251 | DO 107 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 107 at (1) dsefor.f:252:72: 252 | 107 A(I,1)=A(I,1) - H(I,K)*Z(IT,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 107 at (1) dsefor.f:256:72: 256 | DO 109 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 109 at (1) dsefor.f:257:72: 257 | 109 ZT(I)=ZT(I) + L(I,K)*A(K,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 109 at (1) dsefor.f:263:72: 263 | DO 7 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 7 at (1) dsefor.f:265:72: 265 | DO 7 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 7 at (1) dsefor.f:266:72: 266 | 7 A(I,J)=A(I,J) + L(I,K)*H(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) dsefor.f:269:72: 269 | DO 8 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 8 at (1) dsefor.f:271:72: 271 | DO 8 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 8 at (1) dsefor.f:272:72: 272 | 8 L(I,J)=L(I,J) - A(I,K)*TRKERR(IT,K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 8 at (1) dsefor.f:275:72: 275 | DO 9 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 9 at (1) dsefor.f:276:72: 276 | 9 A(I,J)=(L(I,J)+L(J,I))/2.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1) dsefor.f:284:72: 284 | DO 51 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 51 at (1) dsefor.f:285:72: 285 | 51 L(I,J)=PT1(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1) dsefor.f:302:72: 302 | DO 52 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 52 at (1) dsefor.f:303:72: 303 | 52 D(I,J)=F(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 52 at (1) dsefor.f:309:72: 309 | DO 53 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 53 at (1) dsefor.f:311:72: 311 | DO 53 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 53 at (1) dsefor.f:312:72: 312 | 53 L(I,J)=L(I,J) + A(I,K)*D(J,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 53 at (1) dsefor.f:318:72: 318 | DO 16 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 16 at (1) dsefor.f:319:72: 319 | 16 D(I,1)=D(I,1) - F(I,K)*ZT(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) dsefor.f:323:72: 323 | DO 17 K=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 17 at (1) dsefor.f:324:72: 324 | 17 D(I,1)=D(I,1) - G(I,K)*U(IT+1,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 17 at (1) dsefor.f:329:72: 329 | DO 18 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 18 at (1) dsefor.f:330:72: 330 | 18 Z(IT,I)=Z(IT,I) + L(I,K)*D(K,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) dsefor.f:336:72: 336 | DO 26 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 26 at (1) dsefor.f:337:72: 337 | 26 PT1(I,J)=TRKERR(IT+1,I,J) - PT1(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 26 at (1) dsefor.f:340:72: 340 | DO 27 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 27 at (1) dsefor.f:342:72: 342 | DO 27 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 27 at (1) dsefor.f:343:72: 343 | 27 D(I,J)=D(I,J)+PT1(I,K)*L(J,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 27 at (1) dsefor.f:346:72: 346 | DO 28 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 28 at (1) dsefor.f:347:72: 347 | DO 28 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 28 at (1) dsefor.f:348:72: 348 | 28 A(I,J)=A(I,J)+L(I,K)*D(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 28 at (1) dsefor.f:351:72: 351 | DO 29 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 29 at (1) dsefor.f:352:72: 352 | 29 PT1(I,J)=TRKERR(IT,I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 29 at (1) dsefor.f:355:72: 355 | DO 30 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) dsefor.f:356:72: 356 | 30 TRKERR(IT,I,J)=(A(I,J)+A(J,I))/2.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) dsefor.f:463:72: 463 | 209 WW(I)=0.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 209 at (1) dsefor.f:466:72: 466 | 210 ZZ(I)=Z0(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) dsefor.f:471:72: 471 | DO 220 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 220 at (1) dsefor.f:472:72: 472 | 220 PP(I,J)=P0(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) dsefor.f:478:72: 478 | DO 230 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 230 at (1) dsefor.f:480:72: 480 | DO 230 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 230 at (1) dsefor.f:481:72: 481 | 230 QQ(I,J)=QQ(I,J)+Q(I,K)*Q(J,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1) dsefor.f:483:72: 483 | DO 236 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 236 at (1) dsefor.f:485:72: 485 | DO 236 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 236 at (1) dsefor.f:486:72: 486 | 236 RR(I,J)=RR(I,J)+R(I,K)*R(J,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 236 at (1) dsefor.f:499:72: 499 | DO 5 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) dsefor.f:501:72: 501 | DO 5 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) dsefor.f:502:72: 502 | 5 AA(I,J)=AA(I,J)+PP(I,K)*H(J,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) dsefor.f:506:72: 506 | DO 6 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 6 at (1) dsefor.f:508:72: 508 | DO 6 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 6 at (1) dsefor.f:509:72: 509 | 6 FK(I,J)=FK(I,J)+F(I,K)*AA(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) dsefor.f:513:72: 513 | DO 7 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 7 at (1) dsefor.f:515:72: 515 | DO 7 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 7 at (1) dsefor.f:516:72: 516 | 7 A(I,J)=A(I,J)+H(I,K)*AA(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) dsefor.f:520:72: 520 | DO 9 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 9 at (1) dsefor.f:521:72: 521 | 9 AA(I,J)=(A(I,J)+A(J,I))/2.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1) dsefor.f:546:72: 546 | DO 14 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 14 at (1) dsefor.f:547:72: 547 | 14 A(I,J)=FK(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1) dsefor.f:551:72: 551 | DO 15 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 15 at (1) dsefor.f:552:72: 552 | 15 FK(I,J)=A(J,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) dsefor.f:563:72: 563 | DO 2 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:565:72: 565 | DO 2 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:566:72: 566 | 2 A(I,J)=A(I,J)+PP(I,K)*F(J,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) dsefor.f:568:72: 568 | DO 3 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1) dsefor.f:570:72: 570 | DO 3 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1) dsefor.f:571:72: 571 | 3 AA(I,J)=AA(I,J)+F(I,K)*A(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) dsefor.f:573:72: 573 | DO 18 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 18 at (1) dsefor.f:575:72: 575 | DO 18 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 18 at (1) dsefor.f:576:72: 576 | 18 PP(I,J)=PP(I,J)+H(I,K)*A(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1) dsefor.f:578:72: 578 | DO 19 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 19 at (1) dsefor.f:579:72: 579 | DO 19 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 19 at (1) dsefor.f:580:72: 580 | 19 AA(I,J)=AA(I,J)-FK(I,K)*PP(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1) dsefor.f:583:72: 583 | DO 20 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1) dsefor.f:584:72: 584 | 20 PP(I,J)=( AA(I,J)+AA(J,I) )/2.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) dsefor.f:590:72: 590 | DO 21 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 21 at (1) dsefor.f:591:72: 591 | 21 TRKERR(IT,I,J)=PP(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1) dsefor.f:601:72: 601 | DO 1 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) dsefor.f:602:72: 602 | 1 Z(I)=Z(I)+F(I,K)*ZZ(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:604:72: 604 | DO 22 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 22 at (1) dsefor.f:605:72: 605 | 22 Z(I)=Z(I)+FK(I,K)*WW(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1) dsefor.f:607:72: 607 | DO 23 K=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 23 at (1) dsefor.f:608:72: 608 | 23 Z(I)=Z(I)+G(I,K)*U(IT,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1) dsefor.f:610:72: 610 | 24 ZZ(I)=Z(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 24 at (1) dsefor.f:613:72: 613 | 25 STATE(IT,I)=Z(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) dsefor.f:625:72: 625 | DO 10 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1) dsefor.f:626:72: 626 | 10 WW(I)= WW(I) - H(I,J)*Z(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dsefor.f:628:72: 628 | 11 EY(IT,I)= WW(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1) dsefor.f:634:72: 634 | 401 PRDERR(IT,I)= ERRWT(1)*WW(I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 401 at (1) dsefor.f:639:72: 639 | 402 AA(1,I) = Z(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 402 at (1) dsefor.f:641:72: 641 | 409 Z(I) = 0.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 409 at (1) dsefor.f:643:72: 643 | DO 403 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 403 at (1) dsefor.f:644:72: 644 | 403 Z(I)= Z(I)+F(I,J)*AA(1,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 403 at (1) dsefor.f:647:72: 647 | DO 406 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 406 at (1) dsefor.f:648:72: 648 | 406 Z(I)= Z(I)+FK(I,J)*WW(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 406 at (1) dsefor.f:652:72: 652 | DO 404 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 404 at (1) dsefor.f:653:72: 653 | 404 Z(I)= Z(I)+G(I,J)*U(IT+K-1,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 404 at (1) dsefor.f:658:72: 658 | 407 HW = HW+ H(I,J)*Z(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 407 at (1) dsefor.f:660:72: 660 | + ERRWT(K)*(Y(IT+K-1,I)-HW)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 408 at (1) dsefor.f:676:72: 676 | DO 41 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 41 at (1) dsefor.f:677:72: 677 | 41 EY(IT,I)=Y(IT,I) - EY(IT,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) dsefor.f:686:72: 686 | DO 2001 K=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2001 at (1) dsefor.f:687:72: 687 | 2001 Z(I)=Z(I)+F(I,K)*ZZ(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2001 at (1) dsefor.f:690:72: 690 | DO 2003 K=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2003 at (1) dsefor.f:691:72: 691 | 2003 Z(I)=Z(I)+G(I,K)*U(IT,K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2003 at (1) dsefor.f:696:72: 696 | DO 2004 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2004 at (1) dsefor.f:697:72: 697 | 2004 Z(I)=Z(I)+FK(I,K)*WW(K) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2004 at (1) dsefor.f:701:72: 701 | 2005 STATE(IT,I)=Z(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2005 at (1) dsefor.f:705:72: 705 | DO 2010 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2010 at (1) dsefor.f:706:72: 706 | 2010 EY(IT,I)= EY(IT,I) + H(I,J)*Z(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2010 at (1) dsefor.f:708:72: 708 | 2024 ZZ(I)=Z(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2024 at (1) dsefor.f:738:72: 738 | DO 2001 IT=NSTART,NSMPL | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2001 at (1) dsefor.f:739:72: 739 | 2001 Y(IT,I)= 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2001 at (1) dsefor.f:742:72: 742 | DO 1 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) dsefor.f:743:72: 743 | 1 Y(IT,I)= TREND(IT,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:751:72: 751 | DO 2 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:752:72: 752 | 2 Y(IT,I)=Y(IT,I)-A(L,I,J)*Y0(L-IT,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) dsefor.f:755:72: 755 | DO 3 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1) dsefor.f:756:72: 756 | 3 Y(IT,I)=Y(IT,I)-A(L,I,J)* Y(IT+1-L,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) dsefor.f:764:72: 764 | DO 12 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 12 at (1) dsefor.f:765:72: 765 | 12 Y(IT,I)=Y(IT,I)+B(L,I,J)*W0(L-IT,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1) dsefor.f:768:72: 768 | DO 13 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 13 at (1) dsefor.f:769:72: 769 | 13 Y(IT,I)=Y(IT,I)+B(L,I,J)* W(IT+1-L,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1) dsefor.f:777:72: 777 | DO 22 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 22 at (1) dsefor.f:778:72: 778 | 22 Y(IT,I)=Y(IT,I)+C(L,I,J)*U0(L-IT,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1) dsefor.f:782:72: 782 | DO 23 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 23 at (1) dsefor.f:783:72: 783 | 23 Y(IT,I)=Y(IT,I)+C(L,I,J)* U(IT+1-L,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1) dsefor.f:874:72: 874 | DO 300 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 300 at (1) dsefor.f:875:72: 875 | 300 BB(I,J)=B(1,I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1) dsefor.f:886:72: 886 | DO 301 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 301 at (1) dsefor.f:888:72: 888 | 301 A(L,I,J)=0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 301 at (1) dsefor.f:889:72: 889 | DO 302 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 302 at (1) dsefor.f:890:72: 890 | DO 302 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 302 at (1) dsefor.f:891:72: 891 | DO 302 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 302 at (1) dsefor.f:892:72: 892 | 302 A(L,I,J)=A(L,I,J)+BB(I,K)*AA(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 302 at (1) dsefor.f:895:72: 895 | DO 303 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 303 at (1) dsefor.f:897:72: 897 | 303 B(L,I,J)=0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 303 at (1) dsefor.f:898:72: 898 | DO 304 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 304 at (1) dsefor.f:899:72: 899 | DO 304 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 304 at (1) dsefor.f:900:72: 900 | DO 304 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 304 at (1) dsefor.f:901:72: 901 | 304 B(L,I,J)=B(L,I,J)+BB(I,K)*AA(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 304 at (1) dsefor.f:904:72: 904 | DO 305 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 305 at (1) dsefor.f:906:72: 906 | 305 C(L,I,J)=0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1) dsefor.f:907:72: 907 | DO 306 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 306 at (1) dsefor.f:908:72: 908 | DO 306 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 306 at (1) dsefor.f:909:72: 909 | DO 306 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 306 at (1) dsefor.f:910:72: 910 | 306 C(L,I,J)=C(L,I,J)+BB(I,K)*AA(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 306 at (1) dsefor.f:914:72: 914 | 307 TREND(IT,I)=0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 307 at (1) dsefor.f:915:72: 915 | DO 308 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 308 at (1) dsefor.f:916:72: 916 | DO 308 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 308 at (1) dsefor.f:917:72: 917 | 308 TREND(IT,I)=TREND(IT,I) + BB(I,K)*AA(I,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 308 at (1) dsefor.f:919:72: 919 | DO 309 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 309 at (1) dsefor.f:920:72: 920 | 309 EY(IT,J)=0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 309 at (1) dsefor.f:927:72: 927 | 1 WW(I)= -TREND(IT,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:932:72: 932 | DO 2 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:933:72: 933 | 2 WW(I)=WW(I)+A(L,I,J)*Y(IT+1-L,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) dsefor.f:941:72: 941 | DO 3 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1) dsefor.f:942:72: 942 | 3 WW(I)=WW(I)-B(L,I,J)*EY(IT+1-L,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) dsefor.f:950:72: 950 | DO 4 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1) dsefor.f:953:72: 953 | 4 WW(I)=WW(I)-C(L,I,J)*U(IT+1-L,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) dsefor.f:962:72: 962 | 10 EY(IT,I)=WW(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dsefor.f:967:72: 967 | 410 PRDERR(IT,I)= ERRWT(1)*WW(I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1) dsefor.f:972:72: 972 | 401 WW(I)= -TREND(IT,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 401 at (1) dsefor.f:977:72: 977 | DO 402 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 402 at (1) dsefor.f:978:72: 978 | 402 WW(I)=WW(I)+A(L,I,J)*Y(IT+K-L,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 402 at (1) dsefor.f:986:72: 986 | DO 403 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 403 at (1) dsefor.f:987:72: 987 | 403 WW(I)=WW(I)-B(L,I,J)*EY(IT+K-L,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 403 at (1) dsefor.f:995:72: 995 | DO 404 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 404 at (1) dsefor.f:996:72: 996 | 404 WW(I)=WW(I)-C(L,I,J)*U(IT+K-L,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 404 at (1) dsefor.f:1002:72: 1002 | DO 407 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 407 at (1) dsefor.f:1003:72: 1003 | 407 BB(I,1) = BB(I,1) + B(1,I,J) * WW(J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 407 at (1) dsefor.f:1005:72: 1005 | 408 PRDERR(IT,I)= PRDERR(IT,I) + ERRWT(K)*BB(I,1)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 408 at (1) dsefor.f:1021:72: 1021 | 40 WW(I)=0.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) dsefor.f:1023:72: 1023 | DO 41 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 41 at (1) dsefor.f:1024:72: 1024 | 41 WW(I)=WW(I) + B(1,I,J) *EY(IT,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1) dsefor.f:1025:72: 1025 | DO 45 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 45 at (1) dsefor.f:1026:72: 1026 | 45 EY(IT,I)=Y(IT,I) - WW(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 45 at (1) dsefor.f:1033:72: 1033 | DO 2298 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2298 at (1) dsefor.f:1034:72: 1034 | 2298 B(1,I,J)=0.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2298 at (1) dsefor.f:1036:72: 1036 | 2299 B(1,I,I)=1.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2299 at (1) dsefor.f:1042:72: 1042 | DO 2300 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2300 at (1) dsefor.f:1043:72: 1043 | 2300 BB(I,J)=A(1,I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2300 at (1) dsefor.f:1054:72: 1054 | DO 2301 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2301 at (1) dsefor.f:1056:72: 1056 | 2301 A(L,I,J)=0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2301 at (1) dsefor.f:1057:72: 1057 | DO 2302 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2302 at (1) dsefor.f:1058:72: 1058 | DO 2302 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2302 at (1) dsefor.f:1059:72: 1059 | DO 2302 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2302 at (1) dsefor.f:1060:72: 1060 | 2302 A(L,I,J)=A(L,I,J)+BB(I,K)*AA(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2302 at (1) dsefor.f:1063:72: 1063 | DO 2303 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2303 at (1) dsefor.f:1065:72: 1065 | 2303 B(L,I,J)=0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2303 at (1) dsefor.f:1066:72: 1066 | DO 2304 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2304 at (1) dsefor.f:1067:72: 1067 | DO 2304 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2304 at (1) dsefor.f:1068:72: 1068 | DO 2304 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2304 at (1) dsefor.f:1069:72: 1069 | 2304 B(L,I,J)=B(L,I,J)+BB(I,K)*AA(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2304 at (1) dsefor.f:1072:72: 1072 | DO 2305 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2305 at (1) dsefor.f:1074:72: 1074 | 2305 C(L,I,J)=0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2305 at (1) dsefor.f:1075:72: 1075 | DO 2306 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2306 at (1) dsefor.f:1076:72: 1076 | DO 2306 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2306 at (1) dsefor.f:1077:72: 1077 | DO 2306 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2306 at (1) dsefor.f:1078:72: 1078 | 2306 C(L,I,J)=C(L,I,J)+BB(I,K)*AA(K,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2306 at (1) dsefor.f:1082:72: 1082 | 2307 TREND(IT,I)=0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2307 at (1) dsefor.f:1083:72: 1083 | DO 2308 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2308 at (1) dsefor.f:1084:72: 1084 | DO 2308 K=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2308 at (1) dsefor.f:1085:72: 1085 | 2308 TREND(IT,I)=TREND(IT,I) + BB(I,K)*AA(I,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2308 at (1) dsefor.f:1090:72: 1090 | 2001 EY(IT,I)= TREND(IT,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2001 at (1) dsefor.f:1094:72: 1094 | DO 2002 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2002 at (1) dsefor.f:1095:72: 1095 | DO 2002 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2002 at (1) dsefor.f:1107:72: 1107 | DO 2003 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2003 at (1) dsefor.f:1115:72: 1115 | DO 2005 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2005 at (1) dsefor.f:1116:72: 1116 | DO 2005 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2005 at (1) dsefor.f:1173:72: 1173 | DO 1 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) dsefor.f:1174:72: 1174 | 1 F(I,J) = 0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:1176:72: 1176 | DO 2 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:1177:72: 1177 | 2 G(I,J) = 0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) dsefor.f:1179:72: 1179 | DO 3 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1) dsefor.f:1180:72: 1180 | 3 H(I,J) = 0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) dsefor.f:1182:72: 1182 | DO 4 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1) dsefor.f:1183:72: 1183 | 4 FK(I,J) = 0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) dsefor.f:1185:72: 1185 | DO 5 J=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) dsefor.f:1186:72: 1186 | 5 Q(I,J) = 0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1) dsefor.f:1188:72: 1188 | DO 6 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 6 at (1) dsefor.f:1189:72: 1189 | 6 R(I,J) = 0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1) dsefor.f:1191:72: 1191 | 7 Z0(I) = 0.0D+0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1) dsefor.f:1279:72: 1279 | 1 MHORIZ=MIN(MHORIZ,HORIZ(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:1293:72: 1293 | DO 4 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1) dsefor.f:1341:72: 1341 | 1 NT(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:1343:72: 1343 | DO 2 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:1344:72: 1344 | DO 2 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:1345:72: 1345 | 2 COV(K,I,J)= 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) dsefor.f:1360:72: 1360 | DO 4 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1) dsefor.f:1361:72: 1361 | 4 EY(I,J) = EY(HI,J) - Y(HI,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) dsefor.f:1365:72: 1365 | DO 5 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) dsefor.f:1366:72: 1366 | DO 5 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) dsefor.f:1405:72: 1405 | DO 1 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) dsefor.f:1406:72: 1406 | DO 1 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1) dsefor.f:1407:72: 1407 | 1 A(L,I,J) = 0.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:1409:72: 1409 | DO 2 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:1410:72: 1410 | DO 2 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:1411:72: 1411 | 2 B(L,I,J) = 0.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) dsefor.f:1413:72: 1413 | DO 3 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1) dsefor.f:1414:72: 1414 | DO 3 J=1,M | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1) dsefor.f:1415:72: 1415 | 3 C(L,I,J) = 0.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1) dsefor.f:1417:72: 1417 | DO 4 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1) dsefor.f:1418:72: 1418 | 4 TREND(I,J) = 0.0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) dsefor.f:1488:72: 1488 | 1 MHORIZ=MIN(MHORIZ,HORIZ(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:1499:72: 1499 | DO 4 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1) dsefor.f:1500:72: 1500 | 4 PROJ(HO,IT+HORIZ(HO),J) = EY(IT+HORIZ(HO),J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) dsefor.f:1539:72: 1539 | 1 NT(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:1541:72: 1541 | DO 2 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:1542:72: 1542 | DO 2 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:1543:72: 1543 | 2 COV(K,I,J)= 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) dsefor.f:1558:72: 1558 | DO 4 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1) dsefor.f:1559:72: 1559 | 4 EY(I,J) = EY(HI,J) - Y(HI,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1) dsefor.f:1563:72: 1563 | DO 5 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) dsefor.f:1564:72: 1564 | DO 5 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) dsefor.f:1593:72: 1593 | 1 NT(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:1595:72: 1595 | DO 2 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:1596:72: 1596 | DO 2 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1) dsefor.f:1597:72: 1597 | 2 COV(K,I,J)= 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1) dsefor.f:1608:72: 1608 | DO 5 I=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) dsefor.f:1609:72: 1609 | DO 5 J=1,P | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1) dsefor.f:1696:72: 1696 | 1 X(II) =X0(II) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:1705:72: 1705 | 10 DELTA(II) =DELTA0(II) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dsefor.f:1725:72: 1725 | 15 DAPROX(II,K) = (F1(II) - F2(II)) / (2.0*DELTA(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) dsefor.f:1727:72: 1727 | 16 HAPROX(II,K) =(F1(II)-2.0*F0(II)+F2(II))/ DELTA(I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) dsefor.f:1732:72: 1732 | DO 30 K=1,(RD-MC) | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) dsefor.f:1734:72: 1734 | 25 DAPROX(II,K)=(DAPROX(II,K+1)*MD-DAPROX(II,K))/(MD-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) dsefor.f:1736:72: 1736 | 26 HAPROX(II,K)=(HAPROX(II,K+1)*MD-HAPROX(II,K))/(MD-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 26 at (1) dsefor.f:1739:72: 1739 | 31 D(II,I) = DAPROX(II,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) dsefor.f:1741:72: 1741 | 32 HDIAG(II,I) = HAPROX(II,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) dsefor.f:1748:72: 1748 | DO 200 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) dsefor.f:1753:72: 1753 | 120 D(II,UP) = HDIAG(II,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) dsefor.f:1756:72: 1756 | 121 DELTA(II) =DELTA0(II) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 121 at (1) dsefor.f:1778:72: 1778 | , (2.0*DELTA(I)*DELTA(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) dsefor.f:1780:72: 1780 | 140 DELTA(II) = DELTA(II)/V | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) dsefor.f:1785:72: 1785 | DO 170 II=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 170 at (1) dsefor.f:1787:72: 1787 | , (DAPROX(II,K+1)*MD-DAPROX(II,K))/(MD-1.0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) dsefor.f:1789:72: 1789 | 180 D(II,UP) = DAPROX(II,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) dsefor.f:1873:72: 1873 | 1 X(II) =X0(II) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1) dsefor.f:1882:72: 1882 | 10 DELTA(II) =DELTA0(II) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) dsefor.f:1902:72: 1902 | 15 DAPROX(II,K) = (F1(II) - F2(II)) / (2.0*DELTA(I)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1) dsefor.f:1904:72: 1904 | 16 HAPROX(II,K) =(F1(II)-2.0*F0(II)+F2(II))/ DELTA(I)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1) dsefor.f:1909:72: 1909 | DO 30 K=1,(RD-MC) | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1) dsefor.f:1911:72: 1911 | 25 DAPROX(II,K)=(DAPROX(II,K+1)*MD-DAPROX(II,K))/(MD-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) dsefor.f:1913:72: 1913 | 26 HAPROX(II,K)=(HAPROX(II,K+1)*MD-HAPROX(II,K))/(MD-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 26 at (1) dsefor.f:1916:72: 1916 | 31 D(II,I) = DAPROX(II,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 31 at (1) dsefor.f:1918:72: 1918 | 32 HDIAG(II,I) = HAPROX(II,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 32 at (1) dsefor.f:1925:72: 1925 | DO 200 J=1,I | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1) dsefor.f:1930:72: 1930 | 120 D(II,UP) = HDIAG(II,I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) dsefor.f:1933:72: 1933 | 121 DELTA(II) =DELTA0(II) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 121 at (1) dsefor.f:1955:72: 1955 | , (2.0*DELTA(I)*DELTA(J)) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) dsefor.f:1957:72: 1957 | 140 DELTA(II) = DELTA(II)/V | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1) dsefor.f:1962:72: 1962 | DO 170 II=1,N | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 170 at (1) dsefor.f:1964:72: 1964 | , (DAPROX(II,K+1)*MD-DAPROX(II,K))/(MD-1.0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) dsefor.f:1966:72: 1966 | 180 D(II,UP) = DAPROX(II,1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) clang -arch arm64 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -L/Library/Frameworks/R.framework/Resources/lib -L/opt/R/arm64/lib -o dse.so dsefor.o -L/Library/Frameworks/R.framework/Resources/lib -lRlapack -L/Library/Frameworks/R.framework/Resources/lib -lRblas -L/opt/gfortran/lib/gcc/aarch64-apple-darwin20.0/12.2.0 -L/opt/gfortran/lib -lgfortran -lemutls_w -lquadmath -L/opt/gfortran/lib/gcc/aarch64-apple-darwin20.0/12.2.0 -L/opt/gfortran/lib -lgfortran -lemutls_w -lquadmath -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation ld: warning: could not create compact unwind for _arma_: registers 27 and 28 not saved contiguously in frame ld: warning: could not create compact unwind for _armap_: registers 27 and 28 not saved contiguously in frame ld: warning: could not create compact unwind for _kf_: registers 27 and 28 not saved contiguously in frame ld: warning: could not create compact unwind for _kfp_: registers 27 and 28 not saved contiguously in frame ld: warning: could not create compact unwind for _simss_: registers 27 and 28 not saved contiguously in frame ld: warning: could not create compact unwind for _simrma_: registers 27 and 28 not saved contiguously in frame ld: warning: could not create compact unwind for _datepr_: registers 27 and 28 not saved contiguously in frame ld: warning: could not create compact unwind for _gendk_: register 75 saved somewhere other than in frame ld: warning: could not create compact unwind for _genda_: register 75 saved somewhere other than in frame ld: warning: could not create compact unwind for ___emutls_get_address: registers 23 and 24 not saved contiguously in frame installing to /Volumes/Builds/packages/big-sur-arm64/results/4.4/dse.Rcheck/00LOCK-dse/00new/dse/libs ** generating debug symbols (dSYM) ** R ** data ** demo ** exec ** inst ** byte-compile and prepare package for lazy loading ** help *** installing help indices ** building package indices ** installing vignettes ** testing if installed package can be loaded from temporary location ** checking absolute paths in shared objects and dynamic libraries ** testing if installed package can be loaded from final location ** testing if installed package keeps a record of temporary installation path * DONE (dse)