* installing *source* package ‘TensorClustering’ ...
** package ‘TensorClustering’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘Apple clang version 13.0.0 (clang-1300.0.29.30)’
using Fortran compiler: ‘GNU Fortran (GCC) 12.2.0’
using SDK: ‘MacOSX11.3.sdk’
/opt/gfortran/bin/gfortran -arch arm64  -fPIC  -Wall -g -O2  -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: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
clustertensor.f90:401:58:

  401 |             dev_old = 0.5 * dev1_old - dev2_old + dev3_old
      |                                                          ^
Warning: ‘al’ may be used uninitialized [-Wmaybe-uninitialized]
clustertensor.f90:93:24:

   93 |     DOUBLE PRECISION::al
      |                        ^
note: ‘al’ was declared here
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
clang -arch arm64 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG  -I'/Volumes/Builds/packages/big-sur-arm64/Rlib/4.3/Rcpp/include' -I/opt/R/arm64/include    -fPIC  -falign-functions=64 -Wall -g -O2  -c clustertensor_init.c -o clustertensor_init.o
clang -arch arm64 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -single_module -multiply_defined suppress -L/Library/Frameworks/R.framework/Resources/lib -L/opt/R/arm64/lib -o TensorClustering.so clustertensor.o clustertensor_init.o -L/opt/gfortran/lib/gcc/aarch64-apple-darwin20.0/12.2.0 -L/opt/gfortran/lib -lgfortran -lemutls_w -lquadmath -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation
ld: warning: could not create compact unwind for ___my_subs_MOD_sigfun: registers 27 and 28 not saved contiguously in frame
ld: warning: could not create compact unwind for _clustertensor_: registers 78 and 79 not saved contiguously in frame
installing to /Volumes/Builds/packages/big-sur-arm64/results/4.3/TensorClustering.Rcheck/00LOCK-TensorClustering/00new/TensorClustering/libs
** generating debug symbols (dSYM)
** 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
* DONE (TensorClustering)