* 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 -single_module -multiply_defined suppress -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
installing to /Volumes/Builds/packages/big-sur-arm64/results/4.3/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)