* installing to library ‘/home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages’
* installing *source* package ‘TULIP’ ...
** package ‘TULIP’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘gcc-14 (Debian 14.2.0-16) 14.2.0’
using Fortran compiler: ‘GNU Fortran (Debian 14.2.0-16) 14.2.0’
make[1]: Entering directory '/home/hornik/tmp/scratch/RtmpdTqFmG/R.INSTALL3c006b4025d9fd/TULIP/src'
gcc-14 -I"/home/hornik/tmp/R.check/r-patched-gcc/Work/build/include" -DNDEBUG -I/usr/local/include -D_FORTIFY_SOURCE=3 -fpic -g -O2 -Wall -Wstrict-prototypes -pedantic -mtune=native -c TULIP_init.c -o TULIP_init.o
gfortran-14 -fpic -g -O2 -Wall -pedantic -mtune=native -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]
catch1.f90:159:25:
159 | al=al*alf
| ^
Warning: ‘alf’ may be used uninitialized [-Wmaybe-uninitialized]
catch1.f90:91:25:
91 | DOUBLE PRECISION::alf
| ^
note: ‘alf’ was declared here
catch1.f90:415:24:
415 | obj(l) = dev_new
| ^
Warning: ‘dev_new’ may be used uninitialized [-Wmaybe-uninitialized]
catch1.f90:110:29:
110 | DOUBLE PRECISION::dev_new
| ^
note: ‘dev_new’ was declared here
gfortran-14 -fpic -g -O2 -Wall -pedantic -mtune=native -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]
mmsda.f90:60:34:
60 | DOUBLE PRECISION::ab(nk,nvars)
| 1
Warning: Unused variable ‘ab’ declared at (1) [-Wunused-variable]
mmsda.f90:27:40:
27 | DOUBLE PRECISION::sigma(nvars,nvars)
| 1
Warning: Unused variable ‘sigma’ declared at (1) [-Wunused-variable]
mmsda.f90:131:25:
131 | al=al*alf
| ^
Warning: ‘alf’ may be used uninitialized [-Wmaybe-uninitialized]
mmsda.f90:54:25:
54 | DOUBLE PRECISION::alf
| ^
note: ‘alf’ was declared here
mmsda.f90:307:24:
307 | obj(l) = dev_new
| ^
Warning: ‘dev_new’ may be used uninitialized [-Wmaybe-uninitialized]
mmsda.f90:71:29:
71 | DOUBLE PRECISION::dev_new
| ^
note: ‘dev_new’ was declared here
gfortran-14 -fpic -g -O2 -Wall -pedantic -mtune=native -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]
msda1.f90:109:25:
109 | al=al*alf
| ^
Warning: ‘alf’ may be used uninitialized [-Wmaybe-uninitialized]
msda1.f90:45:25:
45 | DOUBLE PRECISION::alf
| ^
note: ‘alf’ was declared here
msda1.f90:238:24:
238 | obj(l) = dev_new
| ^
Warning: ‘dev_new’ may be used uninitialized [-Wmaybe-uninitialized]
msda1.f90:61:29:
61 | DOUBLE PRECISION::dev_new
| ^
note: ‘dev_new’ was declared here
gcc-14 -shared -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -Wl,-O1 -o TULIP.so TULIP_init.o catch1.o mmsda.o msda1.o -lgfortran -lm -lquadmath -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -lR
make[1]: Leaving directory '/home/hornik/tmp/scratch/RtmpdTqFmG/R.INSTALL3c006b4025d9fd/TULIP/src'
make[1]: Entering directory '/home/hornik/tmp/scratch/RtmpdTqFmG/R.INSTALL3c006b4025d9fd/TULIP/src'
make[1]: Leaving directory '/home/hornik/tmp/scratch/RtmpdTqFmG/R.INSTALL3c006b4025d9fd/TULIP/src'
installing to /home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/00LOCK-TULIP/00new/TULIP/libs
** R
** data
*** moving datasets to lazyload DB
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
converting help for package ‘TULIP’
finding HTML links ... done
GDS1615 html
ROAD html
SOS html
SeSDA html
adjten html
adjvec html
catch html
catch_matrix html
csa html
cv.SeSDA html
cv.dsda html
cv.msda html
cvcatch html
dsda html
dsda.all html
getnorm html
msda html
predict.SeSDA html
predict.catch html
predict.dsda html
predict.msda html
sim.bi.vector html
sim.tensor.cov html
** building package indices
** testing if installed package can be loaded from temporary location
** checking absolute paths in shared objects and dynamic libraries
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (TULIP)