* installing *source* package ‘TULIP’ ... ** package ‘TULIP’ 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/TULIP/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 TULIP_init.c -o TULIP_init.o gfortran-13 -fpic -g -O2 -mtune=native -Wall -pedantic -c catch1.f90 -o catch1.o catch1.f90:5:2: 5 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:6:2: 6 | INTEGER, INTENT(in)::k,upm,pbarold,maxd | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:7:2: 7 | INTEGER::j1,j2,nvars,pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:8:2: 8 | INTEGER::ldim | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:9:2: 9 | INTEGER::dimen(ldim) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:10:2: 10 | DOUBLE PRECISION::sigma(ldim,maxd**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:11:2: 11 | DOUBLE PRECISION::tmp(1,pbarold) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:12:2: 12 | DOUBLE PRECISION::sigcol(pbarold) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:13:2: 13 | nvars=pbarold | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:14:2: 14 | pbar=nvars/dimen(upm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:15:2: 15 | j2=ceiling(dble(k)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:16:2: 16 | j1=mod(k,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:17:2: 17 | IF (j1==0) j1=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:18:2: 18 | IF (upm>2) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:19:2: 19 | tmp=reshape(spread(sigma(upm,maxd*(j2-1)+1:maxd*(j2-1)+dimen(upm)),dim=1,ncopies=pbar) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:20:2: 20 | *spread(sigfun(j1,upm-1,sigma,dimen,ldim,maxd,pbar),dim=2,ncopies=dimen(upm)),(/1,nvars/)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:21:2: 21 | sigcol=tmp(1,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:22:2: 22 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:23:2: 23 | tmp=reshape(spread(sigma(upm,maxd*(j2-1)+1:maxd*(j2-1)+dimen(upm)),dim=1,ncopies=pbar) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:24:2: 24 | *spread(sigma(1,maxd*(j1-1)+1:maxd*(j1-1)+dimen(1)),dim=2,ncopies=dimen(upm)),(/1,nvars/)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:26:2: 26 | sigcol=tmp(1,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:27:2: 27 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:156:2: 156 | al=max(al,v/pf(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:164:2: 164 | IF(ni>0) thetaold(:,m(1:ni))=thetanew(:,m(1:ni)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:167:2: 167 | npass=npass+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:170:2: 170 | DO k=1,nvars | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:174:2: 174 | prod=nvars | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:175:2: 175 | row=k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:176:2: 176 | col=k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:177:2: 177 | ksigma=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:178:2: 178 | DO dindex=ldim,1,-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:179:2: 179 | pbar=ceiling(dble(prod)/dimen(dindex)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:180:2: 180 | prod=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:181:2: 181 | k1=ceiling(dble(col)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:182:2: 182 | k2=ceiling(dble(row)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:183:2: 183 | i1=mod(row,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:184:2: 184 | i2=mod(col,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:185:2: 185 | IF (i1==0) i1=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:186:2: 186 | IF (i2==0) i2=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:187:2: 187 | ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:188:2: 188 | row=i1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:189:2: 189 | col=i2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:190:2: 190 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:191:2: 191 | u=r(:,k)/ksigma+thetatmp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:192:2: 192 | unorm = sqrt(dot_product(u,u)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:193:3: 193 | v = unorm-al*pf(k)/ksigma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:194:2: 194 | IF(v > 0.0D0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:201:2: 201 | IF(any(d/=0.0D0)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:202:2: 202 | dif=max(dif,maxval(abs(d))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:204:2: 204 | penalty_diff = al*pf(k)*(sqrt(dot_product(thetanew(:,k),thetanew(:,k))) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:206:2: 206 | dev = dev + loss_diff + penalty_diff | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:208:3: 208 | pbar=nvars/dimen(ldim) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:209:2: 209 | j2=ceiling(dble(k)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:210:2: 210 | j1=mod(k,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:214:2: 214 | IF (ldim>2) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:215:2: 215 | tmp=reshape(spread(sigma(ldim,maxd*(j2-1)+1:maxd*(j2-1)+dimen(ldim)),dim=1,ncopies=pbar) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:216:2: 216 | *spread(sigfun(j1,ldim-1,sigma,dimen,ldim,maxd,pbar),dim=2,ncopies=dimen(ldim)),(/1,nvars/)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:218:2: 218 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:219:2: 219 | tmp=reshape(spread(sigma(2,maxd*(j2-1)+1:maxd*(j2-1)+dimen(2)),dim=1,ncopies=pbar)& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:220:2: 220 | *spread(sigma(1,maxd*(j1-1)+1:maxd*(j1-1)+dimen(1)),dim=2,ncopies=dimen(2)),(/1,nvars/)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:221:2: 221 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:222:2: 222 | ttmp=tmp(1,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:224:2: 224 | t=spread(ttmp,dim=1,ncopies=nk)*spread(d,dim=2,ncopies=nvars) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:225:2: 225 | r=r-t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:226:2: 226 | IF(mm(k)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:234:2: 234 | IF(abs((dev-dev_tmp)/dev)pmax) EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:236:30: 236 | IF(dif maxit) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:243:2: 243 | npass=npass+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:244:2: 244 | dif=0.0D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:246:2: 246 | DO j=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:251:2: 251 | prod=nvars | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:252:2: 252 | row=k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:253:2: 253 | col=k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:254:2: 254 | ksigma=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:255:2: 255 | DO dindex=ldim,1,-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:256:2: 256 | pbar=prod/dimen(dindex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:257:2: 257 | prod=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:258:2: 258 | k1=ceiling(dble(col)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:259:2: 259 | k2=ceiling(dble(row)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:260:2: 260 | i1=mod(row,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:261:2: 261 | i2=mod(col,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:262:2: 262 | IF (i1==0) i1=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:263:2: 263 | IF (i2==0) i2=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:264:2: 264 | ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:265:2: 265 | row=i1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:266:2: 266 | col=i2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:267:2: 267 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:270:2: 270 | unorm = sqrt(dot_product(u,u)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:271:3: 271 | v = unorm-al*pf(k)/ksigma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:272:2: 272 | IF(v > 0.0D0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:279:24: 279 | IF(any(d/=0.0D0)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:280:2: 280 | dif=max(dif,maxval(abs(d))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:281:2: 281 | loss_diff = sum(d*(0.5*theta_sum-r(:,k)-ksigma*thetatmp)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:282:2: 282 | penalty_diff = al*pf(k)*(sqrt(dot_product(thetanew(:,k),thetanew(:,k))) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:284:2: 284 | dev = dev + loss_diff + penalty_diff | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:285:2: 285 | pbar=nvars/dimen(ldim) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:286:2: 286 | j2=ceiling(dble(k)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:287:2: 287 | j1=mod(k,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:291:2: 291 | IF (ldim>2) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:292:2: 292 | tmp=reshape(spread(sigma(ldim,maxd*(j2-1)+1:maxd*(j2-1)+dimen(ldim)),dim=1,ncopies=pbar) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:293:2: 293 | *spread(sigfun(j1,ldim-1,sigma,dimen,ldim,maxd,pbar),dim=2,ncopies=dimen(ldim)),(/1,nvars/)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:295:2: 295 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:296:2: 296 | tmp=reshape(spread(sigma(2,maxd*(j2-1)+1:maxd*(j2-1)+dimen(2)),dim=1,ncopies=pbar)& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:297:2: 297 | *spread(sigma(1,maxd*(j1-1)+1:maxd*(j1-1)+dimen(1)),dim=2,ncopies=dimen(2)),(/1,nvars/)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:298:2: 298 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:299:2: 299 | ttmp=tmp(1,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:302:2: 302 | t=spread(ttmp,dim=1,ncopies=nk)*spread(d,dim=2,ncopies=nvars) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:303:2: 303 | r=r-t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:304:2: 304 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:305:2: 305 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:306:2: 306 | IF(abs((dev-dev_tmp)/dev) maxit) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:317:2: 317 | DO j=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:323:2: 323 | IF(vrg==1) EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:330:2: 330 | tmp1_new=0.0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:331:2: 331 | DO ii=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:332:2: 332 | DO kk=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:334:2: 334 | prod=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:335:2: 335 | DO k=1,ldim | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:336:2: 336 | prod=prod*dimen(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:337:2: 337 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:338:2: 338 | row=m(kk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:339:2: 339 | col=m(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:340:2: 340 | ksigma=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:341:2: 341 | DO dindex=ldim,1,-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:342:2: 342 | pbar=prod/dimen(dindex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:343:2: 343 | prod=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:344:2: 344 | k1=ceiling(dble(col)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:345:2: 345 | k2=ceiling(dble(row)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:346:2: 346 | i1=mod(row,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:347:2: 347 | i2=mod(col,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:348:2: 348 | IF (i1==0) i1=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:349:2: 349 | IF (i2==0) i2=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:350:2: 350 | ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:351:2: 351 | row=i1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:352:2: 352 | col=i2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:353:2: 353 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:355:2: 355 | tmp1_new=tmp1_new+thetanew(jj,m(kk))*ksigma*thetanew(jj,m(ii)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:356:2: 356 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:357:2: 357 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:363:2: 363 | DO ii=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:364:2: 364 | DO kk=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:366:2: 366 | prod=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:367:2: 367 | DO k=1,ldim | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:368:2: 368 | prod=prod*dimen(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:369:2: 369 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:370:2: 370 | row=m(kk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:371:2: 371 | col=m(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:372:2: 372 | ksigma=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:373:2: 373 | DO dindex=ldim,1,-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:374:2: 374 | pbar=prod/dimen(dindex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:375:2: 375 | prod=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:376:2: 376 | k1=ceiling(dble(col)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:377:2: 377 | k2=ceiling(dble(row)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:378:2: 378 | i1=mod(row,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:379:2: 379 | i2=mod(col,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:380:2: 380 | IF (i1==0) i1=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:381:2: 381 | IF (i2==0) i2=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:382:2: 382 | ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:383:2: 383 | row=i1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:384:2: 384 | col=i2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:385:2: 385 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:386:2: 386 | tmp1_old=tmp1_old+thetaold(jj,m(kk))*ksigma*thetaold(jj,m(ii)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:387:2: 387 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:388:2: 388 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:393:2: 393 | dev3_new = al * sum(pf(m(1:ni)) * sqrt(sum(thetanew(:,m(1:ni)) * thetanew(:,m(1:ni)), DIM = 1))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:406:2: 406 | jerr=-10000-l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:410:2: 410 | me = count(maxval(abs(theta(:,1:ni,l)),dim=1)/=0.0D0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:412:2: 412 | jerr=-20000-l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:413:2: 413 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:414:2: 414 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] catch1.f90:159:25: 159 | al=al*alf | ^ Warning: 'alf' may be used uninitialized [-Wmaybe-uninitialized] catch1.f90:91:25: 91 | DOUBLE PRECISION::alf | ^ note: 'alf' was declared here catch1.f90:415:24: 415 | obj(l) = dev_new | ^ Warning: 'dev_new' may be used uninitialized [-Wmaybe-uninitialized] catch1.f90:110:29: 110 | DOUBLE PRECISION::dev_new | ^ note: 'dev_new' was declared here gfortran-13 -fpic -g -O2 -mtune=native -Wall -pedantic -c mmsda.f90 -o mmsda.o mmsda.f90:102:2: 102 | diagsigma(i)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:103:2: 103 | DO j=1,nobs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:104:2: 104 | diagsigma(i)=diagsigma(i)+(x(j,i)-mu(y(j),i))*(x(j,i)-mu(y(j),i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:105:2: 105 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:106:2: 106 | diagsigma(i)=diagsigma(i)/(nobs-(nk+1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:107:2: 107 | diagsigma(i)=diagsigma(i)+perturb | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:144:2: 144 | DO ik=1,nk | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:145:2: 145 | tmp=0; | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:147:2: 147 | DO ivar=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:148:2: 148 | sigmatmp=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:149:2: 149 | DO isigma =1, nobs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:150:2: 150 | sigmatmp=sigmatmp+(x(isigma,m(ivar))-mu(y(isigma),m(ivar)))*(x(isigma,k)-mu(y(isigma),k)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:151:2: 151 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:152:2: 152 | sigmatmp=sigmatmp/(nobs-(nk+1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:153:2: 153 | tmp=tmp+thetanew(ik,m(ivar))*sigmatmp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:154:2: 154 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:156:2: 156 | tmp=tmp-thetanew(ik,k)*diagsigma(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:157:2: 157 | u(ik)=(r(ik,k)-tmp)/diagsigma(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:158:2: 158 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:197:47: 197 | thetatmp=thetanew(:,k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:200:2: 200 | tmp=0; | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:201:3: 201 | DO ivar=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:202:2: 202 | sigmatmp=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:203:2: 203 | DO isigma =1, nobs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:204:2: 204 | sigmatmp=sigmatmp+(x(isigma,m(ivar))-mu(y(isigma),m(ivar)))*(x(isigma,k)-mu(y(isigma),k)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:205:2: 205 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:206:2: 206 | sigmatmp=sigmatmp/(nobs-(nk+1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:207:2: 207 | tmp=tmp+thetanew(ik,m(ivar))*sigmatmp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:208:2: 208 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:209:2: 209 | tmp=tmp-thetanew(ik,k)*diagsigma(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:210:2: 210 | u(ik)=(r(ik,k)-tmp)/diagsigma(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:211:2: 211 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:223:2: 223 | loss_diff = sum(d*(0.5*theta_sum - u*diagsigma(k))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:252:2: 252 | ALLOCATE(subsigma(ni,ni)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:253:2: 253 | DO j=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:254:2: 254 | DO jj=j,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:255:2: 255 | if (j==jj) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:256:2: 256 | subsigma(j,jj)=diagsigma(m(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:257:2: 257 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:258:2: 258 | sigmatmp=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:259:2: 259 | DO isigma =1, nobs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:260:2: 260 | sigmatmp=sigmatmp+(x(isigma,m(j))-mu(y(isigma),m(j)))*(x(isigma,m(jj))-mu(y(isigma),m(jj))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:261:2: 261 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:262:2: 262 | sigmatmp=sigmatmp/(nobs-(nk+1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:263:2: 263 | subsigma(j,jj)=sigmatmp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:264:2: 264 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:265:2: 265 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:266:2: 266 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:267:2: 267 | DO j=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:268:2: 268 | DO jj=1,j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:269:2: 269 | subsigma(j,jj)=subsigma(jj,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:270:2: 270 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:271:2: 271 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:274:2: 274 | tmp1_new = dot_product(MATMUL(thetanew(jj,m(1:ni)),subsigma),thetanew(jj,m(1:ni))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:278:2: 278 | tmp1_old = dot_product(MATMUL(thetaold(jj,m(1:ni)),subsigma),thetaold(jj,m(1:ni))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:283:5: 283 | DEALLOCATE(subsigma) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:304:2: 304 | jerr=-20000-l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:305:2: 305 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:306:2: 306 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] mmsda.f90:60:34: 60 | DOUBLE PRECISION::ab(nk,nvars) | 1 Warning: Unused variable 'ab' declared at (1) [-Wunused-variable] mmsda.f90:27:40: 27 | DOUBLE PRECISION::sigma(nvars,nvars) | 1 Warning: Unused variable 'sigma' declared at (1) [-Wunused-variable] mmsda.f90:131:25: 131 | al=al*alf | ^ Warning: 'alf' may be used uninitialized [-Wmaybe-uninitialized] mmsda.f90:54:25: 54 | DOUBLE PRECISION::alf | ^ note: 'alf' was declared here mmsda.f90:307:24: 307 | obj(l) = dev_new | ^ Warning: 'dev_new' may be used uninitialized [-Wmaybe-uninitialized] mmsda.f90:71:29: 71 | DOUBLE PRECISION::dev_new | ^ note: 'dev_new' was declared here gfortran-13 -fpic -g -O2 -mtune=native -Wall -pedantic -c msda1.f90 -o msda1.o msda1.f90:235:2: 235 | jerr=-20000-l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] msda1.f90:236:2: 236 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] msda1.f90:237:2: 237 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] msda1.f90:109:25: 109 | al=al*alf | ^ Warning: 'alf' may be used uninitialized [-Wmaybe-uninitialized] msda1.f90:45:25: 45 | DOUBLE PRECISION::alf | ^ note: 'alf' was declared here msda1.f90:238:24: 238 | obj(l) = dev_new | ^ Warning: 'dev_new' may be used uninitialized [-Wmaybe-uninitialized] msda1.f90:61:29: 61 | DOUBLE PRECISION::dev_new | ^ note: 'dev_new' 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 TULIP.so TULIP_init.o catch1.o mmsda.o msda1.o -lgfortran -lm -lquadmath make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-devel/TULIP/src' make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-devel/TULIP/src' make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-devel/TULIP/src' installing to /data/gannet/ripley/R/packages/tests-devel/TULIP.Rcheck/00LOCK-TULIP/00new/TULIP/libs ** R ** data *** moving datasets to lazyload DB ** byte-compile and prepare package for lazy loading ** help *** installing help indices ** building package indices ** 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 (TULIP)