<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