* installing to library ‘/home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages’
* installing *source* package ‘dse’ ...
** package ‘dse’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using Fortran compiler: ‘GNU Fortran (Debian 13.2.0-5) 13.2.0’
make[1]: Entering directory '/tmp/RtmpgdAM1m/R.INSTALL3b6390cc3053d/dse/src'
gfortran-13 -fpic -g -O2 -Wall -mtune=native -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)
gcc-13 -shared -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -Wl,-O1 -o dse.so dsefor.o -llapack -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -lRblas -lgfortran -lm -lquadmath -lgfortran -lm -lquadmath -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -lR
make[1]: Leaving directory '/tmp/RtmpgdAM1m/R.INSTALL3b6390cc3053d/dse/src'
make[1]: Entering directory '/tmp/RtmpgdAM1m/R.INSTALL3b6390cc3053d/dse/src'
make[1]: Leaving directory '/tmp/RtmpgdAM1m/R.INSTALL3b6390cc3053d/dse/src'
installing to /home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/00LOCK-dse/00new/dse/libs
** R
** data
** demo
** exec
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
converting help for package ‘dse’
finding HTML links ... done
00.dse.Intro html
ARMA html
DSEflags html
DSEutilities html
DSEversion html
McMillanDegree html
MittnikReducedModels html
MittnikReduction html
Polynomials html
Portmanteau html
Riccati html
SS html
TSdata html
TSdata.forecastCov html
TSdata.object html
TSestModel html
TSmodel html
acf html
addPlotRoots html
balanceMittnik html
bestTSestModel html
checkBalance html
checkBalanceMittnik html
checkConsistentDimensions html
checkResiduals html
coef.TSmodel html
combine html
combine.TSdata html
combine.forecastCov html
dse-package html
eg1.DSE.data html
egJofF.1dec93.data html
estBlackBox html
estBlackBox1 html
estBlackBox2 html
estBlackBox3 html
estBlackBox4 html
estMaxLik html
estSSMittnik html
estSSfromVARX html
estVARXar html
estVARXls html
estWtVariables html
estimateModels html
estimatorsHorizonForecastsWRTdata html
excludeForecastCov html
extractforecastCov html
featherForecasts html
fixConstants html
fixF html
forecast html
forecastCov html
forecastCovCompiled html
forecastCovEstimatorsWRTdata html
forecastCovEstimatorsWRTtrue html
forecastCovReductionsWRTtrue html
forecastCovWRTtrue html
forecasts html
gmap html
horizonForecasts html
horizonForecastsCompiled html
informationTests html
informationTestsCalculations html
inputData html
is.forecastCovEstimatorsWRTdata.subsets
html
l.ARMA html
l html
l.SS html
makeTSnoise html
markovParms html
minForecastCov html
minimumStartupLag html
nseries.featherForecasts html
nseriesInput html
nstates html
observability html
outOfSample.forecastCovEstimatorsWRTdata
html
percentChange.TSdata html
periods.TSdata html
periodsInput html
permute html
phasePlots html
plot.roots html
print.TSdata html
print.TSestModel html
print.forecastCov html
reachability html
residualStats html
residuals.TSestModel html
roots html
roots.estimatedModels html
scale.TSdata html
selectForecastCov html
seriesNames.TSdata html
seriesNamesInput html
seriesNamesInput.forecast html
setArrays html
setTSmodelParameters html
shockDecomposition html
simulate html
smoother html
stability html
state html
stripMine html
sumSqerror html
summary.TSdata html
summary.forecastCov html
testEqual.ARMA html
testEqual.forecast html
tfplot.TSdata html
tfplot.forecast html
tfplot.forecastCov html
tframed.TSdata html
toARMA html
toSS html
toSSChol html
toSSOform html
toSSinnov html
totalForecastCov html
** 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)