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