* installing *source* package ‘wnominate’ ...
** package ‘wnominate’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘gcc-13 (GCC) 13.2.0’
using Fortran compiler: ‘GNU Fortran (GCC) 13.2.0’
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-devel/wnominate/src'
gcc-13 -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I/usr/local/include -fpic -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -c init_wnominate.c -o init_wnominate.o
gcc-13 -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I/usr/local/include -fpic -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -c nomprob.c -o nomprob.o
gcc-13 -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I/usr/local/include -fpic -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -c random_wrap.c -o random_wrap.o
gfortran-13 -g -O2 -mtune=native -Wall -pedantic -msse2 -mfpmath=sse -fpic -g -O2 -mtune=native -Wall -pedantic -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:1060:19:
1060 | CHARACTER*10 LMARG(10)
| 1
Warning: Obsolescent feature: Old-style character length 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]
gcc-13 -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I/usr/local/include -fpic -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -c wrap_output.c -o wrap_output.o
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 -shared -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -fpic -L/usr/local/gcc13/lib64 -L/usr/local/lib64 -L/usr/local/clang18/lib/x86_64-unknown-linux-gnu -o wnominate.so init_wnominate.o nomprob.o random_wrap.o wnominate.o wrap_output.o -lgfortran -lm -lquadmath
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-devel/wnominate/src'
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-devel/wnominate/src'
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-devel/wnominate/src'
installing to /data/gannet/ripley/R/packages/tests-devel/wnominate.Rcheck/00LOCK-wnominate/00new/wnominate/libs
** R
** data
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** 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)