* installing to library ‘/home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages’
* installing *source* package ‘TensorClustering’ ...
** package ‘TensorClustering’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘gcc-14 (Debian 14.2.0-8) 14.2.0’
using Fortran compiler: ‘GNU Fortran (Debian 14.2.0-8) 14.2.0’
make[1]: Entering directory '/home/hornik/tmp/scratch/RtmpsPWZlS/R.INSTALL28fab49576a3b/TensorClustering/src'
gfortran-14 -fpic -g -O2 -Wall -pedantic -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)<sml) EXIT
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
clustertensor.f90:240:2:
240 | IF(ni>pmax) EXIT
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
clustertensor.f90:241:30:
241 | IF(dif<eps) EXIT
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
clustertensor.f90:242:2:
242 | IF(npass > 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)<sml) EXIT
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
clustertensor.f90:312:2:
312 | IF(dif<eps) EXIT
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
clustertensor.f90:313:2:
313 | IF(npass > 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-14 -I"/home/hornik/tmp/R.check/r-patched-gcc/Work/build/include" -DNDEBUG -I'/home/hornik/tmp/R.check/r-patched-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-14 -shared -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -Wl,-O1 -o TensorClustering.so clustertensor.o clustertensor_init.o -lgfortran -lm -lquadmath -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -lR
make[1]: Leaving directory '/home/hornik/tmp/scratch/RtmpsPWZlS/R.INSTALL28fab49576a3b/TensorClustering/src'
make[1]: Entering directory '/home/hornik/tmp/scratch/RtmpsPWZlS/R.INSTALL28fab49576a3b/TensorClustering/src'
make[1]: Leaving directory '/home/hornik/tmp/scratch/RtmpsPWZlS/R.INSTALL28fab49576a3b/TensorClustering/src'
installing to /home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/00LOCK-TensorClustering/00new/TensorClustering/libs
** R
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
converting help for package ‘TensorClustering’
finding HTML links ... done
DEEM html
TEMM html
TGMM html
tune_K html
tune_lamb html
tune_u_joint html
tune_u_sep html
** 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 (TensorClustering)