* installing *source* package ‘TULIP’ ...
** this is package ‘TULIP’ version ‘1.0.2’
** package ‘TULIP’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘Apple clang version 14.0.0 (clang-1400.0.29.202)’
using Fortran compiler: ‘GNU Fortran (GCC) 14.2.0’
using SDK: ‘MacOSX11.3.sdk’
clang -arch arm64 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I/opt/R/arm64/include -fPIC -falign-functions=64 -Wall -g -O2 -c TULIP_init.c -o TULIP_init.o
/opt/gfortran/bin/gfortran -arch arm64 -fPIC -Wall -g -O2 -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
/opt/gfortran/bin/gfortran -arch arm64 -fPIC -Wall -g -O2 -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
/opt/gfortran/bin/gfortran -arch arm64 -fPIC -Wall -g -O2 -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
clang -arch arm64 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -L/Library/Frameworks/R.framework/Resources/lib -L/opt/R/arm64/lib -o TULIP.so TULIP_init.o catch1.o mmsda.o msda1.o -L/opt/gfortran/lib/gcc/aarch64-apple-darwin20.0/14.2.0 -L/opt/gfortran/lib -lemutls_w -lheapt_w -lgfortran -lquadmath -F/Library/Frameworks/R.framework/.. -framework R
ld: warning: could not create compact unwind for _mmsda_: does not use standard frame
ld: warning: could not create compact unwind for _msda1_: does not use standard frame
ld: warning: could not create compact unwind for ___my_subs_MOD_sigfun: does not use standard frame
ld: warning: could not create compact unwind for _catch1_: does not use standard frame
ld: warning: could not create compact unwind for ___emutls_get_address: does not use standard frame
ld: warning: could not create compact unwind for _allocate_tramp_ctrl: does not use standard frame
ld: warning: could not create compact unwind for ___gcc_nested_func_ptr_created: does not use standard frame
ld: warning: could not create compact unwind for ___gcc_nested_func_ptr_deleted: does not use standard frame
installing to /Volumes/Builds/packages/big-sur-arm64/results/4.5/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)