* installing *source* package 'TULIP' ...
** package 'TULIP' successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: 'gcc.exe (GCC) 13.2.0'
using Fortran compiler: 'GNU Fortran (GCC) 13.2.0'
make[1]: Entering directory '/d/temp/RtmpO8cGXs/R.INSTALL269883c8fb93/TULIP/src'
gcc  -I"D:/RCompile/recent/R/include" -DNDEBUG     -I"d:/rtools44/x86_64-w64-mingw32.static.posix/include"     -pedantic -Wstrict-prototypes -O2 -Wall  -mfpmath=sse -msse2 -mstackrealign  -c TULIP_init.c -o TULIP_init.o
gfortran      -pedantic -O2  -mfpmath=sse -msse2 -mstackrealign  -c  catch1.f90 -o catch1.o
catch1.f90:5:2:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   19 |                 tmp=reshape(spread(sigma(upm,maxd*(j2-1)+1:maxd*(j2-1)+dimen(upm)),dim=1,ncopies=pbar) &
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:20:2:

   20 |                         *spread(sigfun(j1,upm-1,sigma,dimen,ldim,maxd,pbar),dim=2,ncopies=dimen(upm)),(/1,nvars/))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:21:2:

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

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

   23 |                 tmp=reshape(spread(sigma(upm,maxd*(j2-1)+1:maxd*(j2-1)+dimen(upm)),dim=1,ncopies=pbar) &
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:24:2:

   24 |                         *spread(sigma(1,maxd*(j1-1)+1:maxd*(j1-1)+dimen(1)),dim=2,ncopies=dimen(upm)),(/1,nvars/))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:26:2:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  215 |                                 tmp=reshape(spread(sigma(ldim,maxd*(j2-1)+1:maxd*(j2-1)+dimen(ldim)),dim=1,ncopies=pbar) &
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:216:2:

  216 |                                         *spread(sigfun(j1,ldim-1,sigma,dimen,ldim,maxd,pbar),dim=2,ncopies=dimen(ldim)),(/1,nvars/))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:218:2:

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

  219 |                                 tmp=reshape(spread(sigma(2,maxd*(j2-1)+1:maxd*(j2-1)+dimen(2)),dim=1,ncopies=pbar)&
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:220:2:

  220 |                                         *spread(sigma(1,maxd*(j1-1)+1:maxd*(j1-1)+dimen(1)),dim=2,ncopies=dimen(2)),(/1,nvars/))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:221:2:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  292 |                                 tmp=reshape(spread(sigma(ldim,maxd*(j2-1)+1:maxd*(j2-1)+dimen(ldim)),dim=1,ncopies=pbar) &
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:293:2:

  293 |                                         *spread(sigfun(j1,ldim-1,sigma,dimen,ldim,maxd,pbar),dim=2,ncopies=dimen(ldim)),(/1,nvars/))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:295:2:

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

  296 |                                 tmp=reshape(spread(sigma(2,maxd*(j2-1)+1:maxd*(j2-1)+dimen(2)),dim=1,ncopies=pbar)&
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:297:2:

  297 |                                         *spread(sigma(1,maxd*(j1-1)+1:maxd*(j1-1)+dimen(1)),dim=2,ncopies=dimen(2)),(/1,nvars/))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:298:2:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  393 |             dev3_new = al * sum(pf(m(1:ni)) * sqrt(sum(thetanew(:,m(1:ni)) * thetanew(:,m(1:ni)), DIM = 1)))
      |         1
Warning: Nonconforming tab character at (1) [-Wtabs]
catch1.f90:406:2:

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

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

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

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

  414 |                 ENDIF
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
gfortran      -pedantic -O2  -mfpmath=sse -msse2 -mstackrealign  -c  mmsda.f90 -o mmsda.o
mmsda.f90:102:2:

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

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

  104 |                 diagsigma(i)=diagsigma(i)+(x(j,i)-mu(y(j),i))*(x(j,i)-mu(y(j),i))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:105:2:

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

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

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

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

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

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

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

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

  150 |                                         sigmatmp=sigmatmp+(x(isigma,m(ivar))-mu(y(isigma),m(ivar)))*(x(isigma,k)-mu(y(isigma),k))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:151:2:

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

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

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

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

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

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

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

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

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

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

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

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

  204 |                                         sigmatmp=sigmatmp+(x(isigma,m(ivar))-mu(y(isigma),m(ivar)))*(x(isigma,k)-mu(y(isigma),k))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:205:2:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  260 |                                         sigmatmp=sigmatmp+(x(isigma,m(j))-mu(y(isigma),m(j)))*(x(isigma,m(jj))-mu(y(isigma),m(jj)))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:261:2:

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

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

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

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

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

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

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

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

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

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

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

  274 |                 tmp1_new = dot_product(MATMUL(thetanew(jj,m(1:ni)),subsigma),thetanew(jj,m(1:ni)))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:278:2:

  278 |                 tmp1_old = dot_product(MATMUL(thetaold(jj,m(1:ni)),subsigma),thetaold(jj,m(1:ni)))
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
mmsda.f90:283:5:

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

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

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

  306 |                 ENDIF
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
gfortran      -pedantic -O2  -mfpmath=sse -msse2 -mstackrealign  -c  msda1.f90 -o msda1.o
msda1.f90:235:2:

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

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

  237 |                 ENDIF
      |         1       
Warning: Nonconforming tab character at (1) [-Wtabs]
gcc -shared -s -static-libgcc -o TULIP.dll tmp.def TULIP_init.o catch1.o mmsda.o msda1.o -Ld:/rtools44/x86_64-w64-mingw32.static.posix/lib/x64 -Ld:/rtools44/x86_64-w64-mingw32.static.posix/lib -lgfortran -lm -lquadmath -LD:/RCompile/recent/R/bin/x64 -lR
make[1]: Leaving directory '/d/temp/RtmpO8cGXs/R.INSTALL269883c8fb93/TULIP/src'
make[1]: Entering directory '/d/temp/RtmpO8cGXs/R.INSTALL269883c8fb93/TULIP/src'
make[1]: Leaving directory '/d/temp/RtmpO8cGXs/R.INSTALL269883c8fb93/TULIP/src'
installing to d:/Rcompile/CRANpkg/lib/4.5/00LOCK-TULIP/00new/TULIP/libs/x64
** 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
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* MD5 sums
packaged installation of 'TULIP' as TULIP_1.0.2.zip
* DONE (TULIP)