* installing *source* package ‘catch’ ...
** package ‘catch’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘gcc-14 (GCC) 14.2.0’
using Fortran compiler: ‘GNU Fortran (GCC) 14.2.0’
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-devel/catch/src'
gfortran-14 -fpic -g -O2 -mtune=native -Wall -pedantic -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
gcc-14 -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I/usr/local/include -DC99_INLINE_SEMANTICS=0 -fpic -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -c catch_init.c -o catch_init.o
gcc-14 -shared -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -fpic -L/usr/local/gcc14/lib64 -L/usr/local/lib64 -o catch.so catch1.o catch_init.o -lgfortran -lm -lquadmath
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-devel/catch/src'
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-devel/catch/src'
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-devel/catch/src'
installing to /data/gannet/ripley/R/packages/tests-devel/catch.Rcheck/00LOCK-catch/00new/catch/libs
** 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 (catch)