* installing to library ‘/home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages’
* installing *source* package ‘wnominate’ ...
** package ‘wnominate’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘gcc-13 (Debian 13.2.0-13) 13.2.0’
using Fortran compiler: ‘GNU Fortran (Debian 13.2.0-13) 13.2.0’
make[1]: Entering directory '/tmp/Rtmp45js3C/R.INSTALL26d8d8270092e9/wnominate/src'
gcc-13 -I"/home/hornik/tmp/R.check/r-patched-gcc/Work/build/include" -DNDEBUG -I/usr/local/include -D_FORTIFY_SOURCE=3 -fpic -g -O2 -Wall -Wstrict-prototypes -pedantic -mtune=native -c init_wnominate.c -o init_wnominate.o
gcc-13 -I"/home/hornik/tmp/R.check/r-patched-gcc/Work/build/include" -DNDEBUG -I/usr/local/include -D_FORTIFY_SOURCE=3 -fpic -g -O2 -Wall -Wstrict-prototypes -pedantic -mtune=native -c nomprob.c -o nomprob.o
gcc-13 -I"/home/hornik/tmp/R.check/r-patched-gcc/Work/build/include" -DNDEBUG -I/usr/local/include -D_FORTIFY_SOURCE=3 -fpic -g -O2 -Wall -Wstrict-prototypes -pedantic -mtune=native -c random_wrap.c -o random_wrap.o
gfortran-13 -g -O2 -mtune=native -msse2 -mfpmath=sse -fpic -g -O2 -Wall -mtune=native -c wnominate.f90 -o wnominate.o
wnominate.f90:241:18:
241 | DO 77 I=1,NP
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 77 at (1)
wnominate.f90:247:18:
247 | DO 77 L=1,NS
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 77 at (1)
wnominate.f90:272:18:
272 | DO 69 I=1,NP
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 69 at (1)
wnominate.f90:274:22:
274 | DO 69 J=1,NRCALL
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 69 at (1)
wnominate.f90:281:22:
281 | 69 PSI(I,J,K) = 1.0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 69 at (1)
wnominate.f90:312:24:
312 | 70 SUM=SUM+XDATA(I,K)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
wnominate.f90:315:29:
315 | 72 BB=AMAX1(BB,XDATA(I,K))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 72 at (1)
wnominate.f90:317:31:
317 | 73 XDATA(I,K)=XDATA(I,K)/BB
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 73 at (1)
wnominate.f90:326:24:
326 | 50 SUM=SUM+XDATA(I,K)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
wnominate.f90:419:43:
419 | 22 XDATA(I,NDIM)=XDATA(I,NDIM)*ALPHA
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1)
wnominate.f90:602:16:
602 | DO 4 J=1,2
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 4 at (1)
wnominate.f90:607:13:
607 | 4 JJ=JJ+1
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
wnominate.f90:652:16:
652 | DO 6 J=1,2
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 6 at (1)
wnominate.f90:657:13:
657 | 6 JJ=JJ+1
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1)
wnominate.f90:678:24:
678 | DO 1492 J=1,NRCALL
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 1492 at (1)
wnominate.f90:738:24:
738 | DO 109 I=1,NP
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 109 at (1)
wnominate.f90:775:28:
775 | DO 659 J=1,NRCALL
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 659 at (1)
wnominate.f90:817:24:
817 | DO 108 I=1,NP
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 108 at (1)
wnominate.f90:834:24:
834 | DO 107 K=1,NS
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 107 at (1)
wnominate.f90:839:24:
839 | DO 654 K=1,NS
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 654 at (1)
wnominate.f90:847:25:
847 | DO 1070 K=1,NS
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 1070 at (1)
wnominate.f90:852:25:
852 | DO 6540 K=1,NS
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 6540 at (1)
wnominate.f90:1007:19:
1007 | DO 656 I=1,NP
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 656 at (1)
wnominate.f90:1103:59:
1103 | 2 IF(KD(J).EQ.4.OR.KD(J).EQ.5.OR.KD(J).EQ.6)JSUM=JSUM+1
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
wnominate.f90:1105:19:
1105 | 1 NNSUM(I)=JSUM
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
wnominate.f90:1383:25:
1383 | 919 XXXX(KK,K)=XX(JJ,K)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 919 at (1)
wnominate.f90:1400:20:
1400 | 1 SUM=SUM+ZZZ(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
wnominate.f90:1402:35:
1402 | 2 ZZZ(I)=ZZZ(I)-(SUM/FLOAT(NP))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
wnominate.f90:1427:15:
1427 | 303 Q(I)=X(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 303 at (1)
wnominate.f90:1491:38:
1491 | 11 SSUMS=SSUMS+(XX(I,K)-XX(J,K))**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1)
wnominate.f90:1529:37:
1529 | 7 SUM=SUM+(XXXX(J,K)-XX(II,K))**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1)
wnominate.f90:1537:53:
1537 | 8 ZZZ(K)=ZZZ(K)+XXXX(J,K)+XC*(XX(II,K)-XXXX(J,K))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 8 at (1)
wnominate.f90:1543:31:
1543 | 1 XX(II,K)=ZZZ(K)/FLOAT(KK)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
wnominate.f90:1578:28:
1578 | 41 XDATA(I,1)=-XDATA(I,1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 41 at (1)
wnominate.f90:1582:28:
1582 | 43 XDATA(I,2)=-XDATA(I,2)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 43 at (1)
wnominate.f90:1603:21:
1603 | 10 X(I)=XDATA(I,1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
wnominate.f90:1624:46:
1624 | 4 IF(LDATA2(I,J).EQ.6)SUMN=SUMN+XDATA(I,1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 4 at (1)
wnominate.f90:1638:37:
1638 | 7 IF(LDATA(I,J).EQ.6)LDATA(I,J)=2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1)
wnominate.f90:2077:34:
2077 | 120 SCALE = SCALE + ABS(D(K))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
wnominate.f90:2105:21:
2105 | 170 E(J) = 0.0E0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
wnominate.f90:2131:31:
2131 | 250 E(J) = E(J) - H * D(J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
wnominate.f90:2138:49:
2138 | 260 A(K,J) = A(K,J) - F * E(K) - G * D(K)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
wnominate.f90:2200:24:
2200 | 80 Z(J,I) = A(J,I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
wnominate.f90:2215:34:
2215 | 120 SCALE = SCALE + ABS(D(K))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
wnominate.f90:2240:21:
2240 | 170 E(J) = 0.0E0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
wnominate.f90:2267:32:
2267 | 250 E(J) = E(J) - HH * D(J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
wnominate.f90:2274:49:
2274 | 260 Z(K,J) = Z(K,J) - F * E(K) - G * D(K)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
wnominate.f90:2291:26:
2291 | 330 D(K) = Z(K,I) / H
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1)
wnominate.f90:2297:35:
2297 | 340 G = G + Z(K,I) * Z(K,J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
wnominate.f90:2299:27:
2299 | DO 360 K = 1, L
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 360 at (1)
wnominate.f90:2304:23:
2304 | 400 Z(K,I) = 0.0E0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1)
wnominate.f90:2383:19:
2383 | 100 E(I-1) = E(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
wnominate.f90:2417:24:
2417 | 140 D(I) = D(I) - H
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
wnominate.f90:2535:21:
2535 | 100 E2(I-1) = E2(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
wnominate.f90:2568:24:
2568 | 140 D(I) = D(I) - H
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
wnominate.f90:2709:22:
2709 | DO 22 J=1,2
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 22 at (1)
wnominate.f90:2710:20:
2710 | 22 MM(I,J)=0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 22 at (1)
wnominate.f90:2740:22:
2740 | DO 21 J=1,2
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 21 at (1)
wnominate.f90:2743:34:
2743 | 21 MM(I,J)=MM(I,J)+LL(I,J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1)
wnominate.f90:2771:22:
2771 | DO 26 J=1,2
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 26 at (1)
wnominate.f90:2772:20:
2772 | 26 MM(I,J)=0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 26 at (1)
wnominate.f90:2793:22:
2793 | DO 27 J=1,2
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 27 at (1)
wnominate.f90:2796:34:
2796 | 27 MM(I,J)=MM(I,J)+LL(I,J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 27 at (1)
wnominate.f90:2852:19:
2852 | 50 TESTB(I)=B(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
wnominate.f90:2889:18:
2889 | DO 60 KX=1,3
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 60 at (1)
wnominate.f90:2892:48:
2892 | 61 SUM=SUM+ZMAT(KX,J)*(1.0/WVEC(J))*ZMAT(I,J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 61 at (1)
wnominate.f90:2893:18:
2893 | 60 AV(I,KX)=SUM
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
wnominate.f90:2903:17:
2903 | DO 77 J=1,3
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 77 at (1)
wnominate.f90:2994:19:
2994 | 710 B(I)=TESTB(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 710 at (1)
wnominate.f90:3010:19:
3010 | 705 B(I)=TESTB(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 705 at (1)
wnominate.f90:3026:19:
3026 | 650 TESTB(I)=B(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
wnominate.f90:3133:34:
3133 | 10 TESTB(I)=B(I)+XLBA*DELTAB(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
wnominate.f90:3168:18:
3168 | 2 YBIGL(J)=0.0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
wnominate.f90:3175:22:
3175 | DO 101 I=1,NOPAR
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 101 at (1)
wnominate.f90:3176:16:
3176 | 101 V(I,J)=0.0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 101 at (1)
wnominate.f90:3195:26:
3195 | 205 GRAD(J)=GRAD(J)+G(J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1)
wnominate.f90:3201:22:
3201 | DO 206 J=1,NOPAR
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 206 at (1)
wnominate.f90:3202:29:
3202 | 206 V(J,L)=V(J,L)+G(J)*G(L)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 206 at (1)
wnominate.f90:3273:15:
3273 | 27 G(JJ)=0.0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 27 at (1)
wnominate.f90:3330:37:
3330 | 6 PHI(NEQ)=PHI(NEQ)+EXB(I,NEQ)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1)
wnominate.f90:3378:34:
3378 | 66 PHI(II)=PHI(II)+EXB(I,II)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 66 at (1)
wnominate.f90:3426:34:
3426 | 68 PHI(II)=PHI(II)+EXB(I,II)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 68 at (1)
wnominate.f90:3615:33:
3615 | 9 SUM=SUM+ZMID(NEQ,K)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1)
wnominate.f90:3654:52:
3654 | 13 XSP(K)=XDATA(NEQ,K)*(1.0/SQRT(SUM))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1)
wnominate.f90:3667:37:
3667 | 15 ASUM=ASUM+XNEW(K)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
wnominate.f90:3669:49:
3669 | 18 XNEW(K)=XNEW(K)*(1.0/SQRT(ASUM))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 18 at (1)
wnominate.f90:3702:42:
3702 | 17 ASUM=ASUM+XDATA(NEQ,K)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 17 at (1)
wnominate.f90:3704:59:
3704 | 19 XDATA(NEQ,K)=XDATA(NEQ,K)*(1.0/SQRT(ASUM))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1)
wnominate.f90:3738:16:
3738 | DO 5 J=1,2
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1)
wnominate.f90:3739:15:
3739 | 5 LL(I,J)=0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
wnominate.f90:3891:33:
3891 | 1 ZY(J)=ZF+XINC*(XJ-1.0)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
wnominate.f90:3952:33:
3952 | 11 ZY(J)=ZF+XINC*(XJ-1.0)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1)
wnominate.f90:4015:36:
4015 | 34 ZN(J)=B2MAX-XINC*(XJ-1.0)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 34 at (1)
wnominate.f90:4022:27:
4022 | DO 35 L=1,KKKCUT
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 35 at (1)
wnominate.f90:4109:32:
4109 | 54 SUM=SUM+DYN(NEQ,K)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 54 at (1)
wnominate.f90:4120:44:
4120 | 53 XGAM=XGAM+(ZMID(NEQ,K)-PTB(K))**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 53 at (1)
wnominate.f90:4148:52:
4148 | 52 PTC(K)=PTA(K)+(DBETA/2.0)*(PTB(K)-PTA(K))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 52 at (1)
wnominate.f90:4158:30:
4158 | 51 AA=AA+CMINUSZ(K)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 51 at (1)
wnominate.f90:4161:31:
4161 | 58 CC=CC+ZMID(NEQ,K)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 58 at (1)
wnominate.f90:4186:25:
4186 | DO 55 K=1,NDIM
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 55 at (1)
wnominate.f90:4323:46:
4323 | 11 ESUM=ESUM+XSAVE(I,1,1)*XSAVE(I,2,1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1)
wnominate.f90:4353:46:
4353 | 21 ESUM=ESUM+XSAVE(I,1,1)*XSAVE(I,2,1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1)
wnominate.f90:4446:31:
4446 | 12 KSUM=KSUM+KPJP(I,JJ)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1)
wnominate.f90:4488:31:
4488 | 14 KSUM=KSUM+KPJP(I,JJ)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1)
wnominate.f90:4565:14:
4565 | 3 LMO(I)=I
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1)
wnominate.f90:1128:21:
1128 | LDATA(NOB,NAS)=KD(J)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
wnominate.f90:1129:22:
1129 | LDATA2(NOB,NAS)=KD(J)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
wnominate.f90:1853:11:
1853 | IJ = I+(J-I)*R
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
wnominate.f90:1535:4:
1535 | 52 CONTINUE
| 1
Warning: Label 52 at (1) defined but not used [-Wunused-label]
wnominate.f90:1647:4:
1647 | 33 CONTINUE
| 1
Warning: Label 33 at (1) defined but not used [-Wunused-label]
wnominate.f90:1794:10:
1794 | KPP=AMIN0(KYES,KNO)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
wnominate.f90:3271:4:
3271 | 11 CONTINUE
| 1
Warning: Label 11 at (1) defined but not used [-Wunused-label]
wnominate.f90:3071:4:
3071 | 99 R0=R0/2.
| 1
Warning: Label 99 at (1) defined but not used [-Wunused-label]
wnominate.f90:2748:15:
2748 | JKP=JKP+AMIN0(LYES,LNO)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
wnominate.f90:4663:67:
4663 | SUBROUTINE SVDSVD(NROW,NCOL,Y16MIDP,YHAT,UUU,VVV,IRANK,IPRINT)
| 1
Warning: Unused dummy argument ‘iprint’ at (1) [-Wunused-dummy-argument]
wnominate.f90:4396:54:
4396 | & NDIM,NS,NP,NRCALL,NDUAL,IPRINT,XDATA,STDDVX, &
| 1
Warning: Unused dummy argument ‘iprint’ at (1) [-Wunused-dummy-argument]
wnominate.f90:4397:27:
4397 | & KAV,DYN,ZMID,STDDVZ,XSAVE,ZSAVE,CSAVE, &
| 1
Warning: Unused dummy argument ‘kav’ at (1) [-Wunused-dummy-argument]
wnominate.f90:4395:60:
4395 | SUBROUTINE OUTWRT(NRX,NSTEP,JAN,JANLST,KPJP,YBIGL,NITR, &
| 1
Warning: Unused dummy argument ‘nitr’ at (1) [-Wunused-dummy-argument]
wnominate.f90:4396:67:
4396 | & NDIM,NS,NP,NRCALL,NDUAL,IPRINT,XDATA,STDDVX, &
| 1
Warning: Unused dummy argument ‘stddvx’ at (1) [-Wunused-dummy-argument]
wnominate.f90:4397:43:
4397 | & KAV,DYN,ZMID,STDDVZ,XSAVE,ZSAVE,CSAVE, &
| 1
Warning: Unused dummy argument ‘stddvz’ at (1) [-Wunused-dummy-argument]
wnominate.f90:4396:60:
4396 | & NDIM,NS,NP,NRCALL,NDUAL,IPRINT,XDATA,STDDVX, &
| 1
Warning: Unused dummy argument ‘xdata’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3727:47:
3727 | & NP,NRCALL,NDIM,NSTEP,JAN,JANLST, &
| 1
Warning: Unused dummy argument ‘jan’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3727:54:
3727 | & NP,NRCALL,NDIM,NSTEP,JAN,JANLST, &
| 1
Warning: Unused dummy argument ‘janlst’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3728:47:
3728 | & ZMID,XDATA,DYN,LDATA,PSI,BBB,BBBB)
| 1
Warning: Unused dummy argument ‘psi’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3462:50:
3462 | & XLNL,B,V,SVLNL,FNLNL,ICNVG,ITT,NVAL,BBB,BBBB, &
| 1
Warning: Unused dummy argument ‘icnvg’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3464:57:
3464 | & STDDVX,STDDVZ,YBIGL,YYBIGL,IPRINT)
| 1
Warning: Unused dummy argument ‘iprint’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3462:54:
3462 | & XLNL,B,V,SVLNL,FNLNL,ICNVG,ITT,NVAL,BBB,BBBB, &
| 1
Warning: Unused dummy argument ‘itt’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3461:27:
3461 | & JAN,JANLST,NITR,KSMIN,KSMAX, &
| 1
Warning: Unused dummy argument ‘jan’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3461:34:
3461 | & JAN,JANLST,NITR,KSMIN,KSMAX, &
| 1
Warning: Unused dummy argument ‘janlst’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3461:39:
3461 | & JAN,JANLST,NITR,KSMIN,KSMAX, &
| 1
Warning: Unused dummy argument ‘nitr’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3460:53:
3460 | SUBROUTINE RPRINT(KPTSUM,NEQ,NP,NRCALL,NDUAL,NS,NDIM,NSTEP,NOPAR, &
| 1
Warning: Unused dummy argument ‘ns’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3462:59:
3462 | & XLNL,B,V,SVLNL,FNLNL,ICNVG,ITT,NVAL,BBB,BBBB, &
| 1
Warning: Unused dummy argument ‘nval’ at (1) [-Wunused-dummy-argument]
wnominate.f90:2833:51:
2833 | & YBIGL,YYBIGL,ISENS,BBB,BBBB,IPRINT)
| 1
Warning: Unused dummy argument ‘bbbb’ at (1) [-Wunused-dummy-argument]
wnominate.f90:2833:58:
2833 | & YBIGL,YYBIGL,ISENS,BBB,BBBB,IPRINT)
| 1
Warning: Unused dummy argument ‘iprint’ at (1) [-Wunused-dummy-argument]
wnominate.f90:2829:65:
2829 | SUBROUTINE BHHH(NEQ,NP,NRCALL,NDUAL,NS,NDIM,NSTEP,NOPAR,JAN, &
| 1
Warning: Unused dummy argument ‘jan’ at (1) [-Wunused-dummy-argument]
wnominate.f90:2830:28:
2830 | & JANLST,SVLNL,FNLNL,ICNVG,ITT,NVAL, &
| 1
Warning: Unused dummy argument ‘janlst’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3836:35:
3836 | & BBB,BBBB,SSS,YBIGL,YYBIGL,SVLNL,FNLNL)
| 1
Warning: Unused dummy argument ‘sss’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3836:48:
3836 | & BBB,BBBB,SSS,YBIGL,YYBIGL,SVLNL,FNLNL)
| 1
Warning: Unused dummy argument ‘yybigl’ at (1) [-Wunused-dummy-argument]
wnominate.f90:3213:36:
3213 | SUBROUTINE ITHOBS(NP,NRCALL,NS,NDIM,NSTEP,NEQ,BBB,ISENS, &
| 1
Warning: Unused dummy argument ‘ns’ at (1) [-Wunused-dummy-argument]
wnominate.f90:4543:51:
4543 | & BBB,BBBB,SSS,ZMID,XDATA,DYN, &
| 1
Warning: Unused dummy argument ‘dyn’ at (1) [-Wunused-dummy-argument]
wnominate.f90:4544:36:
4544 | & ISENS,IPRINT)
| 1
Warning: Unused dummy argument ‘iprint’ at (1) [-Wunused-dummy-argument]
wnominate.f90:4541:35:
4541 | SUBROUTINE NORMZ(NP,NRCALL,NS,NDIM, &
| 1
Warning: Unused dummy argument ‘ns’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1552:26:
1552 | SUBROUTINE RECODE(NS,NP,NRCALL,KLSEN,KLSEN2,KIO,KSMIN,KSMAX, &
| 1
Warning: Unused dummy argument ‘ns’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1664:38:
1664 | SUBROUTINE JANICE(NP,NRCALL,IIII,JJJJ,KAV,NS,KV,X,KYES,KNO,JP, &
| 1
Warning: Unused dummy argument ‘iiii’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1665:61:
1665 | & KFLIP,ZSAB,YPRE,SUMY,SUMN,SUMM,IPRINT)
| 1
Warning: Unused dummy argument ‘iprint’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1664:43:
1664 | SUBROUTINE JANICE(NP,NRCALL,IIII,JJJJ,KAV,NS,KV,X,KYES,KNO,JP, &
| 1
Warning: Unused dummy argument ‘jjjj’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1664:67:
1664 | SUBROUTINE JANICE(NP,NRCALL,IIII,JJJJ,KAV,NS,KV,X,KYES,KNO,JP, &
| 1
Warning: Unused dummy argument ‘jp’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1664:47:
1664 | SUBROUTINE JANICE(NP,NRCALL,IIII,JJJJ,KAV,NS,KV,X,KYES,KNO,JP, &
| 1
Warning: Unused dummy argument ‘kav’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1665:54:
1665 | & KFLIP,ZSAB,YPRE,SUMY,SUMN,SUMM,IPRINT)
| 1
Warning: Unused dummy argument ‘summ’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1665:49:
1665 | & KFLIP,ZSAB,YPRE,SUMY,SUMN,SUMM,IPRINT)
| 1
Warning: Unused dummy argument ‘sumn’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1665:44:
1665 | & KFLIP,ZSAB,YPRE,SUMY,SUMN,SUMM,IPRINT)
| 1
Warning: Unused dummy argument ‘sumy’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1350:63:
1350 | SUBROUTINE WHOOPE(NP,NS,DSTAR,ZZZ,XX,SSE1,SSE2,KTP,IPRINT)
| 1
Warning: Unused dummy argument ‘iprint’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1196:55:
1196 | SUBROUTINE KPASCORE(NP,NRCALL,NS,NDUAL,KIO,IPRINT, &
| 1
Warning: Unused dummy argument ‘iprint’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1196:48:
1196 | SUBROUTINE KPASCORE(NP,NRCALL,NS,NDUAL,KIO,IPRINT, &
| 1
Warning: Unused dummy argument ‘kio’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1196:44:
1196 | SUBROUTINE KPASCORE(NP,NRCALL,NS,NDUAL,KIO,IPRINT, &
| 1
Warning: Unused dummy argument ‘ndual’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1196:38:
1196 | SUBROUTINE KPASCORE(NP,NRCALL,NS,NDUAL,KIO,IPRINT, &
| 1
Warning: Unused dummy argument ‘ns’ at (1) [-Wunused-dummy-argument]
wnominate.f90:1056:51:
1056 | SUBROUTINE CLEAN(NP,NRCALL,XVMIN,KVMIN,IPRINT,KPTSUM,LDATA, &
| 1
Warning: Unused dummy argument ‘iprint’ at (1) [-Wunused-dummy-argument]
wnominate.f90:4514:25:
4514 | AA=SUM/FLOAT(KKSUM)
| ^
Warning: ‘kksum’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:4421:16:
4421 | KKSUM=0
| ^
note: ‘kksum’ was declared here
wnominate.f90:4514:25:
4514 | AA=SUM/FLOAT(KKSUM)
| ^
Warning: ‘sum’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:4420:14:
4420 | SUM=0.0
| ^
note: ‘sum’ was declared here
wnominate.f90:3881:28:
3881 | IF(B(2).GT.0.0)ZF=XDATA(KSMIN,NDIM)
| ^
Warning: ‘zf’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:4070:41:
4070 | B(1)=ABS(ZY(KJ)-ZN(KL))/2.0
| ^
Warning: ‘kl’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:4059:16:
4059 | KL=L
| ^
note: ‘kl’ was declared here
wnominate.f90:4075:41:
4075 | B(1)=ABS(ZY(LJ)-ZN(LL))/2.0
| ^
Warning: ‘lj’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:4064:16:
4064 | LJ=J
| ^
note: ‘lj’ was declared here
wnominate.f90:4075:41:
4075 | B(1)=ABS(ZY(LJ)-ZN(LL))/2.0
| ^
Warning: ‘ll’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:4065:16:
4065 | LL=L
| ^
note: ‘ll’ was declared here
wnominate.f90:4079:14:
4079 | IF(XLDEF.GE.AMX)THEN
| ^
Warning: ‘amx’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:3921:14:
3921 | AMX=AMAX1(XLX,BMAX)
| ^
note: ‘amx’ was declared here
wnominate.f90:3697:31:
3697 | XJJ=FLOAT(KJJ)
| ^
Warning: ‘kjj’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:3694:46:
3694 | IF(ABS(AMX-XLL).LE..00001)KJJ=JJ
| ^
note: ‘kjj’ was declared here
wnominate.f90:3185:9:
3185 | IF(I.GT.NNBS)GO TO 211
| ^
Warning: ‘nnbs’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:3159:25:
3159 | IF(NSTEP.EQ.-1)NNBS=NP
| ^
note: ‘nnbs’ was declared here
wnominate.f90:2450:44:
2450 | P = -S * S2 * C3 * EL1 * E(L) / DL1
| ^
Warning: ‘c3’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:2321:18:
2321 | REAL C,C2,C3,DL1,EL1,F,G,H,P,R,S,S2,TST1,TST2,KPPYTHAG
| ^
note: ‘c3’ was declared here
wnominate.f90:2450:44:
2450 | P = -S * S2 * C3 * EL1 * E(L) / DL1
| ^
Warning: ‘s2’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:2321:41:
2321 | REAL C,C2,C3,DL1,EL1,F,G,H,P,R,S,S2,TST1,TST2,KPPYTHAG
| ^
note: ‘s2’ was declared here
wnominate.f90:2550:16:
2550 | IF (E2(M) .LE. C) GO TO 120
| ^
Warning: ‘c’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:2491:14:
2491 | REAL B,C,F,G,H,P,R,S,T,KPEPSLON,KPPYTHAG
| ^
note: ‘c’ was declared here
wnominate.f90:2580:21:
2580 | P = G * H
| ^
Warning: ‘g’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:2491:18:
2491 | REAL B,C,F,G,H,P,R,S,T,KPEPSLON,KPPYTHAG
| ^
note: ‘g’ was declared here
wnominate.f90:2587:25:
2587 | H = G * P / R
| ^
Warning: ‘b’ may be used uninitialized [-Wmaybe-uninitialized]
wnominate.f90:2491:12:
2491 | REAL B,C,F,G,H,P,R,S,T,KPEPSLON,KPPYTHAG
| ^
note: ‘b’ was declared here
gcc-13 -I"/home/hornik/tmp/R.check/r-patched-gcc/Work/build/include" -DNDEBUG -I/usr/local/include -D_FORTIFY_SOURCE=3 -fpic -g -O2 -Wall -Wstrict-prototypes -pedantic -mtune=native -c wrap_output.c -o wrap_output.o
gcc-13 -shared -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -Wl,-O1 -o wnominate.so init_wnominate.o nomprob.o random_wrap.o wnominate.o wrap_output.o -lgfortran -lm -lquadmath -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -lR
make[1]: Leaving directory '/tmp/Rtmp45js3C/R.INSTALL26d8d8270092e9/wnominate/src'
make[1]: Entering directory '/tmp/Rtmp45js3C/R.INSTALL26d8d8270092e9/wnominate/src'
make[1]: Leaving directory '/tmp/Rtmp45js3C/R.INSTALL26d8d8270092e9/wnominate/src'
installing to /home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/00LOCK-wnominate/00new/wnominate/libs
** R
** data
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
converting help for package ‘wnominate’
finding HTML links ... done
UN html
generateTestData html
nomprob html
plot.angles html
plot.coords html
plot.cutlines html
plot.nomObject html
plot.scree html
qnprob html
sen90 html
sen90wnom html
summary.nomObject html
wnominate html
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
** checking absolute paths in shared objects and dynamic libraries
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (wnominate)