* installing *source* package 'sglasso' ...
** package 'sglasso' successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: 'gcc.exe (GCC) 12.3.0'
using Fortran compiler: 'GNU Fortran (GCC) 12.3.0'
make[1]: Entering directory '/d/temp/2024_11_13_01_50_00_32639/RtmpiKKVGH/R.INSTALL184b823dc238c/sglasso/src'
gfortran -pedantic -O2 -mfpmath=sse -msse2 -mstackrealign -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 -I"D:/RCompile/recent/R-4.3.3/include" -DNDEBUG -I"d:/rtools43/x86_64-w64-mingw32.static.posix/include" -pedantic -Wstrict-prototypes -O2 -Wall -mfpmath=sse -msse2 -mstackrealign -c init.c -o init.o
gfortran -pedantic -O2 -mfpmath=sse -msse2 -mstackrealign -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]
gfortran -pedantic -O2 -mfpmath=sse -msse2 -mstackrealign -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]
gfortran -pedantic -O2 -mfpmath=sse -msse2 -mstackrealign -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]
gfortran -pedantic -O2 -mfpmath=sse -msse2 -mstackrealign -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]
gfortran -pedantic -O2 -mfpmath=sse -msse2 -mstackrealign -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 -shared -s -static-libgcc -o sglasso.dll tmp.def gdf_fun.o init.o sglasso_ccd_path.o sglasso_ccd_single.o sglasso_ccm_path.o sglasso_ccm_single.o tools.o -LD:/RCompile/recent/R-4.3.3/bin/x64 -lRlapack -LD:/RCompile/recent/R-4.3.3/bin/x64 -lRblas -lgfortran -lm -lquadmath -Ld:/rtools43/x86_64-w64-mingw32.static.posix/lib/x64 -Ld:/rtools43/x86_64-w64-mingw32.static.posix/lib -lgfortran -lm -lquadmath -LD:/RCompile/recent/R-4.3.3/bin/x64 -lR
make[1]: Leaving directory '/d/temp/2024_11_13_01_50_00_32639/RtmpiKKVGH/R.INSTALL184b823dc238c/sglasso/src'
make[1]: Entering directory '/d/temp/2024_11_13_01_50_00_32639/RtmpiKKVGH/R.INSTALL184b823dc238c/sglasso/src'
make[1]: Leaving directory '/d/temp/2024_11_13_01_50_00_32639/RtmpiKKVGH/R.INSTALL184b823dc238c/sglasso/src'
installing to d:/Rcompile/CRANpkg/lib/4.3/00LOCK-sglasso/00new/sglasso/libs/x64
** 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
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* MD5 sums
packaged installation of 'sglasso' as sglasso_1.2.6.zip
* DONE (sglasso)