* installing to library ‘/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages’
* installing *source* package ‘nsRFA’ ...
** package ‘nsRFA’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘gcc-13 (Debian 13.2.0-23) 13.2.0’
using Fortran compiler: ‘GNU Fortran (Debian 13.2.0-23) 13.2.0’
make[1]: Entering directory '/home/hornik/tmp/scratch/Rtmpu5QWuN/R.INSTALLd0f0f2b4ef98/nsRFA/src'
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c alg136.f -o alg136.o
f951: Warning: Nonconforming tab character in column 1 of line 24 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 25 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 26 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 27 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 28 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 29 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 30 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 32 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 33 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 34 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 35 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 36 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 37 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 38 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 39 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 40 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 41 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 42 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 43 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 44 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 46 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 47 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 48 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 49 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 51 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 52 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 53 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 60 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 61 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 65 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 66 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 67 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 74 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 75 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 76 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 77 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 78 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 79 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 92 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 93 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 94 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 95 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 96 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 105 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 111 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 118 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 124 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 128 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 140 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 141 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 142 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 145 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 146 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 147 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 150 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 152 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 153 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 154 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 155 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 186 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 189 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 190 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 191 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 192 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 196 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 201 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 202 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 203 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 204 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 205 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 207 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 212 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 213 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 214 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 216 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 217 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 224 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 226 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 227 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 228 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 229 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 230 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 231 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 233 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 234 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 236 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 240 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 241 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 247 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 248 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 249 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 250 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 251 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 252 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 253 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 254 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 255 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 256 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 257 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 259 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 260 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 261 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 262 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 263 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 264 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 265 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 266 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 267 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 269 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 276 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 277 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 311 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 312 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 313 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 314 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 318 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 325 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 326 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 327 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 328 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 329 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 331 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 337 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 338 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 339 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 340 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 341 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 342 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 349 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 350 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 351 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 352 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 353 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 354 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 355 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 356 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 357 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 358 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 359 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 360 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 361 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 363 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 364 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 365 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 366 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 367 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 368 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 369 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 370 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 371 [-Wtabs]
alg136.f:28:72:
28 | DO 10 J = 1, N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
alg136.f:39:72:
39 | DO 50 L = 3, K
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1)
alg136.f:62:72:
62 | 60 C(L,J) = ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
alg136.f:68:72:
68 | 80 C(L,J) = C(L,J) + A(I,J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
alg136.f:80:72:
80 | 110 C(L,J) = C(L,J) / AA
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
alg136.f:129:72:
129 | 130 NCP(L) = 0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
alg136.f:141:72:
141 | DO 160 J = 1, N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 160 at (1)
alg136.f:146:72:
146 | DO 170 J = 1, N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 170 at (1)
alg136.f:151:72:
151 | 180 C(L,J) = C(L,J) / FLOAT(NC(L))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
alg136.f:152:72:
152 | DO 190 I = 1, M
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 190 at (1)
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfexp.f -o cdfexp.o
cdfexp.f:35:5:
35 | 7000 FORMAT(' *** ERROR *** ROUTINE CDFEXP : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfgam.f -o cdfgam.o
cdfgam.f:35:5:
35 | 7000 FORMAT(' *** ERROR *** ROUTINE CDFGAM : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfgev.f -o cdfgev.o
cdfgev.f:47:5:
47 | 7000 FORMAT(' *** ERROR *** ROUTINE CDFGEV : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfglo.f -o cdfglo.o
cdfglo.f:47:5:
47 | 7000 FORMAT(' *** ERROR *** ROUTINE CDFGLO : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfgno.f -o cdfgno.o
cdfgno.f:50:5:
50 | 7000 FORMAT(' *** ERROR *** ROUTINE CDFGNO : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfgpa.f -o cdfgpa.o
cdfgpa.f:48:5:
48 | 7000 FORMAT(' *** ERROR *** ROUTINE CDFGPA : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfgum.f -o cdfgum.o
cdfgum.f:33:5:
33 | 7000 FORMAT(' *** ERROR *** ROUTINE CDFGUM : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfkap.f -o cdfkap.o
cdfkap.f:55:5:
55 | 7000 FORMAT(' *** ERROR *** ROUTINE CDFKAP : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfnor.f -o cdfnor.o
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfpe3.f -o cdfpe3.o
cdfpe3.f:49:5:
49 | 7000 FORMAT(' *** ERROR *** ROUTINE CDFPE3 : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cdfwak.f -o cdfwak.o
cdfwak.f:151:5:
151 | 7010 FORMAT(' ** WARNING ** ROUTINE CDFWAK :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
cdfwak.f:150:5:
150 | 7000 FORMAT(' *** ERROR *** ROUTINE CDFWAK : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cluagg.f -o cluagg.o
cluagg.f:90:72:
90 | DO 20 I=1,J-1
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
cluagg.f:93:72:
93 | 10 SUM=SUM+(X(I,IATT)-X(J,IATT))**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
cluagg.f:98:72:
98 | 30 IWORK(I)=1
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
cluagg.f:162:5:
162 | 7000 FORMAT(' *** ERROR *** ROUTINE CLUAGG : INSUFFICIENT WORKSPACE.',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
cluagg.f:116:8:
116 | II=I
| ^
Warning: ‘ii’ may be used uninitialized [-Wmaybe-uninitialized]
cluagg.f:117:8:
117 | JJ=J
| ^
Warning: ‘jj’ may be used uninitialized [-Wmaybe-uninitialized]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c cluinf.f -o cluinf.o
cluinf.f:96:5:
96 | 7000 FORMAT(' *** ERROR *** ROUTINE CLUINF :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c clukm.f -o clukm.o
clukm.f:78:72:
78 | DO 5 I=1,N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1)
clukm.f:80:72:
80 | 5 RW(IW)=X(I,IATT)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
clukm.f:85:72:
85 | 10 NUM(ICL)=0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
clukm.f:88:72:
88 | 20 RW(IW)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
clukm.f:129:72:
129 | 90 SS=SS+RW(LWSS+ICL)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
clukm.f:146:5:
146 | 7030 FORMAT(' ** WARNING ** ROUTINE CLUKM :',
| 1
Warning: Label 7030 at (1) defined but not used [-Wunused-label]
clukm.f:144:5:
144 | 7020 FORMAT(' *** ERROR *** ROUTINE CLUKM :',
| 1
Warning: Label 7020 at (1) defined but not used [-Wunused-label]
clukm.f:142:5:
142 | 7010 FORMAT(' *** ERROR *** ROUTINE CLUKM :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
clukm.f:140:5:
140 | 7000 FORMAT(' *** ERROR *** ROUTINE CLUKM : INSUFFICIENT WORKSPACE.',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
clukm.f:80:13:
80 | 5 RW(IW)=X(I,IATT)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
clukm.f:88:13:
88 | 20 RW(IW)=ZERO
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
clukm.f:95:13:
95 | RW(IW)=RW(IW)+X(I,IATT)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c derf.f -o derf.o
derf.f:1:6:
1 | DOUBLE PRECISION FUNCTION DERF(X)
| 1
Warning: ‘derf’ declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c digamd.f -o digamd.o
digamd.f:62:5:
62 | 7000 FORMAT(' *** ERROR *** ROUTINE DIGAMD :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c dlgama.f -o dlgama.o
dlgama.f:1:6:
1 | DOUBLE PRECISION FUNCTION DLGAMA(X)
| 1
Warning: ‘dlgama’ declared at (1) is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL. [-Wintrinsic-shadow]
dlgama.f:81:5:
81 | 7000 FORMAT(' *** ERROR *** ROUTINE DLGAMA :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c durand.f -o durand.o
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c gamind.f -o gamind.o
gamind.f:141:5:
141 | 7020 FORMAT(' ** WARNING ** ROUTINE GAMIND :',
| 1
Warning: Label 7020 at (1) defined but not used [-Wunused-label]
gamind.f:139:5:
139 | 7010 FORMAT(' *** ERROR *** ROUTINE GAMIND :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
gamind.f:137:5:
137 | 7000 FORMAT(' *** ERROR *** ROUTINE GAMIND :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c leaps.f -o leaps.o
f951: Warning: Nonconforming tab character in column 1 of line 214 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 215 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 326 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 327 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 332 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 333 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 334 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 335 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 336 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 337 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 338 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 339 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 341 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 348 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 349 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 350 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 351 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 352 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 353 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 354 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 355 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 356 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 357 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 393 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 394 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 395 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 404 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 406 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 407 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 409 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 410 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 413 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 414 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 456 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 457 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 458 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 459 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 460 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 461 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 462 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 463 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 464 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 468 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 469 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 470 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 471 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 473 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 477 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 478 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 479 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 480 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 481 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 482 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 483 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 484 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 485 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 486 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 487 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 489 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 490 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 493 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 494 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 495 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 496 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 536 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 537 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 538 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 539 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 540 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 542 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 543 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 544 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 545 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 546 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 547 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 548 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 549 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 551 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 591 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 592 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 593 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 603 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 605 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 610 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 644 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 645 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 646 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 647 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 648 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 649 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 650 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 651 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 652 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 653 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 654 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 655 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 656 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 657 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 658 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 690 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 703 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 704 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 705 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 706 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 707 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 709 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 720 [-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 730 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 731 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 766 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 767 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 768 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 779 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 780 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 782 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 783 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 789 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 790 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 792 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 793 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 795 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 796 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 797 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 798 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 799 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 800 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 801 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 802 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 803 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 804 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 805 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 813 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 814 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 816 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 818 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 819 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 820 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 821 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 822 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 826 [-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 863 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 876 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 877 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 878 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 879 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 880 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 904 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 905 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 906 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 930 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 972 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 973 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 974 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 985 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 986 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1006 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1008 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1012 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1013 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1015 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1040 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1042 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1043 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1046 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1047 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1048 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1152 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1153 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1154 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1158 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1356 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1357 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1358 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1359 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1360 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1361 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1362 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1363 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1365 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1366 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1367 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1368 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1369 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1370 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1426 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1427 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1428 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1447 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1448 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1449 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1450 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1451 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1461 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1462 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1478 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1479 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1480 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1481 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1482 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1624 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1625 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1626 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 1627 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2118 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2119 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2120 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2121 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2122 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2123 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2124 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2125 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2126 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2127 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2150 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2160 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2161 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2167 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2168 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2169 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2170 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2171 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2172 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2176 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2177 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2178 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2179 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2180 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2185 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2186 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2187 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2188 [-Wtabs]
f951: Warning: Nonconforming tab character in column 1 of line 2189 [-Wtabs]
leaps.f:218:72:
218 | 20 RBAR(I) = ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
leaps.f:412:72:
412 | * IL, VORDER)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
leaps.f:533:72:
533 | 10 WK(J) = SS(J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
leaps.f:723:72:
723 | DO 100 K = 1, POS
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
leaps.f:889:72:
889 | 20 IWK(I) = LAST
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
leaps.f:917:72:
917 | * VORDER)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
leaps.f:922:72:
922 | 60 IWK(I) = NEWPOS - 1
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
leaps.f:1045:72:
1045 | * IL, VORDER)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
leaps.f:1128:72:
1128 | 10 WORK(COL) = SQRT(D(COL))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
leaps.f:1231:72:
1231 | 10 WORK(ROW) = SQRT(D(ROW))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
leaps.f:1318:72:
1318 | 10 SUMY = SUMY + D(ROW) * THETAB(ROW)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
leaps.f:684:5:
684 | 20 IF (POS .GT. NVMAX) RETURN
| 1
Warning: Label 20 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c leapshdr.f -o leapshdr.o
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrexp.f -o lmrexp.o
lmrexp.f:39:72:
39 | 10 XMOM(J)=TWO/DBLE(J*(J-1))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lmrexp.f:48:5:
48 | 7010 FORMAT(' *** ERROR *** ROUTINE LMREXP : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrexp.f:47:5:
47 | 7000 FORMAT(' *** ERROR *** ROUTINE LMREXP : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrgam.f -o lmrgam.o
lmrgam.f:88:5:
88 | 7010 FORMAT(' *** ERROR *** ROUTINE LMRGAM : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrgam.f:87:5:
87 | 7000 FORMAT(' *** ERROR *** ROUTINE LMRGAM : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrgev.f -o lmrgev.o
lmrgev.f:67:72:
67 | 2 XMOM(I)=ZMOM(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
lmrgev.f:106:5:
106 | 7010 FORMAT(' *** ERROR *** ROUTINE LMRGEV : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrgev.f:105:5:
105 | 7000 FORMAT(' *** ERROR *** ROUTINE LMRGEV : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
lmrgev.f:73:5:
73 | 10 CONTINUE
| 1
Warning: Label 10 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrglo.f -o lmrglo.o
lmrglo.f:140:72:
140 | 10 SUM=SUM*GG+Z(K,M)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lmrglo.f:152:5:
152 | 7010 FORMAT(' *** ERROR *** ROUTINE LMRGLO : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrglo.f:151:5:
151 | 7000 FORMAT(' *** ERROR *** ROUTINE LMRGLO : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrgno.f -o lmrgno.o
lmrgno.f:72:72:
72 | 2 XMOM(I)=ZMOM(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
lmrgno.f:99:72:
99 | 10 SUM(M)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lmrgno.f:115:72:
115 | 20 SUM(M)=SUM(M)+E*P
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
lmrgno.f:118:72:
118 | 40 EST(M)=SUM(M)*XINC
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
lmrgno.f:124:72:
124 | 50 ESTX(M)=EST(M)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
lmrgno.f:140:72:
140 | 60 SUM(M)=SUM(M)+E*P
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
lmrgno.f:157:72:
157 | 110 XMOM(M)=CONST*EST(M)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
lmrgno.f:167:5:
167 | 7020 FORMAT(' ** WARNING ** ROUTINE LMRGNO :',
| 1
Warning: Label 7020 at (1) defined but not used [-Wunused-label]
lmrgno.f:166:5:
166 | 7010 FORMAT(' *** ERROR *** ROUTINE LMRGNO : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrgno.f:165:5:
165 | 7000 FORMAT(' *** ERROR *** ROUTINE LMRGNO : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrgpa.f -o lmrgpa.o
lmrgpa.f:65:5:
65 | 7010 FORMAT(' *** ERROR *** ROUTINE LMRGPA : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrgpa.f:64:5:
64 | 7000 FORMAT(' *** ERROR *** ROUTINE LMRGPA : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrgum.f -o lmrgum.o
lmrgum.f:55:72:
55 | 10 XMOM(J)=ZMOM(J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lmrgum.f:64:5:
64 | 7010 FORMAT(' *** ERROR *** ROUTINE LMRGUM : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrgum.f:63:5:
63 | 7000 FORMAT(' *** ERROR *** ROUTINE LMRGUM : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrkap.f -o lmrkap.o
lmrkap.f:69:72:
69 | 20 BETA(IR)=DEXP(ARG)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
lmrkap.f:76:72:
76 | 40 BETA(IR)=DEXP(DLGAM-G*DLOG(R))*(ONE-HALF*H*G*(ONE+G)/R)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
lmrkap.f:85:72:
85 | 60 BETA(IR)=DEXP(ARG)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
lmrkap.f:92:72:
92 | 80 BETA(IR)=EU+DLOG(-H)+DIGAMD(-R/H)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
lmrkap.f:99:72:
99 | 100 BETA(IR)=EU+DLOG(R)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
lmrkap.f:106:72:
106 | 120 BETA(IR)=EU+DLOG(H)+DIGAMD(ONE+R/H)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
lmrkap.f:150:5:
150 | 7020 FORMAT(' *** ERROR *** ROUTINE LMRKAP :',
| 1
Warning: Label 7020 at (1) defined but not used [-Wunused-label]
lmrkap.f:149:5:
149 | 7010 FORMAT(' *** ERROR *** ROUTINE LMRKAP : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrkap.f:148:5:
148 | 7000 FORMAT(' *** ERROR *** ROUTINE LMRKAP : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
lmrkap.f:112:72:
112 | IF(G.EQ.ZERO)XMOM(1)=U+A*BETA(1)
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
lmrkap.f:118:72:
118 | ALAM2=BETA(2)-BETA(1)
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
lmrkap.f:112:72:
112 | IF(G.EQ.ZERO)XMOM(1)=U+A*BETA(1)
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
lmrkap.f:118:72:
118 | ALAM2=BETA(2)-BETA(1)
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
lmrkap.f:112:72:
112 | IF(G.EQ.ZERO)XMOM(1)=U+A*BETA(1)
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
lmrkap.f:118:72:
118 | ALAM2=BETA(2)-BETA(1)
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
lmrkap.f:112:72:
112 | IF(G.EQ.ZERO)XMOM(1)=U+A*BETA(1)
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
lmrkap.f:118:72:
118 | ALAM2=BETA(2)-BETA(1)
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
lmrkap.f:112:72:
112 | IF(G.EQ.ZERO)XMOM(1)=U+A*BETA(1)
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
lmrkap.f:118:72:
118 | ALAM2=BETA(2)-BETA(1)
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
lmrkap.f:113:72:
113 | IF(G.NE.ZERO)XMOM(1)=U+A*(ONE-BETA(1))/G
| ^
Warning: ‘beta’ may be used uninitialized [-Wmaybe-uninitialized]
lmrkap.f:29:50:
29 | DOUBLE PRECISION PARA(4),XMOM(NMOM),BETA(20)
| ^
note: ‘beta’ declared here
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrnor.f -o lmrnor.o
lmrnor.f:51:72:
51 | 10 XMOM(M)=ZMOM(M)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lmrnor.f:60:5:
60 | 7010 FORMAT(' *** ERROR *** ROUTINE LMRNOR : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrnor.f:59:5:
59 | 7000 FORMAT(' *** ERROR *** ROUTINE LMRNOR : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrpe3.f -o lmrpe3.o
lmrpe3.f:111:5:
111 | 7010 FORMAT(' *** ERROR *** ROUTINE LMRPE3 : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrpe3.f:110:5:
110 | 7000 FORMAT(' *** ERROR *** ROUTINE LMRPE3 : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c lmrwak.f -o lmrwak.o
lmrwak.f:79:5:
79 | 7010 FORMAT(' *** ERROR *** ROUTINE LMRWAK : PARAMETER NMOM TOO LARGE')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
lmrwak.f:78:5:
78 | 7000 FORMAT(' *** ERROR *** ROUTINE LMRWAK : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelexp.f -o pelexp.o
pelexp.f:37:5:
37 | 7000 FORMAT(' *** ERROR *** ROUTINE PELEXP : L-MOMENTS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelgam.f -o pelgam.o
pelgam.f:59:5:
59 | 7000 FORMAT(' *** ERROR *** ROUTINE PELGAM : L-MOMENTS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelgev.f -o pelgev.o
pelgev.f:109:5:
109 | 7010 FORMAT(' ** WARNING ** ROUTINE PELGEV :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
pelgev.f:108:5:
108 | 7000 FORMAT(' *** ERROR *** ROUTINE PELGEV : L-MOMENTS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelglo.f -o pelglo.o
pelglo.f:60:5:
60 | 7000 FORMAT(' *** ERROR *** ROUTINE PELGLO : L-MOMENTS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelgno.f -o pelgno.o
pelgno.f:76:5:
76 | 7010 FORMAT(' *** ERROR *** ROUTINE PELGNO :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
pelgno.f:75:5:
75 | 7000 FORMAT(' *** ERROR *** ROUTINE PELGNO : L-MOMENTS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelgpa.f -o pelgpa.o
pelgpa.f:42:5:
42 | 7000 FORMAT(' *** ERROR *** ROUTINE PELGPA : L-MOMENTS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelgum.f -o pelgum.o
pelgum.f:41:5:
41 | 7000 FORMAT(' *** ERROR *** ROUTINE PELGUM : L-MOMENTS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelkap.f -o pelkap.o
pelkap.f:70:72:
70 | 10 PARA(I)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
pelkap.f:135:10:
135 | DEL1=HALF*DEL1
| ^
Warning: ‘del1’ may be used uninitialized [-Wmaybe-uninitialized]
pelkap.f:136:10:
136 | DEL2=HALF*DEL2
| ^
Warning: ‘del2’ may be used uninitialized [-Wmaybe-uninitialized]
pelkap.f:137:10:
137 | G=XG-DEL1
| ^
Warning: ‘xg’ may be used uninitialized [-Wmaybe-uninitialized]
pelkap.f:138:10:
138 | H=XH-DEL2
| ^
Warning: ‘xh’ may be used uninitialized [-Wmaybe-uninitialized]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelnor.f -o pelnor.o
pelnor.f:38:5:
38 | 7000 FORMAT(' *** ERROR *** ROUTINE PELNOR : L-MOMENTS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelpe3.f -o pelpe3.o
pelpe3.f:75:72:
75 | 1010 PARA(I)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1010 at (1)
pelpe3.f:78:5:
78 | 7000 FORMAT(' *** ERROR *** ROUTINE PELPE3 : L-MOMENTS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c pelwak.f -o pelwak.o
pelwak.f:152:72:
152 | 1010 PARA(I)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1010 at (1)
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quaexp.f -o quaexp.o
quaexp.f:37:5:
37 | 7010 FORMAT(' *** ERROR *** ROUTINE QUAEXP :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quaexp.f:36:5:
36 | 7000 FORMAT(' *** ERROR *** ROUTINE QUAEXP : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quagam.f -o quagam.o
quagam.f:80:5:
80 | 7020 FORMAT(' ** WARNING ** ROUTINE QUAGAM :',
| 1
Warning: Label 7020 at (1) defined but not used [-Wunused-label]
quagam.f:78:5:
78 | 7010 FORMAT(' *** ERROR *** ROUTINE QUAGAM :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quagam.f:77:5:
77 | 7000 FORMAT(' *** ERROR *** ROUTINE QUAGAM : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quagev.f -o quagev.o
quagev.f:46:5:
46 | 7010 FORMAT(' *** ERROR *** ROUTINE QUAGEV : PARAMETERS INVALID')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quagev.f:44:5:
44 | 7000 FORMAT(' *** ERROR *** ROUTINE QUAGEV :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quaglo.f -o quaglo.o
quaglo.f:46:5:
46 | 7010 FORMAT(' *** ERROR *** ROUTINE QUAGLO : PARAMETERS INVALID')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quaglo.f:44:5:
44 | 7000 FORMAT(' *** ERROR *** ROUTINE QUAGLO :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quagno.f -o quagno.o
quagno.f:48:5:
48 | 7010 FORMAT(' *** ERROR *** ROUTINE QUAGNO : PARAMETERS INVALID')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quagno.f:46:5:
46 | 7000 FORMAT(' *** ERROR *** ROUTINE QUAGNO :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quagpa.f -o quagpa.o
quagpa.f:46:5:
46 | 7010 FORMAT(' *** ERROR *** ROUTINE QUAGPA : PARAMETERS INVALID')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quagpa.f:44:5:
44 | 7000 FORMAT(' *** ERROR *** ROUTINE QUAGPA :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quagum.f -o quagum.o
quagum.f:37:5:
37 | 7010 FORMAT(' *** ERROR *** ROUTINE QUAGUM :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quagum.f:36:5:
36 | 7000 FORMAT(' *** ERROR *** ROUTINE QUAGUM : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quakap.f -o quakap.o
quakap.f:55:5:
55 | 7010 FORMAT(' *** ERROR *** ROUTINE QUAKAP :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quakap.f:54:5:
54 | 7000 FORMAT(' *** ERROR *** ROUTINE QUAKAP : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
quakap.f:1:38:
1 | DOUBLE PRECISION FUNCTION QUAKAP(F,PARA)
| ^
Warning: ‘__result_quakap’ may be used uninitialized [-Wmaybe-uninitialized]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quanor.f -o quanor.o
quanor.f:37:5:
37 | 7010 FORMAT(' *** ERROR *** ROUTINE QUANOR :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quanor.f:36:5:
36 | 7000 FORMAT(' *** ERROR *** ROUTINE QUANOR : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quape3.f -o quape3.o
quape3.f:59:5:
59 | 7010 FORMAT(' *** ERROR *** ROUTINE QUAPE3 : PARAMETERS INVALID')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quape3.f:57:5:
57 | 7000 FORMAT(' *** ERROR *** ROUTINE QUAPE3 :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
quape3.f:55:72:
55 | 1000 RETURN
| ^
Warning: ‘__result_quape3’ may be used uninitialized [-Wmaybe-uninitialized]
quape3.f:1:38:
1 | DOUBLE PRECISION FUNCTION QUAPE3(F,PARA)
| ^
note: ‘__result_quape3’ was declared here
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quastn.f -o quastn.o
quastn.f:83:5:
83 | 7000 FORMAT(' *** ERROR *** ROUTINE QUASTN :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c quawak.f -o quawak.o
quawak.f:75:5:
75 | 7010 FORMAT(' *** ERROR *** ROUTINE QUAWAK :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
quawak.f:74:5:
74 | 7000 FORMAT(' *** ERROR *** ROUTINE QUAWAK : PARAMETERS INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
quawak.f:1:38:
1 | DOUBLE PRECISION FUNCTION QUAWAK(F,PARA)
| ^
Warning: ‘__result_quawak’ may be used uninitialized [-Wmaybe-uninitialized]
gcc-13 -I"/home/hornik/tmp/R.check/r-devel-gcc/Work/build/include" -DNDEBUG -I/usr/local/include -D_FORTIFY_SOURCE=3 -fpic -g -O2 -Wall -Wstrict-prototypes -pedantic -mtune=native -c registerDynamicSymbol.c -o registerDynamicSymbol.o
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c reglmr.f -o reglmr.o
reglmr.f:36:72:
36 | 10 RMOM(J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
reglmr.f:46:72:
46 | 20 RMOM(J)=RMOM(J)+W*XMOM(J,ISITE)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
reglmr.f:53:72:
53 | 40 RMOM(J)=RMOM(J)/WSUM
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
reglmr.f:65:5:
65 | 7020 FORMAT(' *** ERROR *** ROUTINE REGLMR :',
| 1
Warning: Label 7020 at (1) defined but not used [-Wunused-label]
reglmr.f:64:5:
64 | 7010 FORMAT(' *** ERROR *** ROUTINE REGLMR : ZERO MEAN AT SITE',I4)
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
reglmr.f:63:5:
63 | 7000 FORMAT(' *** ERROR *** ROUTINE REGLMR : PARAMETER NMOM INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c regtst.f -o regtst.o
regtst.f:166:72:
166 | 10 D(I)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
regtst.f:174:72:
174 | 30 Z(IDIST)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
regtst.f:176:72:
176 | DO 40 IDIST=1,6
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1)
regtst.f:177:72:
177 | 40 PARA(IPARA,IDIST)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
regtst.f:185:72:
185 | 50 RMOM(K)=RMOM(K)+LEN(I)*XMOM(K,I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
regtst.f:186:72:
186 | 60 RMOM(K)=RMOM(K)/SUMLEN
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
regtst.f:209:72:
209 | DO 100 K=J,3
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
regtst.f:212:72:
212 | 90 SMAT(J,K)=SMAT(J,K)+WORK(I,J)*WORK(I,K)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
regtst.f:240:72:
240 | DO 120 K=1,3
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 120 at (1)
regtst.f:241:72:
241 | 120 D(I)=D(I)+WORK(I,J)*WORK(I,K)*SMAT(J,K)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
regtst.f:248:72:
248 | 138 D(I)=ONE
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 138 at (1)
regtst.f:467:72:
467 | 310 Q(IQ)=QUAWAK(PROB(IQ),PARA(1,6))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
regtst.f:513:5:
513 | 7010 FORMAT(' *** ERROR *** ROUTINE REGTST : UNABLE TO INVERT',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
regtst.f:511:5:
511 | 7000 FORMAT(' *** ERROR *** ROUTINE REGTST :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
regtst.f:509:5:
509 | 6150 FORMAT(1X,A18,(1X,14F7.3))
| 1
Warning: Label 6150 at (1) defined but not used [-Wunused-label]
regtst.f:508:5:
508 | 6140 FORMAT(/' QUANTILE ESTIMATES'/19X,(1X,14F7.3))
| 1
Warning: Label 6140 at (1) defined but not used [-Wunused-label]
regtst.f:507:5:
507 | 6130 FORMAT(1X,A18,1X,5F7.3)
| 1
Warning: Label 6130 at (1) defined but not used [-Wunused-label]
regtst.f:505:5:
505 | 6120 FORMAT(//' PARAMETER ESTIMATES FOR DISTRIBUTIONS ACCEPTED AT THE',
| 1
Warning: Label 6120 at (1) defined but not used [-Wunused-label]
regtst.f:504:5:
504 | 6110 FORMAT(//' PARAMETER ESTIMATES'/)
| 1
Warning: Label 6110 at (1) defined but not used [-Wunused-label]
regtst.f:503:5:
503 | 6100 FORMAT(1X,A18,2X,' L-KURTOSIS=',F6.3,2X,' Z VALUE=',F6.2,1X,A1)
| 1
Warning: Label 6100 at (1) defined but not used [-Wunused-label]
regtst.f:501:5:
501 | 6090 FORMAT(//' ***** GOODNESS-OF-FIT MEASURES *****'/
| 1
Warning: Label 6090 at (1) defined but not used [-Wunused-label]
regtst.f:497:5:
497 | 6080 FORMAT(/' OBSERVED AVE. OF L-SKEW/L-KURT DISTANCE =',F8.4/
| 1
Warning: Label 6080 at (1) defined but not used [-Wunused-label]
regtst.f:493:5:
493 | 6070 FORMAT(/' OBSERVED AVE. OF L-CV / L-SKEW DISTANCE =',F8.4/
| 1
Warning: Label 6070 at (1) defined but not used [-Wunused-label]
regtst.f:489:5:
489 | 6060 FORMAT(/' OBSERVED S.D. OF GROUP L-CV =',F8.4/
| 1
Warning: Label 6060 at (1) defined but not used [-Wunused-label]
regtst.f:487:5:
487 | 6050 FORMAT(//' ***** HETEROGENEITY MEASURES *****'/
| 1
Warning: Label 6050 at (1) defined but not used [-Wunused-label]
regtst.f:486:5:
486 | 6040 FORMAT(/' PARAMETERS OF REGIONAL KAPPA DISTRIBUTION ',4F8.4)
| 1
Warning: Label 6040 at (1) defined but not used [-Wunused-label]
regtst.f:485:5:
485 | 6030 FORMAT(/' FLAGGED TEST VALUES'/(15F5.1))
| 1
Warning: Label 6030 at (1) defined but not used [-Wunused-label]
regtst.f:484:5:
484 | 6020 FORMAT(/5X,'WEIGHTED MEANS',5X,6F8.4)
| 1
Warning: Label 6020 at (1) defined but not used [-Wunused-label]
regtst.f:483:5:
483 | 6010 FORMAT(2I5,2X,A12,3F8.4,F7.2,2X,2A1)
| 1
Warning: Label 6010 at (1) defined but not used [-Wunused-label]
regtst.f:482:5:
482 | 6000 FORMAT(/' SITE N NAME L-CV L-SKEW L-KURT D(I)')
| 1
Warning: Label 6000 at (1) defined but not used [-Wunused-label]
regtst.f:2:19:
2 | * KPRINT,KOUT,RMOM,D,VOBS,VBAR,VSD,H,Z,PARA)
| 1
Warning: Unused dummy argument ‘kout’ at (1) [-Wunused-dummy-argument]
regtst.f:1:36:
1 | SUBROUTINE REGTST(NSITES,NAMES,LEN,XMOM,A,B,SEED,NSIM,NPROB,PROB,
| 1
Warning: Unused dummy argument ‘names’ at (1) [-Wunused-dummy-argument]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c samlmr.f -o samlmr.o
samlmr.f:40:72:
40 | 10 SUM(J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
samlmr.f:52:72:
52 | 20 SUM(J)=SUM(J)+TERM
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
samlmr.f:55:72:
55 | 40 SUM(J)=SUM(J)/N
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
samlmr.f:67:72:
67 | 60 SUM(J)=SUM(J)+TERM
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
samlmr.f:75:72:
75 | 80 SUM(J)=SUM(J)/Z
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
samlmr.f:90:72:
90 | 110 TEMP=TEMP+P*SUM(I+1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
samlmr.f:92:72:
92 | 120 K=K-1
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
samlmr.f:99:72:
99 | 130 XMOM(K)=SUM(K)/SUM(2)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
samlmr.f:112:5:
112 | 7020 FORMAT(' *** ERROR *** ROUTINE SAMLMR : ALL DATA VALUES EQUAL')
| 1
Warning: Label 7020 at (1) defined but not used [-Wunused-label]
samlmr.f:110:5:
110 | 7010 FORMAT(' *** ERROR *** ROUTINE SAMLMR :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
samlmr.f:109:5:
109 | 7000 FORMAT(' *** ERROR *** ROUTINE SAMLMR : PARAMETER NMOM INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c samlmu.f -o samlmu.o
samlmu.f:35:72:
35 | 10 XMOM(J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
samlmu.f:88:72:
88 | 70 XMOM(J)=XMOM(J)/XMOM(2)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
samlmu.f:112:72:
112 | 1020 XMOM(J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1020 at (1)
samlmu.f:117:5:
117 | 7010 FORMAT(' *** ERROR *** ROUTINE SAMLMU :',
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
samlmu.f:115:5:
115 | 7000 FORMAT(' ** WARNING ** ROUTINE SAMLMU :',
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c sampwm.f -o sampwm.o
sampwm.f:46:72:
46 | 10 XMOM(J)=ZERO
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
sampwm.f:60:72:
60 | 20 XMOM(J)=XMOM(J)+TERM
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
sampwm.f:63:72:
63 | 40 XMOM(J)=XMOM(J)/DN
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
sampwm.f:76:72:
76 | 60 XMOM(J)=XMOM(J)+WEIGHT*X(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
sampwm.f:89:5:
89 | 7020 FORMAT(' *** ERROR *** ROUTINE SAMPWM :',
| 1
Warning: Label 7020 at (1) defined but not used [-Wunused-label]
sampwm.f:88:5:
88 | 7010 FORMAT(' *** ERROR *** ROUTINE SAMPWM : PARAMETER KIND INVALID')
| 1
Warning: Label 7010 at (1) defined but not used [-Wunused-label]
sampwm.f:87:5:
87 | 7000 FORMAT(' *** ERROR *** ROUTINE SAMPWM : PARAMETER NMOM INVALID')
| 1
Warning: Label 7000 at (1) defined but not used [-Wunused-label]
gfortran-13 -fpic -g -O2 -Wall -mtune=native -c sort.f -o sort.o
sort.f:47:72:
47 | 30 X(J+M)=X(J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
sort.f:49:72:
49 | 50 X(J+M)=TEST
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
gcc-13 -shared -L/home/hornik/tmp/R.check/r-devel-gcc/Work/build/lib -Wl,-O1 -o nsRFA.so alg136.o cdfexp.o cdfgam.o cdfgev.o cdfglo.o cdfgno.o cdfgpa.o cdfgum.o cdfkap.o cdfnor.o cdfpe3.o cdfwak.o cluagg.o cluinf.o clukm.o derf.o digamd.o dlgama.o durand.o gamind.o leaps.o leapshdr.o lmrexp.o lmrgam.o lmrgev.o lmrglo.o lmrgno.o lmrgpa.o lmrgum.o lmrkap.o lmrnor.o lmrpe3.o lmrwak.o pelexp.o pelgam.o pelgev.o pelglo.o pelgno.o pelgpa.o pelgum.o pelkap.o pelnor.o pelpe3.o pelwak.o quaexp.o quagam.o quagev.o quaglo.o quagno.o quagpa.o quagum.o quakap.o quanor.o quape3.o quastn.o quawak.o registerDynamicSymbol.o reglmr.o regtst.o samlmr.o samlmu.o sampwm.o sort.o -lgfortran -lm -lquadmath -L/home/hornik/tmp/R.check/r-devel-gcc/Work/build/lib -lR
make[1]: Leaving directory '/home/hornik/tmp/scratch/Rtmpu5QWuN/R.INSTALLd0f0f2b4ef98/nsRFA/src'
make[1]: Entering directory '/home/hornik/tmp/scratch/Rtmpu5QWuN/R.INSTALLd0f0f2b4ef98/nsRFA/src'
make[1]: Leaving directory '/home/hornik/tmp/scratch/Rtmpu5QWuN/R.INSTALLd0f0f2b4ef98/nsRFA/src'
installing to /home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/00LOCK-nsRFA/00new/nsRFA/libs
** R
** data
** demo
** 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 (nsRFA)