<86>Apr 3 08:50:52 userdel[2138331]: delete user 'rooter' <86>Apr 3 08:50:52 userdel[2138331]: removed group 'rooter' owned by 'rooter' <86>Apr 3 08:50:52 userdel[2138331]: removed shadow group 'rooter' owned by 'rooter' <86>Apr 3 08:50:52 groupadd[2138354]: group added to /etc/group: name=rooter, GID=666 <86>Apr 3 08:50:52 groupadd[2138354]: group added to /etc/gshadow: name=rooter <86>Apr 3 08:50:52 groupadd[2138354]: new group: name=rooter, GID=666 <86>Apr 3 08:50:52 useradd[2138376]: new user: name=rooter, UID=666, GID=666, home=/root, shell=/bin/bash <86>Apr 3 08:50:52 userdel[2138406]: delete user 'builder' <86>Apr 3 08:50:52 userdel[2138406]: removed group 'builder' owned by 'builder' <86>Apr 3 08:50:52 userdel[2138406]: removed shadow group 'builder' owned by 'builder' <86>Apr 3 08:50:52 groupadd[2138430]: group added to /etc/group: name=builder, GID=667 <86>Apr 3 08:50:52 groupadd[2138430]: group added to /etc/gshadow: name=builder <86>Apr 3 08:50:52 groupadd[2138430]: new group: name=builder, GID=667 <86>Apr 3 08:50:52 useradd[2138446]: new user: name=builder, UID=667, GID=667, home=/usr/src, shell=/bin/bash <13>Apr 3 08:50:55 rpmi: libquadmath0-10.2.1-alt3 sisyphus+267829.100.1.1 1615808579 installed <13>Apr 3 08:50:55 rpmi: libquadmath10-devel-10.2.1-alt3 sisyphus+267829.100.1.1 1615808579 installed <13>Apr 3 08:50:55 rpmi: libgfortran5-10.2.1-alt3 sisyphus+267829.100.1.1 1615808579 installed <13>Apr 3 08:50:55 rpmi: gcc-fortran-common-1.4.27-alt1 sisyphus+262033.600.7.2 1607340230 installed <13>Apr 3 08:50:55 rpmi: libgfortran10-devel-10.2.1-alt3 sisyphus+267829.100.1.1 1615808579 installed <13>Apr 3 08:50:56 rpmi: gcc10-fortran-10.2.1-alt3 sisyphus+267829.100.1.1 1615808579 installed <13>Apr 3 08:50:56 rpmi: gcc-fortran-10-alt1 sisyphus+263054.200.3.1 1607516810 installed Building target platforms: i586 Building for target i586 Wrote: /usr/src/in/nosrpm/daskr-2011.06.08-alt1.nosrc.rpm (w1.gzdio) 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.27765 + 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.27765 + 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:25: 893 | INTEGER MASK(NEQ) ! Work array used by the BFS reordering | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dilupre.f:904:20: 904 | INTEGER NLEV ! Number of levels in levels array. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dilupre.f:906:23: 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:8: 662 | * guesol*2, rhstyp*3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:665:29: 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:14: 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:14: 746 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:863:19: 863 | 3 continue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1001:16: 1001 | 6 k = k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1764:11: 1764 | tmp = x(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1775:12: 1775 | tmp1 = x(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1777:12: 1777 | next = perm(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1796:11: 1796 | tmp = x(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1797:10: 1797 | ii = perm(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1837:11: 1837 | tmp = ix(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1848:12: 1848 | tmp1 = ix(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1850:12: 1850 | next = perm(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1869:11: 1869 | tmp = ix(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:1870:10: 1870 | ii = perm(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/dsparsk.f:3211:24: 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:766:10: 766 | if (nrhs .ge. 1) write (iounit,11) rhstyp, nrhs, nrwindx | ^ Warning: 'nrhs' may be used uninitialized in this function [-Wmaybe-uninitialized] preconds/dsparsk.f:1009:72: 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:25: 893 | INTEGER MASK(NEQ) ! Work array used by the BFS reordering | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/silupre.f:904:20: 904 | INTEGER NLEV ! Number of levels in levels array. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/silupre.f:906:23: 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:8: 662 | * guesol*2, rhstyp*3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:665:29: 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:14: 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:14: 746 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:863:19: 863 | 3 continue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1001:16: 1001 | 6 k = k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1764:11: 1764 | tmp = x(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1775:12: 1775 | tmp1 = x(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1777:12: 1777 | next = perm(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1796:11: 1796 | tmp = x(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1797:10: 1797 | ii = perm(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1837:11: 1837 | tmp = ix(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1848:12: 1848 | tmp1 = ix(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1850:12: 1850 | next = perm(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1869:11: 1869 | tmp = ix(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:1870:10: 1870 | ii = perm(init) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] preconds/ssparsk.f:3211:24: 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:766:10: 766 | if (nrhs .ge. 1) write (iounit,11) rhstyp, nrhs, nrwindx | ^ Warning: 'nrhs' may be used uninitialized in this function [-Wmaybe-uninitialized] preconds/ssparsk.f:1009:72: 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:28: 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: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:1932:20: 1932 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Error: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) solver/ddaskr.f:1955:20: 1955 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Error: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) solver/ddaskr.f:2183:20: 2183 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Error: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) solver/dlinpk.f:763:72: 763 | 10 assign 30 to next | 1 Warning: Deleted feature: ASSIGN statement at (1) solver/dlinpk.f:768:20: 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:72: 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:28: 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: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:1932:20: 1932 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Error: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) solver/sdaskr.f:1955:20: 1955 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Error: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) solver/sdaskr.f:2183:20: 2183 | * RWORK(LRX),JROOT,IRT,RWORK(LROUND),INFO(3), | 1 Error: Rank mismatch in argument 'jroot' at (1) (rank-1 and scalar) solver/slinpk.f:763:72: 763 | 10 assign 30 to next | 1 Warning: Deleted feature: ASSIGN statement at (1) solver/slinpk.f:768:20: 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:72: 799 | sum = one + sum * (xmax / sx(i))**2 | ^ Warning: 'xmax' may be used uninitialized in this function [-Wmaybe-uninitialized] error: Bad exit status from /usr/src/tmp/rpm-tmp.27765 (%build) RPM build errors: Bad exit status from /usr/src/tmp/rpm-tmp.27765 (%build) Command exited with non-zero status 1 6.45user 0.26system 0:06.58elapsed 102%CPU (0avgtext+0avgdata 38036maxresident)k 0inputs+0outputs (0major+77267minor)pagefaults 0swaps hsh-rebuild: rebuild of `daskr-2011.06.08-alt1.src.rpm' failed. Command exited with non-zero status 1 12.57user 3.16system 0:15.13elapsed 104%CPU (0avgtext+0avgdata 106764maxresident)k 20120inputs+0outputs (0major+300889minor)pagefaults 0swaps