* installing *source* package ‘TULIP’ ...
** package ‘TULIP’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
clang -mmacosx-version-min=10.13 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG   -I/usr/local/include   -fPIC  -Wall -g -O2  -c TULIP_init.c -o TULIP_init.o
gfortran -mmacosx-version-min=10.13 -fno-optimize-sibling-calls  -fPIC  -Wall -g -O2  -c  catch1.f90 -o catch1.o
catch1.f90:5:1:

  IMPLICIT NONE
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:6:1:

  INTEGER, INTENT(in)::k,upm,pbarold,maxd
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:7:1:

  INTEGER::j1,j2,nvars,pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:8:1:

  INTEGER::ldim
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:9:1:

  INTEGER::dimen(ldim)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:10:1:

  DOUBLE PRECISION::sigma(ldim,maxd**2)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:11:1:

  DOUBLE PRECISION::tmp(1,pbarold)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:12:1:

  DOUBLE PRECISION::sigcol(pbarold)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:13:1:

  nvars=pbarold
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:14:1:

  pbar=nvars/dimen(upm)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:15:1:

  j2=ceiling(dble(k)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:16:1:

  j1=mod(k,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:17:1:

  IF (j1==0) j1=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:18:1:

  IF (upm>2) THEN
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:19:1:

   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:1:

    *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:1:

   sigcol=tmp(1,:)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:22:1:

  ELSE
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:23:1:

   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:1:

    *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:1:

   sigcol=tmp(1,:)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:27:1:

  ENDIF
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:156:1:

        al=max(al,v/pf(j))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:164:1:

      IF(ni>0) thetaold(:,m(1:ni))=thetanew(:,m(1:ni))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:167:1:

   npass=npass+1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:170:1:

   DO k=1,nvars
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:174:1:

       prod=nvars
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:175:1:

       row=k
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:176:1:

       col=k
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:177:1:

       ksigma=1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:178:1:

       DO dindex=ldim,1,-1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:179:1:

    pbar=ceiling(dble(prod)/dimen(dindex))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:180:1:

    prod=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:181:1:

    k1=ceiling(dble(col)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:182:1:

    k2=ceiling(dble(row)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:183:1:

    i1=mod(row,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:184:1:

    i2=mod(col,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:185:1:

    IF (i1==0) i1=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:186:1:

    IF (i2==0) i2=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:187:1:

    ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:188:1:

    row=i1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:189:1:

    col=i2
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:190:1:

       ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:191:1:

       u=r(:,k)/ksigma+thetatmp
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:192:1:

       unorm = sqrt(dot_product(u,u))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:193:2:

        v = unorm-al*pf(k)/ksigma
  1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:194:1:

       IF(v > 0.0D0) THEN
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:201:1:

       IF(any(d/=0.0D0)) THEN
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:202:1:

    dif=max(dif,maxval(abs(d)))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:204:1:

    penalty_diff = al*pf(k)*(sqrt(dot_product(thetanew(:,k),thetanew(:,k))) &
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:206:1:

           dev = dev + loss_diff + penalty_diff
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:208:2:

     pbar=nvars/dimen(ldim)
  1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:209:1:

    j2=ceiling(dble(k)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:210:1:

    j1=mod(k,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:214:1:

    IF (ldim>2) THEN
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:215:1:

     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:1:

      *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:1:

    ELSE
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:219:1:

     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:1:

      *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:1:

    ENDIF
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:222:1:

    ttmp=tmp(1,:)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:224:1:

    t=spread(ttmp,dim=1,ncopies=nk)*spread(d,dim=2,ncopies=nvars)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:225:1:

    r=r-t
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:226:1:

    IF(mm(k)==0) THEN
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:234:1:

   IF(abs((dev-dev_tmp)/dev)<sml) EXIT
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:235:1:

   IF(ni>pmax)  EXIT
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:236:29:

                 IF(dif<eps)  EXIT
                             1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:237:1:

   IF(npass > maxit) THEN
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:243:1:

       npass=npass+1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:244:1:

       dif=0.0D0
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:246:1:

       DO j=1,ni
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:251:1:

        prod=nvars
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:252:1:

           row=k
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:253:1:

        col=k
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:254:1:

        ksigma=1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:255:1:

        DO dindex=ldim,1,-1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:256:1:

     pbar=prod/dimen(dindex)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:257:1:

     prod=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:258:1:

     k1=ceiling(dble(col)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:259:1:

     k2=ceiling(dble(row)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:260:1:

     i1=mod(row,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:261:1:

     i2=mod(col,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:262:1:

     IF (i1==0) i1=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:263:1:

     IF (i2==0) i2=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:264:1:

     ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:265:1:

     row=i1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:266:1:

     col=i2
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:267:1:

                    ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:270:1:

                  unorm = sqrt(dot_product(u,u))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:271:2:

     v = unorm-al*pf(k)/ksigma
  1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:272:1:

    IF(v > 0.0D0) THEN
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:279:23:

                        IF(any(d/=0.0D0)) THEN
                       1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:280:1:

      dif=max(dif,maxval(abs(d)))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:281:1:

      loss_diff = sum(d*(0.5*theta_sum-r(:,k)-ksigma*thetatmp))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:282:1:

      penalty_diff = al*pf(k)*(sqrt(dot_product(thetanew(:,k),thetanew(:,k))) &
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:284:1:

      dev = dev + loss_diff + penalty_diff
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:285:1:

      pbar=nvars/dimen(ldim)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:286:1:

      j2=ceiling(dble(k)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:287:1:

      j1=mod(k,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:291:1:

      IF (ldim>2) THEN
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:292:1:

     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:1:

      *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:1:

      ELSE
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:296:1:

     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:1:

      *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:1:

      ENDIF
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:299:1:

      ttmp=tmp(1,:)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:302:1:

      t=spread(ttmp,dim=1,ncopies=nk)*spread(d,dim=2,ncopies=nvars)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:303:1:

      r=r-t
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:304:1:

    ENDIF
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:305:1:

       ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:306:1:

       IF(abs((dev-dev_tmp)/dev)<sml)  EXIT
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:307:1:

       IF(dif<eps)  EXIT
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:308:1:

       IF(npass > maxit) THEN
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:317:1:

      DO j=1,ni
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:323:1:

      IF(vrg==1) EXIT
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:330:1:

   tmp1_new=0.0
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:331:1:

   DO ii=1,ni
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:332:1:

    DO kk=1,ni
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:334:1:

         prod=1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:335:1:

         DO k=1,ldim
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:336:1:

      prod=prod*dimen(k)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:337:1:

         ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:338:1:

              row=m(kk)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:339:1:

         col=m(ii)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:340:1:

         ksigma=1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:341:1:

         DO dindex=ldim,1,-1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:342:1:

      pbar=prod/dimen(dindex)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:343:1:

      prod=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:344:1:

      k1=ceiling(dble(col)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:345:1:

      k2=ceiling(dble(row)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:346:1:

      i1=mod(row,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:347:1:

      i2=mod(col,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:348:1:

      IF (i1==0) i1=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:349:1:

      IF (i2==0) i2=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:350:1:

      ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:351:1:

      row=i1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:352:1:

      col=i2
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:353:1:

         ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:355:1:

     tmp1_new=tmp1_new+thetanew(jj,m(kk))*ksigma*thetanew(jj,m(ii))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:356:1:

    ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:357:1:

   ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:363:1:

   DO ii=1,ni
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:364:1:

    DO kk=1,ni
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:366:1:

         prod=1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:367:1:

         DO k=1,ldim
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:368:1:

      prod=prod*dimen(k)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:369:1:

         ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:370:1:

              row=m(kk)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:371:1:

         col=m(ii)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:372:1:

         ksigma=1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:373:1:

         DO dindex=ldim,1,-1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:374:1:

      pbar=prod/dimen(dindex)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:375:1:

      prod=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:376:1:

      k1=ceiling(dble(col)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:377:1:

      k2=ceiling(dble(row)/pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:378:1:

      i1=mod(row,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:379:1:

      i2=mod(col,pbar)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:380:1:

      IF (i1==0) i1=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:381:1:

      IF (i2==0) i2=pbar
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:382:1:

      ksigma=ksigma*sigma(dindex,(k1-1)*maxd+k2)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:383:1:

      row=i1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:384:1:

      col=i2
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:385:1:

         ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:386:1:

     tmp1_old=tmp1_old+thetaold(jj,m(kk))*ksigma*thetaold(jj,m(ii))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:387:1:

    ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:388:1:

   ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:393:1:

      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:1:

     jerr=-10000-l
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:410:1:

  me = count(maxval(abs(theta(:,1:ni,l)),dim=1)/=0.0D0)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:412:1:

    jerr=-20000-l
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:413:1:

    EXIT
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:414:1:

   ENDIF
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:415:0:

         obj(l) = dev_new
 
Warning: ‘dev_new’ may be used uninitialized in this function [-Wmaybe-uninitialized]
catch1.f90:394:0:

             dev3_old = al * sum(pf(m(1:ni)) * sqrt(sum(thetaold(:,m(1:ni)) * thetaold(:,m(1:ni)), DIM = 1)))
 
Warning: ‘al’ may be used uninitialized in this function [-Wmaybe-uninitialized]
catch1.f90:159:0:

                 al=al*alf
 
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
gfortran -mmacosx-version-min=10.13 -fno-optimize-sibling-calls  -fPIC  -Wall -g -O2  -c  mmsda.f90 -o mmsda.o
mmsda.f90:102:1:

  diagsigma(i)=0
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:103:1:

  DO j=1,nobs
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:104:1:

   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:1:

  ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:106:1:

  diagsigma(i)=diagsigma(i)/(nobs-(nk+1))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:107:1:

  diagsigma(i)=diagsigma(i)+perturb
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:144:1:

       DO ik=1,nk
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:145:1:

        tmp=0;
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:147:1:

        DO ivar=1,ni
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:148:1:

     sigmatmp=0
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:149:1:

     DO isigma =1, nobs
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:150:1:

      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:1:

     ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:152:1:

     sigmatmp=sigmatmp/(nobs-(nk+1))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:153:1:

     tmp=tmp+thetanew(ik,m(ivar))*sigmatmp
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:154:1:

        ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:156:1:

        tmp=tmp-thetanew(ik,k)*diagsigma(k)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:157:1:

                      u(ik)=(r(ik,k)-tmp)/diagsigma(k)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:158:1:

       ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:197:47:

                         thetatmp=thetanew(:,k)
                                               1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:200:1:

        tmp=0;
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:201:2:

         DO ivar=1,ni
  1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:202:1:

     sigmatmp=0
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:203:1:

     DO isigma =1, nobs
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:204:1:

      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:1:

     ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:206:1:

     sigmatmp=sigmatmp/(nobs-(nk+1))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:207:1:

     tmp=tmp+thetanew(ik,m(ivar))*sigmatmp
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:208:1:

        ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:209:1:

        tmp=tmp-thetanew(ik,k)*diagsigma(k)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:210:1:

                      u(ik)=(r(ik,k)-tmp)/diagsigma(k)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:211:1:

           ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:223:1:

        loss_diff = sum(d*(0.5*theta_sum - u*diagsigma(k)))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:252:1:

      ALLOCATE(subsigma(ni,ni))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:253:1:

      DO j=1,ni
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:254:1:

   DO jj=j,ni
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:255:1:

    if (j==jj) THEN
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:256:1:

     subsigma(j,jj)=diagsigma(m(j))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:257:1:

    ELSE
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:258:1:

     sigmatmp=0
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:259:1:

     DO isigma =1, nobs
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:260:1:

      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:1:

     ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:262:1:

     sigmatmp=sigmatmp/(nobs-(nk+1))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:263:1:

     subsigma(j,jj)=sigmatmp
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:264:1:

    ENDIF
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:265:1:

   ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:266:1:

      ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:267:1:

      DO j=1,ni
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:268:1:

   DO jj=1,j-1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:269:1:

    subsigma(j,jj)=subsigma(jj,j)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:270:1:

   ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:271:1:

      ENDDO
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:274:1:

   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:1:

   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:4:

         DEALLOCATE(subsigma)
    1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:304:1:

    jerr=-20000-l
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:305:1:

    EXIT
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:306:1:

   ENDIF
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:60:34:

     DOUBLE PRECISION::ab(nk,nvars)
                                  1
Warning: Unused variable ‘ab’ declared at (1) [-Wunused-variable]
mmsda.f90:27:40:

     DOUBLE PRECISION::sigma(nvars,nvars)
                                        1
Warning: Unused variable ‘sigma’ declared at (1) [-Wunused-variable]
mmsda.f90:307:0:

         obj(l) = dev_new
 
Warning: ‘dev_new’ may be used uninitialized in this function [-Wmaybe-uninitialized]
mmsda.f90:286:0:

             dev3_old = al * sum(pf(m(1:ni)) * sqrt(sum(thetaold(:,m(1:ni)) * thetaold(:,m(1:ni)), DIM = 1)))
 
Warning: ‘al’ may be used uninitialized in this function [-Wmaybe-uninitialized]
mmsda.f90:131:0:

                 al=al*alf
 
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
gfortran -mmacosx-version-min=10.13 -fno-optimize-sibling-calls  -fPIC  -Wall -g -O2  -c  msda1.f90 -o msda1.o
msda1.f90:235:1:

    jerr=-20000-l
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
msda1.f90:236:1:

    EXIT
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
msda1.f90:237:1:

   ENDIF
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
msda1.f90:238:0:

         obj(l) = dev_new
 
Warning: ‘dev_new’ may be used uninitialized in this function [-Wmaybe-uninitialized]
msda1.f90:217:0:

             dev3_old = al * sum(pf(m(1:ni)) * sqrt(sum(thetaold(:,m(1:ni)) * thetaold(:,m(1:ni)), DIM = 1)))
 
Warning: ‘al’ may be used uninitialized in this function [-Wmaybe-uninitialized]
msda1.f90:109:0:

                 al=al*alf
 
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
clang -mmacosx-version-min=10.13 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -single_module -multiply_defined suppress -L/Library/Frameworks/R.framework/Resources/lib -L/usr/local/lib -o TULIP.so TULIP_init.o catch1.o mmsda.o msda1.o -L/usr/local/gfortran/lib/gcc/x86_64-apple-darwin18/8.2.0 -L/usr/local/gfortran/lib -lgfortran -lquadmath -lm -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation
installing to /Volumes/Builds/packages/high-sierra-x86_64/results/4.2/TULIP.Rcheck/00LOCK-TULIP/00new/TULIP/libs
** generating debug symbols (dSYM)
** 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)