* installing *source* package ‘sglasso’ ...
** package ‘sglasso’ 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) 12.2.0’
using SDK: ‘MacOSX11.3.sdk’
/opt/gfortran/bin/gfortran -arch arm64  -fPIC  -Wall -g -O2  -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]
clang -arch arm64 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG   -I/opt/R/arm64/include    -fPIC  -falign-functions=64 -Wall -g -O2  -c init.c -o init.o
/opt/gfortran/bin/gfortran -arch arm64  -fPIC  -Wall -g -O2  -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
/opt/gfortran/bin/gfortran -arch arm64  -fPIC  -Wall -g -O2  -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
/opt/gfortran/bin/gfortran -arch arm64  -fPIC  -Wall -g -O2  -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
/opt/gfortran/bin/gfortran -arch arm64  -fPIC  -Wall -g -O2  -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
/opt/gfortran/bin/gfortran -arch arm64  -fPIC  -Wall -g -O2  -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]
clang -arch arm64 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -single_module -multiply_defined suppress -L/Library/Frameworks/R.framework/Resources/lib -L/opt/R/arm64/lib -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 -L/Library/Frameworks/R.framework/Resources/lib -lRlapack -L/Library/Frameworks/R.framework/Resources/lib -lRblas -L/opt/gfortran/lib/gcc/aarch64-apple-darwin20.0/12.2.0 -L/opt/gfortran/lib -lgfortran -lemutls_w -lquadmath -L/opt/gfortran/lib/gcc/aarch64-apple-darwin20.0/12.2.0 -L/opt/gfortran/lib -lgfortran -lemutls_w -lquadmath -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation
ld: warning: could not create compact unwind for _sglasso_ccd_path_: registers 72 and 73 not saved contiguously in frame
ld: warning: could not create compact unwind for _sglasso_ccd_single_: register 73 saved somewhere other than in frame
ld: warning: could not create compact unwind for _sglasso_ccm_path_: registers 72 and 73 not saved contiguously in frame
ld: warning: ld: warning: could not create compact unwind for _trsteste_: register 28 saved somewhere other than in frame
ld: warning: could not create compact unwind for _updatesvh_v_: register 26 saved somewhere other than in frame
ld: warning: could not create compact unwind for _updatesvh_e_: register 73 saved somewhere other than in frame
ld: warning: could not create compact unwind for ___emutls_get_address: registers 23 and 24 not saved contiguously in frame
could not create compact unwind for _gdf_fun_: registers 27 and 28 not saved contiguously in frame
ld: warning: could not create compact unwind for _sglasso_ccm_single_: register 73 saved somewhere other than in frame
installing to /Volumes/Builds/packages/big-sur-arm64/results/4.3/sglasso.Rcheck/00LOCK-sglasso/00new/sglasso/libs
** generating debug symbols (dSYM)
** R
** data
** inst
** 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 (sglasso)