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