* installing *source* package ‘spant’ ...
** package ‘spant’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘Apple clang version 14.0.3 (clang-1403.0.22.14.1)’
using Fortran compiler: ‘GNU Fortran (GCC) 12.2.0’
using SDK: ‘MacOSX11.3.sdk’
clang -arch x86_64 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I/opt/R/x86_64/include -fPIC -falign-functions=64 -Wall -g -O2 -c init.c -o init.o
/opt/gfortran/bin/gfortran -arch x86_64 -fPIC -Wall -g -O2 -c lsei.f -o lsei.o
/opt/gfortran/bin/gfortran -arch x86_64 -fPIC -Wall -g -O2 -c pnnls.f -o pnnls.o
pnnls.f:90:72:
90 | 20 INDEX(I)=I
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
pnnls.f:114:72:
114 | 510 UNORM=UNORM+A(L,J)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
pnnls.f:126:72:
126 | 530 A(L,J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
pnnls.f:132:72:
132 | 540 INDEX(IK) = INDEX(IK+1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
pnnls.f:136:72:
136 | 550 INDEX(IK-1) = INDEX(IK)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 550 at (1)
pnnls.f:148:72:
148 | 570 ZZ(IP)=B(IP)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 570 at (1)
pnnls.f:153:72:
153 | 590 X(L)=ZZ(IP)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
pnnls.f:176:72:
176 | 40 SM=SM+A(L,J)*B(L)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
pnnls.f:207:72:
207 | 90 UNORM=UNORM+A(L,J)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
pnnls.f:216:72:
216 | 120 ZZ(L)=B(L)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
lsei.f:85:72:
85 | DO 10 J=1,NBP1
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
lsei.f:86:72:
86 | 10 G(IG1,J)=G(IG2,J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lsei.f:91:72:
91 | DO 20 J=1,NBP1
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
lsei.f:92:72:
92 | 20 G(IG,J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
lsei.f:107:72:
107 | 40 G(IG,JG)=G(IG,I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
lsei.f:109:72:
109 | DO 50 I=1,K
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1)
lsei.f:111:72:
111 | 50 G(IG,JG)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
lsei.f:128:72:
128 | 90 G(IR-1,I)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
lsei.f:166:72:
166 | 20 X(J)=G(J,NB+1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
lsei.f:172:72:
172 | 30 RSQ=RSQ+G(J,NB+1)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
lsei.f:189:72:
189 | 60 S=S+G(I,JG)*X(IX)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
lsei.f:193:72:
193 | 80 X(I)=(X(I)-S)/G(I,L+1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
pnnls.f:241:72:
241 | 150 B(L)=ZZ(L)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
lsei.f:204:72:
204 | 100 S=S+X(I)*G(I,L)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
lsei.f:207:72:
207 | 120 X(J)=(X(J)-S)/G(J,L+1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
pnnls.f:258:72:
258 | 180 A(L,J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
lsei.f:308:72:
308 | IF (ANOISE) 10,30,20
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
pnnls.f:361:72:
361 | 310 ZZ(I)=B(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
pnnls.f:371:72:
371 | 340 X(I)=ZZ(IP)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
pnnls.f:384:72:
384 | 360 SM=SM+B(I)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
pnnls.f:387:72:
387 | 380 W(J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
lsei.f:385:72:
385 | 10 CL=MAX(abs(U(1,J)),CL)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lsei.f:386:72:
386 | IF (CL) 130,130,20
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
lsei.f:390:72:
390 | 30 SM=SM+(U(1,J)*CLINV)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
lsei.f:392:72:
392 | IF (U(1,LPIVOT)) 50,50,40
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
lsei.f:399:72:
399 | 60 IF (CL) 130,130,70
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
lsei.f:404:72:
404 | IF (B) 80,130,130
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
lsei.f:415:72:
415 | 90 I3=I3+ICE
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
lsei.f:416:72:
416 | IF (SM) 100,120,100
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
lsei.f:421:72:
421 | 110 I4=I4+ICE
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
lsei.f:460:72:
460 | IF(DIFF(HMAX+FACTOR*H(LMAX),HMAX)) 20,20,50
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
lsei.f:468:72:
468 | 30 H(L)=H(L)+A(I,L)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
lsei.f:483:72:
483 | 60 A(I,LMAX)=TMP
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
lsei.f:489:72:
489 | 80 CALL H12 (2,J,J+1,M,A(1,J),1,H(J),B,1,MDB,NB)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
lsei.f:508:72:
508 | 120 TMP=TMP+B(I,JB)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
lsei.f:509:72:
509 | 130 RNORM(JB)=SQRT(TMP)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
lsei.f:515:72:
515 | DO 150 I=1,N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1)
lsei.f:516:72:
516 | 150 B(I,JB)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
lsei.f:525:72:
525 | 170 CALL H12 (1,I,KP1,N,A(I,1),MDA,G(I),A,MDA,1,I-1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
lsei.f:540:72:
540 | 190 SM=SM+A(I,J)*B(J,JB)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
lsei.f:542:72:
542 | 210 B(I,JB)=(B(I,JB)-SM)/A(I,I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
lsei.f:548:72:
548 | 220 B(J,JB)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
lsei.f:550:72:
550 | 230 CALL H12 (2,I,KP1,N,A(I,1),MDA,G(I),B(1,JB),1,MDB,1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
lsei.f:592:72:
592 | 10 X(J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lsei.f:610:72:
610 | 20 W(IW)=G(J,I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
lsei.f:612:72:
612 | 30 W(IW)=H(J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
lsei.f:617:72:
617 | 40 W(IW)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
lsei.f:629:72:
629 | IF (RNORM) 130,130,50
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
lsei.f:635:72:
635 | 60 FAC=FAC-H(I)*W(IW)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
lsei.f:637:72:
637 | IF (DIFF(ONE+FAC,ONE)) 130,130,70
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
lsei.f:644:72:
644 | 80 X(J)=X(J)+G(I,J)*W(IW)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
lsei.f:645:72:
645 | 90 X(J)=X(J)*FAC
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
lsei.f:647:72:
647 | 100 XNORM=XNORM+X(J)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
lsei.f:876:72:
876 | 20 INDEX(I)=I
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
lsei.f:895:72:
895 | 40 SM=SM+A(L,J)*B(L)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
lsei.f:925:72:
925 | 90 UNORM=UNORM+A(L,J)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
lsei.f:934:72:
934 | 120 ZZ(L)=B(L)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
lsei.f:958:72:
958 | 150 B(L)=ZZ(L)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
lsei.f:975:72:
975 | 180 A(L,J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
lsei.f:1078:72:
1078 | 310 ZZ(I)=B(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
lsei.f:1088:72:
1088 | 340 X(I)=ZZ(IP)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
lsei.f:1101:72:
1101 | 360 SM=SM+B(I)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
lsei.f:1104:72:
1104 | 380 W(J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
lsei.f:1192:72:
1192 | 10 DNORM=max(abs(Q(J))+abs(E(J)),DNORM)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lsei.f:1351:72:
1351 | 180 V(J,K)=-V(J,K)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
lsei.f:1380:72:
1380 | 240 C(K,J)=T
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
lsei.f:1387:72:
1387 | 260 V(J,K)=T
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
lsei.f:1634:72:
1634 | 30 SB = SB + A(I,J)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
lsei.f:1898:72:
1898 | 210 IF (K.GT.1) A(I,K) = A(I,K) + A(I,K-1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
lsei.f:2046:72:
2046 | 30 A(I,J)=A(I,N)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
lsei.f:2062:72:
2062 | IF (A(I,I)) 90,70,90
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
lsei.f:2064:72:
2064 | IF (A(I,J)) 90,80,90
| 1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
lsei.f:2075:72:
2075 | 110 B(M,J)=T
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
lsei.f:2077:72:
2077 | 120 A(I,J)=A(M,J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
lsei.f:2080:72:
2080 | 130 A(M,J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
lsei.f:2129:72:
2129 | 180 WORK(J,1)=A(J-1,J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
lsei.f:2147:72:
2147 | 220 A(I,J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
lsei.f:2148:72:
2148 | 230 A(I,I)=ONE
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
lsei.f:2164:72:
2164 | 250 S(J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
lsei.f:2173:72:
2173 | 270 A(I,J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
lsei.f:2181:72:
2181 | 290 A(I,J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
lsei.f:738:5:
738 | 80 format(/' Sequence of candidate solutions, X')
| 1
Warning: Label 80 at (1) defined but not used [-Wunused-label]
lsei.f:736:5:
736 | 70 format(/' V-Matrix of the Singular Value Decomposition of A*D.'/
| 1
Warning: Label 70 at (1) defined but not used [-Wunused-label]
lsei.f:1383:5:
1383 | 250 IF (WNTV) then
| 1
Warning: Label 250 at (1) defined but not used [-Wunused-label]
lsei.f:1578:5:
1578 | 330 format (1X, 3E11.3, 3F11.3)
| 1
Warning: Label 330 at (1) defined but not used [-Wunused-label]
lsei.f:1572:5:
1572 | 320 format (1X/
| 1
Warning: Label 320 at (1) defined but not used [-Wunused-label]
lsei.f:1571:5:
1571 | 310 format (' ',I5,6X,2E11.3,11X,2F11.3)
| 1
Warning: Label 310 at (1) defined but not used [-Wunused-label]
lsei.f:1568:5:
1568 | 300 format (1X/' INDEX',12X,'YNORM RNORM',11X,
| 1
Warning: Label 300 at (1) defined but not used [-Wunused-label]
lsei.f:1566:5:
1566 | 290 format (1X/' Scaling option No. 1. D is the identity matrix.'/
| 1
Warning: Label 290 at (1) defined but not used [-Wunused-label]
lsei.f:1564:5:
1564 | 280 format (1X/' Scaling option No.',I2,'. D is a diagonal',
| 1
Warning: Label 280 at (1) defined but not used [-Wunused-label]
lsei.f:1561:5:
1561 | 270 format (1X/' Singular Value Analysis of the least squares',
| 1
Warning: Label 270 at (1) defined but not used [-Wunused-label]
lsei.f:1560:5:
1560 | 260 format (1X,' M = ',I6,', N =',I4,', MDATA =',I8)
| 1
Warning: Label 260 at (1) defined but not used [-Wunused-label]
lsei.f:1558:5:
1558 | 240 format (' ',i5,g12.4,6g13.4)
| 1
Warning: Label 240 at (1) defined but not used [-Wunused-label]
lsei.f:1556:5:
1556 | 232 format (' ',4X,'0',38X,2g13.4)
| 1
Warning: Label 232 at (1) defined but not used [-Wunused-label]
lsei.f:1555:5:
1555 | 231 format (' ',4X,'0',51X, g13.4)
| 1
Warning: Label 231 at (1) defined but not used [-Wunused-label]
lsei.f:1554:5:
1554 | 230 format (' ',4X,'0',64X,2g13.4)
| 1
Warning: Label 230 at (1) defined but not used [-Wunused-label]
lsei.f:1550:5:
1550 | 222 format (1X/' INDEX SING. VAL. G COEF G**2 ',
| 1
Warning: Label 222 at (1) defined but not used [-Wunused-label]
lsei.f:1547:5:
1547 | 221 format (1X/' INDEX SING. VAL. P COEF ',
| 1
Warning: Label 221 at (1) defined but not used [-Wunused-label]
lsei.f:1542:5:
1542 | 220 format (1X/' INDEX SING. VAL. P COEF ',
| 1
Warning: Label 220 at (1) defined but not used [-Wunused-label]
lsei.f:2177:12:
2177 | I=S(K)
| 1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion]
lsei.f:660:26:
660 | subroutine MFEOUT (A, MDA, M, N, NAMES, MODE, UNIT, WIDTH)
| 1
Warning: Unused dummy argument ‘a’ at (1) [-Wunused-dummy-argument]
lsei.f:696:18:
696 | integer I, J, J1, J2, KBLOCK, L, LENNAM
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
lsei.f:1263:72:
1263 | X=Q(L)
| ^
Warning: ‘l’ may be used uninitialized [-Wmaybe-uninitialized]
lsei.f:1174:39:
1174 | integer I, II, IPASS, J, K, KK, L, LL, LP1, N, N10, NQRS
| ^
note: ‘l’ was declared here
clang -arch x86_64 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -L/Library/Frameworks/R.framework/Resources/lib -L/opt/R/x86_64/lib -o spant.so init.o lsei.o pnnls.o -L/opt/gfortran/lib/gcc/x86_64-apple-darwin20.0/12.2.0 -L/opt/gfortran/lib -lgfortran -lquadmath -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation
installing to /Volumes/Builds/packages/big-sur-x86_64/results/4.3/spant.Rcheck/00LOCK-spant/00new/spant/libs
** generating debug symbols (dSYM)
** R
** data
*** moving datasets to lazyload DB
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
*** copying figures
** 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 (spant)