* installing to library ‘/home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages’
* installing *source* package ‘sglasso’ ...
** package ‘sglasso’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘gcc-14 (Debian 14.2.0-8) 14.2.0’
using Fortran compiler: ‘GNU Fortran (Debian 14.2.0-8) 14.2.0’
make[1]: Entering directory '/home/hornik/tmp/scratch/RtmptyWB9O/R.INSTALLfcb5f97fb0d8/sglasso/src'
gfortran-14 -fpic -g -O2 -Wall -pedantic -mtune=native -c gdf_fun.f90 -o gdf_fun.o
gdf_fun.f90:2:2:
2 | integer ::n,p,nrho,info
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:3:2:
3 | double precision :: X(n,p),S(p,p),Kh(p,p,nrho),gdf(nrho)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:5:2:
5 | integer :: i,j,ii,jj,k,nr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:6:2:
6 | logical :: A(p,p,nrho)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:7:2:
7 | double precision :: Sk(p,p,n),S_Sk(p,p,n),gdf_partial,Sh(p,p)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:8:2:
8 | do nr = 1, nrho
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:9:2:
9 | do j = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:10:2:
10 | do i = 1, j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:11:2:
11 | if(abs(Kh(i,j,nr)).ne.0.) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:12:2:
12 | A(i,j,nr) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:13:2:
13 | A(j,i,nr) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:14:2:
14 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:15:2:
15 | A(i,j,nr) = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:16:2:
16 | A(j,i,nr) = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:17:2:
17 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:18:2:
18 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:19:2:
19 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:20:2:
20 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:21:2:
21 | do k = 1, n
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:22:2:
22 | do j = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:23:2:
23 | do i = 1, j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:24:2:
24 | if(any(A(i,j,:))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:25:2:
25 | Sk(i,j,k) = X(k,i) * X(k,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:26:2:
26 | S_Sk(i,j,k) = S(i,j) - Sk(i,j,k)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:27:2:
27 | Sk(j,i,k) = Sk(i,j,k)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:28:2:
28 | S_Sk(j,i,k) = S_Sk(i,j,k)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:29:2:
29 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:30:2:
30 | Sk(i,j,k) = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:31:2:
31 | S_Sk(i,j,k) = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:32:2:
32 | Sk(j,i,k) = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:33:2:
33 | S_Sk(j,i,k) = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:34:2:
34 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:35:2:
35 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:36:2:
36 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:37:2:
37 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:38:2:
38 | do nr = 1, nrho
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:39:2:
39 | gdf(nr) = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:40:2:
40 | Sh = Kh(:,:,nr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:41:2:
41 | call dpotrf('U',p,Sh,p,info)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:42:2:
42 | if(info.ne.0) return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:43:2:
43 | call dpotri('U',p,Sh,p,info)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:44:2:
44 | if(info.ne.0) return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:45:2:
45 | do j = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:46:2:
46 | do i = 1, j - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:47:2:
47 | Sh(j,i) = Sh(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:48:2:
48 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:49:2:
49 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:50:2:
50 | do k = 1, n
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:51:2:
51 | do j = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:52:2:
52 | do i = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:53:2:
53 | if(A(i,j,nr)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:54:2:
54 | gdf_partial = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:55:2:
55 | do jj = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:56:2:
56 | do ii = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:57:2:
57 | if(A(ii,jj,nr)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:58:2:
58 | gdf_partial = gdf_partial + Kh(i,jj,nr) * S_Sk(jj,ii,k) * Kh(ii,j,nr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:59:2:
59 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:60:2:
60 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:61:2:
61 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:62:2:
62 | gdf(nr) = gdf(nr) + (Sh(i,j) - Sk(i,j,k)) * gdf_partial
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:63:2:
63 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:64:2:
64 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:65:2:
65 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:66:2:
66 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:67:2:
67 | gdf(nr) = gdf(nr) / (n - 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gdf_fun.f90:68:2:
68 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
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 init.c -o init.o
gfortran-14 -fpic -g -O2 -Wall -pedantic -mtune=native -c sglasso_ccd_path.f90 -o sglasso_ccd_path.o
sglasso_ccd_path.f90:13:2:
13 | rho,nrho,min_rho,grd,th,w,pnl_flg,n,conv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:14:2:
14 | integer :: nSv,nTv,Tv_pkg(nTv),Tv_rw(nTv),nv,Tv_ptr(nv+1),nTe,Te(nTe),nTe_ptr,Te_ptr(nTe_ptr),ne, &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:15:2:
15 | Te_scn(ne+1),Te_ptr_scn(ne+1),nstep,nrho,pnl_flg(ne),n,conv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:16:2:
16 | double precision :: Sv(nSv),trnc,tol,rho(nrho),min_rho,grd(nv+ne,nrho),th(nv+ne,nrho),w(ne)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:18:2:
18 | logical :: A(ne),flg
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:19:2:
19 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:20:2:
20 | Te_cl_ptr(ne+1),Te_cl_sz(ne),Te_cl(ne*(Tv_ptr(nv+1)-1)),nr,df,max_df
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:21:2:
21 | double precision :: Svh(nSv),tr_SvTv(nv),tr_SvTe(ne),max_rho,Du,oth(nv+ne),ath(nv+ne), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:22:2:
22 | dth,tr_SvhTeSvhTe,tr_SvhTvSvhTv,th_diff,Du_sgn,cf,arho,agrd(nv+ne)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:24:2:
24 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:25:5:
25 | if (pnl_flg(i).eq.0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:26:2:
26 | A(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:28:2:
28 | A(i) = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:29:2:
29 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:30:2:
30 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:31:2:
31 | Svh = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:32:2:
32 | ath = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:33:2:
33 | oth = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:34:2:
34 | agrd = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:35:2:
35 | p = Tv_ptr(nv + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:36:2:
36 | df = nv + ne - sum(pnl_flg)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:37:2:
37 | max_df = nv + ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:39:2:
39 | k = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:40:2:
40 | Te_cl_ptr(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:41:2:
41 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:42:2:
42 | Te_scn_sz(i) = Te_scn(i + 1) - Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:43:2:
43 | j = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:44:2:
44 | do h = Te_ptr_scn(i), Te_ptr_scn(i + 1) - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:45:2:
45 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:46:2:
46 | if(Te_ptr(h).ne.Te_ptr(h + 1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:47:2:
47 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:48:2:
48 | Te_cl(k) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:49:2:
49 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:50:2:
50 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:51:2:
51 | Te_cl_ptr(i + 1) = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:52:2:
52 | Te_cl_sz(i) = Te_cl_ptr(i + 1) - Te_cl_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:53:2:
53 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:55:2:
55 | do i = 1, nv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:56:2:
56 | i0 = Tv_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:57:2:
57 | i1 = Tv_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:58:2:
58 | tr_SvTv(i) = sum(Sv(Tv_pkg(i0:i1)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:59:2:
59 | ath(i) = (i1 - i0 + 1)/tr_SvTv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:60:2:
60 | Svh(Tv_pkg(i0:i1)) = 1/ath(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:61:2:
61 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:63:2:
63 | max_rho = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:64:2:
64 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:65:2:
65 | i0 = Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:66:2:
66 | i1 = Te_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:67:2:
67 | j0 = Te_ptr_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:68:2:
68 | j1 = Te_ptr_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:69:2:
69 | call trSTe(nSv,Sv,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1),tr_SvTe(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:70:2:
70 | Du = - tr_SvTe(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:71:2:
71 | agrd(nv + i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:72:2:
72 | if(pnl_flg(i).eq.1) max_rho = max(max_rho,abs(Du) / w(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:73:2:
73 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:75:2:
75 | if(min_rho.gt.max_rho) return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:77:2:
77 | rho(1) = max_rho
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:78:2:
78 | cf = dexp((dlog(min_rho) - dlog(max_rho)) / (nrho - 1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:79:2:
79 | do i = 2, nrho
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:80:2:
80 | rho(i) = rho(i - 1) * cf
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:81:2:
81 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:83:2:
83 | n = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:84:2:
84 | do nr = 1, nrho
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:86:2:
86 | arho = rho(nr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:87:2:
87 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:88:2:
88 | if(.not.A(i).and.pnl_flg(i).eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:89:2:
89 | if(abs(agrd(nv + i))/w(i).gt.arho) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:90:2:
90 | A(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:91:2:
91 | df = df + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:92:2:
92 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:93:2:
93 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:94:2:
94 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:96:2:
96 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:97:2:
97 | oth(1:nv) = ath(1:nv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:98:2:
98 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:99:2:
99 | if(A(i)) oth(nv + i) = ath(nv + i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:100:2:
100 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:102:2:
102 | if(df.gt.nv) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:103:2:
103 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:104:2:
104 | if(A(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:105:17:
105 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:107:20:
107 | if(nr.eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:108:23:
108 | nrho = nr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:110:23:
110 | nrho = nr - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:114:2:
114 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:115:2:
115 | i0 = Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:116:2:
116 | i1 = Te_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:117:2:
117 | j0 = Te_ptr_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:118:2:
118 | j1 = Te_ptr_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:119:2:
119 | h0 = Te_cl_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:120:2:
120 | h1 = Te_cl_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:121:2:
121 | call trSTe(nSv,Svh,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1),Du)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:122:2:
122 | Du = Du - tr_SvTe(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:123:2:
123 | agrd(nv + i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:124:5:
124 | if(pnl_flg(i).eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:125:5:
125 | Du_sgn = dsign(dble(1),Du)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:126:2:
126 | Du = Du - arho * Du_sgn * w(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:127:2:
127 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:128:2:
128 | call trSTeSTe(nSv,Svh,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:129:2:
129 | Te_cl_sz(i),Te_cl(h0:h1),tr_SvhTeSvhTe)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:130:2:
130 | dth = Du / tr_SvhTeSvhTe
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:131:2:
131 | if(dth.ne.dth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:132:2:
132 | conv = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:133:2:
133 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:134:2:
134 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:135:2:
135 | ath(nv + i) = ath(nv + i) + dth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:136:2:
136 | call updateSvh_e(p,nSv,Svh,dth,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:137:2:
137 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:138:2:
138 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:139:2:
139 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:141:2:
141 | do i = 1, nv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:142:2:
142 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:143:2:
143 | if(n.ge.nstep) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:144:2:
144 | if(nr.eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:145:2:
145 | nrho = nr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:146:2:
146 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:147:2:
147 | nrho = nr - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:148:2:
148 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:149:2:
149 | conv = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:150:2:
150 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:151:2:
151 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:152:2:
152 | i0 = Tv_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:153:2:
153 | i1 = Tv_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:154:2:
154 | Du = sum(Svh(Tv_pkg(i0:i1))) - tr_SvTv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:155:2:
155 | agrd(i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:156:2:
156 | tr_SvhTvSvhTv = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:157:2:
157 | do h = i0 + 1, i1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:158:2:
158 | do k = i0, h - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:159:2:
159 | tr_SvhTvSvhTv = tr_SvhTvSvhTv + Svh(int(Tv_rw(k) + Tv_rw(h) * (Tv_rw(h) - 1) / 2))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:160:2:
160 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:161:2:
161 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:162:2:
162 | tr_SvhTvSvhTv = 2 * tr_SvhTvSvhTv + sum(Svh(Tv_pkg(i0:i1))**2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:163:2:
163 | dth = Du / tr_SvhTvSvhTv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:164:2:
164 | if(dth.ne.dth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:165:2:
165 | conv = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:166:2:
166 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:167:2:
167 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:168:2:
168 | ath(i) = ath(i) + dth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:169:2:
169 | call updateSvh_v(p,nSv,Svh,dth,Tv_ptr(i+1)-Tv_ptr(i),Tv_pkg(i0:i1),Tv_rw(i0:i1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:170:2:
170 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:172:2:
172 | th_diff = sum(abs(ath(1:nv) - oth(1:nv)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:173:2:
173 | if(th_diff/df.lt.tol) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:174:2:
174 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:175:2:
175 | if(A(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:176:2:
176 | th_diff = th_diff + abs(ath(nv + i) - oth(nv + i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:177:2:
177 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:178:2:
178 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:179:2:
179 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:181:2:
181 | if(th_diff/df.lt.tol) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:182:2:
182 | flg = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:183:2:
183 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:184:2:
184 | if(A(i).and.abs(ath(nv + i)).gt.trnc.and.pnl_flg(i).eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:185:2:
185 | if((ath(nv + i) * agrd(nv + i)).lt.0.) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:186:2:
186 | flg = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:187:2:
187 | call updateSvh_e(p,nSv,Svh,-ath(nv + i),Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:188:2:
188 | ath(nv + i) = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:189:2:
189 | A(i) = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:190:2:
190 | df = df - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:191:2:
191 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:192:2:
192 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:193:2:
193 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:194:2:
194 | if(flg) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:195:2:
195 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:196:2:
196 | if(.not.A(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:197:2:
197 | call trSTe(nSv,Svh,Te_scn_sz(i),Te(Te_scn(i):(Te_scn(i + 1) - 1)), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:198:2:
198 | Tv_ptr(nv+1),Te_ptr(Te_ptr_scn(i):(Te_ptr_scn(i + 1) - 1)),Du)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:199:2:
199 | Du = Du - tr_SvTe(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:200:2:
200 | agrd(nv + i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:201:2:
201 | if(abs(Du)/w(i) - arho .gt. 0.) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:202:2:
202 | flg = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:203:2:
203 | A(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:204:2:
204 | df = df + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:205:2:
205 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:206:2:
206 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:207:2:
207 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:208:2:
208 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:209:2:
209 | if(flg) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:210:2:
210 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:211:2:
211 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:213:2:
213 | th(:, nr) = ath
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:214:2:
214 | grd(:, nr) = agrd
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:216:2:
216 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_path.f90:187:97:
187 | call updateSvh_e(p,nSv,Svh,-ath(nv + i),Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| ^
Warning: ‘j0’ may be used uninitialized [-Wmaybe-uninitialized]
sglasso_ccd_path.f90:19:30:
19 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| ^
note: ‘j0’ was declared here
sglasso_ccd_path.f90:187:97:
187 | call updateSvh_e(p,nSv,Svh,-ath(nv + i),Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| ^
Warning: ‘i0’ may be used uninitialized [-Wmaybe-uninitialized]
sglasso_ccd_path.f90:19:24:
19 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| ^
note: ‘i0’ was declared here
gfortran-14 -fpic -g -O2 -Wall -pedantic -mtune=native -c sglasso_ccd_single.f90 -o sglasso_ccd_single.o
sglasso_ccd_single.f90:13:2:
13 | nstep,trnc,tol,rho,grd,th,w,pnl_flg,n,conv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:14:2:
14 | integer :: nSv,nTv,Tv_pkg(nTv),Tv_rw(nTv),nv,Tv_ptr(nv+1),nTe, Te(nTe),nTe_ptr,Te_ptr(nTe_ptr),ne, &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:15:2:
15 | Te_scn(ne+1),Te_ptr_scn(ne+1),nstep,pnl_flg(ne),n,conv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:16:2:
16 | double precision :: grd(nv+ne),Sv(nSv),trnc,tol,rho,th(nv+ne),w(ne)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:18:2:
18 | logical :: A(ne),flg
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:19:2:
19 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:20:2:
20 | Te_cl_ptr(ne+1),Te_cl_sz(ne),Te_cl(ne*(Tv_ptr(nv+1)-1)),df,max_df
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:21:2:
21 | double precision :: Svh(nSv),tr_SvTv(nv),tr_SvTe(ne),max_rho,Du,oth(nv+ne), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:22:2:
22 | dth,tr_SvhTeSvhTe,tr_SvhTvSvhTv,th_diff,Du_sgn
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:24:2:
24 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:25:2:
25 | if (pnl_flg(i).eq.0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:26:2:
26 | A(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:27:2:
27 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:28:2:
28 | A(i) = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:29:2:
29 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:31:2:
31 | Svh = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:32:2:
32 | oth = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:33:2:
33 | df = nv + ne - sum(pnl_flg)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:34:2:
34 | max_df = nv + ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:35:2:
35 | p = Tv_ptr(nv + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:37:2:
37 | k = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:38:2:
38 | Te_cl_ptr(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:39:2:
39 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:40:2:
40 | Te_scn_sz(i) = Te_scn(i + 1) - Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:41:2:
41 | j = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:42:2:
42 | do h = Te_ptr_scn(i), Te_ptr_scn(i + 1) - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:43:2:
43 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:44:2:
44 | if(Te_ptr(h).ne.Te_ptr(h + 1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:45:2:
45 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:46:2:
46 | Te_cl(k) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:47:2:
47 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:48:2:
48 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:49:2:
49 | Te_cl_ptr(i + 1) = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:50:2:
50 | Te_cl_sz(i) = Te_cl_ptr(i + 1) - Te_cl_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:51:2:
51 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:53:2:
53 | do i = 1, nv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:54:2:
54 | i0 = Tv_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:55:2:
55 | i1 = Tv_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:56:2:
56 | tr_SvTv(i) = sum(Sv(Tv_pkg(i0:i1)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:57:2:
57 | th(i) = (i1 - i0 + 1)/tr_SvTv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:58:2:
58 | Svh(Tv_pkg(i0:i1)) = 1/th(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:59:2:
59 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:61:2:
61 | max_rho = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:62:2:
62 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:63:2:
63 | i0 = Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:64:2:
64 | i1 = Te_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:65:2:
65 | j0 = Te_ptr_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:66:2:
66 | j1 = Te_ptr_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:67:2:
67 | call trSTe(nSv,Sv,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1),tr_SvTe(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:68:2:
68 | Du = - tr_SvTe(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:69:2:
69 | grd(nv + i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:70:2:
70 | if(pnl_flg(i).eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:71:2:
71 | max_rho = max(max_rho,abs(Du)/w(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:72:2:
72 | if(abs(Du)/w(i).ge.rho) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:73:2:
73 | A(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:74:2:
74 | df = df + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:75:2:
75 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:76:2:
76 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:77:2:
77 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:79:2:
79 | if(rho.ge.max_rho) return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:81:2:
81 | n = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:82:2:
82 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:83:2:
83 | oth(1:nv) = th(1:nv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:84:2:
84 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:85:2:
85 | if(A(i)) oth(nv + i) = th(nv + i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:86:2:
86 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:88:2:
88 | if(df.gt.nv) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:89:2:
89 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:90:2:
90 | if(A(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:91:2:
91 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:93:17:
93 | conv = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:96:2:
96 | i0 = Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:97:2:
97 | i1 = Te_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:98:2:
98 | j0 = Te_ptr_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:99:2:
99 | j1 = Te_ptr_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:100:2:
100 | h0 = Te_cl_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:101:2:
101 | h1 = Te_cl_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:102:2:
102 | call trSTe(nSv,Svh,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1),Du)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:103:2:
103 | Du = Du - tr_SvTe(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:104:2:
104 | grd(nv + i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:106:17:
106 | Du_sgn = dsign(dble(1),Du)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:107:17:
107 | Du = Du - rho * Du_sgn * w(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:113:17:
113 | conv = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:118:2:
118 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:119:2:
119 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:120:2:
120 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:122:2:
122 | do i = 1, nv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:123:2:
123 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:125:11:
125 | conv = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:128:2:
128 | i0 = Tv_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:129:2:
129 | i1 = Tv_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:130:2:
130 | Du = sum(Svh(Tv_pkg(i0:i1))) - tr_SvTv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:131:2:
131 | grd(i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:134:11:
134 | do k = i0, h - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:135:14:
135 | tr_SvhTvSvhTv = tr_SvhTvSvhTv + Svh(int(Tv_rw(k) + Tv_rw(h) * (Tv_rw(h) - 1) / 2))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:141:11:
141 | conv = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:146:2:
146 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:149:2:
149 | if(th_diff/df.lt.tol) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:150:2:
150 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:151:2:
151 | if(A(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:153:2:
153 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:154:2:
154 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:155:2:
155 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:157:2:
157 | if(th_diff/df.lt.tol) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:158:2:
158 | flg = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:185:2:
185 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:187:2:
187 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccd_single.f90:163:113:
163 | call updateSvh_e(p,nSv,Svh,-th(nv + i),Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| ^
Warning: ‘j0’ may be used uninitialized [-Wmaybe-uninitialized]
sglasso_ccd_single.f90:19:30:
19 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| ^
note: ‘j0’ was declared here
sglasso_ccd_single.f90:163:113:
163 | call updateSvh_e(p,nSv,Svh,-th(nv + i),Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| ^
Warning: ‘i0’ may be used uninitialized [-Wmaybe-uninitialized]
sglasso_ccd_single.f90:19:24:
19 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| ^
note: ‘i0’ was declared here
gfortran-14 -fpic -g -O2 -Wall -pedantic -mtune=native -c sglasso_ccm_path.f90 -o sglasso_ccm_path.o
sglasso_ccm_path.f90:49:2:
49 | integer :: nSv,nTv,Tv_pkg(nTv),Tv_rw(nTv),nv,Tv_ptr(nv+1),nTe,Te(nTe),nTe_ptr,Te_ptr(nTe_ptr),ne, &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:50:2:
50 | Te_scn(ne+1),Te_ptr_scn(ne+1),nstep,nrho,pnl_flg(ne),n,conv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:51:2:
51 | double precision :: Sv(nSv),trnc,tol,rho(nrho),min_rho,grd(nv+ne,nrho),th(nv+ne,nrho),w(ne)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:53:2:
53 | logical :: A(ne),flg
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:54:2:
54 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:55:2:
55 | Te_cl_ptr(ne+1),Te_cl_sz(ne),Te_cl(ne*(Tv_ptr(nv+1)-1)),nr,df,max_df
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:56:2:
56 | double precision :: Svh(nSv),tr_SvTv(nv),tr_SvTe(ne),max_rho,Du,oth(nv+ne),ath(nv+ne), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:57:2:
57 | dth,tr_SvhTeSvhTe,tr_SvhTvSvhTv,th_diff,Du_sgn,cf,arho,agrd(nv+ne)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:59:2:
59 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:60:5:
60 | if (pnl_flg(i).eq.0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:61:2:
61 | A(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:63:2:
63 | A(i) = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:64:2:
64 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:65:2:
65 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:66:2:
66 | Svh = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:67:2:
67 | ath = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:68:2:
68 | oth = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:69:2:
69 | agrd = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:70:2:
70 | p = Tv_ptr(nv + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:71:2:
71 | df = nv + ne - sum(pnl_flg)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:72:2:
72 | max_df = nv + ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:74:2:
74 | k = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:75:2:
75 | Te_cl_ptr(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:76:2:
76 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:77:2:
77 | Te_scn_sz(i) = Te_scn(i + 1) - Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:78:2:
78 | j = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:79:2:
79 | do h = Te_ptr_scn(i), Te_ptr_scn(i + 1) - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:80:2:
80 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:81:2:
81 | if(Te_ptr(h).ne.Te_ptr(h + 1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:82:2:
82 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:83:2:
83 | Te_cl(k) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:84:2:
84 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:85:2:
85 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:86:2:
86 | Te_cl_ptr(i + 1) = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:87:2:
87 | Te_cl_sz(i) = Te_cl_ptr(i + 1) - Te_cl_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:88:2:
88 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:90:2:
90 | do i = 1, nv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:91:2:
91 | i0 = Tv_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:92:2:
92 | i1 = Tv_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:93:2:
93 | tr_SvTv(i) = sum(Sv(Tv_pkg(i0:i1)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:94:2:
94 | ath(i) = (i1 - i0 + 1)/tr_SvTv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:95:2:
95 | Svh(Tv_pkg(i0:i1)) = 1/ath(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:96:2:
96 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:98:2:
98 | max_rho = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:99:2:
99 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:100:2:
100 | i0 = Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:101:2:
101 | i1 = Te_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:102:2:
102 | j0 = Te_ptr_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:103:2:
103 | j1 = Te_ptr_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:104:2:
104 | call trSTe(nSv,Sv,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1),tr_SvTe(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:105:2:
105 | Du = - tr_SvTe(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:106:2:
106 | agrd(nv + i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:107:2:
107 | if(pnl_flg(i).eq.1) max_rho = max(max_rho,abs(Du) / w(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:108:2:
108 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:110:2:
110 | if(min_rho.gt.max_rho) return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:112:2:
112 | rho(1) = max_rho
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:113:2:
113 | cf = dexp((dlog(min_rho) - dlog(max_rho)) / (nrho - 1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:114:2:
114 | do i = 2, nrho
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:115:2:
115 | rho(i) = rho(i - 1) * cf
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:116:2:
116 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:118:2:
118 | n = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:119:2:
119 | do nr = 1, nrho
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:121:2:
121 | arho = rho(nr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:122:2:
122 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:123:2:
123 | if(.not.A(i).and.pnl_flg(i).eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:124:2:
124 | if(abs(agrd(nv + i))/w(i).gt.arho) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:125:2:
125 | A(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:126:2:
126 | df = df + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:127:2:
127 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:128:2:
128 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:129:2:
129 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:131:2:
131 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:132:2:
132 | oth(1:nv) = ath(1:nv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:133:2:
133 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:134:2:
134 | if(A(i)) oth(nv + i) = ath(nv + i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:135:2:
135 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:137:2:
137 | if(df.gt.nv) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:138:2:
138 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:139:2:
139 | if(A(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:140:2:
140 | i0 = Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:141:2:
141 | i1 = Te_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:142:2:
142 | j0 = Te_ptr_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:143:2:
143 | j1 = Te_ptr_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:144:2:
144 | h0 = Te_cl_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:145:2:
145 | h1 = Te_cl_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:146:2:
146 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:147:2:
147 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:148:2:
148 | if(n.ge.nstep) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:149:2:
149 | if(nr.eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:150:2:
150 | nrho = nr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:151:2:
151 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:152:2:
152 | nrho = nr - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:153:2:
153 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:154:2:
154 | conv = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:155:2:
155 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:156:2:
156 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:157:2:
157 | call trSTe(nSv,Svh,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1),Du)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:158:2:
158 | Du = Du - tr_SvTe(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:159:2:
159 | agrd(nv + i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:160:2:
160 | if(pnl_flg(i).eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:161:2:
161 | Du_sgn = dsign(dble(1),Du)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:162:2:
162 | Du = Du - arho * Du_sgn * w(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:163:2:
163 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:164:2:
164 | if(abs(Du).le.tol) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:165:2:
165 | call trSTeSTe(nSv,Svh,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:166:2:
166 | Te_cl_sz(i),Te_cl(h0:h1),tr_SvhTeSvhTe)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:167:2:
167 | dth = Du / tr_SvhTeSvhTe
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:168:2:
168 | if(dth.ne.dth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:169:2:
169 | conv = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:170:2:
170 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:171:2:
171 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:172:2:
172 | ath(nv + i) = ath(nv + i) + dth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:173:2:
173 | call updateSvh_e(p,nSv,Svh,dth,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:174:2:
174 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:175:2:
175 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:176:2:
176 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:177:2:
177 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:179:2:
179 | do i = 1, nv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:180:2:
180 | i0 = Tv_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:181:2:
181 | i1 = Tv_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:182:2:
182 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:183:2:
183 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:184:2:
184 | if(n.ge.nstep) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:185:2:
185 | if(nr.eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:186:2:
186 | nrho = nr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:187:2:
187 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:188:2:
188 | nrho = nr - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:189:2:
189 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:190:2:
190 | conv = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:191:2:
191 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:192:2:
192 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:193:2:
193 | Du = sum(Svh(Tv_pkg(i0:i1))) - tr_SvTv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:194:2:
194 | agrd(i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:195:2:
195 | if(abs(Du).le.tol) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:196:2:
196 | tr_SvhTvSvhTv = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:197:2:
197 | do h = i0 + 1, i1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:198:2:
198 | do k = i0, h - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:199:2:
199 | tr_SvhTvSvhTv = tr_SvhTvSvhTv + Svh(int(Tv_rw(k) + Tv_rw(h) * (Tv_rw(h) - 1) / 2))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:200:2:
200 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:201:2:
201 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:202:2:
202 | tr_SvhTvSvhTv = 2 * tr_SvhTvSvhTv + sum(Svh(Tv_pkg(i0:i1))**2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:203:2:
203 | dth = Du / tr_SvhTvSvhTv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:208:2:
208 | ath(i) = ath(i) + dth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:209:2:
209 | call updateSvh_v(p,nSv,Svh,dth,Tv_ptr(i+1)-Tv_ptr(i),Tv_pkg(i0:i1),Tv_rw(i0:i1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:210:2:
210 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:211:2:
211 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:213:2:
213 | th_diff = sum(abs(ath(1:nv) - oth(1:nv)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:214:2:
214 | if(th_diff/df.lt.tol) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:215:2:
215 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:216:2:
216 | if(A(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:217:2:
217 | th_diff = th_diff + abs(ath(nv + i) - oth(nv + i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:218:2:
218 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:219:2:
219 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:220:2:
220 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:222:2:
222 | if(th_diff/df.lt.tol) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:223:2:
223 | flg = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:224:2:
224 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:225:2:
225 | if(A(i).and.abs(ath(nv + i)).gt.trnc.and.pnl_flg(i).eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:226:2:
226 | if((ath(nv + i) * agrd(nv + i)).lt.0.) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:227:2:
227 | flg = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:228:2:
228 | call updateSvh_e(p,nSv,Svh,-ath(nv + i),Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:229:2:
229 | ath(nv + i) = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:230:2:
230 | A(i) = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:231:2:
231 | df = df - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:232:2:
232 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:233:2:
233 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:234:2:
234 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:235:2:
235 | if(flg) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:236:2:
236 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:237:2:
237 | if(.not.A(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:238:2:
238 | call trSTe(nSv,Svh,Te_scn_sz(i),Te(Te_scn(i):(Te_scn(i + 1) - 1)), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:239:2:
239 | Tv_ptr(nv+1),Te_ptr(Te_ptr_scn(i):(Te_ptr_scn(i + 1) - 1)),Du)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:240:2:
240 | Du = Du - tr_SvTe(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:241:2:
241 | agrd(nv + i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:242:2:
242 | if(abs(Du)/w(i) - arho .gt. 0.) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:243:2:
243 | flg = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:244:2:
244 | A(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:245:2:
245 | df = df + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:246:2:
246 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:247:2:
247 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:248:2:
248 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:249:2:
249 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:250:2:
250 | if(flg) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:251:2:
251 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:252:2:
252 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:254:2:
254 | th(:, nr) = ath
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:255:2:
255 | grd(:, nr) = agrd
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:257:2:
257 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_path.f90:228:97:
228 | call updateSvh_e(p,nSv,Svh,-ath(nv + i),Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| ^
Warning: ‘j0’ may be used uninitialized [-Wmaybe-uninitialized]
sglasso_ccm_path.f90:54:30:
54 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| ^
note: ‘j0’ was declared here
sglasso_ccm_path.f90:228:97:
228 | call updateSvh_e(p,nSv,Svh,-ath(nv + i),Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| ^
Warning: ‘i0’ may be used uninitialized [-Wmaybe-uninitialized]
sglasso_ccm_path.f90:54:24:
54 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| ^
note: ‘i0’ was declared here
gfortran-14 -fpic -g -O2 -Wall -pedantic -mtune=native -c sglasso_ccm_single.f90 -o sglasso_ccm_single.o
sglasso_ccm_single.f90:13:2:
13 | nstep,trnc,tol,rho,grd,th,w,pnl_flg,n,conv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:14:2:
14 | integer :: nSv,nTv,Tv_pkg(nTv),Tv_rw(nTv),nv,Tv_ptr(nv+1),nTe, Te(nTe),nTe_ptr,Te_ptr(nTe_ptr),ne, &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:15:2:
15 | Te_scn(ne+1),Te_ptr_scn(ne+1),nstep,pnl_flg(ne),n,conv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:16:2:
16 | double precision :: grd(nv+ne),Sv(nSv),trnc,tol,rho,th(nv+ne),w(ne)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:18:2:
18 | logical :: A(ne),flg
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:19:2:
19 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:20:2:
20 | Te_cl_ptr(ne+1),Te_cl_sz(ne),Te_cl(ne*(Tv_ptr(nv+1)-1)),df,max_df
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:21:2:
21 | double precision :: Svh(nSv),tr_SvTv(nv),tr_SvTe(ne),max_rho,Du,oth(nv+ne), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:22:2:
22 | dth,tr_SvhTeSvhTe,tr_SvhTvSvhTv,th_diff,Du_sgn
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:24:2:
24 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:25:2:
25 | if (pnl_flg(i).eq.0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:26:2:
26 | A(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:27:2:
27 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:28:2:
28 | A(i) = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:29:2:
29 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:31:2:
31 | Svh = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:32:2:
32 | oth = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:33:2:
33 | df = nv + ne - sum(pnl_flg)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:34:2:
34 | max_df = nv + ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:35:2:
35 | p = Tv_ptr(nv + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:37:2:
37 | k = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:38:2:
38 | Te_cl_ptr(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:39:2:
39 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:40:2:
40 | Te_scn_sz(i) = Te_scn(i + 1) - Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:41:2:
41 | j = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:42:2:
42 | do h = Te_ptr_scn(i), Te_ptr_scn(i + 1) - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:43:2:
43 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:44:2:
44 | if(Te_ptr(h).ne.Te_ptr(h + 1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:45:2:
45 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:46:2:
46 | Te_cl(k) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:47:2:
47 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:48:2:
48 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:49:2:
49 | Te_cl_ptr(i + 1) = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:50:2:
50 | Te_cl_sz(i) = Te_cl_ptr(i + 1) - Te_cl_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:51:2:
51 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:53:2:
53 | do i = 1, nv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:54:2:
54 | i0 = Tv_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:55:2:
55 | i1 = Tv_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:56:2:
56 | tr_SvTv(i) = sum(Sv(Tv_pkg(i0:i1)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:57:2:
57 | th(i) = (i1 - i0 + 1)/tr_SvTv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:58:2:
58 | Svh(Tv_pkg(i0:i1)) = 1/th(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:59:2:
59 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:61:2:
61 | max_rho = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:62:2:
62 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:63:2:
63 | i0 = Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:64:2:
64 | i1 = Te_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:65:2:
65 | j0 = Te_ptr_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:66:2:
66 | j1 = Te_ptr_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:67:2:
67 | call trSTe(nSv,Sv,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1),tr_SvTe(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:68:2:
68 | Du = - tr_SvTe(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:69:2:
69 | grd(nv + i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:70:2:
70 | if(pnl_flg(i).eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:71:2:
71 | max_rho = max(max_rho,abs(Du)/w(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:72:2:
72 | if(abs(Du)/w(i).ge.rho) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:73:2:
73 | A(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:74:2:
74 | df = df + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:75:2:
75 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:76:2:
76 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:77:2:
77 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:79:2:
79 | if(rho.ge.max_rho) return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:81:2:
81 | n = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:82:2:
82 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:83:2:
83 | oth(1:nv) = th(1:nv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:84:2:
84 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:85:2:
85 | if(A(i)) oth(nv + i) = th(nv + i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:86:2:
86 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:88:2:
88 | if(df.gt.nv) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:89:2:
89 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:90:2:
90 | if(A(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:91:2:
91 | i0 = Te_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:92:2:
92 | i1 = Te_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:93:2:
93 | j0 = Te_ptr_scn(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:94:2:
94 | j1 = Te_ptr_scn(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:95:2:
95 | h0 = Te_cl_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:96:2:
96 | h1 = Te_cl_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:97:2:
97 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:98:2:
98 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:99:2:
99 | if(n.ge.nstep) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:100:2:
100 | conv = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:101:2:
101 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:102:2:
102 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:103:2:
103 | call trSTe(nSv,Svh,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1),Du)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:104:2:
104 | Du = Du - tr_SvTe(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:105:2:
105 | grd(nv + i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:106:2:
106 | if(pnl_flg(i).eq.1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:107:2:
107 | Du_sgn = dsign(dble(1),Du)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:108:2:
108 | Du = Du - rho * Du_sgn * w(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:109:2:
109 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:111:2:
111 | call trSTeSTe(nSv,Svh,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:112:2:
112 | Te_cl_sz(i),Te_cl(h0:h1),tr_SvhTeSvhTe)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:113:2:
113 | dth = Du / tr_SvhTeSvhTe
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:115:20:
115 | conv = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:118:2:
118 | th(nv + i) = th(nv + i) + dth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:119:2:
119 | call updateSvh_e(p,nSv,Svh,dth,Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:120:2:
120 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:121:2:
121 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:122:2:
122 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:123:2:
123 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:125:2:
125 | do i = 1, nv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:126:2:
126 | i0 = Tv_ptr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:127:2:
127 | i1 = Tv_ptr(i + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:128:2:
128 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:129:2:
129 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:130:2:
130 | if(n.ge.nstep) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:131:2:
131 | conv = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:132:2:
132 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:133:2:
133 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:134:2:
134 | Du = sum(Svh(Tv_pkg(i0:i1))) - tr_SvTv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:135:2:
135 | grd(i) = Du
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:136:2:
136 | if(abs(Du).le.tol) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:137:2:
137 | tr_SvhTvSvhTv = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:138:2:
138 | do h = i0 + 1, i1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:139:2:
139 | do k = i0, h - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:140:2:
140 | tr_SvhTvSvhTv = tr_SvhTvSvhTv + Svh(int(Tv_rw(k) + Tv_rw(h) * (Tv_rw(h) - 1) / 2))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:141:2:
141 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:142:2:
142 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:143:2:
143 | tr_SvhTvSvhTv = 2 * tr_SvhTvSvhTv + sum(Svh(Tv_pkg(i0:i1))**2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:144:2:
144 | dth = Du / tr_SvhTvSvhTv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:149:2:
149 | th(i) = th(i) + dth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:150:2:
150 | call updateSvh_v(p,nSv,Svh,dth,Tv_ptr(i+1)-Tv_ptr(i),Tv_pkg(i0:i1),Tv_rw(i0:i1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:151:2:
151 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:152:2:
152 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:154:2:
154 | th_diff = sum(abs(th(1:nv) - oth(1:nv)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:155:2:
155 | if(th_diff/df.lt.tol) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:156:2:
156 | do i = 1, ne
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:157:2:
157 | if(A(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:158:2:
158 | th_diff = th_diff + abs(th(nv + i) - oth(nv + i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:159:2:
159 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:160:2:
160 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:161:2:
161 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:163:2:
163 | if(th_diff/df.lt.tol) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:164:2:
164 | flg = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:191:2:
191 | if(flg) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:192:2:
192 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:193:2:
193 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
sglasso_ccm_single.f90:169:113:
169 | call updateSvh_e(p,nSv,Svh,-th(nv + i),Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| ^
Warning: ‘j0’ may be used uninitialized [-Wmaybe-uninitialized]
sglasso_ccm_single.f90:19:30:
19 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| ^
note: ‘j0’ was declared here
sglasso_ccm_single.f90:169:113:
169 | call updateSvh_e(p,nSv,Svh,-th(nv + i),Te_scn_sz(i),Te(i0:i1),Tv_ptr(nv+1),Te_ptr(j0:j1))
| ^
Warning: ‘i0’ may be used uninitialized [-Wmaybe-uninitialized]
sglasso_ccm_single.f90:19:24:
19 | integer :: p,i,j,h,k,i0,i1,j0,j1,h0,h1,Te_scn_sz(ne), &
| ^
note: ‘i0’ was declared here
gfortran-14 -fpic -g -O2 -Wall -pedantic -mtune=native -c tools.f90 -o tools.o
tools.f90:2:2:
2 | double precision :: tr_STe
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:3:2:
3 | integer :: nSv,nTe,Te(nTe),nTe_ptr,Te_ptr(nTe_ptr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:4:2:
4 | double precision :: Sv(nSv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:6:2:
6 | integer :: j,h,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:7:2:
7 | tr_STe = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:8:2:
8 | do j = 1, nTe_ptr - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:9:2:
9 | k = j * (j - 1) / 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:10:2:
10 | do h = Te_ptr(j), Te_ptr(j + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:11:2:
11 | if(Te(h).le.j) tr_STe = tr_STe + Sv(Te(h) + k)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:12:2:
12 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:13:2:
13 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:14:2:
14 | tr_STe = 2. * tr_STe
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:18:2:
18 | integer :: nSvh,nTe,Te(nTe),nTe_ptr,Te_ptr(nTe_ptr),ncl,cl(ncl)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:19:2:
19 | double precision :: Svh(nSvh),tr_SvhTeSvhTe
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:21:2:
21 | integer :: i,j,h,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:22:2:
22 | double precision :: B(ncl**2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:23:2:
23 | B = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:24:2:
24 | k = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:25:2:
25 | do j = 1, ncl
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:26:2:
26 | do i = 1, ncl
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:27:2:
27 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:28:2:
28 | do h = Te_ptr(cl(j)), Te_ptr(cl(j) + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:29:2:
29 | if(cl(i).le.Te(h)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:30:2:
30 | B(k) = B(k) + Svh(cl(i) + Te(h) * (Te(h) - 1) / 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:31:2:
31 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:32:2:
32 | B(k) = B(k) + Svh(Te(h) + cl(i) * (cl(i) - 1) / 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:33:2:
33 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:34:2:
34 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:35:2:
35 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:36:2:
36 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:37:2:
37 | tr_SvhTeSvhTe = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:38:2:
38 | do j = 1, ncl
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:39:2:
39 | do i = j + 1, ncl
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:40:2:
40 | tr_SvhTeSvhTe = tr_SvhTeSvhTe + B(i + ncl * (j - 1)) * B(j + ncl * (i - 1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:41:2:
41 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:42:2:
42 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:43:2:
43 | tr_SvhTeSvhTe = 2. * tr_SvhTeSvhTe
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:44:2:
44 | do j = 1, ncl
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:45:2:
45 | tr_SvhTeSvhTe = tr_SvhTeSvhTe + B(j + ncl * (j - 1))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:46:2:
46 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:50:2:
50 | integer :: p,nSvh,nTv,Tv_pkg(nTv),Tv_rw(nTv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:51:2:
51 | double precision :: Svh(nSvh),dth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:53:2:
53 | integer :: i0,i1,k,i,j,n,jj,ii
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:54:2:
54 | double precision :: vk, B(nSvh)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:55:2:
55 | do k = 1, nTv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:56:2:
56 | vk = dth / (1. + dth * Svh(Tv_pkg(k)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:57:2:
57 | i0 = 1 + Tv_rw(k) * (Tv_rw(k) - 1) / 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:58:2:
58 | i1 = Tv_rw(k) * (Tv_rw(k) + 1) / 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:59:2:
59 | n = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:60:2:
60 | do j = i0, i1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:61:2:
61 | do i = i0, j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:62:2:
62 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:63:2:
63 | B(n) = Svh(i) * Svh(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:64:2:
64 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:65:2:
65 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:66:2:
66 | j = i1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:67:2:
67 | do jj = Tv_rw(k), p - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:68:2:
68 | j = j + jj
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:69:2:
69 | do i = i0, i1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:70:2:
70 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:71:2:
71 | B(n) = Svh(i) * Svh(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:72:2:
72 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:73:2:
73 | i = i1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:74:2:
74 | do ii = Tv_rw(k), jj
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:75:2:
75 | i = i + ii
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:76:2:
76 | n = n + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:77:2:
77 | B(n) = Svh(i) * Svh(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:78:2:
78 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:79:2:
79 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:80:2:
80 | Svh = Svh - vk * B
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:81:2:
81 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:85:2:
85 | integer :: p,nSv,nTe,Te(nTe),nTe_ptr,Te_ptr(nTe_ptr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:86:2:
86 | double precision :: Svh(nSv),dth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:88:2:
88 | integer :: i,j,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:89:2:
89 | double precision :: Sh(p,p),v1(p),v2(p),vk
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:90:2:
90 | k = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:91:2:
91 | do j = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:92:2:
92 | do i = 1, j - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:93:2:
93 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:94:2:
94 | Sh(i,j) = Svh(k)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:95:2:
95 | Sh(j,i) = Svh(k)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:96:2:
96 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:97:2:
97 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:98:2:
98 | Sh(j,j) = Svh(k)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:99:2:
99 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:100:2:
100 | do k = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:101:2:
101 | if(Te_ptr(k).ne.Te_ptr(k + 1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:102:2:
102 | v1 = 0.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:103:2:
103 | do j = Te_ptr(k), Te_ptr(k + 1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:104:2:
104 | v1 = v1 + Sh(:,Te(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:105:2:
105 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:106:2:
106 | vk = dth / (1. + dth * v1(k))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:107:2:
107 | v2 = Sh(k,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:108:2:
108 | do j = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:109:2:
109 | do i = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:110:2:
110 | Sh(i,j) = Sh(i,j) - vk * v1(i) * v2(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:111:2:
111 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:112:2:
112 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:113:2:
113 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:114:2:
114 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:115:2:
115 | k = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:116:2:
116 | do j = 1, p
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:117:2:
117 | do i = 1, j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:118:2:
118 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:119:2:
119 | Svh(k) = Sh(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:120:2:
120 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
tools.f90:121:2:
121 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gcc-14 -shared -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -Wl,-O1 -o sglasso.so gdf_fun.o init.o sglasso_ccd_path.o sglasso_ccd_single.o sglasso_ccm_path.o sglasso_ccm_single.o tools.o -llapack -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -lRblas -lgfortran -lm -lquadmath -lgfortran -lm -lquadmath -L/home/hornik/tmp/R.check/r-patched-gcc/Work/build/lib -lR
make[1]: Leaving directory '/home/hornik/tmp/scratch/RtmptyWB9O/R.INSTALLfcb5f97fb0d8/sglasso/src'
make[1]: Entering directory '/home/hornik/tmp/scratch/RtmptyWB9O/R.INSTALLfcb5f97fb0d8/sglasso/src'
make[1]: Leaving directory '/home/hornik/tmp/scratch/RtmptyWB9O/R.INSTALLfcb5f97fb0d8/sglasso/src'
installing to /home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/00LOCK-sglasso/00new/sglasso/libs
** R
** data
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
converting help for package ‘sglasso’
finding HTML links ... done
Kh html
fglasso html
gplot html
gplot.fglasso html
gplot.sglasso html
klcv html
loglik html
neisseria html
plot.klcv html
plot.sglasso html
sglasso-internal html
sglasso-package html
sglasso html
summary.sglasso 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 (sglasso)