* installing to library ‘/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages’ * installing *source* package ‘TensorClustering’ ... ** package ‘TensorClustering’ 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/Rtmp711SO5/R.INSTALL1a637b70d662da/TensorClustering/src' gfortran-13 -fpic -g -O2 -Wall -mtune=native -c clustertensor.f90 -o clustertensor.o clustertensor.f90:5:2: 5 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:6:2: 6 | INTEGER, INTENT(in)::k,upm,pbarold,maxd | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:7:2: 7 | INTEGER::i,j1,j2,nvars,pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:8:2: 8 | INTEGER::ldim | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:9:2: 9 | INTEGER::dimen(ldim) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:12:2: 12 | DOUBLE PRECISION::sigcol(pbarold) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:13:2: 13 | nvars=pbarold | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:14:2: 14 | pbar=nvars/dimen(upm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:15:2: 15 | j2=ceiling(dble(k)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:16:2: 16 | j1=mod(k,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:17:2: 17 | IF (j1==0) j1=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:18:2: 18 | IF (upm>2) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.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] clustertensor.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] clustertensor.f90:21:2: 21 | sigcol=tmp(1,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:22:2: 22 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.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] clustertensor.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] clustertensor.f90:26:2: 26 | sigcol=tmp(1,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:27:2: 27 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:161:2: 161 | al=max(al,v/pf(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:169:2: 169 | IF(ni>0) thetaold(:,m(1:ni))=thetanew(:,m(1:ni)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:172:2: 172 | npass=npass+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:175:2: 175 | DO k=1,nvars | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:179:2: 179 | prod=nvars | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:180:2: 180 | row=k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:181:2: 181 | col=k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:182:2: 182 | ksigma=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:183:2: 183 | DO dindex=ldim,1,-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:184:2: 184 | pbar=dble(prod)/dimen(dindex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:185:2: 185 | prod=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:186:2: 186 | k1=ceiling(dble(col)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:187:2: 187 | k2=ceiling(dble(row)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:188:2: 188 | i1=mod(row,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:189:2: 189 | i2=mod(col,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:190:2: 190 | IF (i1==0) i1=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:191:2: 191 | IF (i2==0) i2=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:192:2: 192 | ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:193:2: 193 | row=i1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:194:2: 194 | col=i2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:195:2: 195 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:196:2: 196 | u=r(:,k)/ksigma+thetatmp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:197:2: 197 | unorm = sqrt(dot_product(u,u)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:198:3: 198 | v = unorm-al*pf(k)/ksigma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:199:2: 199 | IF(v > 0.0D0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:206:2: 206 | IF(any(d/=0.0D0)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:207:2: 207 | dif=max(dif,maxval(abs(d))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:209:2: 209 | penalty_diff = al*pf(k)*(sqrt(dot_product(thetanew(:,k),thetanew(:,k))) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:211:2: 211 | dev = dev + loss_diff + penalty_diff | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:213:3: 213 | pbar=nvars/dimen(ldim) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:214:2: 214 | j2=ceiling(dble(k)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:215:2: 215 | j1=mod(k,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:219:2: 219 | IF (ldim>2) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:220:2: 220 | 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] clustertensor.f90:221:2: 221 | *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] clustertensor.f90:223:2: 223 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:224:2: 224 | 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] clustertensor.f90:225:2: 225 | *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] clustertensor.f90:226:2: 226 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:227:2: 227 | ttmp=tmp(1,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:229:2: 229 | t=spread(ttmp,dim=1,ncopies=nk)*spread(d,dim=2,ncopies=nvars) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:230:2: 230 | r=r-t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:231:2: 231 | IF(mm(k)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:239:2: 239 | IF(abs((dev-dev_tmp)/dev)pmax) EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:241:30: 241 | IF(dif maxit) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:248:2: 248 | npass=npass+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:249:2: 249 | dif=0.0D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:251:2: 251 | DO j=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:256:2: 256 | prod=nvars | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:257:2: 257 | row=k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:258:2: 258 | col=k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:259:2: 259 | ksigma=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:260:2: 260 | DO dindex=ldim,1,-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:261:2: 261 | pbar=prod/dimen(dindex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:262:2: 262 | prod=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:263:2: 263 | k1=ceiling(dble(col)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:264:2: 264 | k2=ceiling(dble(row)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:265:2: 265 | i1=mod(row,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:266:2: 266 | i2=mod(col,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:267:2: 267 | IF (i1==0) i1=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:268:2: 268 | IF (i2==0) i2=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:269:2: 269 | ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:270:2: 270 | row=i1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:271:2: 271 | col=i2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:272:2: 272 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:275:2: 275 | unorm = sqrt(dot_product(u,u)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:276:3: 276 | v = unorm-al*pf(k)/ksigma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:277:2: 277 | IF(v > 0.0D0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:284:24: 284 | IF(any(d/=0.0D0)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:285:2: 285 | dif=max(dif,maxval(abs(d))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:286:2: 286 | loss_diff = sum(d*(0.5*theta_sum-r(:,k)-ksigma*thetatmp)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:287:2: 287 | penalty_diff = al*pf(k)*(sqrt(dot_product(thetanew(:,k),thetanew(:,k))) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:289:2: 289 | dev = dev + loss_diff + penalty_diff | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:290:2: 290 | pbar=nvars/dimen(ldim) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:291:2: 291 | j2=ceiling(dble(k)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:292:2: 292 | j1=mod(k,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:296:2: 296 | IF (ldim>2) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:297:2: 297 | 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] clustertensor.f90:298:2: 298 | *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] clustertensor.f90:300:2: 300 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:301:2: 301 | 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] clustertensor.f90:302:2: 302 | *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] clustertensor.f90:303:2: 303 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:304:2: 304 | ttmp=tmp(1,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:307:2: 307 | t=spread(ttmp,dim=1,ncopies=nk)*spread(d,dim=2,ncopies=nvars) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:308:2: 308 | r=r-t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:309:2: 309 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:310:2: 310 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:311:2: 311 | IF(abs((dev-dev_tmp)/dev) maxit) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:322:2: 322 | DO j=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:328:2: 328 | IF(vrg==1) EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:335:2: 335 | tmp1_new=0.0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:336:2: 336 | DO ii=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:337:2: 337 | DO kk=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:339:2: 339 | prod=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:340:2: 340 | DO k=1,ldim | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:341:2: 341 | prod=prod*dimen(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:342:2: 342 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:343:2: 343 | row=m(kk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:344:2: 344 | col=m(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:345:2: 345 | ksigma=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:346:2: 346 | DO dindex=ldim,1,-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:347:2: 347 | pbar=prod/dimen(dindex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:348:2: 348 | prod=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:349:2: 349 | k1=ceiling(dble(col)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:350:2: 350 | k2=ceiling(dble(row)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:351:2: 351 | i1=mod(row,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:352:2: 352 | i2=mod(col,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:353:2: 353 | IF (i1==0) i1=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:354:2: 354 | IF (i2==0) i2=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:355:2: 355 | ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:356:2: 356 | row=i1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:357:2: 357 | col=i2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:358:2: 358 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:360:2: 360 | tmp1_new=tmp1_new+thetanew(jj,m(kk))*ksigma*thetanew(jj,m(ii)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:361:2: 361 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:362:2: 362 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:368:2: 368 | DO ii=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:369:2: 369 | DO kk=1,ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:371:2: 371 | prod=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:372:2: 372 | DO k=1,ldim | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:373:2: 373 | prod=prod*dimen(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:374:2: 374 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:375:2: 375 | row=m(kk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:376:2: 376 | col=m(ii) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:377:2: 377 | ksigma=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:378:2: 378 | DO dindex=ldim,1,-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:379:2: 379 | pbar=prod/dimen(dindex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:380:2: 380 | prod=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:381:2: 381 | k1=ceiling(dble(col)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:382:2: 382 | k2=ceiling(dble(row)/pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:383:2: 383 | i1=mod(row,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:384:2: 384 | i2=mod(col,pbar) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:385:2: 385 | IF (i1==0) i1=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:386:2: 386 | IF (i2==0) i2=pbar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:387:2: 387 | ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:388:2: 388 | row=i1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:389:2: 389 | col=i2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:390:2: 390 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:391:2: 391 | tmp1_old=tmp1_old+thetaold(jj,m(kk))*ksigma*thetaold(jj,m(ii)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:392:2: 392 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:393:2: 393 | ENDDO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:398:2: 398 | 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] clustertensor.f90:411:2: 411 | jerr=-10000-l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:415:2: 415 | me = count(maxval(abs(theta(:,1:ni,l)),dim=1)/=0.0D0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:417:2: 417 | jerr=-20000-l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:418:2: 418 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:419:2: 419 | ENDIF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] clustertensor.f90:184:8: 184 | pbar=dble(prod)/dimen(dindex) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] clustertensor.f90:7:11: 7 | INTEGER::i,j1,j2,nvars,pbar | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] clustertensor.f90:103:34: 103 | DOUBLE PRECISION::ab(nk,nvars) | 1 Warning: Unused variable ‘ab’ declared at (1) [-Wunused-variable] clustertensor.f90:87:14: 87 | INTEGER::i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] clustertensor.f90:43:14: 43 | INTEGER::p | 1 Warning: Unused variable ‘p’ declared at (1) [-Wunused-variable] clustertensor.f90:44:14: 44 | INTEGER::q | 1 Warning: Unused variable ‘q’ declared at (1) [-Wunused-variable] clustertensor.f90:164:25: 164 | al=al*alf | ^ Warning: ‘alf’ may be used uninitialized [-Wmaybe-uninitialized] clustertensor.f90:94:25: 94 | DOUBLE PRECISION::alf | ^ note: ‘alf’ was declared here clustertensor.f90:420:24: 420 | obj(l) = dev_new | ^ Warning: ‘dev_new’ may be used uninitialized [-Wmaybe-uninitialized] clustertensor.f90:114:29: 114 | DOUBLE PRECISION::dev_new | ^ note: ‘dev_new’ was declared here gcc-13 -I"/home/hornik/tmp/R.check/r-devel-gcc/Work/build/include" -DNDEBUG -I'/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/Rcpp/include' -I/usr/local/include -D_FORTIFY_SOURCE=3 -fpic -g -O2 -Wall -Wstrict-prototypes -pedantic -mtune=native -c clustertensor_init.c -o clustertensor_init.o gcc-13 -shared -L/home/hornik/tmp/R.check/r-devel-gcc/Work/build/lib -Wl,-O1 -o TensorClustering.so clustertensor.o clustertensor_init.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/Rtmp711SO5/R.INSTALL1a637b70d662da/TensorClustering/src' make[1]: Entering directory '/home/hornik/tmp/scratch/Rtmp711SO5/R.INSTALL1a637b70d662da/TensorClustering/src' make[1]: Leaving directory '/home/hornik/tmp/scratch/Rtmp711SO5/R.INSTALL1a637b70d662da/TensorClustering/src' installing to /home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/00LOCK-TensorClustering/00new/TensorClustering/libs ** R ** 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 * creating tarball packaged installation of ‘TensorClustering’ as ‘TensorClustering_1.0.2_R_x86_64-pc-linux-gnu.tar.gz’ * DONE (TensorClustering)