<86>May 5 11:15:47 userdel[1295000]: delete user 'rooter' <86>May 5 11:15:47 userdel[1295000]: removed shadow group 'rooter' owned by 'rooter' <86>May 5 11:15:47 groupadd[1295042]: group added to /etc/group: name=rooter, GID=669 <86>May 5 11:15:47 groupadd[1295042]: group added to /etc/gshadow: name=rooter <86>May 5 11:15:47 groupadd[1295042]: new group: name=rooter, GID=669 <86>May 5 11:15:47 useradd[1295092]: new user: name=rooter, UID=669, GID=669, home=/root, shell=/bin/bash <86>May 5 11:15:47 userdel[1295154]: delete user 'builder' <86>May 5 11:15:47 userdel[1295154]: removed group 'builder' owned by 'builder' <86>May 5 11:15:47 userdel[1295154]: removed shadow group 'builder' owned by 'builder' <86>May 5 11:15:47 groupadd[1295207]: group added to /etc/group: name=builder, GID=670 <86>May 5 11:15:47 groupadd[1295207]: group added to /etc/gshadow: name=builder <86>May 5 11:15:47 groupadd[1295207]: new group: name=builder, GID=670 <86>May 5 11:15:47 useradd[1295242]: new user: name=builder, UID=670, GID=670, home=/usr/src, shell=/bin/bash <13>May 5 11:15:50 rpmi: libquadmath0-9.2.1-alt3 sisyphus+245055.100.1.1 1580041617 installed <13>May 5 11:15:50 rpmi: libquadmath9-devel-9.2.1-alt3 sisyphus+245055.100.1.1 1580041617 installed <13>May 5 11:15:50 rpmi: libgfortran5-9.2.1-alt3 sisyphus+245055.100.1.1 1580041617 installed <13>May 5 11:15:50 rpmi: gcc-fortran-common-1.4.24-alt3 sisyphus+243033.100.1.1 1576462403 installed <13>May 5 11:15:50 rpmi: libgfortran9-devel-9.2.1-alt3 sisyphus+245055.100.1.1 1580041617 installed <13>May 5 11:15:51 rpmi: gcc9-fortran-9.2.1-alt3 sisyphus+245055.100.1.1 1580041617 installed <13>May 5 11:15:51 rpmi: gcc-fortran-9-alt1 sisyphus+239632.300.3.1 1571788297 installed Building target platforms: i586 Building for target i586 Wrote: /usr/src/in/nosrpm/daskr-2011.06.08-alt1.nosrc.rpm Installing daskr-2011.06.08-alt1.src.rpm Building target platforms: i586 Building for target i586 Executing(%prep): /bin/sh -e /usr/src/tmp/rpm-tmp.80741 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + rm -rf daskr-2011.06.08 + echo 'Source #0 (daskr-2011.06.08.tar):' Source #0 (daskr-2011.06.08.tar): + /bin/tar -xf /usr/src/RPM/SOURCES/daskr-2011.06.08.tar + cd daskr-2011.06.08 + /bin/chmod -c -Rf u+rwX,go-w . + exit 0 Executing(%build): /bin/sh -e /usr/src/tmp/rpm-tmp.81389 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + cd daskr-2011.06.08 + g77 -c -pipe -frecord-gcc-switches -Wall -g -O2 -march=i586 -mtune=generic -fPIC -DPIC preconds/dbanpre.f preconds/dilupre.f preconds/drbdpre.f preconds/drbgpre.f preconds/dsparsk.f preconds/sbanpre.f preconds/silupre.f preconds/srbdpre.f preconds/srbgpre.f preconds/ssparsk.f solver/daux.f solver/ddaskr.f solver/dlinpk.f solver/saux.f solver/sdaskr.f solver/slinpk.f preconds/dbanpre.f:178:72: 178 | 20 WP(II+I) = (WK(I) - SAVR(I))*DELINV | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) preconds/dbanpre.f:190:56: 190 | SUBROUTINE DBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'cj' at (1) [-Wunused-dummy-argument] preconds/dbanpre.f:191:42: 191 | * WP, IWP, B, EPLIN, IER, RPAR, IPAR) | 1 Warning: Unused dummy argument 'eplin' at (1) [-Wunused-dummy-argument] preconds/dbanpre.f:191:47: 191 | * WP, IWP, B, EPLIN, IER, RPAR, IPAR) | 1 Warning: Unused dummy argument 'ier' at (1) [-Wunused-dummy-argument] preconds/dbanpre.f:191:53: 191 | * WP, IWP, B, EPLIN, IER, RPAR, IPAR) | 1 Warning: Unused dummy argument 'rpar' at (1) [-Wunused-dummy-argument] preconds/dbanpre.f:190:48: 190 | SUBROUTINE DBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'savr' at (1) [-Wunused-dummy-argument] preconds/dbanpre.f:190:31: 190 | SUBROUTINE DBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 't' at (1) [-Wunused-dummy-argument] preconds/dbanpre.f:190:62: 190 | SUBROUTINE DBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'wght' at (1) [-Wunused-dummy-argument] preconds/dbanpre.f:190:52: 190 | SUBROUTINE DBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'wk' at (1) [-Wunused-dummy-argument] preconds/dbanpre.f:190:34: 190 | SUBROUTINE DBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'y' at (1) [-Wunused-dummy-argument] preconds/dbanpre.f:190:42: 190 | SUBROUTINE DBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'yprime' at (1) [-Wunused-dummy-argument] f951: Warning: Nonconforming tab character in column 1 of line 656 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 739 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 741 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 887 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 889 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 891 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 892 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 894 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 896 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 897 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 898 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 899 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 900 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 905 [-Wtabs] preconds/dilupre.f:747:72: 747 | 40 BL(I) = WK(I) / WGHT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) preconds/dilupre.f:750:72: 750 | 50 BL(I) = WK(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) preconds/dilupre.f:893:24: 893 | INTEGER MASK(NEQ) ! Work array used by the BFS reordering | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dilupre.f:904:19: 904 | INTEGER NLEV ! Number of levels in levels array. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dilupre.f:906:22: 906 | INTEGER MASKVAL ! Scalar used with MASK. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dilupre.f:862:52: 862 | SUBROUTINE DJREORD (NEQ, NEQP1, NNZMX, PREMETH, | 1 Warning: Unused dummy argument 'premeth' at (1) [-Wunused-dummy-argument] preconds/dilupre.f:675:56: 675 | SUBROUTINE DPSOLILU (NEQ, T, Y, YPRIME, R0, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'cj' at (1) [-Wunused-dummy-argument] preconds/dilupre.f:676:45: 676 | . WP, IWP, BL, EPLIN, IERR, RPAR, IPAR) | 1 Warning: Unused dummy argument 'eplin' at (1) [-Wunused-dummy-argument] preconds/dilupre.f:675:48: 675 | SUBROUTINE DPSOLILU (NEQ, T, Y, YPRIME, R0, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'r0' at (1) [-Wunused-dummy-argument] preconds/dilupre.f:676:57: 676 | . WP, IWP, BL, EPLIN, IERR, RPAR, IPAR) | 1 Warning: Unused dummy argument 'rpar' at (1) [-Wunused-dummy-argument] preconds/dilupre.f:675:33: 675 | SUBROUTINE DPSOLILU (NEQ, T, Y, YPRIME, R0, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 't' at (1) [-Wunused-dummy-argument] preconds/dilupre.f:675:36: 675 | SUBROUTINE DPSOLILU (NEQ, T, Y, YPRIME, R0, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'y' at (1) [-Wunused-dummy-argument] preconds/dilupre.f:675:44: 675 | SUBROUTINE DPSOLILU (NEQ, T, Y, YPRIME, R0, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'yprime' at (1) [-Wunused-dummy-argument] preconds/drbdpre.f:217:72: 217 | 10 IWORK(I0+I) = 1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) preconds/drbdpre.f:219:72: 219 | 20 IWORK(I0+I) = -1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) preconds/drbdpre.f:300:72: 300 | 10 BD(IBD+I) = (R1(I) - R0(J0+I))*FAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) preconds/drbdpre.f:315:72: 315 | 70 IDIAG = IDIAG + (MP + 1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) preconds/drbgpre.f:261:72: 261 | 10 IWORK(I0+I) = 1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) preconds/drbgpre.f:263:72: 263 | 20 IWORK(I0+I) = -1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) preconds/drbgpre.f:296:72: 296 | 10 JG(IG) = 1 + (IG - 1)*MPER | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) preconds/drbgpre.f:302:72: 302 | 20 JIG(J) = 1 + (J-1)/MPER | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) preconds/drbgpre.f:305:72: 305 | 25 JIG(J) = NG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) preconds/drbgpre.f:308:72: 308 | 30 JR(IG) = 0.5D0 + (REAL(IG) - 0.5D0)*REAL(MPER) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) preconds/drbgpre.f:395:72: 395 | 10 BD(IBD+I) = (R1(I) - R0(J0+I))*FAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) preconds/drbgpre.f:409:72: 409 | 70 IDIAG = IDIAG + (MP + 1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) preconds/drbgpre.f:308:17: 308 | 30 JR(IG) = 0.5D0 + (REAL(IG) - 0.5D0)*REAL(MPER) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] preconds/drbgpre.f:309:15: 309 | JR(NG) = 0.5D0*REAL(1 + NGM1*MPER + M) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] f951: Warning: Nonconforming tab character in column 1 of line 93 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 721 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 722 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 723 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 724 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 725 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 726 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 727 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 728 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 729 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 730 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 731 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 732 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 733 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 851 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 858 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 861 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 862 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 1491 [-Wtabs] f951: Warning: Nonconforming tab character in column 5 of line 2719 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2727 [-Wtabs] f951: Warning: Nonconforming tab character in column 5 of line 2734 [-Wtabs] f951: Warning: Nonconforming tab character in column 5 of line 2814 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2823 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2932 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2969 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2970 [-Wtabs] f951: Warning: Nonconforming tab character in column 4 of line 2972 [-Wtabs] f951: Warning: Nonconforming tab character in column 3 of line 2976 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2979 [-Wtabs] preconds/dsparsk.f:662:7: 662 | * guesol*2, rhstyp*3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:665:28: 665 | integer ja(*), ia(*) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:675:72: 675 | assign 101 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:677:72: 677 | assign 100 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:692:13: 692 | valcrd = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:704:72: 704 | assign 102 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:706:72: 706 | assign 103 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:708:72: 708 | assign 104 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:722:72: 722 | assign 105 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:724:72: 724 | assign 106 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:726:72: 726 | assign 107 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:730:72: 730 | assign 108 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:732:72: 732 | assign 109 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:734:72: 734 | assign 110 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/dsparsk.f:746:13: 746 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:863:18: 863 | 3 continue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1001:15: 1001 | 6 k = k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1764:10: 1764 | tmp = x(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1775:11: 1775 | tmp1 = x(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1777:11: 1777 | next = perm(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1796:10: 1796 | tmp = x(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1797:9: 1797 | ii = perm(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1837:10: 1837 | tmp = ix(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1848:11: 1848 | tmp1 = ix(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1850:11: 1850 | next = perm(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1869:10: 1869 | tmp = ix(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1870:9: 1870 | ii = perm(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:3211:23: 3211 | i = riord(ir) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:744:4: 744 | 110 format(1h(,i2,1hD,i2,1h.,i2,1h) ) | 1 Warning: Label 110 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:743:4: 743 | 109 format(1h(,i2,1hD,i2,1h.,i1,1h) ) | 1 Warning: Label 109 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:742:4: 742 | 108 format(1h(,i2,1hD,i1,1h.,i1,1h) ) | 1 Warning: Label 108 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:741:4: 741 | 107 format(1h(,i1,1hD,i2,1h.,i2,1h) ) | 1 Warning: Label 107 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:740:4: 740 | 106 format(1h(,i1,1hD,i2,1h.,i1,1h) ) | 1 Warning: Label 106 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:739:4: 739 | 105 format(1h(,i1,1hD,i1,1h.,i1,1h) ) | 1 Warning: Label 105 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:714:4: 714 | 104 format(1h(,i2,1hF,i2,1h.,i2,1h) ) | 1 Warning: Label 104 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:713:4: 713 | 103 format(1h(,i2,1hF,i2,1h.,i1,1h) ) | 1 Warning: Label 103 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:712:4: 712 | 102 format(1h(,i2,1hF,i1,1h.,i1,1h) ) | 1 Warning: Label 102 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:681:4: 681 | 101 format(1h(,i2,1HI,i2,1h) ) | 1 Warning: Label 101 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:679:20: 679 | write (ptrfmt,ix) nperli,len | 1 Warning: Deleted feature: ASSIGNED variable in FORMAT tag at (1) preconds/dsparsk.f:711:22: 711 | write(valfmt,ix) nperli,len,ifmt | 1 Warning: Deleted feature: ASSIGNED variable in FORMAT tag at (1) preconds/dsparsk.f:738:22: 738 | write(valfmt,ix) nperli,len,ifmt | 1 Warning: Deleted feature: ASSIGNED variable in FORMAT tag at (1) preconds/dsparsk.f:3172:3: 3172 | 13 continue | 1 Warning: Label 13 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:3196:2: 3196 | 3 levels(nlev+1) = iend+1 | 1 Warning: Label 3 at (1) defined but not used [-Wunused-label] preconds/dsparsk.f:3203:42: 3203 | subroutine add_lvst(istart,iend,nlev,riord,ja,ia,mask,maskval) | 1 Warning: Unused dummy argument 'nlev' at (1) [-Wunused-dummy-argument] preconds/dsparsk.f:2011:42: 2011 | subroutine rnrms (nrow, nrm, a, ja, ia, diag) | 1 Warning: Unused dummy argument 'ja' at (1) [-Wunused-dummy-argument] preconds/dsparsk.f:1920:27: 1920 | subroutine getbwd(n,a,ja,ia,ml,mu) | 1 Warning: Unused dummy argument 'a' at (1) [-Wunused-dummy-argument] preconds/dsparsk.f:1009:0: 1009 | if (values) a(ipos) = t | Warning: 'tnext' may be used uninitialized in this function [-Wmaybe-uninitialized] preconds/sbanpre.f:179:72: 179 | 20 WP(II+I) = (WK(I) - SAVR(I))*DELINV | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) preconds/sbanpre.f:191:56: 191 | SUBROUTINE SBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'cj' at (1) [-Wunused-dummy-argument] preconds/sbanpre.f:192:42: 192 | * WP, IWP, B, EPLIN, IER, RPAR, IPAR) | 1 Warning: Unused dummy argument 'eplin' at (1) [-Wunused-dummy-argument] preconds/sbanpre.f:192:47: 192 | * WP, IWP, B, EPLIN, IER, RPAR, IPAR) | 1 Warning: Unused dummy argument 'ier' at (1) [-Wunused-dummy-argument] preconds/sbanpre.f:192:53: 192 | * WP, IWP, B, EPLIN, IER, RPAR, IPAR) | 1 Warning: Unused dummy argument 'rpar' at (1) [-Wunused-dummy-argument] preconds/sbanpre.f:191:48: 191 | SUBROUTINE SBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'savr' at (1) [-Wunused-dummy-argument] preconds/sbanpre.f:191:31: 191 | SUBROUTINE SBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 't' at (1) [-Wunused-dummy-argument] preconds/sbanpre.f:191:62: 191 | SUBROUTINE SBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'wght' at (1) [-Wunused-dummy-argument] preconds/sbanpre.f:191:52: 191 | SUBROUTINE SBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'wk' at (1) [-Wunused-dummy-argument] preconds/sbanpre.f:191:34: 191 | SUBROUTINE SBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'y' at (1) [-Wunused-dummy-argument] preconds/sbanpre.f:191:42: 191 | SUBROUTINE SBANPS (NEQ, T, Y, YPRIME, SAVR, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'yprime' at (1) [-Wunused-dummy-argument] f951: Warning: Nonconforming tab character in column 1 of line 656 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 739 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 741 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 887 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 889 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 891 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 892 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 894 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 896 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 897 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 898 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 899 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 900 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 905 [-Wtabs] preconds/silupre.f:747:72: 747 | 40 BL(I) = WK(I) / WGHT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1) preconds/silupre.f:750:72: 750 | 50 BL(I) = WK(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1) preconds/silupre.f:893:24: 893 | INTEGER MASK(NEQ) ! Work array used by the BFS reordering | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/silupre.f:904:19: 904 | INTEGER NLEV ! Number of levels in levels array. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/silupre.f:906:22: 906 | INTEGER MASKVAL ! Scalar used with MASK. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/silupre.f:862:52: 862 | SUBROUTINE SJREORD (NEQ, NEQP1, NNZMX, PREMETH, | 1 Warning: Unused dummy argument 'premeth' at (1) [-Wunused-dummy-argument] preconds/silupre.f:675:56: 675 | SUBROUTINE SPSOLILU (NEQ, T, Y, YPRIME, R0, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'cj' at (1) [-Wunused-dummy-argument] preconds/silupre.f:676:45: 676 | . WP, IWP, BL, EPLIN, IERR, RPAR, IPAR) | 1 Warning: Unused dummy argument 'eplin' at (1) [-Wunused-dummy-argument] preconds/silupre.f:675:48: 675 | SUBROUTINE SPSOLILU (NEQ, T, Y, YPRIME, R0, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'r0' at (1) [-Wunused-dummy-argument] preconds/silupre.f:676:57: 676 | . WP, IWP, BL, EPLIN, IERR, RPAR, IPAR) | 1 Warning: Unused dummy argument 'rpar' at (1) [-Wunused-dummy-argument] preconds/silupre.f:675:33: 675 | SUBROUTINE SPSOLILU (NEQ, T, Y, YPRIME, R0, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 't' at (1) [-Wunused-dummy-argument] preconds/silupre.f:675:36: 675 | SUBROUTINE SPSOLILU (NEQ, T, Y, YPRIME, R0, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'y' at (1) [-Wunused-dummy-argument] preconds/silupre.f:675:44: 675 | SUBROUTINE SPSOLILU (NEQ, T, Y, YPRIME, R0, WK, CJ, WGHT, | 1 Warning: Unused dummy argument 'yprime' at (1) [-Wunused-dummy-argument] preconds/srbdpre.f:218:72: 218 | 10 IWORK(I0+I) = 1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) preconds/srbdpre.f:220:72: 220 | 20 IWORK(I0+I) = -1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) preconds/srbdpre.f:302:72: 302 | 10 BD(IBD+I) = (R1(I) - R0(J0+I))*FAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) preconds/srbdpre.f:317:72: 317 | 70 IDIAG = IDIAG + (MP + 1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) preconds/srbgpre.f:262:72: 262 | 10 IWORK(I0+I) = 1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) preconds/srbgpre.f:264:72: 264 | 20 IWORK(I0+I) = -1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) preconds/srbgpre.f:298:72: 298 | 10 JG(IG) = 1 + (IG - 1)*MPER | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) preconds/srbgpre.f:304:72: 304 | 20 JIG(J) = 1 + (J-1)/MPER | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) preconds/srbgpre.f:307:72: 307 | 25 JIG(J) = NG | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1) preconds/srbgpre.f:310:72: 310 | 30 JR(IG) = 0.5E0 + (REAL(IG) - 0.5E0)*REAL(MPER) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) preconds/srbgpre.f:398:72: 398 | 10 BD(IBD+I) = (R1(I) - R0(J0+I))*FAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) preconds/srbgpre.f:412:72: 412 | 70 IDIAG = IDIAG + (MP + 1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) preconds/srbgpre.f:310:17: 310 | 30 JR(IG) = 0.5E0 + (REAL(IG) - 0.5E0)*REAL(MPER) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] preconds/srbgpre.f:311:15: 311 | JR(NG) = 0.5E0*REAL(1 + NGM1*MPER + M) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] f951: Warning: Nonconforming tab character in column 1 of line 93 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 721 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 722 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 723 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 724 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 725 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 726 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 727 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 728 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 729 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 730 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 731 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 732 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 733 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 851 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 858 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 861 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 862 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 1491 [-Wtabs] f951: Warning: Nonconforming tab character in column 5 of line 2719 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2727 [-Wtabs] f951: Warning: Nonconforming tab character in column 5 of line 2734 [-Wtabs] f951: Warning: Nonconforming tab character in column 5 of line 2814 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2823 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2932 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2969 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2970 [-Wtabs] f951: Warning: Nonconforming tab character in column 4 of line 2972 [-Wtabs] f951: Warning: Nonconforming tab character in column 3 of line 2976 [-Wtabs] f951: Warning: Nonconforming tab character in column 1 of line 2979 [-Wtabs] preconds/ssparsk.f:662:7: 662 | * guesol*2, rhstyp*3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:665:28: 665 | integer ja(*), ia(*) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:675:72: 675 | assign 101 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:677:72: 677 | assign 100 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:692:13: 692 | valcrd = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:704:72: 704 | assign 102 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:706:72: 706 | assign 103 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:708:72: 708 | assign 104 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:722:72: 722 | assign 105 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:724:72: 724 | assign 106 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:726:72: 726 | assign 107 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:730:72: 730 | assign 108 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:732:72: 732 | assign 109 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:734:72: 734 | assign 110 to ix | 1 Warning: Deleted feature: ASSIGN statement at (1) preconds/ssparsk.f:746:13: 746 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:863:18: 863 | 3 continue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1001:15: 1001 | 6 k = k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1764:10: 1764 | tmp = x(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1775:11: 1775 | tmp1 = x(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1777:11: 1777 | next = perm(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1796:10: 1796 | tmp = x(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1797:9: 1797 | ii = perm(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1837:10: 1837 | tmp = ix(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1848:11: 1848 | tmp1 = ix(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1850:11: 1850 | next = perm(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1869:10: 1869 | tmp = ix(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1870:9: 1870 | ii = perm(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:3211:23: 3211 | i = riord(ir) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:744:4: 744 | 110 format(1h(,i2,1hD,i2,1h.,i2,1h) ) | 1 Warning: Label 110 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:743:4: 743 | 109 format(1h(,i2,1hD,i2,1h.,i1,1h) ) | 1 Warning: Label 109 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:742:4: 742 | 108 format(1h(,i2,1hD,i1,1h.,i1,1h) ) | 1 Warning: Label 108 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:741:4: 741 | 107 format(1h(,i1,1hD,i2,1h.,i2,1h) ) | 1 Warning: Label 107 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:740:4: 740 | 106 format(1h(,i1,1hD,i2,1h.,i1,1h) ) | 1 Warning: Label 106 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:739:4: 739 | 105 format(1h(,i1,1hD,i1,1h.,i1,1h) ) | 1 Warning: Label 105 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:714:4: 714 | 104 format(1h(,i2,1hF,i2,1h.,i2,1h) ) | 1 Warning: Label 104 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:713:4: 713 | 103 format(1h(,i2,1hF,i2,1h.,i1,1h) ) | 1 Warning: Label 103 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:712:4: 712 | 102 format(1h(,i2,1hF,i1,1h.,i1,1h) ) | 1 Warning: Label 102 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:681:4: 681 | 101 format(1h(,i2,1HI,i2,1h) ) | 1 Warning: Label 101 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:679:20: 679 | write (ptrfmt,ix) nperli,len | 1 Warning: Deleted feature: ASSIGNED variable in FORMAT tag at (1) preconds/ssparsk.f:711:22: 711 | write(valfmt,ix) nperli,len,ifmt | 1 Warning: Deleted feature: ASSIGNED variable in FORMAT tag at (1) preconds/ssparsk.f:738:22: 738 | write(valfmt,ix) nperli,len,ifmt | 1 Warning: Deleted feature: ASSIGNED variable in FORMAT tag at (1) preconds/ssparsk.f:3172:3: 3172 | 13 continue | 1 Warning: Label 13 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:3196:2: 3196 | 3 levels(nlev+1) = iend+1 | 1 Warning: Label 3 at (1) defined but not used [-Wunused-label] preconds/ssparsk.f:3203:42: 3203 | subroutine add_lvst(istart,iend,nlev,riord,ja,ia,mask,maskval) | 1 Warning: Unused dummy argument 'nlev' at (1) [-Wunused-dummy-argument] preconds/ssparsk.f:2011:42: 2011 | subroutine rnrms (nrow, nrm, a, ja, ia, diag) | 1 Warning: Unused dummy argument 'ja' at (1) [-Wunused-dummy-argument] preconds/ssparsk.f:1920:27: 1920 | subroutine getbwd(n,a,ja,ia,ml,mu) | 1 Warning: Unused dummy argument 'a' at (1) [-Wunused-dummy-argument] preconds/ssparsk.f:1009:0: 1009 | if (values) a(ipos) = t | Warning: 'tnext' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/daux.f:2:46: 2 | DOUBLE PRECISION FUNCTION D1MACH (IDUMMY) | 1 Warning: Unused dummy argument 'idummy' at (1) [-Wunused-dummy-argument] solver/daux.f:48:40: 48 | SUBROUTINE XERRWD (MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2) | 1 Warning: Unused dummy argument 'nerr' at (1) [-Wunused-dummy-argument] solver/daux.f:48:34: 48 | SUBROUTINE XERRWD (MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2) | 1 Warning: Unused dummy argument 'nmes' at (1) [-Wunused-dummy-argument] solver/daux.f:214:0: 214 | INTEGER FUNCTION IXSAV (IPAR, IVALUE, ISET) | Warning: '__result_ixsav' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/ddaskr.f:1755:72: 1755 | 305 RWORK(LVT+I-1) = MAX(IWORK(LID+I-1),0)*RWORK(LWT+I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1) solver/ddaskr.f:1881:72: 1881 | 357 RWORK(LVT+I-1) = MAX(IWORK(LID+I-1),0)*RWORK(LWT+I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 357 at (1) solver/ddaskr.f:1920:72: 1920 | 380 RWORK(ITEMP + I - 1) = H*YPRIME(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1) solver/ddaskr.f:2108:72: 2108 | 515 RWORK(LVT+I-1) = MAX(IWORK(LID+I-1),0)*RWORK(LWT+I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 515 at (1) solver/ddaskr.f:2125:72: 2125 | 524 ATOL(I)=R*ATOL(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 524 at (1) solver/ddaskr.f:2570:72: 2570 | 10 JROOT(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) solver/ddaskr.f:2582:72: 2582 | 110 IF (ABS(R0(I)) .EQ. ZERO) ZROOT = .TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) solver/ddaskr.f:2589:72: 2589 | 120 Y(I) = Y(I) + TEMP2*PHI(I,2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) solver/ddaskr.f:2594:72: 2594 | 130 IF (ABS(R0(I)) .EQ. ZERO) ZROOT = .TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) solver/ddaskr.f:2623:72: 2623 | 220 Y(I) = Y(I) + TEMP2*PHI(I,2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) solver/ddaskr.f:3301:72: 3301 | 260 PHI(I,J)=BETA(J)*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) solver/ddaskr.f:3352:72: 3352 | 405 DELTA(I) = PHI(I,KP1) + E(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 405 at (1) solver/ddaskr.f:3360:72: 3360 | 415 DELTA(I) = PHI(I,K) + DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 415 at (1) solver/ddaskr.f:3409:72: 3409 | 510 DELTA(I)=E(I)-PHI(I,KP2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) solver/ddaskr.f:3459:72: 3459 | 580 PHI(I,KP2)=E(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1) solver/ddaskr.f:3462:72: 3462 | 590 PHI(I,KP1)=PHI(I,KP1)+E(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1) solver/ddaskr.f:3465:72: 3465 | DO 595 I=1,NEQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 595 at (1) solver/ddaskr.f:3466:72: 3466 | 595 PHI(I,J)=PHI(I,J)+PHI(I,J+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 595 at (1) solver/ddaskr.f:3491:72: 3491 | 610 PHI(I,J)=TEMP1*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) solver/ddaskr.f:3495:72: 3495 | 640 PSI(I-1)=PSI(I)-H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) solver/ddaskr.f:3587:72: 3587 | 695 PHI(I,2) = R*PHI(I,2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 695 at (1) solver/ddaskr.f:3838:72: 3838 | 20 WT(I) = 1.0D0/WT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/ddaskr.f:3885:72: 3885 | 10 YPOUT(I)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) solver/ddaskr.f:3895:72: 3895 | 20 YPOUT(I)=YPOUT(I)+D*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/ddaskr.f:3927:72: 3927 | 20 SUM = SUM + ((V(I)*RWT(I))/VMAX)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/ddaskr.f:4362:72: 4362 | 20 P(I) = P(I)*RATIO1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/ddaskr.f:4672:72: 4672 | 310 YPRIME(I)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) solver/ddaskr.f:4676:72: 4676 | 320 YPRIME(I)=YPRIME(I)+GAMMA(J)*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) solver/ddaskr.f:4727:72: 4727 | 377 DELTA(I) = MIN(Y(I),0.0D0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 377 at (1) solver/ddaskr.f:4731:72: 4731 | 378 E(I) = E(I) - DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 378 at (1) solver/ddaskr.f:4849:72: 4849 | 100 E(I)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) solver/ddaskr.f:4860:72: 4860 | 320 DELTA(I) = DELTA(I) * CONFAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) solver/ddaskr.f:4873:72: 4873 | 340 YPRIME(I)=YPRIME(I)-CJ*DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) solver/ddaskr.f:4998:72: 4998 | 110 WM(I)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) solver/ddaskr.f:5021:72: 5021 | 220 WM(NROW+L)=(E(L)-DELTA(L))*DELINV | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) solver/ddaskr.f:5043:72: 5043 | 410 WM(I)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1) solver/ddaskr.f:5069:72: 5069 | 510 YPRIME(N)=YPRIME(N)+CJ*DEL | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) solver/ddaskr.f:5085:72: 5085 | 520 WM(II+I)=(E(I)-DELTA(I))*DELINV | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 520 at (1) solver/ddaskr.f:5625:72: 5625 | 20 P(I) = P(I)*RATIO1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/ddaskr.f:5955:72: 5955 | 310 YPRIME(I)=0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) solver/ddaskr.f:5959:72: 5959 | 320 YPRIME(I)=YPRIME(I)+GAMMA(J)*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) solver/ddaskr.f:6009:72: 6009 | 360 DELTA(I) = MIN(Y(I),0.0D0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) solver/ddaskr.f:6013:72: 6013 | 370 E(I) = E(I) - DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 370 at (1) solver/ddaskr.f:6140:72: 6140 | 100 E(I) = 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) solver/ddaskr.f:6151:72: 6151 | 320 DELTA(I) = DELTA(I) * CONFAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) solver/ddaskr.f:6157:72: 6157 | 340 SAVR(I) = DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) solver/ddaskr.f:6171:72: 6171 | 360 YPRIME(I) = YPRIME(I) - CJ*DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) solver/ddaskr.f:6303:72: 6303 | 110 X(I) = 0.D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) solver/ddaskr.f:6327:72: 6327 | 120 X(I) = X(I) + WM(LZ+I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) solver/ddaskr.f:6498:72: 6498 | 10 Z(I) = 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) solver/ddaskr.f:6509:72: 6509 | 30 V(I,1) = R(I)*WGHT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) solver/ddaskr.f:6512:72: 6512 | 35 V(I,1) = R(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) solver/ddaskr.f:6531:72: 6531 | 60 HES(I,J) = 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) solver/ddaskr.f:6572:72: 6572 | 70 DL(K) = S*DL(K) + C*V(K,IP1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) solver/ddaskr.f:6579:72: 6579 | 80 DL(K) = S*DL(K) + C*V(K,LLP1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) solver/ddaskr.f:6600:72: 6600 | 130 Z(I) = 0.D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) solver/ddaskr.f:6622:72: 6622 | 170 DL(K) = S*DL(K) + C*V(K,IP1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) solver/ddaskr.f:6627:72: 6627 | 180 DL(K) = S*DL(K) + C*V(K,MAXLP1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) solver/ddaskr.f:6644:72: 6644 | 210 R(K) = 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) solver/ddaskr.f:6648:72: 6648 | 220 Z(K) = 0.0D0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) solver/ddaskr.f:6653:72: 6653 | 240 Z(I) = Z(I)/WGHT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) solver/ddaskr.f:6755:72: 6755 | 10 VTEM(I) = V(I)/WGHT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) solver/ddaskr.f:6763:72: 6763 | 20 Z(I) = Y(I) + VTEM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/ddaskr.f:6777:72: 6777 | 70 Z(I) = VTEM(I) - SAVR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) solver/ddaskr.f:6789:72: 6789 | 90 Z(I) = Z(I)*WGHT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) solver/ddaskr.f:2488:3: 2488 | 770 MSG = 'DASKR-- RUN TERMINATED. APPARENT INFINITE LOOP' | 1 Warning: Label 770 at (1) defined but not used [-Wunused-label] solver/ddaskr.f:2206:3: 2206 | 540 IF (INFO(3) .NE. 0) GO TO 550 | 1 Warning: Label 540 at (1) defined but not used [-Wunused-label] solver/ddaskr.f:1744:3: 1744 | 300 CONTINUE | 1 Warning: Label 300 at (1) defined but not used [-Wunused-label] solver/ddaskr.f:2636:21: 2636 | JROOT(I) = -SIGN(1.0D0,R0(I)) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] solver/ddaskr.f:2883:21: 2883 | JROOT(I) = -SIGN(1.0D0,R0(I)) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] solver/ddaskr.f:2887:22: 2887 | 1 JROOT(I) = SIGN(1.0D0,R1(I) - R0(I)) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] solver/ddaskr.f:2899:45: 2899 | IF (ABS(R1(I)) .EQ. ZERO) JROOT(I) = -SIGN(1.0D0,R0(I)) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] solver/ddaskr.f:1932:20: 1932 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Warning: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) [-Wargument-mismatch] solver/ddaskr.f:1955:20: 1955 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Warning: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) [-Wargument-mismatch] solver/ddaskr.f:2183:20: 2183 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Warning: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) [-Wargument-mismatch] solver/ddaskr.f:4725:3: 4725 | 375 IF(NONNEG .EQ. 0) GO TO 390 | 1 Warning: Label 375 at (1) defined but not used [-Wunused-label] solver/ddaskr.f:3901:58: 3901 | DOUBLE PRECISION FUNCTION DDWNRM(NEQ,V,RWT,RPAR,IPAR) | 1 Warning: Unused dummy argument 'ipar' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3901:53: 3901 | DOUBLE PRECISION FUNCTION DDWNRM(NEQ,V,RWT,RPAR,IPAR) | 1 Warning: Unused dummy argument 'rpar' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:5516:22: 5516 | * WM, IWM, RHOK, FNRM, ICOPT, ID, WP, IWP, R, EPLIN, YNEW, YPNEW, | 1 Warning: Unused dummy argument 'rhok' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:5516:11: 5516 | * WM, IWM, RHOK, FNRM, ICOPT, ID, WP, IWP, R, EPLIN, YNEW, YPNEW, | 1 Warning: Unused dummy argument 'wm' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:4757:48: 4757 | * DUMSVR,DELTA,E,WM,IWM,CJ,DUMS,DUMR,DUME,EPCON, | 1 Warning: Unused dummy argument 'dume' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:4757:43: 4757 | * DUMSVR,DELTA,E,WM,IWM,CJ,DUMS,DUMR,DUME,EPCON, | 1 Warning: Unused dummy argument 'dumr' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:4757:38: 4757 | * DUMSVR,DELTA,E,WM,IWM,CJ,DUMS,DUMR,DUME,EPCON, | 1 Warning: Unused dummy argument 'dums' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:4757:15: 4757 | * DUMSVR,DELTA,E,WM,IWM,CJ,DUMS,DUMR,DUME,EPCON, | 1 Warning: Unused dummy argument 'dumsvr' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:4758:47: 4758 | * S,CONFAC,TOLNEW,MULDEL,MAXIT,IRES,IDUM,IERNEW) | 1 Warning: Unused dummy argument 'idum' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:4756:45: 4756 | SUBROUTINE DNSD(X,Y,YPRIME,NEQ,RES,PDUM,WT,RPAR,IPAR, | 1 Warning: Unused dummy argument 'pdum' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:2495:52: 2495 | * KOLD, R0, R1, RX, JROOT, IRT, UROUND, INFO3, RWORK, IWORK, | 1 Warning: Unused dummy argument 'info3' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3784:56: 3784 | SUBROUTINE DDAWTS(NEQ,IWT,RTOL,ATOL,Y,WT,RPAR,IPAR) | 1 Warning: Unused dummy argument 'ipar' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3784:51: 3784 | SUBROUTINE DDAWTS(NEQ,IWT,RTOL,ATOL,Y,WT,RPAR,IPAR) | 1 Warning: Unused dummy argument 'rpar' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3936:19: 3936 | * UROUND,DUME,DUMS,DUMR,EPCON,RATEMX,STPTOL,JFDUM, | 1 Warning: Unused dummy argument 'dume' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3935:57: 3935 | * WT,JSDUM,RPAR,IPAR,DUMSVR,DELTA,R,YIC,YPIC,DUMPWK,WM,IWM,CJ, | 1 Warning: Unused dummy argument 'dumpwk' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3936:29: 3936 | * UROUND,DUME,DUMS,DUMR,EPCON,RATEMX,STPTOL,JFDUM, | 1 Warning: Unused dummy argument 'dumr' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3936:24: 3936 | * UROUND,DUME,DUMS,DUMR,EPCON,RATEMX,STPTOL,JFDUM, | 1 Warning: Unused dummy argument 'dums' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3935:33: 3935 | * WT,JSDUM,RPAR,IPAR,DUMSVR,DELTA,R,YIC,YPIC,DUMPWK,WM,IWM,CJ, | 1 Warning: Unused dummy argument 'dumsvr' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3936:55: 3936 | * UROUND,DUME,DUMS,DUMR,EPCON,RATEMX,STPTOL,JFDUM, | 1 Warning: Unused dummy argument 'jfdum' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3935:16: 3935 | * WT,JSDUM,RPAR,IPAR,DUMSVR,DELTA,R,YIC,YPIC,DUMPWK,WM,IWM,CJ, | 1 Warning: Unused dummy argument 'jsdum' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:3934:61: 3934 | SUBROUTINE DDASID(X,Y,YPRIME,NEQ,ICOPT,ID,RES,JACD,PDUM,H,TSCALE, | 1 Warning: Unused dummy argument 'pdum' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:4493:26: 4493 | * EPCON,JCALC,JFDUM,KP1,NONNEG,NTYPE,IERNLS) | 1 Warning: Unused dummy argument 'jfdum' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:5151:70: 5151 | * WT,JSKIP,RPAR,IPAR,SAVR,DELTA,R,YIC,YPIC,PWK,WM,IWM,CJ,UROUND, | 1 Warning: Unused dummy argument 'uround' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:5771:40: 5771 | * WM,IWM,CJ,CJOLD,CJLAST,S,UROUND,EPLI,SQRTN,RSQRTN, | 1 Warning: Unused dummy argument 'uround' at (1) [-Wunused-dummy-argument] solver/ddaskr.f:6596:0: 6596 | IF (RHO .LT. RNRM) GO TO 150 | Warning: 'rho' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/ddaskr.f:6022:0: 6022 | IF (IRES .LE. -2 .OR. IERSL .LT. 0 .OR. IERTYP .NE. 0) THEN | Warning: 'ires' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/ddaskr.f:3415:0: 3415 | 520 IF(TERKM1.LE.MIN(TERK,TERKP1))GO TO 540 | Warning: 'terkm1' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/ddaskr.f:3533:0: 3533 | TEMP2 = K + 1 | Warning: 'knew' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/ddaskr.f:3534:0: 3534 | R = 0.90D0*(2.0D0*EST+0.0001D0)**(-1.0D0/TEMP2) | Warning: 'est' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/ddaskr.f:3444:0: 3444 | R=(2.0D0*EST+0.0001D0)**(-1.0D0/TEMP2) | Warning: 'erkm1' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/ddaskr.f:1558:0: 1558 | LENPD = NEQ**2 | Warning: 'lenpd' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/ddaskr.f:1583:0: 1583 | LENWP = 0 | Warning: 'lenwp' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/ddaskr.f:1830:0: 1830 | IF (INDEX .EQ. 0) TSCALE = TDIST | Warning: 'index' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/dlinpk.f:763:72: 763 | 10 assign 30 to next | 1 Warning: Deleted feature: ASSIGN statement at (1) solver/dlinpk.f:768:19: 768 | 20 go to next,(30, 50, 70, 110) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) solver/dlinpk.f:770:72: 770 | assign 50 to next | 1 Warning: Deleted feature: ASSIGN statement at (1) solver/dlinpk.f:779:72: 779 | assign 70 to next | 1 Warning: Deleted feature: ASSIGN statement at (1) solver/dlinpk.f:785:72: 785 | assign 110 to next | 1 Warning: Deleted feature: ASSIGN statement at (1) solver/dlinpk.f:821:72: 821 | 95 sum = sum + dx(j)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) solver/dlinpk.f:798:5: 798 | 110 if( dabs(dx(i)) .le. xmax ) go to 115 | 1 Warning: Label 110 at (1) defined but not used [-Wunused-label] solver/dlinpk.f:793:5: 793 | 70 if( dabs(dx(i)) .gt. cutlo ) go to 75 | 1 Warning: Label 70 at (1) defined but not used [-Wunused-label] solver/dlinpk.f:775:5: 775 | 50 if( dx(i) .eq. zero) go to 200 | 1 Warning: Label 50 at (1) defined but not used [-Wunused-label] solver/dlinpk.f:799:0: 799 | sum = one + sum * (xmax / dx(i))**2 | Warning: 'xmax' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/saux.f:2:34: 2 | REAL FUNCTION R1MACH (IDUMMY) | 1 Warning: Unused dummy argument 'idummy' at (1) [-Wunused-dummy-argument] solver/saux.f:48:40: 48 | SUBROUTINE XERRWV (MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2) | 1 Warning: Unused dummy argument 'nerr' at (1) [-Wunused-dummy-argument] solver/saux.f:48:34: 48 | SUBROUTINE XERRWV (MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2) | 1 Warning: Unused dummy argument 'nmes' at (1) [-Wunused-dummy-argument] solver/saux.f:215:0: 215 | INTEGER FUNCTION IXSAV (IPAR, IVALUE, ISET) | Warning: '__result_ixsav' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/sdaskr.f:1755:72: 1755 | 305 RWORK(LVT+I-1) = MAX(IWORK(LID+I-1),0)*RWORK(LWT+I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1) solver/sdaskr.f:1881:72: 1881 | 357 RWORK(LVT+I-1) = MAX(IWORK(LID+I-1),0)*RWORK(LWT+I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 357 at (1) solver/sdaskr.f:1920:72: 1920 | 380 RWORK(ITEMP + I - 1) = H*YPRIME(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1) solver/sdaskr.f:2108:72: 2108 | 515 RWORK(LVT+I-1) = MAX(IWORK(LID+I-1),0)*RWORK(LWT+I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 515 at (1) solver/sdaskr.f:2125:72: 2125 | 524 ATOL(I)=R*ATOL(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 524 at (1) solver/sdaskr.f:2570:72: 2570 | 10 JROOT(I) = 0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) solver/sdaskr.f:2582:72: 2582 | 110 IF (ABS(R0(I)) .EQ. ZERO) ZROOT = .TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) solver/sdaskr.f:2589:72: 2589 | 120 Y(I) = Y(I) + TEMP2*PHI(I,2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) solver/sdaskr.f:2594:72: 2594 | 130 IF (ABS(R0(I)) .EQ. ZERO) ZROOT = .TRUE. | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) solver/sdaskr.f:2623:72: 2623 | 220 Y(I) = Y(I) + TEMP2*PHI(I,2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) solver/sdaskr.f:3301:72: 3301 | 260 PHI(I,J)=BETA(J)*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1) solver/sdaskr.f:3352:72: 3352 | 405 DELTA(I) = PHI(I,KP1) + E(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 405 at (1) solver/sdaskr.f:3360:72: 3360 | 415 DELTA(I) = PHI(I,K) + DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 415 at (1) solver/sdaskr.f:3409:72: 3409 | 510 DELTA(I)=E(I)-PHI(I,KP2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) solver/sdaskr.f:3459:72: 3459 | 580 PHI(I,KP2)=E(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1) solver/sdaskr.f:3462:72: 3462 | 590 PHI(I,KP1)=PHI(I,KP1)+E(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1) solver/sdaskr.f:3465:72: 3465 | DO 595 I=1,NEQ | 1 Warning: Fortran 2018 deleted feature: Shared DO termination label 595 at (1) solver/sdaskr.f:3466:72: 3466 | 595 PHI(I,J)=PHI(I,J)+PHI(I,J+1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 595 at (1) solver/sdaskr.f:3491:72: 3491 | 610 PHI(I,J)=TEMP1*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1) solver/sdaskr.f:3495:72: 3495 | 640 PSI(I-1)=PSI(I)-H | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1) solver/sdaskr.f:3587:72: 3587 | 695 PHI(I,2) = R*PHI(I,2) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 695 at (1) solver/sdaskr.f:3838:72: 3838 | 20 WT(I) = 1.0E0/WT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/sdaskr.f:3885:72: 3885 | 10 YPOUT(I)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) solver/sdaskr.f:3895:72: 3895 | 20 YPOUT(I)=YPOUT(I)+D*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/sdaskr.f:3927:72: 3927 | 20 SUM = SUM + ((V(I)*RWT(I))/VMAX)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/sdaskr.f:4362:72: 4362 | 20 P(I) = P(I)*RATIO1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/sdaskr.f:4672:72: 4672 | 310 YPRIME(I)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) solver/sdaskr.f:4676:72: 4676 | 320 YPRIME(I)=YPRIME(I)+GAMMA(J)*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) solver/sdaskr.f:4727:72: 4727 | 377 DELTA(I) = MIN(Y(I),0.0E0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 377 at (1) solver/sdaskr.f:4731:72: 4731 | 378 E(I) = E(I) - DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 378 at (1) solver/sdaskr.f:4849:72: 4849 | 100 E(I)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) solver/sdaskr.f:4860:72: 4860 | 320 DELTA(I) = DELTA(I) * CONFAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) solver/sdaskr.f:4873:72: 4873 | 340 YPRIME(I)=YPRIME(I)-CJ*DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) solver/sdaskr.f:4998:72: 4998 | 110 WM(I)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) solver/sdaskr.f:5021:72: 5021 | 220 WM(NROW+L)=(E(L)-DELTA(L))*DELINV | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) solver/sdaskr.f:5043:72: 5043 | 410 WM(I)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1) solver/sdaskr.f:5069:72: 5069 | 510 YPRIME(N)=YPRIME(N)+CJ*DEL | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1) solver/sdaskr.f:5085:72: 5085 | 520 WM(II+I)=(E(I)-DELTA(I))*DELINV | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 520 at (1) solver/sdaskr.f:5625:72: 5625 | 20 P(I) = P(I)*RATIO1 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/sdaskr.f:5955:72: 5955 | 310 YPRIME(I)=0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1) solver/sdaskr.f:5959:72: 5959 | 320 YPRIME(I)=YPRIME(I)+GAMMA(J)*PHI(I,J) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) solver/sdaskr.f:6009:72: 6009 | 360 DELTA(I) = MIN(Y(I),0.0E0) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) solver/sdaskr.f:6013:72: 6013 | 370 E(I) = E(I) - DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 370 at (1) solver/sdaskr.f:6140:72: 6140 | 100 E(I) = 0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1) solver/sdaskr.f:6151:72: 6151 | 320 DELTA(I) = DELTA(I) * CONFAC | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1) solver/sdaskr.f:6157:72: 6157 | 340 SAVR(I) = DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1) solver/sdaskr.f:6171:72: 6171 | 360 YPRIME(I) = YPRIME(I) - CJ*DELTA(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1) solver/sdaskr.f:6303:72: 6303 | 110 X(I) = 0.E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1) solver/sdaskr.f:6327:72: 6327 | 120 X(I) = X(I) + WM(LZ+I-1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1) solver/sdaskr.f:6498:72: 6498 | 10 Z(I) = 0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) solver/sdaskr.f:6509:72: 6509 | 30 V(I,1) = R(I)*WGHT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1) solver/sdaskr.f:6512:72: 6512 | 35 V(I,1) = R(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1) solver/sdaskr.f:6531:72: 6531 | 60 HES(I,J) = 0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1) solver/sdaskr.f:6572:72: 6572 | 70 DL(K) = S*DL(K) + C*V(K,IP1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) solver/sdaskr.f:6579:72: 6579 | 80 DL(K) = S*DL(K) + C*V(K,LLP1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1) solver/sdaskr.f:6600:72: 6600 | 130 Z(I) = 0.E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1) solver/sdaskr.f:6622:72: 6622 | 170 DL(K) = S*DL(K) + C*V(K,IP1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1) solver/sdaskr.f:6627:72: 6627 | 180 DL(K) = S*DL(K) + C*V(K,MAXLP1) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1) solver/sdaskr.f:6644:72: 6644 | 210 R(K) = 0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1) solver/sdaskr.f:6648:72: 6648 | 220 Z(K) = 0.0E0 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1) solver/sdaskr.f:6653:72: 6653 | 240 Z(I) = Z(I)/WGHT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1) solver/sdaskr.f:6755:72: 6755 | 10 VTEM(I) = V(I)/WGHT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1) solver/sdaskr.f:6763:72: 6763 | 20 Z(I) = Y(I) + VTEM(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1) solver/sdaskr.f:6777:72: 6777 | 70 Z(I) = VTEM(I) - SAVR(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1) solver/sdaskr.f:6789:72: 6789 | 90 Z(I) = Z(I)*WGHT(I) | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1) solver/sdaskr.f:2488:3: 2488 | 770 MSG = 'DASKR-- RUN TERMINATED. APPARENT INFINITE LOOP' | 1 Warning: Label 770 at (1) defined but not used [-Wunused-label] solver/sdaskr.f:2206:3: 2206 | 540 IF (INFO(3) .NE. 0) GO TO 550 | 1 Warning: Label 540 at (1) defined but not used [-Wunused-label] solver/sdaskr.f:1744:3: 1744 | 300 CONTINUE | 1 Warning: Label 300 at (1) defined but not used [-Wunused-label] solver/sdaskr.f:2636:21: 2636 | JROOT(I) = -SIGN(1.0E0,R0(I)) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] solver/sdaskr.f:2883:21: 2883 | JROOT(I) = -SIGN(1.0E0,R0(I)) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] solver/sdaskr.f:2887:22: 2887 | 1 JROOT(I) = SIGN(1.0E0,R1(I) - R0(I)) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] solver/sdaskr.f:2899:45: 2899 | IF (ABS(R1(I)) .EQ. ZERO) JROOT(I) = -SIGN(1.0E0,R0(I)) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] solver/sdaskr.f:1932:20: 1932 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Warning: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) [-Wargument-mismatch] solver/sdaskr.f:1955:20: 1955 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Warning: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) [-Wargument-mismatch] solver/sdaskr.f:2183:20: 2183 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Warning: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) [-Wargument-mismatch] solver/sdaskr.f:4725:3: 4725 | 375 IF(NONNEG .EQ. 0) GO TO 390 | 1 Warning: Label 375 at (1) defined but not used [-Wunused-label] solver/sdaskr.f:3901:46: 3901 | REAL FUNCTION SDWNRM(NEQ,V,RWT,RPAR,IPAR) | 1 Warning: Unused dummy argument 'ipar' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3901:41: 3901 | REAL FUNCTION SDWNRM(NEQ,V,RWT,RPAR,IPAR) | 1 Warning: Unused dummy argument 'rpar' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:5516:22: 5516 | * WM, IWM, RHOK, FNRM, ICOPT, ID, WP, IWP, R, EPLIN, YNEW, YPNEW, | 1 Warning: Unused dummy argument 'rhok' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:5516:11: 5516 | * WM, IWM, RHOK, FNRM, ICOPT, ID, WP, IWP, R, EPLIN, YNEW, YPNEW, | 1 Warning: Unused dummy argument 'wm' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:4757:48: 4757 | * DUMSVR,DELTA,E,WM,IWM,CJ,DUMS,DUMR,DUME,EPCON, | 1 Warning: Unused dummy argument 'dume' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:4757:43: 4757 | * DUMSVR,DELTA,E,WM,IWM,CJ,DUMS,DUMR,DUME,EPCON, | 1 Warning: Unused dummy argument 'dumr' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:4757:38: 4757 | * DUMSVR,DELTA,E,WM,IWM,CJ,DUMS,DUMR,DUME,EPCON, | 1 Warning: Unused dummy argument 'dums' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:4757:15: 4757 | * DUMSVR,DELTA,E,WM,IWM,CJ,DUMS,DUMR,DUME,EPCON, | 1 Warning: Unused dummy argument 'dumsvr' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:4758:47: 4758 | * S,CONFAC,TOLNEW,MULDEL,MAXIT,IRES,IDUM,IERNEW) | 1 Warning: Unused dummy argument 'idum' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:4756:45: 4756 | SUBROUTINE SNSD(X,Y,YPRIME,NEQ,RES,PDUM,WT,RPAR,IPAR, | 1 Warning: Unused dummy argument 'pdum' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:2495:52: 2495 | * KOLD, R0, R1, RX, JROOT, IRT, UROUND, INFO3, RWORK, IWORK, | 1 Warning: Unused dummy argument 'info3' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3784:56: 3784 | SUBROUTINE SDAWTS(NEQ,IWT,RTOL,ATOL,Y,WT,RPAR,IPAR) | 1 Warning: Unused dummy argument 'ipar' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3784:51: 3784 | SUBROUTINE SDAWTS(NEQ,IWT,RTOL,ATOL,Y,WT,RPAR,IPAR) | 1 Warning: Unused dummy argument 'rpar' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3936:19: 3936 | * UROUND,DUME,DUMS,DUMR,EPCON,RATEMX,STPTOL,JFDUM, | 1 Warning: Unused dummy argument 'dume' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3935:57: 3935 | * WT,JSDUM,RPAR,IPAR,DUMSVR,DELTA,R,YIC,YPIC,DUMPWK,WM,IWM,CJ, | 1 Warning: Unused dummy argument 'dumpwk' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3936:29: 3936 | * UROUND,DUME,DUMS,DUMR,EPCON,RATEMX,STPTOL,JFDUM, | 1 Warning: Unused dummy argument 'dumr' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3936:24: 3936 | * UROUND,DUME,DUMS,DUMR,EPCON,RATEMX,STPTOL,JFDUM, | 1 Warning: Unused dummy argument 'dums' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3935:33: 3935 | * WT,JSDUM,RPAR,IPAR,DUMSVR,DELTA,R,YIC,YPIC,DUMPWK,WM,IWM,CJ, | 1 Warning: Unused dummy argument 'dumsvr' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3936:55: 3936 | * UROUND,DUME,DUMS,DUMR,EPCON,RATEMX,STPTOL,JFDUM, | 1 Warning: Unused dummy argument 'jfdum' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3935:16: 3935 | * WT,JSDUM,RPAR,IPAR,DUMSVR,DELTA,R,YIC,YPIC,DUMPWK,WM,IWM,CJ, | 1 Warning: Unused dummy argument 'jsdum' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:3934:61: 3934 | SUBROUTINE SDASID(X,Y,YPRIME,NEQ,ICOPT,ID,RES,JACD,PDUM,H,TSCALE, | 1 Warning: Unused dummy argument 'pdum' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:4493:26: 4493 | * EPCON,JCALC,JFDUM,KP1,NONNEG,NTYPE,IERNLS) | 1 Warning: Unused dummy argument 'jfdum' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:5151:70: 5151 | * WT,JSKIP,RPAR,IPAR,SAVR,DELTA,R,YIC,YPIC,PWK,WM,IWM,CJ,UROUND, | 1 Warning: Unused dummy argument 'uround' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:5771:40: 5771 | * WM,IWM,CJ,CJOLD,CJLAST,S,UROUND,EPLI,SQRTN,RSQRTN, | 1 Warning: Unused dummy argument 'uround' at (1) [-Wunused-dummy-argument] solver/sdaskr.f:6596:0: 6596 | IF (RHO .LT. RNRM) GO TO 150 | Warning: 'rho' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/sdaskr.f:6022:0: 6022 | IF (IRES .LE. -2 .OR. IERSL .LT. 0 .OR. IERTYP .NE. 0) THEN | Warning: 'ires' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/sdaskr.f:3415:0: 3415 | 520 IF(TERKM1.LE.MIN(TERK,TERKP1))GO TO 540 | Warning: 'terkm1' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/sdaskr.f:3533:0: 3533 | TEMP2 = K + 1 | Warning: 'knew' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/sdaskr.f:3534:0: 3534 | R = 0.90E0*(2.0E0*EST+0.0001E0)**(-1.0E0/TEMP2) | Warning: 'est' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/sdaskr.f:3444:0: 3444 | R=(2.0E0*EST+0.0001E0)**(-1.0E0/TEMP2) | Warning: 'erkm1' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/sdaskr.f:1558:0: 1558 | LENPD = NEQ**2 | Warning: 'lenpd' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/sdaskr.f:1583:0: 1583 | LENWP = 0 | Warning: 'lenwp' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/sdaskr.f:1830:0: 1830 | IF (INDEX .EQ. 0) TSCALE = TDIST | Warning: 'index' may be used uninitialized in this function [-Wmaybe-uninitialized] solver/slinpk.f:763:72: 763 | 10 assign 30 to next | 1 Warning: Deleted feature: ASSIGN statement at (1) solver/slinpk.f:768:19: 768 | 20 go to next,(30, 50, 70, 110) | 1 Warning: Deleted feature: Assigned GOTO statement at (1) solver/slinpk.f:770:72: 770 | assign 50 to next | 1 Warning: Deleted feature: ASSIGN statement at (1) solver/slinpk.f:779:72: 779 | assign 70 to next | 1 Warning: Deleted feature: ASSIGN statement at (1) solver/slinpk.f:785:72: 785 | assign 110 to next | 1 Warning: Deleted feature: ASSIGN statement at (1) solver/slinpk.f:821:72: 821 | 95 sum = sum + sx(j)**2 | 1 Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1) solver/slinpk.f:798:5: 798 | 110 if( abs(sx(i)) .le. xmax ) go to 115 | 1 Warning: Label 110 at (1) defined but not used [-Wunused-label] solver/slinpk.f:793:5: 793 | 70 if( abs(sx(i)) .gt. cutlo ) go to 75 | 1 Warning: Label 70 at (1) defined but not used [-Wunused-label] solver/slinpk.f:775:5: 775 | 50 if( sx(i) .eq. zero) go to 200 | 1 Warning: Label 50 at (1) defined but not used [-Wunused-label] solver/slinpk.f:799:0: 799 | sum = one + sum * (xmax / sx(i))**2 | Warning: 'xmax' may be used uninitialized in this function [-Wmaybe-uninitialized] + g77 -shared daux.o dbanpre.o ddaskr.o dilupre.o dlinpk.o drbdpre.o drbgpre.o dsparsk.o -o libdaskr.so.0 -Wl,-soname,libdaskr.so.0 + g77 -shared saux.o sbanpre.o sdaskr.o silupre.o slinpk.o srbdpre.o srbgpre.o ssparsk.o -o libsdaskr.so.0 -Wl,-soname,libsdaskr.so.0 + exit 0 Executing(%install): /bin/sh -e /usr/src/tmp/rpm-tmp.41352 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + /bin/chmod -Rf u+rwX -- /usr/src/tmp/daskr-buildroot + : + /bin/rm -rf -- /usr/src/tmp/daskr-buildroot + cd daskr-2011.06.08 + install -d /usr/src/tmp/daskr-buildroot/usr/lib + install -m644 libdaskr.so.0 libsdaskr.so.0 /usr/src/tmp/daskr-buildroot/usr/lib + ln -s libdaskr.so.0 /usr/src/tmp/daskr-buildroot/usr/lib/libdaskr.so + ln -s libsdaskr.so.0 /usr/src/tmp/daskr-buildroot/usr/lib/libsdaskr.so + /usr/lib/rpm/brp-alt Cleaning files in /usr/src/tmp/daskr-buildroot (auto) Verifying and fixing files in /usr/src/tmp/daskr-buildroot (binconfig,pkgconfig,libtool,desktop) Checking contents of files in /usr/src/tmp/daskr-buildroot/ (default) Compressing files in /usr/src/tmp/daskr-buildroot (auto) Adjusting library links in /usr/src/tmp/daskr-buildroot ./usr/lib: libdaskr.so.0 -> libdaskr.so.0 libsdaskr.so.0 -> libsdaskr.so.0 Verifying ELF objects in /usr/src/tmp/daskr-buildroot (arch=normal,fhs=normal,lfs=relaxed,lint=relaxed,rpath=normal,stack=normal,textrel=normal,unresolved=normal) Hardlinking identical .pyc and .pyo files Processing files: libdaskr-2011.06.08-alt1 Executing(%doc): /bin/sh -e /usr/src/tmp/rpm-tmp.61702 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + cd daskr-2011.06.08 + DOCDIR=/usr/src/tmp/daskr-buildroot/usr/share/doc/libdaskr-2011.06.08 + export DOCDIR + rm -rf /usr/src/tmp/daskr-buildroot/usr/share/doc/libdaskr-2011.06.08 + /bin/mkdir -p /usr/src/tmp/daskr-buildroot/usr/share/doc/libdaskr-2011.06.08 + cp -prL README /usr/src/tmp/daskr-buildroot/usr/share/doc/libdaskr-2011.06.08 + chmod -R go-w /usr/src/tmp/daskr-buildroot/usr/share/doc/libdaskr-2011.06.08 + chmod -R a+rX /usr/src/tmp/daskr-buildroot/usr/share/doc/libdaskr-2011.06.08 + exit 0 Finding Provides (using /usr/lib/rpm/find-provides) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.hEYtrl find-provides: running scripts (debuginfo,lib,pam,perl,pkgconfig,python,shell) lib.prov: /usr/src/tmp/daskr-buildroot/usr/lib/libdaskr.so.0: 103 symbols, 17 bpp lib.prov: /usr/src/tmp/daskr-buildroot/usr/lib/libsdaskr.so.0: 103 symbols, 17 bpp Finding Requires (using /usr/lib/rpm/find-requires) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.9OMkrl find-requires: running scripts (cpp,debuginfo,files,lib,pam,perl,pkgconfig,pkgconfiglib,python,rpmlib,shebang,shell,static,symlinks,systemd-services) Provides: libdaskr.so.0 = set:kdfa2EKL3VhhwadTiS8y8IJAMFM97WNgB4jw6wKopdPtIu0GVKjYoZsiSL3AigP3dPSQ8NZryyZpLXImBiOrV6xqcI7NHMVj9Z2IUZEn6dlCEUZafVuE5Zsq0l9fbGBZtCJQoLbkua3l7oHqpKNiU5JMKA0zjC9VD2dKFmZg4Uc7elvVZ4VkBmMZExZjgVDB6KsB7O5ZllHWdPbT2, libsdaskr.so.0 = set:kdyuUZv8bdvA4v92puxY0j3Laj1N268v5ZHWzFzcTrh8mPYwGlebrDGCxYkOZon0Ysl1nQjGuG1wHUFMhG7Is84x7qlRoZlE9UT1PPNbzCLR1HOD3YjEGVDYe8OsPE3Zoblta8TiAtzhHhi85bcq8pEZdWQxrWcEryg28ztDel376p3vZslDoZIgZHiIGFOpEHpVnuIMZnq4nRSa Requires: libc.so.6(GLIBC_2.1.3), libc.so.6(GLIBC_2.4), libgfortran.so.5 >= set:okwsZ8IOAwPEmfH07pOlPidBjFLj8X00, libgfortran.so.5(GFORTRAN_8), libm.so.6(GLIBC_2.0), libm.so.6(GLIBC_2.27), libm.so.6(GLIBC_2.29), rtld(GNU_HASH) Requires(rpmlib): rpmlib(SetVersions) Finding debuginfo files (using /usr/lib/rpm/find-debuginfo-files) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.pucwFk Creating libdaskr-debuginfo package Processing files: libdaskr-devel-2011.06.08-alt1 Finding Provides (using /usr/lib/rpm/find-provides) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.SubbSm find-provides: running scripts (debuginfo,lib,pam,perl,pkgconfig,python,shell) Finding Requires (using /usr/lib/rpm/find-requires) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.TOcGVl find-requires: running scripts (cpp,debuginfo,files,lib,pam,perl,pkgconfig,pkgconfiglib,python,rpmlib,shebang,shell,static,symlinks,systemd-services) Requires: libdaskr = 2011.06.08-alt1, /usr/lib/libdaskr.so.0, /usr/lib/libsdaskr.so.0 Finding debuginfo files (using /usr/lib/rpm/find-debuginfo-files) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.3YWoFm Processing files: daskr-examples-2011.06.08-alt1 Executing(%doc): /bin/sh -e /usr/src/tmp/rpm-tmp.56850 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + cd daskr-2011.06.08 + DOCDIR=/usr/src/tmp/daskr-buildroot/usr/share/doc/daskr-examples-2011.06.08 + export DOCDIR + rm -rf /usr/src/tmp/daskr-buildroot/usr/share/doc/daskr-examples-2011.06.08 + /bin/mkdir -p /usr/src/tmp/daskr-buildroot/usr/share/doc/daskr-examples-2011.06.08 + cp -prL examples/dheat.f examples/dheat.out examples/dheatilu.f examples/dheatilu.out examples/dkrdem.f examples/dkrdem.out examples/dweb.f examples/dweb.out examples/dwebilu.f examples/dwebilu.out examples/makeddem examples/makedh examples/makedhilu examples/makedw examples/makedwilu examples/makesdem examples/makesh examples/makeshilu examples/makesw examples/makeswilu examples/sheat.f examples/sheatilu.f examples/skrdem.f examples/sweb.f examples/swebilu.f /usr/src/tmp/daskr-buildroot/usr/share/doc/daskr-examples-2011.06.08 + chmod -R go-w /usr/src/tmp/daskr-buildroot/usr/share/doc/daskr-examples-2011.06.08 + chmod -R a+rX /usr/src/tmp/daskr-buildroot/usr/share/doc/daskr-examples-2011.06.08 + exit 0 Finding Provides (using /usr/lib/rpm/find-provides) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.xmYjbj find-provides: running scripts (debuginfo,lib,pam,perl,pkgconfig,python,shell) Finding Requires (using /usr/lib/rpm/find-requires) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.U2SEum find-requires: running scripts (cpp,debuginfo,files,lib,pam,perl,pkgconfig,pkgconfiglib,python,rpmlib,shebang,shell,static,symlinks,systemd-services) Processing files: libdaskr-debuginfo-2011.06.08-alt1 Finding Provides (using /usr/lib/rpm/find-provides) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.LocKln find-provides: running scripts (debuginfo) Finding Requires (using /usr/lib/rpm/find-requires) Executing: /bin/sh -e /usr/src/tmp/rpm-tmp.aEQJPj find-requires: running scripts (debuginfo) Provides: debug(libdaskr.so.0), debug(libsdaskr.so.0) Requires: libdaskr = 2011.06.08-alt1, debug(libc.so.6), debug(libgfortran.so.5), debug(libm.so.6) Adding to libdaskr-devel a strict dependency on libdaskr Adding to libdaskr-debuginfo a strict dependency on libdaskr Removing 2 extra deps from libdaskr-devel due to dependency on libdaskr Wrote: /usr/src/RPM/RPMS/i586/libdaskr-2011.06.08-alt1.i586.rpm Wrote: /usr/src/RPM/RPMS/i586/libdaskr-devel-2011.06.08-alt1.i586.rpm Wrote: /usr/src/RPM/RPMS/noarch/daskr-examples-2011.06.08-alt1.noarch.rpm Wrote: /usr/src/RPM/RPMS/i586/libdaskr-debuginfo-2011.06.08-alt1.i586.rpm 22.60user 1.23system 0:47.60elapsed 50%CPU (0avgtext+0avgdata 55156maxresident)k 0inputs+0outputs (0major+400797minor)pagefaults 0swaps 28.45user 4.60system 1:06.23elapsed 49%CPU (0avgtext+0avgdata 108704maxresident)k 20608inputs+0outputs (0major+726129minor)pagefaults 0swaps --- libdaskr-2011.06.08-alt1.i586.rpm.repo 2019-03-03 20:52:37.000000000 +0000 +++ libdaskr-2011.06.08-alt1.i586.rpm.hasher 2020-05-05 11:16:51.338155207 +0000 @@ -11,2 +11,3 @@ Requires: libm.so.6(GLIBC_2.27) +Requires: libm.so.6(GLIBC_2.29) Requires: rtld(GNU_HASH)