* installing *source* package ‘longitree’ ...
** this is package ‘longitree’ version ‘1.0.0’
** package ‘longitree’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘Apple clang version 17.0.0 (clang-1700.3.19.1)’
using Fortran compiler: ‘GNU Fortran (GCC) 14.2.0’
using SDK: ‘MacOSX14.5.sdk’
clang -arch arm64 -std=gnu23 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I/opt/R/arm64/include -fPIC -falign-functions=64 -Wall -g -O2 -c init.c -o init.o
/opt/gfortran/bin/gfortran -arch arm64 -fPIC -Wall -g -O2 -c longitree_program.f90 -o longitree_program.o
longitree_program.f90:2:2:
2 | beta1len,beta2len,nodenummat,allfval,prunind,Rsplitmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3:2:
3 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4:2:
4 | integer,intent(in) :: msize,colnum,levelcount,beta1len,beta2len,maxdepth,minsplit,minbucket
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5:2:
5 | integer,intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6:2:
6 | double precision,intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7:2:
7 | double precision,intent(in) :: xydata(msize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8:2:
8 | double precision, intent(out) :: Rsplitmat((2**maxdepth)-1,10)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9:2:
9 | double precision,intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10:2:
10 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:11:2:
11 | integer,intent(out) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:12:2:
12 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:13:2:
13 | double precision fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:14:2:
14 | integer nodenum, hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,sizenum,sizer,sizel,treeloop,stopcount,nodeloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:15:2:
15 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:16:2:
16 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:), splitindvec(:),nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:17:2:
17 | integer,allocatable :: factor_idx_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:18:2:
18 | double precision,allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:19:2:
19 | integer,allocatable :: flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:20:2:
20 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:21:2:
21 | double precision :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:22:2:
22 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:23:2:
23 | double precision,allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),xynodedata(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:24:2:
24 | integer, allocatable :: w_subj_map(:), w_si_arr(:), ti_arr(:), w_subj_group(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:25:2:
25 | real(8), allocatable :: w_ygroup(:), w_ytime(:), w_ysubject(:), w_ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:26:2:
26 | real(8), allocatable :: w_ygroupcount(:), w_ytimecount(:), w_ysubjectcount(:), w_ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:27:2:
27 | real(8), allocatable :: w_ytime_sum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:28:2:
28 | integer :: w_nsubjects, w_timecount, w_max_subj_id, gi, ti, si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:29:2:
29 | real(8) :: ymean_const, sstotal_const, sstime_const, total_y_sum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:30:2:
30 | real(8) :: ssgroup, ssgrouptime, sssubject, sserr, ygroup_mean1, ygroup_mean2, gt_mean
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:31:2:
31 | integer, allocatable :: factor_count(:), factor_offset(:), factor_obs(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:32:2:
32 | integer :: obs_i, f, lo, hi, mid
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:33:2:
33 | Rsplitmat(:,:) = 0.0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:34:2:
34 | nodenummat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:35:2:
35 | nodenummat(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:36:2:
36 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:37:2:
37 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:38:2:
38 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:39:2:
39 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:40:2:
40 | allocate(nodesize(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:41:2:
41 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:42:2:
42 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:43:2:
43 | call splitcount(msize, colnum-3, xydata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:44:2:
44 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:45:2:
45 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:46:2:
46 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:47:2:
47 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:48:2:
48 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:49:2:
49 | allocate(anovadata(msize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:50:2:
50 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:51:2:
51 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:52:2:
52 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:53:2:
53 | w_timecount = nint(maxval(xydata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:54:2:
54 | w_max_subj_id = nint(maxval(xydata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:55:2:
55 | allocate(w_subj_map(w_max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:56:2:
56 | w_subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:57:2:
57 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:58:2:
58 | w_subj_map(nint(xydata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:59:2:
59 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:60:2:
60 | w_nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:61:2:
61 | do i = 1, w_max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:62:2:
62 | if (w_subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:63:2:
63 | w_nsubjects = w_nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:64:2:
64 | w_subj_map(i) = w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:65:2:
65 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:66:2:
66 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:67:2:
67 | allocate(w_si_arr(msize), ti_arr(msize), w_subj_group(w_nsubjects))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:68:2:
68 | allocate(w_ygroup(2), w_ytime(w_timecount), w_ytime_sum(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:69:2:
69 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:70:2:
70 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:71:2:
71 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:72:2:
72 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:73:2:
73 | dfvec(2) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:74:2:
74 | dfvec(3) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:75:2:
75 | dfvec(4) = w_nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:76:2:
76 | dfvec(5) = (w_timecount - 1) * (w_nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:77:2:
77 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:78:2:
78 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:79:2:
79 | ymean_const = sum(xydata(:,1)) / dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:80:2:
80 | sstotal_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:81:2:
81 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:82:2:
82 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:83:2:
83 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:84:2:
84 | ti = nint(xydata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:85:2:
85 | si = w_subj_map(nint(xydata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:86:2:
86 | w_si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:87:2:
87 | ti_arr(i) = ti
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:88:2:
88 | sstotal_const = sstotal_const + (xydata(i,1) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:89:2:
89 | w_ytime(ti) = w_ytime(ti) + xydata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:90:2:
90 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:91:2:
91 | w_ysubject(si) = w_ysubject(si) + xydata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:92:2:
92 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:93:2:
93 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:94:2:
94 | w_ytime_sum = w_ytime
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:95:2:
95 | total_y_sum = ymean_const * dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:96:2:
96 | w_ytime = w_ytime / w_ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:97:2:
97 | w_ysubject = w_ysubject / w_ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:98:2:
98 | sstime_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:99:2:
99 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:100:2:
100 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:101:2:
101 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:102:2:
102 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:103:2:
103 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:104:2:
104 | allocate(factor_idx_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:105:2:
105 | call splitmat(ind1,datatype(ind1-3),xydata,msize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:106:2:
106 | call dataval(xydata(:,ind1),msize,facvalout,countvec(ind1-3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:107:2:
107 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:108:2:
108 | lo = 1; hi = countvec(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:109:2:
109 | do while (lo <= hi)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:110:2:
110 | mid = (lo + hi) / 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:111:2:
111 | if (facvalout(mid) == xydata(i,ind1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:112:2:
112 | factor_idx_arr(i) = mid
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:113:2:
113 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:114:2:
114 | elseif (xydata(i,ind1) < facvalout(mid)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:115:2:
115 | hi = mid - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:116:2:
116 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:117:2:
117 | lo = mid + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:118:2:
118 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:119:2:
119 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:120:2:
120 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:121:2:
121 | allocate(factor_count(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:122:2:
122 | allocate(factor_offset(countvec(ind1-3)+1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:123:2:
123 | allocate(factor_obs(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:124:2:
124 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:125:2:
125 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:126:2:
126 | f = factor_idx_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:127:2:
127 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:128:2:
128 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:129:2:
129 | factor_offset(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:130:2:
130 | do f = 2, countvec(ind1-3) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:131:2:
131 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:132:2:
132 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:133:2:
133 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:134:2:
134 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:135:2:
135 | f = factor_idx_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:136:2:
136 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:137:2:
137 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:138:2:
138 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:139:2:
139 | if (datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:140:2:
140 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:141:2:
141 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:142:2:
142 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:143:2:
143 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:144:2:
144 | w_subj_group(:) = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:145:2:
145 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:146:2:
146 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:147:2:
147 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:148:2:
148 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:149:2:
149 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:150:2:
150 | obs_i = factor_obs(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:151:2:
151 | w_ygroup(2) = w_ygroup(2) - xydata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:152:2:
152 | w_ygroup(1) = w_ygroup(1) + xydata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:153:2:
153 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:154:2:
154 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:155:2:
155 | ti = ti_arr(obs_i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:156:2:
156 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - xydata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:157:2:
157 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + xydata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:158:2:
158 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:159:2:
159 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:160:2:
160 | w_subj_group(w_si_arr(obs_i)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:161:2:
161 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:162:2:
162 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:163:2:
163 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:164:2:
164 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:165:2:
165 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:166:2:
166 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:167:2:
167 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:168:2:
168 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:169:2:
169 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:170:2:
170 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:171:2:
171 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:172:2:
172 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:173:2:
173 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:174:2:
174 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:175:2:
175 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:176:2:
176 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:177:2:
177 | if (w_subj_group(si) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:178:2:
178 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:179:2:
179 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:180:2:
180 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:181:2:
181 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:182:2:
182 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:183:2:
183 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:184:2:
184 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:185:2:
185 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:186:2:
186 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:187:2:
187 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:188:2:
188 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:189:2:
189 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:190:2:
190 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:191:2:
191 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:192:2:
192 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:193:2:
193 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:194:2:
194 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:195:2:
195 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:196:2:
196 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:197:2:
197 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:198:2:
198 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:199:2:
199 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:200:2:
200 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:201:2:
201 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:202:2:
202 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:203:2:
203 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:204:2:
204 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:205:2:
205 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:206:2:
206 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:207:2:
207 | gi = splitindmat(ind2, factor_idx_arr(i)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:208:2:
208 | w_ygroup(gi) = w_ygroup(gi) + xydata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:209:2:
209 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:210:2:
210 | ti = ti_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:211:2:
211 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + xydata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:212:2:
212 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:213:2:
213 | w_subj_group(w_si_arr(i)) = gi
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:214:2:
214 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:215:2:
215 | w_ygroup = w_ygroup / w_ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:216:2:
216 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:217:2:
217 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:218:2:
218 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:219:2:
219 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:220:2:
220 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:221:2:
221 | do gi = 1, 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:222:2:
222 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:223:2:
223 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:224:2:
224 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:225:2:
225 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:226:2:
226 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:227:2:
227 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:228:2:
228 | sssubject = sssubject + w_ysubjectcount(si) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:229:2:
229 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:230:2:
230 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:231:2:
231 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:232:2:
232 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:233:2:
233 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:234:2:
234 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:235:2:
235 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:236:2:
236 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:237:2:
237 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:238:2:
238 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:239:2:
239 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:240:2:
240 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:241:2:
241 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:242:2:
242 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:243:2:
243 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:244:2:
244 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:245:2:
245 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:246:2:
246 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:247:2:
247 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:248:2:
248 | deallocate(splitindmat,facvalout,factor_idx_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:249:2:
249 | deallocate(factor_count, factor_offset, factor_obs)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:250:2:
250 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:251:2:
251 | deallocate(w_subj_map, w_si_arr, ti_arr, w_subj_group)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:252:2:
252 | deallocate(w_ygroup, w_ytime, w_ytime_sum, w_ysubject, w_ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:253:2:
253 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:254:2:
254 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:255:2:
255 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:256:2:
256 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:257:2:
257 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:258:2:
258 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:259:2:
259 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:260:2:
260 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:261:2:
261 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:262:2:
262 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:263:2:
263 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:264:2:
264 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:265:2:
265 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:266:2:
266 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:267:2:
267 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:268:2:
268 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:269:2:
269 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:270:2:
270 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:271:2:
271 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:272:2:
272 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:273:2:
273 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:274:2:
274 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:275:2:
275 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:276:2:
276 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:277:2:
277 | call weightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:278:2:
278 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:279:2:
279 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:280:2:
280 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:281:2:
281 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:282:2:
282 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:283:2:
283 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:284:2:
284 | splitind1 = ind1vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:285:2:
285 | splitind2 = ind2vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:286:2:
286 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:287:2:
287 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:288:2:
288 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:289:2:
289 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:290:2:
290 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:291:2:
291 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:292:2:
292 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:293:2:
293 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:294:2:
294 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:295:2:
295 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:296:2:
296 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:297:2:
297 | call splitmat(ind1,datatype(ind1-3),xydata,msize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:298:2:
298 | call splitdata(splitindmat(ind2,:),countvec(ind1-3),xydata,msize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:299:2:
299 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:300:2:
300 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:301:2:
301 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:302:2:
302 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:303:2:
303 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:304:2:
304 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:305:2:
305 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:306:2:
306 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:307:2:
307 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:308:2:
308 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:309:2:
309 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:310:2:
310 | call weightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:311:2:
311 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:312:2:
312 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:313:2:
313 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:314:2:
314 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:315:2:
315 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:316:2:
316 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:317:2:
317 | splitind1 = ind1vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:318:2:
318 | splitind2 = ind2vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:319:2:
319 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:320:2:
320 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:321:2:
321 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:322:2:
322 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:323:2:
323 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:324:2:
324 | call splitmat(ind1,datatype(ind1-3),xydata,msize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:325:2:
325 | call splitdata(splitindmat(ind2,:),countvec(ind1-3),xydata,msize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:326:2:
326 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:327:2:
327 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:328:2:
328 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:329:2:
329 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:330:2:
330 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:331:2:
331 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:332:2:
332 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:333:2:
333 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:334:2:
334 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:335:2:
335 | call weightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:336:2:
336 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:337:2:
337 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:338:2:
338 | call weightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:339:2:
339 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:340:2:
340 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:341:2:
341 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:342:2:
342 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:343:2:
343 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:344:2:
344 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:345:2:
345 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:346:2:
346 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:347:2:
347 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:348:2:
348 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:349:2:
349 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:350:2:
350 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:351:2:
351 | if(.not. allocated(splitfacval)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:352:2:
352 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:353:2:
353 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:354:2:
354 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:355:2:
355 | if(splitgroupsum <= dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:356:2:
356 | (dble(msize) - splitgroupsum) <= dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:357:2:
357 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:358:2:
358 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:359:2:
359 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:360:2:
360 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:361:2:
361 | Rsplitmat(1,1) =dble(nodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:362:2:
362 | Rsplitmat(1,2) = splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:363:2:
363 | Rsplitmat(1,3) = 1d0-splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:364:2:
364 | Rsplitmat(1,4) = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:365:2:
365 | Rsplitmat(1,5) = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:366:2:
366 | Rsplitmat(1,6) = splitfval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:367:2:
367 | Rsplitmat(1,7) = splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:368:2:
368 | Rsplitmat(1,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:369:2:
369 | Rsplitmat(1,9) = splitpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:370:2:
370 | Rsplitmat(1,10) = splitmcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:371:2:
371 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:372:2:
372 | call nodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:373:2:
373 | hierarchy+1,nodenummat,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:374:2:
374 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:375:2:
375 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:376:2:
376 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:377:2:
377 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:378:2:
378 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:379:2:
379 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:380:2:
380 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:381:2:
381 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:382:2:
382 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:383:2:
383 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:384:2:
384 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:385:2:
385 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:386:2:
386 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:387:2:
387 | if(allocated(splitfacval)) deallocate(splitfacval, splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:388:2:
388 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:389:2:
389 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:390:2:
390 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:391:2:
391 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:392:2:
392 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:393:2:
393 | call nodedatanumber(xydata,msize,colnum,nodenum,hierarchy,maxdepth,nodenummat,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:394:2:
394 | call splitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:395:2:
395 | if(sum(splitnum) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:396:2:
396 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:397:2:
397 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:398:2:
398 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:399:2:
399 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:400:2:
400 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:401:2:
401 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:402:2:
402 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:403:2:
403 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:404:2:
404 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:405:2:
405 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:406:2:
406 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:407:2:
407 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:408:2:
408 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:409:2:
409 | w_timecount = nint(maxval(xynodedata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:410:2:
410 | w_max_subj_id = nint(maxval(xynodedata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:411:2:
411 | allocate(w_subj_map(w_max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:412:2:
412 | w_subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:413:2:
413 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:414:2:
414 | w_subj_map(nint(xynodedata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:415:2:
415 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:416:2:
416 | w_nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:417:2:
417 | do i = 1, w_max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:418:2:
418 | if (w_subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:419:2:
419 | w_nsubjects = w_nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:420:2:
420 | w_subj_map(i) = w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:421:2:
421 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:422:2:
422 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:423:2:
423 | allocate(w_si_arr(nodesize(nodeloop)), ti_arr(nodesize(nodeloop)), w_subj_group(w_nsubjects))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:424:2:
424 | allocate(w_ygroup(2), w_ytime(w_timecount), w_ytime_sum(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:425:2:
425 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:426:2:
426 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:427:2:
427 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:428:2:
428 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:429:2:
429 | dfvec(2) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:430:2:
430 | dfvec(3) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:431:2:
431 | dfvec(4) = w_nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:432:2:
432 | dfvec(5) = (w_timecount - 1) * (w_nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:433:2:
433 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:434:2:
434 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:435:2:
435 | ymean_const = sum(xynodedata(:,1)) / dble(nodesize(nodeloop))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:436:2:
436 | sstotal_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:437:2:
437 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:438:2:
438 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:439:2:
439 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:440:2:
440 | ti = nint(xynodedata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:441:2:
441 | si = w_subj_map(nint(xynodedata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:442:2:
442 | w_si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:443:2:
443 | ti_arr(i) = ti
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:444:2:
444 | sstotal_const = sstotal_const + (xynodedata(i,1) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:445:2:
445 | w_ytime(ti) = w_ytime(ti) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:446:2:
446 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:447:2:
447 | w_ysubject(si) = w_ysubject(si) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:448:2:
448 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:449:2:
449 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:450:2:
450 | w_ytime_sum = w_ytime
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:451:2:
451 | total_y_sum = ymean_const * dble(nodesize(nodeloop))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:452:2:
452 | w_ytime = w_ytime / w_ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:453:2:
453 | w_ysubject = w_ysubject / w_ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:454:2:
454 | sstime_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:455:2:
455 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:456:2:
456 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:457:2:
457 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:458:2:
458 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:459:2:
459 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:460:2:
460 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:461:2:
461 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:462:2:
462 | if(allocated(splitindmat)) deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:463:2:
463 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:464:2:
464 | if(allocated(facvalout)) deallocate(facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:465:2:
465 | allocate(facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:466:2:
466 | allocate(factor_idx_arr(nodesize(nodeloop)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:467:2:
467 | call splitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:468:2:
468 | call dataval(xynodedata(:,ind1),nodesize(nodeloop),facvalout,countvec(ind1-3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:469:2:
469 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:470:2:
470 | lo = 1; hi = countvec(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:471:2:
471 | do while (lo <= hi)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:472:2:
472 | mid = (lo + hi) / 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:473:2:
473 | if (facvalout(mid) == xynodedata(i,ind1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:474:2:
474 | factor_idx_arr(i) = mid
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:475:2:
475 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:476:2:
476 | elseif (xynodedata(i,ind1) < facvalout(mid)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:477:2:
477 | hi = mid - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:478:2:
478 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:479:2:
479 | lo = mid + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:480:2:
480 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:481:2:
481 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:482:2:
482 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:483:2:
483 | allocate(factor_count(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:484:2:
484 | allocate(factor_offset(countvec(ind1-3)+1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:485:2:
485 | allocate(factor_obs(nodesize(nodeloop)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:486:2:
486 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:487:2:
487 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:488:2:
488 | f = factor_idx_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:489:2:
489 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:490:2:
490 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:491:2:
491 | factor_offset(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:492:2:
492 | do f = 2, countvec(ind1-3) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:493:2:
493 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:494:2:
494 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:495:2:
495 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:496:2:
496 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:497:2:
497 | f = factor_idx_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:498:2:
498 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:499:2:
499 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:500:2:
500 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:501:2:
501 | if (datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:502:2:
502 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:503:2:
503 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(nodesize(nodeloop))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:504:2:
504 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:505:2:
505 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:506:2:
506 | w_subj_group(:) = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:507:2:
507 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:508:2:
508 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:509:2:
509 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:510:2:
510 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:511:2:
511 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:512:2:
512 | obs_i = factor_obs(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:513:2:
513 | w_ygroup(2) = w_ygroup(2) - xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:514:2:
514 | w_ygroup(1) = w_ygroup(1) + xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:515:2:
515 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:516:2:
516 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:517:2:
517 | ti = ti_arr(obs_i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:518:2:
518 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:519:2:
519 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:520:2:
520 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:521:2:
521 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:522:2:
522 | w_subj_group(w_si_arr(obs_i)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:523:2:
523 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:524:2:
524 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:525:2:
525 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:526:2:
526 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:527:2:
527 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:528:2:
528 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:529:2:
529 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:530:2:
530 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:531:2:
531 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:532:2:
532 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:533:2:
533 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:534:2:
534 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:535:2:
535 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:536:2:
536 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:537:2:
537 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:538:2:
538 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:539:2:
539 | if (w_subj_group(si) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:540:2:
540 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:541:2:
541 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:542:2:
542 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:543:2:
543 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:544:2:
544 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:545:2:
545 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:546:2:
546 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:547:2:
547 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:548:2:
548 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:549:2:
549 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:550:2:
550 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:551:2:
551 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:552:2:
552 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:553:2:
553 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:554:2:
554 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:555:2:
555 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:556:2:
556 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:557:2:
557 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:558:2:
558 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:559:2:
559 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:560:2:
560 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:561:2:
561 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:562:2:
562 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:563:2:
563 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:564:2:
564 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:565:2:
565 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:566:2:
566 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:567:2:
567 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:568:2:
568 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:569:2:
569 | gi = splitindmat(ind2, factor_idx_arr(i)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:570:2:
570 | w_ygroup(gi) = w_ygroup(gi) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:571:2:
571 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:572:2:
572 | ti = ti_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:573:2:
573 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:574:2:
574 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:575:2:
575 | w_subj_group(w_si_arr(i)) = gi
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:576:2:
576 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:577:2:
577 | w_ygroup = w_ygroup / w_ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:578:2:
578 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:579:2:
579 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:580:2:
580 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:581:2:
581 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:582:2:
582 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:583:2:
583 | do gi = 1, 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:584:2:
584 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:585:2:
585 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:586:2:
586 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:587:2:
587 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:588:2:
588 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:589:2:
589 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:590:2:
590 | sssubject = sssubject + w_ysubjectcount(si) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:591:2:
591 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:592:2:
592 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:593:2:
593 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:594:2:
594 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:595:2:
595 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:596:2:
596 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:597:2:
597 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:598:2:
598 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:599:2:
599 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:600:2:
600 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:601:2:
601 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:602:2:
602 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:603:2:
603 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:604:2:
604 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:605:2:
605 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:606:2:
606 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:607:2:
607 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:608:2:
608 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:609:2:
609 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:610:2:
610 | deallocate(splitindmat,facvalout,factor_idx_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:611:2:
611 | deallocate(factor_count, factor_offset, factor_obs)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:612:6:
612 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:613:2:
613 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:614:2:
614 | deallocate(w_subj_map, w_si_arr, ti_arr, w_subj_group)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:615:2:
615 | deallocate(w_ygroup, w_ytime, w_ytime_sum, w_ysubject, w_ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:616:2:
616 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:617:2:
617 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:618:2:
618 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:619:2:
619 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:620:2:
620 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:621:2:
621 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:622:2:
622 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:623:2:
623 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:624:2:
624 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:625:2:
625 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:626:2:
626 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:627:2:
627 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:628:2:
628 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:629:2:
629 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:630:2:
630 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:631:2:
631 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:632:2:
632 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:633:2:
633 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:634:2:
634 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:635:2:
635 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:636:2:
636 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:637:2:
637 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:638:2:
638 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:639:2:
639 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:640:2:
640 | call weightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:641:2:
641 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:642:2:
642 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:643:2:
643 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:644:2:
644 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:645:2:
645 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:646:2:
646 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:647:2:
647 | splitind1 = ind1vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:648:2:
648 | splitind2 = ind2vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:649:2:
649 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:650:2:
650 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:651:2:
651 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:652:2:
652 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:653:2:
653 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:654:2:
654 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:655:2:
655 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:656:2:
656 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:657:2:
657 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:658:2:
658 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:659:2:
659 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:660:2:
660 | call splitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:661:2:
661 | call splitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:662:2:
662 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:663:2:
663 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:664:2:
664 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:665:2:
665 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:666:2:
666 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:667:2:
667 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:668:2:
668 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:669:2:
669 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:670:2:
670 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:671:2:
671 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:672:2:
672 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:673:2:
673 | call weightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:674:2:
674 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:675:2:
675 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:676:2:
676 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:677:2:
677 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:678:2:
678 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:679:2:
679 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:680:2:
680 | splitind1 = ind1vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:681:2:
681 | splitind2 = ind2vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:682:2:
682 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:683:2:
683 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:684:2:
684 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:685:2:
685 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:686:2:
686 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:687:2:
687 | call splitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:688:2:
688 | call splitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:689:2:
689 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:690:2:
690 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:691:2:
691 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:692:2:
692 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:693:2:
693 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:694:2:
694 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:695:2:
695 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:696:2:
696 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:697:2:
697 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:698:2:
698 | call weightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:699:2:
699 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:700:2:
700 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:701:2:
701 | call weightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:702:2:
702 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:703:2:
703 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:704:2:
704 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:705:2:
705 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:706:2:
706 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:707:2:
707 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:708:2:
708 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:709:2:
709 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:710:2:
710 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:711:2:
711 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:712:2:
712 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:713:2:
713 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:714:2:
714 | if(.not. allocated(splitfacval)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:715:2:
715 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:716:2:
716 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:717:2:
717 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:718:2:
718 | if(splitgroupsum <= dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:719:2:
719 | (dble(nodesize(nodeloop)) - splitgroupsum) <= dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:720:2:
720 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:721:2:
721 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:722:2:
722 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:723:2:
723 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:724:2:
724 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:725:2:
725 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:726:2:
726 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:727:2:
727 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:728:2:
728 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:729:2:
729 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:730:2:
730 | call nodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:731:2:
731 | hierarchy+1,nodenummat,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:732:2:
732 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:733:2:
733 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:734:2:
734 | Rsplitmat(nodenum,1) =dble(nodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:735:2:
735 | Rsplitmat(nodenum,2) = splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:736:2:
736 | Rsplitmat(nodenum,3) = 1d0-splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:737:2:
737 | Rsplitmat(nodenum,4) = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:738:2:
738 | Rsplitmat(nodenum,5) = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:739:2:
739 | Rsplitmat(nodenum,6) = splitfval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:740:2:
740 | Rsplitmat(nodenum,7) = splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:741:2:
741 | Rsplitmat(nodenum,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:742:2:
742 | Rsplitmat(nodenum,9) = splitpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:743:2:
743 | Rsplitmat(nodenum,10) = splitmcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:744:6:
744 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:745:2:
745 | if(allocated(fval_cache)) deallocate(fval_cache)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:746:2:
746 | if(allocated(groupsum_cache)) deallocate(groupsum_cache)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:747:2:
747 | if(allocated(flat_idx_vec)) deallocate(flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:748:2:
748 | deallocate(anovadata,xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:749:2:
749 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:750:2:
750 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:751:2:
751 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:752:2:
752 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:753:2:
753 | deallocate(nodesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:754:2:
754 | allocate(nodesize(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:755:2:
755 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:756:2:
756 | deallocate(nodesizesub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:757:2:
757 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:759:2:
759 | deallocate(nodesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:761:2:
761 | if(allocated(fval_cache)) deallocate(fval_cache)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:762:2:
762 | if(allocated(groupsum_cache)) deallocate(groupsum_cache)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:763:2:
763 | if(allocated(flat_idx_vec)) deallocate(flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:766:2:
766 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:767:2:
767 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:768:2:
768 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:769:2:
769 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:770:2:
770 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:771:2:
771 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:772:2:
772 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:773:2:
773 | call datasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:774:2:
774 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:775:2:
775 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:776:2:
776 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:777:2:
777 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:778:2:
778 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:779:2:
779 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:780:2:
780 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:783:2:
783 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:784:2:
784 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:785:2:
785 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:786:2:
786 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:787:2:
787 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:788:2:
788 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:789:2:
789 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:790:2:
790 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:791:2:
791 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:792:2:
792 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:793:2:
793 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:794:2:
794 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:795:2:
795 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:796:2:
796 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:797:2:
797 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:798:2:
798 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:799:2:
799 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:800:2:
800 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:801:2:
801 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:802:2:
802 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:803:2:
803 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:804:2:
804 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:805:2:
805 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:806:2:
806 | call datasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:807:2:
807 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:808:2:
808 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:809:2:
809 | call datasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:810:2:
810 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:811:2:
811 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:814:2:
814 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:815:2:
815 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:816:2:
816 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:817:2:
817 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:818:2:
818 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:819:2:
819 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:820:2:
820 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:821:2:
821 | call datasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:822:2:
822 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:823:2:
823 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:824:2:
824 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:825:2:
825 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:826:2:
826 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:827:2:
827 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:828:2:
828 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:829:2:
829 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:832:2:
832 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:833:2:
833 | integer, intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:834:2:
834 | double precision, intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:835:2:
835 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:836:2:
836 | double precision, intent(out) :: facval(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:837:2:
837 | double precision :: datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:838:2:
838 | integer :: j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:839:2:
839 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:840:2:
840 | call datasort(datavecsub, 1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:841:2:
841 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:842:2:
842 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:843:2:
843 | do j = 2, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:844:2:
844 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:845:2:
845 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:846:2:
846 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:847:2:
847 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:848:2:
848 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:849:2:
849 | facsum = k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:852:2:
852 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:853:2:
853 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:854:2:
854 | double precision, intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:855:2:
855 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:856:2:
856 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:857:2:
857 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:858:2:
858 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:859:2:
859 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:860:2:
860 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:861:2:
861 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:862:2:
862 | call datasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:863:2:
863 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:864:2:
864 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:865:2:
865 | call datasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:866:2:
866 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:867:2:
867 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:868:2:
868 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:869:2:
869 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:872:2:
872 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:873:2:
873 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:874:2:
874 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:875:2:
875 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:876:2:
876 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:877:2:
877 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:878:2:
878 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:879:2:
879 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:880:2:
880 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:881:2:
881 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:882:2:
882 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:883:2:
883 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:884:2:
884 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:885:2:
885 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:886:2:
886 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:887:2:
887 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:888:2:
888 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:889:2:
889 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:890:2:
890 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:891:2:
891 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:892:2:
892 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:893:2:
893 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:894:2:
894 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:895:2:
895 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:896:2:
896 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:897:2:
897 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:898:2:
898 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:899:2:
899 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:900:2:
900 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:901:2:
901 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:902:2:
902 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:903:2:
903 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:904:2:
904 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:905:2:
905 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:906:2:
906 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:907:2:
907 | end subroutine splitmat
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:909:2:
909 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:910:2:
910 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:911:2:
911 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:912:2:
912 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:913:2:
913 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:914:2:
914 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:915:2:
915 | double precision facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:916:2:
916 | call dataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:917:2:
917 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:918:2:
918 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:919:2:
919 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:920:2:
920 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:921:2:
921 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:922:2:
922 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:923:2:
923 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:924:2:
924 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:925:2:
925 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:926:2:
926 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:929:2:
929 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:930:2:
930 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:931:2:
931 | double precision, intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:932:2:
932 | double precision, intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:933:2:
933 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:934:2:
934 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:935:2:
935 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:936:2:
936 | double precision ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:937:2:
937 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:938:2:
938 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:939:2:
939 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:940:2:
940 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:941:2:
941 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:942:2:
942 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:943:2:
943 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:944:2:
944 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:945:2:
945 | subj_map(nint(anovadata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:946:2:
946 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:947:2:
947 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:948:2:
948 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:949:2:
949 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:950:2:
950 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:951:2:
951 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:952:2:
952 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:953:2:
953 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:954:2:
954 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:955:2:
955 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:956:2:
956 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:957:2:
957 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:958:2:
958 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:959:2:
959 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:960:2:
960 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:961:2:
961 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:962:2:
962 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:963:2:
963 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:964:2:
964 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:965:2:
965 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:966:2:
966 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:967:2:
967 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:968:2:
968 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:969:2:
969 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:970:2:
970 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:971:2:
971 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:972:2:
972 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:973:2:
973 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:974:2:
974 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:975:2:
975 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:976:2:
976 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:977:2:
977 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:978:2:
978 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:979:2:
979 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:980:2:
980 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:981:2:
981 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:982:2:
982 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:983:2:
983 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:984:2:
984 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:985:2:
985 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:986:2:
986 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:987:2:
987 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:988:2:
988 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:989:2:
989 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:990:2:
990 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:991:2:
991 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:992:2:
992 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:993:2:
993 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:994:2:
994 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:995:2:
995 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:996:2:
996 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:997:2:
997 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:998:2:
998 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:999:2:
999 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1000:2:
1000 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1001:2:
1001 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1002:2:
1002 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1003:2:
1003 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1004:2:
1004 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1005:2:
1005 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1008:2:
1008 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1009:2:
1009 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1010:2:
1010 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1011:2:
1011 | double precision, intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1012:2:
1012 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1013:2:
1013 | double precision xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1014:2:
1014 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1015:2:
1015 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1016:2:
1016 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1017:2:
1017 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1018:2:
1018 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1019:2:
1019 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1020:2:
1020 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1021:2:
1021 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1022:2:
1022 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1023:2:
1023 | call pfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1024:2:
1024 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1025:2:
1025 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1026:2:
1026 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1027:2:
1027 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1028:2:
1028 | call pfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1029:2:
1029 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1030:2:
1030 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1031:2:
1031 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1032:2:
1032 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1033:2:
1033 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1034:2:
1034 | call demethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1035:2:
1035 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1037:2:
1037 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1040:2:
1040 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1041:2:
1041 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1042:2:
1042 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1043:2:
1043 | double precision,intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1044:2:
1044 | double precision,intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1045:2:
1045 | double precision res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1046:2:
1046 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1048:2:
1048 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1049:2:
1049 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1050:2:
1050 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1051:2:
1051 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1052:2:
1052 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1053:2:
1053 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1054:2:
1054 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1059:2:
1059 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1060:2:
1060 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1061:2:
1061 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1066:2:
1066 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1067:2:
1067 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1068:2:
1068 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1069:2:
1069 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1070:2:
1070 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1071:2:
1071 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1072:2:
1072 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1073:2:
1073 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1074:2:
1074 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1075:2:
1075 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1076:2:
1076 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1077:2:
1077 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1078:2:
1078 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1079:2:
1079 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1080:2:
1080 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1081:2:
1081 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1082:2:
1082 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1083:2:
1083 | s0=s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1084:2:
1084 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1087:2:
1087 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1088:2:
1088 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1090:2:
1090 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1091:2:
1091 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1118:2:
1118 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1127:2:
1127 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1128:2:
1128 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1134:2:
1134 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1168:2:
1168 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1179:2:
1179 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1180:2:
1180 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1181:2:
1181 | double precision,intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1182:2:
1182 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1183:2:
1183 | double precision inv_weight, inv_beta1, inv_beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1184:2:
1184 | double precision df_ratio1, df_ratio2, df11_half, df21_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1185:2:
1185 | double precision df12_sum_half, df22_sum_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1186:2:
1186 | inv_weight = 1d0 - weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1187:2:
1187 | inv_beta1 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1188:2:
1188 | inv_beta2 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1189:2:
1189 | df_ratio1 = df11/df12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1190:2:
1190 | df_ratio2 = df21/df22
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1191:2:
1191 | df11_half = df11/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1192:2:
1192 | df21_half = df21/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1193:2:
1193 | df12_sum_half = (df11+df12)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1194:2:
1194 | df22_sum_half = (df21+df22)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1195:2:
1195 | zval = (z-(inv_weight*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1196:2:
1196 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1197:2:
1197 | form2 = inv_beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1198:2:
1198 | form3 = df_ratio1**df11_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1199:2:
1199 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1200:2:
1200 | form5 = (1d0+(df_ratio1*zval))**df12_sum_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1201:2:
1201 | form6 = inv_beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1202:2:
1202 | form7 = df_ratio2**df21_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1203:2:
1203 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1204:2:
1204 | form9 = (1d0+(df_ratio2*v))**df22_sum_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1205:2:
1205 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1209:2:
1209 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1210:2:
1210 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1211:2:
1211 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1212:2:
1212 | integer, intent(inout) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1213:2:
1213 | integer, intent(out) :: sizel,sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1214:2:
1214 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1215:2:
1215 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1216:2:
1216 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1217:2:
1217 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1218:2:
1218 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1219:2:
1219 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1220:2:
1220 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1221:2:
1221 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1222:2:
1222 | nodenummat(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1223:2:
1223 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1224:2:
1224 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1225:2:
1225 | nodenummat(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1226:2:
1226 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1227:2:
1227 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1228:2:
1228 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1229:2:
1229 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1230:2:
1230 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1231:2:
1231 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1234:2:
1234 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1235:2:
1235 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1236:2:
1236 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1237:2:
1237 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1238:2:
1238 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1239:2:
1239 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1240:2:
1240 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1241:2:
1241 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1242:2:
1242 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1243:2:
1243 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1244:2:
1244 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1245:2:
1245 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1246:2:
1246 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1249:2:
1249 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1250:2:
1250 | integer,intent(in) :: prunind,msize,cv,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1251:2:
1251 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1252:2:
1252 | double precision,intent(in) :: alpha,gamma,allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1253:2:
1253 | double precision,intent(out) :: allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1254:2:
1254 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1255:2:
1255 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1256:2:
1256 | double precision minghval,allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1257:2:
1257 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1258:2:
1258 | allgammaval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1259:2:
1259 | if(prunind == 1 .or. alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1260:2:
1260 | goto 3001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1261:2:
1261 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1262:2:
1262 | call cvterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1263:2:
1263 | call cvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1264:2:
1264 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1265:2:
1265 | call cvpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1266:2:
1266 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1267:2:
1267 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1268:2:
1268 | allgammaval(2) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1269:2:
1269 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1270:2:
1270 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1271:2:
1271 | call cvterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1272:2:
1272 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1273:2:
1273 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1274:2:
1274 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1275:2:
1275 | call cvweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1276:2:
1276 | allocate(nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1277:2:
1277 | call cvpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1278:2:
1278 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1279:2:
1279 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1280:2:
1280 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1281:2:
1281 | allgammaval(prunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1282:2:
1282 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1286:2:
1286 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1287:2:
1287 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1288:2:
1288 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1289:2:
1289 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1290:2:
1290 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1291:2:
1291 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1292:2:
1292 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1293:2:
1293 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1294:2:
1294 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1295:2:
1295 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1296:2:
1296 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1297:2:
1297 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1298:2:
1298 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1299:2:
1299 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1300:2:
1300 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1301:2:
1301 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1302:2:
1302 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1303:2:
1303 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1304:2:
1304 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1305:2:
1305 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1306:2:
1306 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1307:2:
1307 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1308:2:
1308 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1309:2:
1309 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1310:2:
1310 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1311:2:
1311 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1312:2:
1312 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1313:2:
1313 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1314:2:
1314 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1317:2:
1317 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1318:2:
1318 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1319:2:
1319 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1320:2:
1320 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1321:2:
1321 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1322:2:
1322 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1323:2:
1323 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1324:2:
1324 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1325:2:
1325 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1326:2:
1326 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1327:2:
1327 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1328:2:
1328 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1329:2:
1329 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1330:2:
1330 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1331:2:
1331 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1332:2:
1332 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1333:2:
1333 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1334:2:
1334 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1335:2:
1335 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1336:2:
1336 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1337:2:
1337 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1338:2:
1338 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1339:2:
1339 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1340:2:
1340 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1341:2:
1341 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1342:2:
1342 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1343:2:
1343 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1344:2:
1344 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1345:2:
1345 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1346:2:
1346 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1347:2:
1347 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1348:2:
1348 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1349:2:
1349 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1350:2:
1350 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1351:2:
1351 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1352:2:
1352 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1353:2:
1353 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1354:2:
1354 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1355:2:
1355 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1356:2:
1356 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1357:2:
1357 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1358:2:
1358 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1359:2:
1359 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1362:2:
1362 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1363:2:
1363 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1364:2:
1364 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1365:2:
1365 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1366:2:
1366 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1367:2:
1367 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1368:2:
1368 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1369:2:
1369 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1370:2:
1370 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1371:2:
1371 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1372:2:
1372 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1373:2:
1373 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1374:2:
1374 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1375:2:
1375 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1376:2:
1376 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1377:2:
1377 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1378:2:
1378 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1379:2:
1379 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1380:2:
1380 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1381:2:
1381 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1382:2:
1382 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1383:2:
1383 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1384:2:
1384 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1385:2:
1385 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1386:2:
1386 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1387:2:
1387 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1388:2:
1388 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1389:2:
1389 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1393:2:
1393 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1394:2:
1394 | integer,intent(in) :: cv,msize,colnum,Ksplit,maxdepth,levelcount,beta1len,beta2len,minbucket,minsplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1395:2:
1395 | integer,intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1396:2:
1396 | integer,intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1397:2:
1397 | real(8),intent(in) :: alpha,gamma,fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1398:2:
1398 | real(8),intent(in) :: beta1(beta1len),beta2(beta2len),allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1399:2:
1399 | real(8),intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1400:2:
1400 | real(8),intent(out) :: bestgammaval,r2cvvalmean
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1401:2:
1401 | integer, allocatable :: cvind(:),cvsize(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1402:2:
1402 | integer, allocatable :: nodenummat(:,:), prunenodenummat(:,:),nodenummattest(:,:),prunenodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1403:2:
1403 | real(8), allocatable :: meangammacv(:),meangammar2cv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1404:2:
1404 | real(8), allocatable :: gammacvmat(:,:),traindata(:,:),testdata(:,:),gammar2cvmat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1405:2:
1405 | integer cvloop,traindatasize,testdatasize,prunind,i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1406:2:
1406 | real(8) allfval((2**maxdepth)-1),gammacv((2**(maxdepth-1))-1),r2cvvalvec(ksplit),gammar2cv((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1407:2:
1407 | real(8) r2cvval,maxgammasub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1408:2:
1408 | allocate(cvind(msize),cvsize(Ksplit),gammacvmat(ksplit,(2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1409:2:
1409 | allocate(gammar2cvmat(ksplit,(2**(maxdepth-1))-1),meangammacv((2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1410:2:
1410 | allocate(meangammar2cv((2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1411:2:
1411 | call cvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1412:2:
1412 | meangammacv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1413:2:
1413 | meangammar2cv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1414:2:
1414 | gammacvmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1415:2:
1415 | gammar2cvmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1416:2:
1416 | r2cvvalvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1417:2:
1417 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1418:2:
1418 | gammacv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1419:2:
1419 | r2cvvalvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1420:2:
1420 | gammar2cv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1421:2:
1421 | do cvloop = 1,Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1422:2:
1422 | traindatasize = ((sum(cvsize)-cvsize(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1423:2:
1423 | testdatasize = (cvsize(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1424:2:
1424 | allocate(traindata(traindatasize,colnum),testdata(testdatasize,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1425:2:
1425 | allocate(nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1426:2:
1426 | call cvdatachoice(XYDATA,msize,colnum,Ksplit,levelcount,cvloop,cvind,cvsize,traindata,testdata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1427:2:
1427 | call cvtreegrowth(traindatasize,testdatasize,traindata,testdata,nodenummattest,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1428:2:
1428 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,xydata,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1429:2:
1429 | beta2len,nodenummat,allfval,prunind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1430:2:
1430 | if(alpha < 1d0 .and. gamma < 0d0 .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1431:2:
1431 | call R2CV(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1432:2:
1432 | nodenummattest,testdatasize,maxdepth,r2cvval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1433:2:
1433 | r2cvvalvec(cvloop) = r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1434:2:
1434 | bestgammaval = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1435:2:
1435 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1436:2:
1436 | if(alpha == 1d0 .and. gamma >= 0d0 .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1437:2:
1437 | allocate(prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1438:2:
1438 | call cvgammatreepruning(prunind,traindatasize,testdatasize,gamma,maxdepth,nodenummat,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1439:2:
1439 | nodenummattest,allfval,prunenodenummat,prunenodenummattest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1440:2:
1440 | call R2CV(traindata,traindatasize,prunenodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1441:2:
1441 | prunenodenummattest,testdatasize,maxdepth,r2cvval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1442:2:
1442 | r2cvvalvec(cvloop) = r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1443:2:
1443 | deallocate(prunenodenummattest,prunenodenummat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1444:2:
1444 | bestgammaval = gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1445:2:
1445 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1446:2:
1446 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1447:2:
1447 | call cvbesttreepruning(traindatasize,testdatasize,maxdepth,nodenummat,nodenummattest,allfval,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1448:2:
1448 | levelcount,colnum,traindata,testdata,allgammaval,gammacv,gammar2cv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1449:2:
1449 | gammacvmat(cvloop,:) = gammacv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1450:2:
1450 | gammar2cvmat(cvloop,:) = gammar2cv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1451:2:
1451 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1452:2:
1452 | deallocate(traindata,testdata,nodenummat,nodenummattest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1453:2:
1453 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1454:2:
1454 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1455:2:
1455 | do i = 1,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1456:2:
1456 | meangammacv(i) = sum(gammacvmat(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1457:2:
1457 | meangammar2cv(i) = sum(gammar2cvmat(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1458:2:
1458 | if(meangammacv(i) > 0 .and. meangammar2cv(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1459:2:
1459 | meangammacv(i) = meangammacv(i) / dble(msize/levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1460:2:
1460 | meangammar2cv(i) = meangammar2cv(i) / dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1461:2:
1461 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1462:2:
1462 | meangammacv(i) = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1463:2:
1463 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1464:2:
1464 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1465:2:
1465 | maxgammasub = maxval(meangammacv) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1466:2:
1466 | do i = 1,size(meangammacv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1467:2:
1467 | if(meangammacv(i) < maxgammasub .and. meangammacv(i) >= 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1468:2:
1468 | bestgammaval = allgammaval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1469:2:
1469 | maxgammasub = meangammacv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1470:2:
1470 | r2cvvalmean = meangammar2cv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1471:2:
1471 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1472:2:
1472 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1473:2:
1473 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1474:2:
1474 | r2cvvalmean=sum(r2cvvalvec)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1475:2:
1475 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1478:2:
1478 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1479:2:
1479 | integer, intent(in) :: msize,colnum,Ksplit,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1480:2:
1480 | integer, intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1481:2:
1481 | real(8), intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1482:2:
1482 | integer, intent(out) :: cvind(msize), cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1483:2:
1483 | integer i,subnum, randval, cvsizecou(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1484:2:
1484 | integer, allocatable :: cvindsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1485:2:
1485 | real(8) randvalsub,ii
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1486:2:
1486 | integer :: seed_size, seed_i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1487:2:
1487 | integer, allocatable :: seed_array(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1488:2:
1488 | call random_seed(size=seed_size)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1489:2:
1489 | allocate(seed_array(seed_size))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1490:2:
1490 | do seed_i = 1, seed_size
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1491:2:
1491 | seed_array(seed_i) = iseed + (seed_i - 1) * 37
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1492:2:
1492 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1493:2:
1493 | call random_seed(put=seed_array)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1494:2:
1494 | deallocate(seed_array)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1495:2:
1495 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1496:2:
1496 | cvsize(:) = subnum/Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1497:2:
1497 | do i = 1,(subnum - sum(cvsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1498:2:
1498 | cvsize(i) = cvsize(i) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1499:2:
1499 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1500:2:
1500 | allocate(cvindsub(subnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1501:2:
1501 | cvsizecou(:) = cvsize(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1502:2:
1502 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1503:2:
1503 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1504:2:
1504 | call random_number(randvalsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1505:2:
1505 | randval = int(randvalsub * dble(Ksplit)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1506:2:
1506 | if(cvsizecou(randval) > 0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1507:2:
1507 | cvsizecou(randval) = cvsizecou(randval) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1508:2:
1508 | cvindsub(i) = randval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1509:2:
1509 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1510:2:
1510 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1511:2:
1511 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1512:2:
1512 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1513:2:
1513 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1514:2:
1514 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1515:2:
1515 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1518:2:
1518 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1519:2:
1519 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1520:2:
1520 | real(8), intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1521:2:
1521 | integer, intent(in) :: cvind(msize),cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1522:2:
1522 | real(8), intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),testdata((cvsize(testind)*levelcount),colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1523:2:
1523 | integer i,jtrain,jtest,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1524:2:
1524 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1525:2:
1525 | jtest = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1526:2:
1526 | jtrain = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1527:2:
1527 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1528:2:
1528 | if(cvind(((i-1)*levelcount)+1) == testind) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1529:2:
1529 | testdata((levelcount*(jtest-1)+1):(levelcount*jtest),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1530:2:
1530 | jtest = jtest + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1531:2:
1531 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1532:2:
1532 | traindata((levelcount*(jtrain-1)+1):(levelcount*jtrain),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1533:2:
1533 | jtrain = jtrain + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1534:2:
1534 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1535:2:
1535 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1540:2:
1540 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1541:2:
1541 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1542:2:
1542 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1543:2:
1543 | real(8), intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1544:2:
1544 | real(8), intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1545:2:
1545 | real(8), intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1546:2:
1546 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1547:2:
1547 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1548:2:
1548 | real(8),intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1549:2:
1549 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1550:2:
1550 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1551:2:
1551 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1552:2:
1552 | real(8) splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1553:2:
1553 | real(8) fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1554:2:
1554 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1555:2:
1555 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1556:2:
1556 | real(8), allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1557:2:
1557 | real(8), allocatable :: xynodedata(:,:),xynodedatatest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1558:2:
1558 | real(8), allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1559:2:
1559 | integer, allocatable :: factor_idx(:), flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1560:2:
1560 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1561:2:
1561 | real(8) :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1562:2:
1562 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1563:2:
1563 | integer, allocatable :: w_subj_map(:), w_si_arr(:), w_subj_group(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1564:2:
1564 | real(8), allocatable :: w_ygroup(:), w_ytime(:), w_ysubject(:), w_ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1565:2:
1565 | real(8), allocatable :: w_ygroupcount(:), w_ytimecount(:), w_ysubjectcount(:), w_ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1566:2:
1566 | integer :: w_nsubjects, w_timecount, w_max_subj_id, gi, ti, si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1567:2:
1567 | real(8) :: ymean_const, sstotal_const, sstime_const
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1568:2:
1568 | real(8) :: ssgroup, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1569:2:
1569 | integer, allocatable :: ti_arr(:), factor_count(:), factor_offset(:), factor_obs(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1570:2:
1570 | real(8) :: total_y_sum, ygroup_mean1, ygroup_mean2, gt_mean
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1571:2:
1571 | real(8), allocatable :: w_ytime_sum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1572:2:
1572 | integer :: obs_i, f, lo, hi, mid
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1573:2:
1573 | nodenummat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1574:2:
1574 | nodenummat(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1575:2:
1575 | nodenummattest(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1576:2:
1576 | nodenummattest(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1577:2:
1577 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1578:2:
1578 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1579:2:
1579 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1580:2:
1580 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1581:2:
1581 | allocate(nodesize(2),nodesizetest(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1582:2:
1582 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1583:2:
1583 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1584:2:
1584 | call cvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1585:2:
1585 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1586:2:
1586 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1587:2:
1587 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1588:2:
1588 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1589:2:
1589 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1590:2:
1590 | allocate(anovadata(traindatasize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1591:2:
1591 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1592:2:
1592 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1593:2:
1593 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1594:2:
1594 | w_timecount = nint(maxval(traindata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1595:2:
1595 | w_max_subj_id = nint(maxval(traindata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1596:2:
1596 | allocate(w_subj_map(w_max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1597:2:
1597 | w_subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1598:2:
1598 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1599:2:
1599 | w_subj_map(nint(traindata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1600:2:
1600 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1601:2:
1601 | w_nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1602:2:
1602 | do i = 1, w_max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1603:2:
1603 | if (w_subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1604:2:
1604 | w_nsubjects = w_nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1605:2:
1605 | w_subj_map(i) = w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1606:2:
1606 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1607:2:
1607 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1608:2:
1608 | allocate(w_si_arr(traindatasize), w_ygroup(2), w_ytime(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1609:2:
1609 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1610:2:
1610 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1611:2:
1611 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1612:2:
1612 | allocate(w_subj_group(w_nsubjects))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1613:2:
1613 | allocate(ti_arr(traindatasize), w_ytime_sum(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1614:2:
1614 | dfvec_const(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1615:2:
1615 | dfvec_const(2) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1616:2:
1616 | dfvec_const(3) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1617:2:
1617 | dfvec_const(4) = w_nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1618:2:
1618 | dfvec_const(5) = (w_timecount - 1) * (w_nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1619:2:
1619 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1620:2:
1620 | ymean_const = sum(traindata(:,1)) / dble(traindatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1621:2:
1621 | sstotal_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1622:2:
1622 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1623:2:
1623 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1624:2:
1624 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1625:2:
1625 | ti = nint(traindata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1626:2:
1626 | si = w_subj_map(nint(traindata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1627:2:
1627 | w_si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1628:2:
1628 | ti_arr(i) = ti
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1629:2:
1629 | sstotal_const = sstotal_const + (traindata(i,1) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1630:2:
1630 | w_ytime(ti) = w_ytime(ti) + traindata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1631:2:
1631 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1632:2:
1632 | w_ysubject(si) = w_ysubject(si) + traindata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1633:2:
1633 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1634:2:
1634 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1635:2:
1635 | w_ytime_sum = w_ytime
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1636:2:
1636 | total_y_sum = ymean_const * dble(traindatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1637:2:
1637 | w_ytime = w_ytime / w_ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1638:2:
1638 | w_ysubject = w_ysubject / w_ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1639:2:
1639 | sstime_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1640:2:
1640 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1641:2:
1641 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1642:2:
1642 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1643:2:
1643 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1644:2:
1644 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1645:2:
1645 | allocate(factor_idx(traindatasize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1646:2:
1646 | call cvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1647:2:
1647 | call cvdataval(traindata(:,ind1),traindatasize,facvalout,countvec(ind1-3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1648:2:
1648 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1649:2:
1649 | lo = 1; hi = countvec(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1650:2:
1650 | do while (lo <= hi)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1651:2:
1651 | mid = (lo + hi) / 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1652:2:
1652 | if (facvalout(mid) == traindata(i,ind1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1653:2:
1653 | factor_idx(i) = mid
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1654:2:
1654 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1655:2:
1655 | elseif (traindata(i,ind1) < facvalout(mid)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1656:2:
1656 | hi = mid - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1657:2:
1657 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1658:2:
1658 | lo = mid + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1659:2:
1659 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1660:2:
1660 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1661:2:
1661 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1662:2:
1662 | allocate(factor_count(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1663:2:
1663 | allocate(factor_offset(countvec(ind1-3)+1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1664:2:
1664 | allocate(factor_obs(traindatasize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1665:2:
1665 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1666:2:
1666 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1667:2:
1667 | f = factor_idx(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1668:2:
1668 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1669:2:
1669 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1670:2:
1670 | factor_offset(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1671:2:
1671 | do f = 2, countvec(ind1-3) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1672:2:
1672 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1673:2:
1673 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1674:2:
1674 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1675:2:
1675 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1676:2:
1676 | f = factor_idx(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1677:2:
1677 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1678:2:
1678 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1679:2:
1679 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1680:2:
1680 | if (datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1681:2:
1681 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1682:2:
1682 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(traindatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1683:2:
1683 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1684:2:
1684 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1685:2:
1685 | w_subj_group(:) = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1686:2:
1686 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1687:2:
1687 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1688:2:
1688 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1689:2:
1689 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1690:2:
1690 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1691:2:
1691 | obs_i = factor_obs(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1692:2:
1692 | w_ygroup(2) = w_ygroup(2) - traindata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1693:2:
1693 | w_ygroup(1) = w_ygroup(1) + traindata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1694:2:
1694 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1695:2:
1695 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1696:2:
1696 | ti = ti_arr(obs_i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1697:2:
1697 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - traindata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1698:2:
1698 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + traindata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1699:2:
1699 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1700:2:
1700 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1701:2:
1701 | w_subj_group(w_si_arr(obs_i)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1702:2:
1702 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1703:2:
1703 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1704:2:
1704 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1705:2:
1705 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1706:2:
1706 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1707:2:
1707 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1708:2:
1708 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1709:2:
1709 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1710:2:
1710 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1711:2:
1711 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1712:2:
1712 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1713:2:
1713 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1714:2:
1714 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1715:2:
1715 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1716:2:
1716 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1717:2:
1717 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1718:2:
1718 | if (w_subj_group(si) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1719:2:
1719 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1720:2:
1720 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1721:2:
1721 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1722:2:
1722 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1723:2:
1723 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1724:2:
1724 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1725:2:
1725 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1726:2:
1726 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1727:2:
1727 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1728:2:
1728 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1729:2:
1729 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1730:2:
1730 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1731:2:
1731 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1732:2:
1732 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1733:2:
1733 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1734:2:
1734 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1735:2:
1735 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1736:2:
1736 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1737:2:
1737 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1738:2:
1738 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1739:2:
1739 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1740:2:
1740 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1741:2:
1741 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1742:2:
1742 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1743:2:
1743 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1744:2:
1744 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1745:2:
1745 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1746:2:
1746 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1747:2:
1747 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1748:2:
1748 | gi = splitindmat(ind2, factor_idx(i)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1749:2:
1749 | w_ygroup(gi) = w_ygroup(gi) + traindata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1750:2:
1750 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1751:2:
1751 | ti = ti_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1752:2:
1752 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + traindata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1753:2:
1753 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1754:2:
1754 | w_subj_group(w_si_arr(i)) = gi
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1755:2:
1755 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1756:2:
1756 | w_ygroup = w_ygroup / w_ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1757:2:
1757 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1758:2:
1758 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1759:2:
1759 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1760:2:
1760 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1761:2:
1761 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1762:2:
1762 | do gi = 1, 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1763:2:
1763 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1764:2:
1764 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1765:2:
1765 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1766:2:
1766 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1767:2:
1767 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1768:2:
1768 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1769:2:
1769 | sssubject = sssubject + w_ysubjectcount(si) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1770:2:
1770 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1771:2:
1771 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1772:2:
1772 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1773:2:
1773 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1774:2:
1774 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1775:2:
1775 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1776:2:
1776 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1777:2:
1777 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1778:2:
1778 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1779:2:
1779 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1780:2:
1780 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1781:2:
1781 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1782:2:
1782 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1783:2:
1783 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1784:2:
1784 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1785:2:
1785 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1786:2:
1786 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1787:2:
1787 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1788:2:
1788 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1789:2:
1789 | deallocate(splitindmat,facvalout,factor_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1790:2:
1790 | deallocate(factor_count, factor_offset, factor_obs)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1791:2:
1791 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1792:2:
1792 | deallocate(w_subj_map, w_si_arr, w_ygroup, w_ytime, w_ysubject, w_ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1793:2:
1793 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount, w_subj_group)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1794:2:
1794 | deallocate(ti_arr, w_ytime_sum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1795:2:
1795 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1796:2:
1796 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1797:2:
1797 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1798:2:
1798 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1799:2:
1799 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1800:2:
1800 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1801:2:
1801 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1802:2:
1802 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1803:2:
1803 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1804:2:
1804 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1805:2:
1805 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1806:2:
1806 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1807:2:
1807 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1808:2:
1808 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1809:2:
1809 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1810:2:
1810 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1811:2:
1811 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1812:2:
1812 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1813:2:
1813 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1814:2:
1814 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1815:2:
1815 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1816:2:
1816 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1817:2:
1817 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1818:2:
1818 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1819:2:
1819 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1820:2:
1820 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1821:2:
1821 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1822:2:
1822 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1823:2:
1823 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1824:2:
1824 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1825:2:
1825 | splitind1 = ind1vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1826:2:
1826 | splitind2 = ind2vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1827:2:
1827 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1828:2:
1828 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1829:2:
1829 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1830:2:
1830 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1831:2:
1831 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1832:2:
1832 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1833:2:
1833 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1834:2:
1834 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1835:2:
1835 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1836:2:
1836 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1837:2:
1837 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1838:2:
1838 | call cvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1839:2:
1839 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1840:2:
1840 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1841:2:
1841 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1842:2:
1842 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1843:2:
1843 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1844:2:
1844 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1845:2:
1845 | call cvdatasum(xydata(:,splitind1),msize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1846:2:
1846 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1847:2:
1847 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1848:2:
1848 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1849:2:
1849 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1850:2:
1850 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1851:2:
1851 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1852:2:
1852 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1853:2:
1853 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1854:2:
1854 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1855:2:
1855 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1856:2:
1856 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1857:2:
1857 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1858:2:
1858 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1859:2:
1859 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1860:2:
1860 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1861:2:
1861 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1862:2:
1862 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1863:2:
1863 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1864:2:
1864 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1865:2:
1865 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1866:2:
1866 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1867:2:
1867 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1868:2:
1868 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1869:2:
1869 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1870:2:
1870 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1871:2:
1871 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1872:2:
1872 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1873:2:
1873 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1874:2:
1874 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1875:2:
1875 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1876:2:
1876 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1877:2:
1877 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1878:2:
1878 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1879:2:
1879 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1880:2:
1880 | splitind1 = ind1vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1881:2:
1881 | splitind2 = ind2vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1882:2:
1882 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1883:2:
1883 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1884:2:
1884 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1885:2:
1885 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1886:2:
1886 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1887:2:
1887 | call cvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1888:2:
1888 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1889:2:
1889 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1890:2:
1890 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1891:2:
1891 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1892:2:
1892 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1893:2:
1893 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1894:2:
1894 | call cvdatasum(xydata(:,splitind1),msize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1895:2:
1895 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1896:2:
1896 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1897:2:
1897 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1898:2:
1898 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1899:2:
1899 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1900:2:
1900 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1901:2:
1901 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1902:2:
1902 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1903:2:
1903 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1904:2:
1904 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1905:2:
1905 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1906:2:
1906 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1907:2:
1907 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1908:2:
1908 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1909:2:
1909 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1910:2:
1910 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1911:2:
1911 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1912:2:
1912 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1913:2:
1913 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1914:2:
1914 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1915:2:
1915 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1916:2:
1916 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1917:2:
1917 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1918:2:
1918 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1919:2:
1919 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1920:2:
1920 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1921:2:
1921 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1922:2:
1922 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1923:2:
1923 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1924:2:
1924 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1925:2:
1925 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1926:2:
1926 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1927:2:
1927 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1928:2:
1928 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1929:2:
1929 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1930:2:
1930 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1931:2:
1931 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1932:2:
1932 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1933:2:
1933 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1934:2:
1934 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1935:2:
1935 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1936:2:
1936 | if(.not. allocated(splitfacval)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1937:2:
1937 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1938:2:
1938 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1939:2:
1939 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1940:2:
1940 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1941:2:
1941 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1942:2:
1942 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1943:2:
1943 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1944:2:
1944 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1945:2:
1945 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1946:2:
1946 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1947:2:
1947 | call cvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1948:2:
1948 | hierarchy+1,nodenummat,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1949:2:
1949 | call cvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1950:2:
1950 | hierarchy+1,nodenummattest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1951:2:
1951 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1952:2:
1952 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1953:2:
1953 | nodesizetest(1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1954:2:
1954 | nodesizetest(2) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1955:2:
1955 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1956:2:
1956 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1957:2:
1957 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1958:2:
1958 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1959:2:
1959 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1960:2:
1960 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1961:2:
1961 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1962:2:
1962 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1963:2:
1963 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1964:2:
1964 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1965:2:
1965 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1966:2:
1966 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1967:2:
1967 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1968:2:
1968 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1969:2:
1969 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1970:2:
1970 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1971:2:
1971 | call cvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,maxdepth,nodenummat,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1972:2:
1972 | call cvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,maxdepth,nodenummattest,nodesizetest(nodeloop),xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1973:2:
1973 | call cvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1974:2:
1974 | if(sum(splitnum) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1975:2:
1975 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1976:2:
1976 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1977:2:
1977 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1978:2:
1978 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1979:2:
1979 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1980:2:
1980 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1981:2:
1981 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1982:2:
1982 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1983:2:
1983 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1984:2:
1984 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1985:2:
1985 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1986:2:
1986 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1987:2:
1987 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1988:2:
1988 | w_timecount = nint(maxval(xynodedata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1989:2:
1989 | w_max_subj_id = nint(maxval(xynodedata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1990:2:
1990 | allocate(w_subj_map(w_max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1991:2:
1991 | w_subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1992:2:
1992 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1993:2:
1993 | w_subj_map(nint(xynodedata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1994:2:
1994 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1995:2:
1995 | w_nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1996:2:
1996 | do i = 1, w_max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1997:2:
1997 | if (w_subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1998:2:
1998 | w_nsubjects = w_nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1999:2:
1999 | w_subj_map(i) = w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2000:2:
2000 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2001:2:
2001 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2002:2:
2002 | allocate(w_si_arr(nodesize(nodeloop)), w_ygroup(2), w_ytime(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2003:2:
2003 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2004:2:
2004 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2005:2:
2005 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2006:2:
2006 | allocate(w_subj_group(w_nsubjects))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2007:2:
2007 | allocate(ti_arr(nodesize(nodeloop)), w_ytime_sum(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2008:2:
2008 | dfvec_const(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2009:2:
2009 | dfvec_const(2) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2010:2:
2010 | dfvec_const(3) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2011:2:
2011 | dfvec_const(4) = w_nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2012:2:
2012 | dfvec_const(5) = (w_timecount - 1) * (w_nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2013:2:
2013 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2014:2:
2014 | ymean_const = sum(xynodedata(:,1)) / dble(nodesize(nodeloop))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2015:2:
2015 | sstotal_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2016:2:
2016 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2017:2:
2017 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2018:2:
2018 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2019:2:
2019 | ti = nint(xynodedata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2020:2:
2020 | si = w_subj_map(nint(xynodedata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2021:2:
2021 | w_si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2022:2:
2022 | ti_arr(i) = ti
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2023:2:
2023 | sstotal_const = sstotal_const + (xynodedata(i,1) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2024:2:
2024 | w_ytime(ti) = w_ytime(ti) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2025:2:
2025 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2026:2:
2026 | w_ysubject(si) = w_ysubject(si) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2027:2:
2027 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2028:2:
2028 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2029:2:
2029 | w_ytime_sum = w_ytime
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2030:2:
2030 | total_y_sum = ymean_const * dble(nodesize(nodeloop))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2031:2:
2031 | w_ytime = w_ytime / w_ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2032:2:
2032 | w_ysubject = w_ysubject / w_ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2033:2:
2033 | sstime_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2034:2:
2034 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2035:2:
2035 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2036:2:
2036 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2037:2:
2037 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2038:2:
2038 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2039:2:
2039 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2040:2:
2040 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2041:2:
2041 | if(allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2042:2:
2042 | deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2043:2:
2043 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2044:2:
2044 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2045:2:
2045 | if(allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2046:2:
2046 | deallocate(facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2047:2:
2047 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2048:2:
2048 | allocate(facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2049:2:
2049 | allocate(factor_idx(nodesize(nodeloop)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2050:2:
2050 | call cvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2051:2:
2051 | call cvdataval(xynodedata(:,ind1),nodesize(nodeloop),facvalout,countvec(ind1-3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2052:2:
2052 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2053:2:
2053 | lo = 1; hi = countvec(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2054:2:
2054 | do while (lo <= hi)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2055:2:
2055 | mid = (lo + hi) / 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2056:2:
2056 | if (facvalout(mid) == xynodedata(i,ind1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2057:2:
2057 | factor_idx(i) = mid
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2058:2:
2058 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2059:2:
2059 | elseif (xynodedata(i,ind1) < facvalout(mid)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2060:2:
2060 | hi = mid - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2061:2:
2061 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2062:2:
2062 | lo = mid + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2063:2:
2063 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2064:2:
2064 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2065:2:
2065 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2066:2:
2066 | allocate(factor_count(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2067:2:
2067 | allocate(factor_offset(countvec(ind1-3)+1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2068:2:
2068 | allocate(factor_obs(nodesize(nodeloop)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2069:2:
2069 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2070:2:
2070 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2071:2:
2071 | f = factor_idx(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2072:2:
2072 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2073:2:
2073 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2074:2:
2074 | factor_offset(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2075:2:
2075 | do f = 2, countvec(ind1-3) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2076:2:
2076 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2077:2:
2077 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2078:2:
2078 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2079:2:
2079 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2080:2:
2080 | f = factor_idx(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2081:2:
2081 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2082:2:
2082 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2083:2:
2083 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2084:2:
2084 | if (datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2085:2:
2085 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2086:2:
2086 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(nodesize(nodeloop))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2087:2:
2087 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2088:2:
2088 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2089:2:
2089 | w_subj_group(:) = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2090:2:
2090 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2091:2:
2091 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2092:2:
2092 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2093:2:
2093 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2094:2:
2094 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2095:2:
2095 | obs_i = factor_obs(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2096:2:
2096 | w_ygroup(2) = w_ygroup(2) - xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2097:2:
2097 | w_ygroup(1) = w_ygroup(1) + xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2098:2:
2098 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2099:2:
2099 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2100:2:
2100 | ti = ti_arr(obs_i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2101:2:
2101 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2102:2:
2102 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2103:2:
2103 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2104:2:
2104 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2105:2:
2105 | w_subj_group(w_si_arr(obs_i)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2106:2:
2106 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2107:2:
2107 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2108:2:
2108 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2109:2:
2109 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2110:2:
2110 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2111:2:
2111 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2112:2:
2112 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2113:2:
2113 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2114:2:
2114 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2115:2:
2115 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2116:2:
2116 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2117:2:
2117 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2118:2:
2118 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2119:2:
2119 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2120:2:
2120 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2121:2:
2121 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2122:2:
2122 | if (w_subj_group(si) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2123:2:
2123 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2124:2:
2124 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2125:2:
2125 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2126:2:
2126 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2127:2:
2127 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2128:2:
2128 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2129:2:
2129 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2130:2:
2130 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2131:2:
2131 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2132:2:
2132 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2133:2:
2133 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2134:2:
2134 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2135:2:
2135 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2136:2:
2136 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2137:2:
2137 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2138:2:
2138 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2139:2:
2139 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2140:2:
2140 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2141:2:
2141 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2142:2:
2142 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2143:2:
2143 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2144:2:
2144 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2145:2:
2145 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2146:2:
2146 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2147:2:
2147 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2148:2:
2148 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2149:2:
2149 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2150:2:
2150 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2151:2:
2151 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2152:2:
2152 | gi = splitindmat(ind2, factor_idx(i)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2153:2:
2153 | w_ygroup(gi) = w_ygroup(gi) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2154:2:
2154 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2155:2:
2155 | ti = ti_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2156:2:
2156 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2157:2:
2157 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2158:2:
2158 | w_subj_group(w_si_arr(i)) = gi
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2159:2:
2159 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2160:2:
2160 | w_ygroup = w_ygroup / w_ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2161:2:
2161 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2162:2:
2162 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2163:2:
2163 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2164:2:
2164 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2165:2:
2165 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2166:2:
2166 | do gi = 1, 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2167:2:
2167 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2168:2:
2168 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2169:2:
2169 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2170:2:
2170 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2171:2:
2171 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2172:2:
2172 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2173:2:
2173 | sssubject = sssubject + w_ysubjectcount(si) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2174:2:
2174 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2175:2:
2175 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2176:2:
2176 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2177:2:
2177 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2178:2:
2178 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2179:2:
2179 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2180:2:
2180 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2181:2:
2181 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2182:2:
2182 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2183:2:
2183 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2184:2:
2184 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2185:2:
2185 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2186:2:
2186 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2187:2:
2187 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2188:2:
2188 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2189:2:
2189 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2190:2:
2190 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2191:2:
2191 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2192:2:
2192 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2193:2:
2193 | deallocate(splitindmat,facvalout,factor_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2194:2:
2194 | deallocate(factor_count, factor_offset, factor_obs)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2195:6:
2195 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2196:2:
2196 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2197:2:
2197 | deallocate(w_subj_map, w_si_arr, w_subj_group, w_ygroup, w_ytime, w_ysubject, w_ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2198:2:
2198 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2199:2:
2199 | deallocate(ti_arr, w_ytime_sum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2200:2:
2200 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2201:2:
2201 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2202:2:
2202 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2203:2:
2203 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2204:2:
2204 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2205:2:
2205 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2206:2:
2206 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2207:2:
2207 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2208:2:
2208 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2209:2:
2209 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2210:2:
2210 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2211:2:
2211 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2212:2:
2212 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2213:2:
2213 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2214:2:
2214 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2215:2:
2215 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2216:2:
2216 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2217:2:
2217 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2218:2:
2218 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2219:2:
2219 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2220:2:
2220 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2221:2:
2221 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2222:2:
2222 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2223:2:
2223 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2224:2:
2224 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2225:2:
2225 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2226:2:
2226 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2227:2:
2227 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2228:2:
2228 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2229:2:
2229 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2230:2:
2230 | splitind1 = ind1vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2231:2:
2231 | splitind2 = ind2vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2232:2:
2232 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2233:2:
2233 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2234:2:
2234 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2235:2:
2235 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2236:2:
2236 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2237:2:
2237 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2238:2:
2238 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2239:2:
2239 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2240:2:
2240 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2241:2:
2241 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2242:2:
2242 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2243:2:
2243 | call cvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2244:2:
2244 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2245:2:
2245 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2246:2:
2246 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2247:2:
2247 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2248:2:
2248 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2249:2:
2249 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2250:2:
2250 | call cvdatasum(xydata(:,splitind1),msize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2251:2:
2251 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2252:2:
2252 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2253:2:
2253 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2254:2:
2254 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2255:2:
2255 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2256:2:
2256 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2257:2:
2257 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2258:2:
2258 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2259:2:
2259 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2260:2:
2260 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2261:2:
2261 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2262:2:
2262 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2263:2:
2263 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2264:2:
2264 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2265:2:
2265 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2266:2:
2266 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2267:2:
2267 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2268:2:
2268 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2269:2:
2269 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2270:2:
2270 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2271:2:
2271 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2272:2:
2272 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2273:2:
2273 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2274:2:
2274 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2275:2:
2275 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2276:2:
2276 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2277:2:
2277 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2278:2:
2278 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2279:2:
2279 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2280:2:
2280 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2281:2:
2281 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2282:2:
2282 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2283:2:
2283 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2284:2:
2284 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2285:2:
2285 | splitind1 = ind1vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2286:2:
2286 | splitind2 = ind2vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2287:2:
2287 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2288:2:
2288 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2289:2:
2289 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2290:2:
2290 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2291:2:
2291 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2292:2:
2292 | call cvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2293:2:
2293 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2294:2:
2294 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2295:2:
2295 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2296:2:
2296 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2297:2:
2297 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2298:2:
2298 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2299:2:
2299 | call cvdatasum(xydata(:,splitind1),msize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2300:2:
2300 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2301:2:
2301 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2302:2:
2302 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2303:2:
2303 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2304:2:
2304 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2305:2:
2305 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2306:2:
2306 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2307:2:
2307 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2308:2:
2308 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2309:2:
2309 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2310:2:
2310 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2311:2:
2311 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2312:2:
2312 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2313:2:
2313 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2314:2:
2314 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2315:2:
2315 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2316:2:
2316 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2317:2:
2317 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2318:2:
2318 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2319:2:
2319 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2320:2:
2320 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2321:2:
2321 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2322:2:
2322 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2323:2:
2323 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2324:2:
2324 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2325:2:
2325 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2326:2:
2326 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2327:2:
2327 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2328:2:
2328 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2329:2:
2329 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2330:2:
2330 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2331:2:
2331 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2332:2:
2332 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2333:2:
2333 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2334:2:
2334 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2335:2:
2335 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2336:2:
2336 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2337:2:
2337 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2338:2:
2338 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2339:2:
2339 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2340:2:
2340 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2341:2:
2341 | if(.not. allocated(splitfacval)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2342:2:
2342 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2343:2:
2343 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2344:2:
2344 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2345:2:
2345 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2346:2:
2346 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2347:2:
2347 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2348:2:
2348 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2349:2:
2349 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2350:2:
2350 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2351:2:
2351 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2352:2:
2352 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2353:2:
2353 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2354:2:
2354 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2355:2:
2355 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2356:2:
2356 | if(.not. allocated(nodesizesubtest)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2357:2:
2357 | allocate(nodesizesubtest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2358:2:
2358 | nodesizesubtest(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2359:2:
2359 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2360:2:
2360 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2361:2:
2361 | call cvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2362:2:
2362 | hierarchy+1,nodenummat,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2363:2:
2363 | call cvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2364:2:
2364 | hierarchy+1,nodenummattest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2365:2:
2365 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2366:2:
2366 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2367:2:
2367 | nodesizesubtest(2*nodeloop-1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2368:2:
2368 | nodesizesubtest(2*nodeloop) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2369:6:
2369 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2370:2:
2370 | if(allocated(fval_cache)) deallocate(fval_cache)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2371:2:
2371 | if(allocated(groupsum_cache)) deallocate(groupsum_cache)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2372:2:
2372 | if(allocated(flat_idx_vec)) deallocate(flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2373:2:
2373 | if(allocated(factor_idx)) deallocate(factor_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2374:2:
2374 | if(allocated(w_subj_map)) deallocate(w_subj_map)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2375:2:
2375 | if(allocated(w_si_arr)) deallocate(w_si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2376:2:
2376 | if(allocated(w_ygroup)) deallocate(w_ygroup)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2377:2:
2377 | if(allocated(w_ytime)) deallocate(w_ytime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2378:2:
2378 | if(allocated(w_ysubject)) deallocate(w_ysubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2379:2:
2379 | if(allocated(w_ygrouptime)) deallocate(w_ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2380:2:
2380 | if(allocated(w_ygroupcount)) deallocate(w_ygroupcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2381:2:
2381 | if(allocated(w_ytimecount)) deallocate(w_ytimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2382:2:
2382 | if(allocated(w_ysubjectcount)) deallocate(w_ysubjectcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2383:2:
2383 | if(allocated(w_ygrouptimecount)) deallocate(w_ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2384:2:
2384 | deallocate(anovadata,xynodedata,xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2385:2:
2385 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2386:2:
2386 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2387:2:
2387 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2388:2:
2388 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2389:2:
2389 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2390:2:
2390 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2391:2:
2391 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2392:2:
2392 | nodesizetest(:) = nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2393:2:
2393 | deallocate(nodesizesub,nodesizesubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2394:2:
2394 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2396:2:
2396 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2400:2:
2400 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2401:2:
2401 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2402:2:
2402 | real(8), intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2403:2:
2403 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2404:2:
2404 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2405:2:
2405 | real(8) datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2406:2:
2406 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2407:2:
2407 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2408:2:
2408 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2409:2:
2409 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2410:2:
2410 | call cvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2411:2:
2411 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2412:2:
2412 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2413:2:
2413 | call cvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2414:2:
2414 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2415:2:
2415 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2416:2:
2416 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2417:2:
2417 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2420:2:
2420 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2421:2:
2421 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2422:2:
2422 | real(8),intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2423:2:
2423 | real(8) datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2424:2:
2424 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2425:2:
2425 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2426:2:
2426 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2427:2:
2427 | call cvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2428:2:
2428 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2429:2:
2429 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2430:2:
2430 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2431:2:
2431 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2432:2:
2432 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2433:2:
2433 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2434:2:
2434 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2437:2:
2437 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2438:2:
2438 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2439:2:
2439 | real(8),intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2440:2:
2440 | real(8) x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2441:2:
2441 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2442:2:
2442 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2443:2:
2443 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2444:2:
2444 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2445:2:
2445 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2446:2:
2446 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2447:2:
2447 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2448:2:
2448 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2449:2:
2449 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2450:2:
2450 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2451:2:
2451 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2452:2:
2452 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2453:2:
2453 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2454:2:
2454 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2455:2:
2455 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2456:2:
2456 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2457:2:
2457 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2458:2:
2458 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2459:2:
2459 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2460:2:
2460 | call cvdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2461:2:
2461 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2462:2:
2462 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2463:2:
2463 | call cvdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2464:2:
2464 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2465:2:
2465 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2468:2:
2468 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2469:2:
2469 | integer, intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2470:2:
2470 | real(8), intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2471:2:
2471 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2472:2:
2472 | real(8), intent(out) :: facval(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2473:2:
2473 | real(8) :: datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2474:2:
2474 | integer :: j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2475:2:
2475 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2476:2:
2476 | call cvdatasort(datavecsub, 1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2477:2:
2477 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2478:2:
2478 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2479:2:
2479 | do j = 2, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2480:2:
2480 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2481:2:
2481 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2482:2:
2482 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2483:2:
2483 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2484:2:
2484 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2485:2:
2485 | facsum = k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2488:2:
2488 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2489:2:
2489 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2490:2:
2490 | real(8), intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2491:2:
2491 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2492:2:
2492 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2493:2:
2493 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2494:2:
2494 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2495:2:
2495 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2496:2:
2496 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2497:2:
2497 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2498:2:
2498 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2499:2:
2499 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2500:2:
2500 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2501:2:
2501 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2502:2:
2502 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2503:2:
2503 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2504:2:
2504 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2505:2:
2505 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2506:2:
2506 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2507:2:
2507 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2508:2:
2508 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2509:2:
2509 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2510:2:
2510 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2511:2:
2511 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2512:2:
2512 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2513:2:
2513 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2514:2:
2514 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2515:2:
2515 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2516:2:
2516 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2517:2:
2517 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2518:2:
2518 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2519:2:
2519 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2520:2:
2520 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2521:2:
2521 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2522:2:
2522 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2525:2:
2525 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2526:2:
2526 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2527:2:
2527 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2528:2:
2528 | real(8), intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2529:2:
2529 | real(8), intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2530:2:
2530 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2531:2:
2531 | real(8) facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2532:2:
2532 | call cvdataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2533:2:
2533 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2534:2:
2534 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2535:2:
2535 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2536:2:
2536 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2537:2:
2537 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2538:2:
2538 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2539:2:
2539 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2540:2:
2540 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2541:2:
2541 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2542:2:
2542 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2545:2:
2545 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2546:2:
2546 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2547:2:
2547 | real(8), intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2548:2:
2548 | real(8), intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2549:2:
2549 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2550:2:
2550 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2551:2:
2551 | real(8) ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2552:2:
2552 | real(8) ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2553:2:
2553 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2554:2:
2554 | real(8), allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2555:2:
2555 | real(8), allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2556:2:
2556 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2557:2:
2557 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2558:2:
2558 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2559:2:
2559 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2560:2:
2560 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2561:2:
2561 | subj_map(nint(anovadata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2562:2:
2562 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2563:2:
2563 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2564:2:
2564 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2565:2:
2565 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2566:2:
2566 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2567:2:
2567 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2568:2:
2568 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2569:2:
2569 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2570:2:
2570 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2571:2:
2571 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2572:2:
2572 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2573:2:
2573 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2574:2:
2574 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2575:2:
2575 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2576:2:
2576 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2577:2:
2577 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2578:2:
2578 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2579:2:
2579 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2580:2:
2580 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2581:2:
2581 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2582:2:
2582 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2583:2:
2583 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2584:2:
2584 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2585:2:
2585 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2586:2:
2586 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2587:2:
2587 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2588:2:
2588 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2589:2:
2589 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2590:2:
2590 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2591:2:
2591 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2592:2:
2592 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2593:2:
2593 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2594:2:
2594 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2595:2:
2595 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2596:2:
2596 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2597:2:
2597 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2598:2:
2598 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2599:2:
2599 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2600:2:
2600 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2601:2:
2601 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2602:2:
2602 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2603:2:
2603 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2604:2:
2604 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2605:2:
2605 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2606:2:
2606 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2607:2:
2607 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2608:2:
2608 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2609:2:
2609 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2610:2:
2610 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2611:2:
2611 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2612:2:
2612 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2613:2:
2613 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2614:2:
2614 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2615:2:
2615 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2616:2:
2616 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2617:2:
2617 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2618:2:
2618 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2619:2:
2619 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2620:2:
2620 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2621:2:
2621 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2624:2:
2624 | subj_map, nsubjects, timecount, max_subj_id, &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2625:2:
2625 | si_arr, ygroup, ytime, ysubject, ygrouptime, &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2626:2:
2626 | ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2627:2:
2627 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2628:2:
2628 | integer, intent(in) :: msize, nsubjects, timecount, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2629:2:
2629 | real(8), intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2630:2:
2630 | real(8), intent(out) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2631:2:
2631 | integer, intent(out) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2632:2:
2632 | integer, intent(in) :: subj_map(max_subj_id)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2633:2:
2633 | integer, intent(inout) :: si_arr(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2634:2:
2634 | real(8), intent(inout) :: ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2,timecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2635:2:
2635 | real(8), intent(inout) :: ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2,timecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2636:2:
2636 | integer :: i, gi, ti, si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2637:2:
2637 | real(8) :: ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr, ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2638:2:
2638 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2639:2:
2639 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2640:2:
2640 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2641:2:
2641 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2642:2:
2642 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2643:2:
2643 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2644:2:
2644 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2645:2:
2645 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2646:2:
2646 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2647:2:
2647 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2648:2:
2648 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2649:2:
2649 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2650:2:
2650 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2651:2:
2651 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2652:2:
2652 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2653:2:
2653 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2654:2:
2654 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2655:2:
2655 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2656:2:
2656 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2657:2:
2657 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2658:2:
2658 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2659:2:
2659 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2660:2:
2660 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2661:2:
2661 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2662:2:
2662 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2663:2:
2663 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2664:2:
2664 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2665:2:
2665 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2666:2:
2666 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2667:2:
2667 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2668:2:
2668 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2669:2:
2669 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2670:2:
2670 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2671:2:
2671 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2672:2:
2672 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2673:2:
2673 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2674:2:
2674 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2675:2:
2675 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2676:2:
2676 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2677:2:
2677 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2678:2:
2678 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2679:2:
2679 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2680:2:
2680 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2681:2:
2681 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2682:2:
2682 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2683:2:
2683 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2686:2:
2686 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2687:2:
2687 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2688:2:
2688 | real(8), intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2689:2:
2689 | real(8), intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2690:2:
2690 | REAL(8) DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2691:2:
2691 | real(8) xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2692:2:
2692 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2693:2:
2693 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2694:2:
2694 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2695:2:
2695 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2696:2:
2696 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2697:2:
2697 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2698:2:
2698 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2699:2:
2699 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2700:2:
2700 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2701:2:
2701 | call cvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2702:2:
2702 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2703:2:
2703 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2704:2:
2704 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2705:2:
2705 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2706:2:
2706 | call cvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2707:2:
2707 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2708:2:
2708 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2709:2:
2709 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2710:2:
2710 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2711:2:
2711 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2712:2:
2712 | call cvdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2713:2:
2713 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2715:2:
2715 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2718:2:
2718 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2719:2:
2719 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2720:2:
2720 | real(8),parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2721:2:
2721 | real(8),intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2722:2:
2722 | real(8),intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2723:2:
2723 | real(8) res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2724:2:
2724 | real(8) inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2726:2:
2726 | real(8) h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2727:2:
2727 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2728:2:
2728 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2729:2:
2729 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2730:2:
2730 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2731:2:
2731 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2732:2:
2732 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2737:2:
2737 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2738:2:
2738 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2739:2:
2739 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2744:2:
2744 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2745:2:
2745 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2746:2:
2746 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2747:2:
2747 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2748:2:
2748 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2749:2:
2749 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2750:2:
2750 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2751:2:
2751 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2752:2:
2752 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2753:2:
2753 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2754:2:
2754 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2755:2:
2755 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2756:2:
2756 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2757:2:
2757 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2758:2:
2758 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2759:2:
2759 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2760:2:
2760 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2761:2:
2761 | s0=s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2762:2:
2762 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2765:2:
2765 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2766:2:
2766 | real(8),intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2768:2:
2768 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2769:2:
2769 | real(8),parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2796:2:
2796 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2805:2:
2805 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2806:2:
2806 | real(8),parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2812:2:
2812 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2846:2:
2846 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2857:2:
2857 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2858:2:
2858 | real(8),intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2859:2:
2859 | real(8),intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2860:2:
2860 | real(8) zval,form1,form2,form3,form4,form5,form6,form7,form8,form9
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2861:2:
2861 | real(8) inv_weight, inv_beta1, inv_beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2862:2:
2862 | real(8) df_ratio1, df_ratio2, df11_half, df21_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2863:2:
2863 | real(8) df12_sum_half, df22_sum_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2864:2:
2864 | inv_weight = 1d0 - weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2865:2:
2865 | inv_beta1 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2866:2:
2866 | inv_beta2 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2867:2:
2867 | df_ratio1 = df11/df12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2868:2:
2868 | df_ratio2 = df21/df22
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2869:2:
2869 | df11_half = df11/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2870:2:
2870 | df21_half = df21/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2871:2:
2871 | df12_sum_half = (df11+df12)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2872:2:
2872 | df22_sum_half = (df21+df22)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2873:2:
2873 | zval = (z-(inv_weight*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2874:2:
2874 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2875:2:
2875 | form2 = inv_beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2876:2:
2876 | form3 = df_ratio1**df11_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2877:2:
2877 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2878:2:
2878 | form5 = (1d0+(df_ratio1*zval))**df12_sum_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2879:2:
2879 | form6 = inv_beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2880:2:
2880 | form7 = df_ratio2**df21_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2881:2:
2881 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2882:2:
2882 | form9 = (1d0+(df_ratio2*v))**df22_sum_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2883:2:
2883 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2886:2:
2886 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2887:2:
2887 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2888:2:
2888 | real(8),intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2889:2:
2889 | real(8) datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2890:2:
2890 | real(8), intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2891:2:
2891 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2892:2:
2892 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2893:2:
2893 | call cvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2894:2:
2894 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2895:2:
2895 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2896:2:
2896 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2897:2:
2897 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2898:2:
2898 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2899:2:
2899 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2900:2:
2900 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2901:2:
2901 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2905:2:
2905 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2906:2:
2906 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2907:2:
2907 | real(8), intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2908:2:
2908 | integer, intent(inout) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2909:2:
2909 | integer, intent(out) :: sizel,sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2910:2:
2910 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2911:2:
2911 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2912:2:
2912 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2913:2:
2913 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2914:2:
2914 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2915:2:
2915 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2916:2:
2916 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2917:2:
2917 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2918:2:
2918 | nodenummat(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2919:2:
2919 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2920:2:
2920 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2921:2:
2921 | nodenummat(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2922:2:
2922 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2923:2:
2923 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2924:2:
2924 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2925:2:
2925 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2926:2:
2926 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2927:2:
2927 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2930:2:
2930 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2931:2:
2931 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2932:2:
2932 | real(8), intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2933:2:
2933 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2934:2:
2934 | real(8), intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2935:2:
2935 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2936:2:
2936 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2937:2:
2937 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2938:2:
2938 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2939:2:
2939 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2940:2:
2940 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2941:2:
2941 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2942:2:
2942 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2946:2:
2946 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2947:2:
2947 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2948:2:
2948 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2949:2:
2949 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2950:2:
2950 | real(8), intent(out) :: r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2951:2:
2951 | real(8), allocatable :: timepred(:,:),r2cvnumsub(:,:), timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2952:2:
2952 | real(8) r2cvnum,r2cvden,ymean
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2953:2:
2953 | integer i,j,k,l,maxactive_depth,nidx,tidx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2954:2:
2954 | allocate(timepred(((2**maxdepth)-1),levelcount),r2cvnumsub(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2955:2:
2955 | allocate(timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2956:2:
2956 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2957:2:
2957 | r2cvnumsub(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2958:2:
2958 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2959:2:
2959 | maxactive_depth = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2960:2:
2960 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2961:2:
2961 | if(sum(nodenummat(:,i)) == 0) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2962:2:
2962 | maxactive_depth = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2963:2:
2963 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2964:2:
2964 | do j = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2965:2:
2965 | tidx = int(traindata(j,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2966:2:
2966 | do i = maxactive_depth, 1, -1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2967:2:
2967 | nidx = nodenummat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2968:2:
2968 | if(nidx > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2969:2:
2969 | if(i == maxactive_depth .or. nodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2970:2:
2970 | timepred(nidx,tidx) = timepred(nidx,tidx) + traindata(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2971:2:
2971 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2972:2:
2972 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2973:2:
2973 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2974:2:
2974 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2975:2:
2975 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2976:2:
2976 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2977:2:
2977 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2978:2:
2978 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2979:2:
2979 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2980:2:
2980 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2981:2:
2981 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2982:2:
2982 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2983:2:
2983 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2984:2:
2984 | ymean = sum(testdata(:,1))/dble(testdatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2985:2:
2985 | r2cvnum = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2986:2:
2986 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2987:2:
2987 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2988:2:
2988 | do j=1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2989:2:
2989 | if(2**(j-1) <= i .and. i < 2**j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2990:2:
2990 | k = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2991:2:
2991 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2992:2:
2992 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2993:2:
2993 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2994:2:
2994 | do l = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2995:2:
2995 | if(nodenummattest(l,k) == i) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2996:2:
2996 | r2cvnumsub(i,int(testdata(l,3))) = r2cvnumsub(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2997:2:
2997 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2998:2:
2998 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2999:2:
2999 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3000:2:
3000 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3001:2:
3001 | r2cvnum = sum(r2cvnumsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3002:2:
3002 | r2cvden = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3003:2:
3003 | do i = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3004:2:
3004 | r2cvden = r2cvden + ((testdata(i,1) - ymean) * (testdata(i,1) - ymean))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3005:2:
3005 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3006:2:
3006 | r2cvval = 1d0-(r2cvnum/r2cvden)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3007:2:
3007 | deallocate(timepred,r2cvnumsub,timepredcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3011:2:
3011 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3012:2:
3012 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3013:2:
3013 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3014:2:
3014 | real(8),intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3015:2:
3015 | real(8),intent(in) :: gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3016:2:
3016 | integer,intent(out) :: prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3017:2:
3017 | real(8) gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3018:2:
3018 | real(8) minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3019:2:
3019 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3020:2:
3020 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3021:2:
3021 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3022:2:
3022 | if(prunind==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3023:2:
3023 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3024:2:
3024 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3025:2:
3025 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3026:2:
3026 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3027:2:
3027 | gammavec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3028:2:
3028 | call cvgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3029:2:
3029 | call cvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3030:2:
3030 | gammavec(1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3031:2:
3031 | if(gammavec(1) > gamma) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3032:2:
3032 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3033:2:
3033 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3034:2:
3034 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3035:2:
3035 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3036:2:
3036 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3037:2:
3037 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3038:2:
3038 | call cvgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3039:2:
3039 | call cvgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3040:2:
3040 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3041:2:
3041 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3042:2:
3042 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3043:2:
3043 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3044:2:
3044 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3045:2:
3045 | call cvgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3046:2:
3046 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3047:2:
3047 | prunenodenummattest(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3048:2:
3048 | prunenodenummattest(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3049:2:
3049 | prunenodenummat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3050:2:
3050 | prunenodenummat(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3051:2:
3051 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3052:2:
3052 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3053:2:
3053 | call cvgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3054:2:
3054 | gammavec(prunloop) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3055:2:
3055 | if(gammavec(prunloop-1) < gamma .and. gammavec(prunloop) > gamma) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3056:2:
3056 | prunenodenummattest(:,:) = nodenummatnewtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3057:2:
3057 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3058:2:
3058 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3059:2:
3059 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3060:2:
3060 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3061:2:
3061 | call cvgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3062:2:
3062 | call cvgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3063:2:
3063 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3064:2:
3064 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3065:2:
3065 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3066:2:
3066 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3067:2:
3067 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3071:2:
3071 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3072:2:
3072 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3073:2:
3073 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3074:2:
3074 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3075:2:
3075 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3076:2:
3076 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3077:2:
3077 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3078:2:
3078 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3079:2:
3079 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3080:2:
3080 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3081:2:
3081 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3082:2:
3082 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3083:2:
3083 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3084:2:
3084 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3085:2:
3085 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3086:2:
3086 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3087:2:
3087 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3088:2:
3088 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3089:2:
3089 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3090:2:
3090 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3091:2:
3091 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3092:2:
3092 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3093:2:
3093 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3094:2:
3094 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3095:2:
3095 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3096:2:
3096 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3097:2:
3097 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3098:2:
3098 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3099:2:
3099 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3102:2:
3102 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3103:2:
3103 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3104:2:
3104 | real(8) allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3105:2:
3105 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3106:2:
3106 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3107:2:
3107 | real(8), intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3108:2:
3108 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3109:2:
3109 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3110:2:
3110 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3111:2:
3111 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3112:2:
3112 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3113:2:
3113 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3114:2:
3114 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3115:2:
3115 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3116:2:
3116 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3117:2:
3117 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3118:2:
3118 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3119:2:
3119 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3120:2:
3120 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3121:2:
3121 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3122:2:
3122 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3123:2:
3123 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3124:2:
3124 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3125:2:
3125 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3126:2:
3126 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3127:2:
3127 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3128:2:
3128 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3129:2:
3129 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3130:2:
3130 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3131:2:
3131 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3132:2:
3132 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3133:2:
3133 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3134:2:
3134 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3135:2:
3135 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3136:2:
3136 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3137:2:
3137 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3138:2:
3138 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3139:2:
3139 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3140:2:
3140 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3141:2:
3141 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3142:2:
3142 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3143:2:
3143 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3144:2:
3144 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3147:2:
3147 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3148:2:
3148 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3149:2:
3149 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3150:2:
3150 | real(8), intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3151:2:
3151 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3152:2:
3152 | real(8), intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3153:2:
3153 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3154:2:
3154 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3155:2:
3155 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3156:2:
3156 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3157:2:
3157 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3158:2:
3158 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3159:2:
3159 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3160:2:
3160 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3161:2:
3161 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3162:2:
3162 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3163:2:
3163 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3164:2:
3164 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3165:2:
3165 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3166:2:
3166 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3167:2:
3167 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3168:2:
3168 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3169:2:
3169 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3170:2:
3170 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3171:2:
3171 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3172:2:
3172 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3173:2:
3173 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3174:2:
3174 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3177:2:
3177 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3178:2:
3178 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3179:2:
3179 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3180:2:
3180 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3181:2:
3181 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3182:2:
3182 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3183:2:
3183 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3184:2:
3184 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3185:2:
3185 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3186:2:
3186 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3187:2:
3187 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3188:2:
3188 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3189:2:
3189 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3190:2:
3190 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3191:2:
3191 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3192:2:
3192 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3193:2:
3193 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3194:2:
3194 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3195:2:
3195 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3199:2:
3199 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3200:2:
3200 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3201:2:
3201 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3202:2:
3202 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3203:2:
3203 | real(8), intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3204:2:
3204 | real(8), intent(out) :: gammacv((2**(maxdepth-1))-1),gammar2cv((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3205:2:
3205 | real(8) allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3206:2:
3206 | real(8) allfvalnew((2**maxdepth)-1),r2cvvec((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3207:2:
3207 | real(8) losspredsum,minghval,r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3208:2:
3208 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3209:2:
3209 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3210:2:
3210 | integer :: nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3211:2:
3211 | integer :: indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3212:2:
3212 | allgammavaltrain(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3213:2:
3213 | gammacv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3214:2:
3214 | losspredsumvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3215:2:
3215 | gammar2cv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3216:2:
3216 | r2cvvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3217:2:
3217 | call cvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3218:2:
3218 | nodenummattest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3219:2:
3219 | losspredsumvec(1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3220:2:
3220 | call R2CV(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3221:2:
3221 | nodenummattest,testdatasize,maxdepth,r2cvval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3222:2:
3222 | r2cvvec(1) = r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3223:2:
3223 | allfvalnew(:) = allfval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3224:2:
3224 | nodenummatnew(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3225:2:
3225 | nodenummatnewtest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3226:2:
3226 | do cvprunloop = 1,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3227:2:
3227 | call cvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3228:2:
3228 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3229:2:
3229 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3230:2:
3230 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3231:2:
3231 | call cvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3232:2:
3232 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3233:2:
3233 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3234:2:
3234 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3235:2:
3235 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3236:2:
3236 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3237:2:
3237 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3238:2:
3238 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3239:2:
3239 | do i = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3240:2:
3240 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3241:2:
3241 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3242:2:
3242 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3243:2:
3243 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3244:2:
3244 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3245:2:
3245 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3246:2:
3246 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3247:2:
3247 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3248:2:
3248 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3249:2:
3249 | do i = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3250:2:
3250 | if(nodenummatnewtest(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3251:2:
3251 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3252:2:
3252 | nodenummatnewtest(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3253:2:
3253 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3254:2:
3254 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3255:2:
3255 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3256:2:
3256 | allgammavaltrain(cvprunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3257:2:
3257 | call cvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3258:2:
3258 | nodenummatnewtest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3259:2:
3259 | losspredsumvec(cvprunloop+1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3260:2:
3260 | call R2CV(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3261:2:
3261 | nodenummatnewtest,testdatasize,maxdepth,r2cvval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3262:2:
3262 | r2cvvec(cvprunloop+1) = r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3263:2:
3263 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3264:2:
3264 | gammacv(1) = losspredsumvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3265:2:
3265 | gammar2cv(1) = r2cvvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3266:2:
3266 | j = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3267:2:
3267 | do i = 2,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3268:2:
3268 | if(allgammaval(i) == 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3269:2:
3269 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3270:2:
3270 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3271:2:
3271 | if(allgammaval(i) <= allgammavaltrain(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3272:2:
3272 | gammacv(i) = losspredsumvec(j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3273:2:
3273 | gammar2cv(i) = r2cvvec(j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3274:2:
3274 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3275:2:
3275 | do k = 1,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3276:2:
3276 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3277:2:
3277 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3278:2:
3278 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3279:2:
3279 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3280:2:
3280 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3281:2:
3281 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3282:2:
3282 | gammacv(i) = losspredsumvec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3283:2:
3283 | gammar2cv(i) = r2cvvec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3284:2:
3284 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3285:2:
3285 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3286:2:
3286 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3290:2:
3290 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3291:2:
3291 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3292:2:
3292 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3293:2:
3293 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3294:2:
3294 | real(8), intent(out) :: losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3295:2:
3295 | real(8), allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3296:2:
3296 | integer i,j,k,l,maxactive_depth,nidx,tidx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3297:2:
3297 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3298:2:
3298 | allocate(timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3299:2:
3299 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3300:2:
3300 | losspred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3301:2:
3301 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3302:2:
3302 | maxactive_depth = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3303:2:
3303 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3304:2:
3304 | if(sum(nodenummat(:,i)) == 0) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3305:2:
3305 | maxactive_depth = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3306:2:
3306 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3307:2:
3307 | do j = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3308:2:
3308 | tidx = int(traindata(j,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3309:2:
3309 | do i = maxactive_depth, 1, -1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3310:2:
3310 | nidx = nodenummat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3311:2:
3311 | if(nidx > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3312:2:
3312 | if(i == maxactive_depth .or. nodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3313:2:
3313 | timepred(nidx,tidx) = timepred(nidx,tidx) + traindata(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3314:2:
3314 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3315:2:
3315 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3316:2:
3316 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3317:2:
3317 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3318:2:
3318 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3319:2:
3319 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3320:2:
3320 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3321:2:
3321 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3322:2:
3322 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3323:2:
3323 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3324:2:
3324 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3325:2:
3325 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3326:2:
3326 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3327:2:
3327 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3328:2:
3328 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3329:2:
3329 | do j=1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3330:2:
3330 | if(2**(j-1) <= i .and. i < 2**j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3331:2:
3331 | k = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3332:2:
3332 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3333:2:
3333 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3334:2:
3334 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3335:2:
3335 | do l = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3336:2:
3336 | if(nodenummattest(l,k) == i) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3337:2:
3337 | losspred(i,int(testdata(l,3))) = losspred(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3338:2:
3338 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3339:2:
3339 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3340:2:
3340 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3341:2:
3341 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3342:2:
3342 | losspredsum = sum(losspred)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3343:2:
3343 | deallocate(timepred,losspred,timepredcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3346:2:
3346 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3347:2:
3347 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3348:2:
3348 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3349:2:
3349 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3350:2:
3350 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3351:2:
3351 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3352:2:
3352 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3353:2:
3353 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3354:2:
3354 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3355:2:
3355 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3356:2:
3356 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3357:2:
3357 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3358:2:
3358 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3359:2:
3359 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3360:2:
3360 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3361:2:
3361 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3362:2:
3362 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3363:2:
3363 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3364:2:
3364 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3365:2:
3365 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3366:2:
3366 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3367:2:
3367 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3368:2:
3368 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3369:2:
3369 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3370:2:
3370 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3371:2:
3371 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3372:2:
3372 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3373:2:
3373 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3374:2:
3374 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3377:2:
3377 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3378:2:
3378 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3379:2:
3379 | real(8) allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3380:2:
3380 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3381:2:
3381 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3382:2:
3382 | real(8), intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3383:2:
3383 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3384:2:
3384 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3385:2:
3385 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3386:2:
3386 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3387:2:
3387 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3388:2:
3388 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3389:2:
3389 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3390:2:
3390 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3391:2:
3391 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3392:2:
3392 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3393:2:
3393 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3394:2:
3394 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3395:2:
3395 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3396:2:
3396 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3397:2:
3397 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3398:2:
3398 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3399:2:
3399 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3400:2:
3400 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3401:2:
3401 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3402:2:
3402 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3403:2:
3403 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3404:2:
3404 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3405:2:
3405 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3406:2:
3406 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3407:2:
3407 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3408:2:
3408 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3409:2:
3409 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3410:2:
3410 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3411:2:
3411 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3412:2:
3412 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3413:2:
3413 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3414:2:
3414 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3415:2:
3415 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3416:2:
3416 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3417:2:
3417 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3418:2:
3418 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3419:2:
3419 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3422:2:
3422 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3423:2:
3423 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3424:2:
3424 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3425:2:
3425 | real(8), intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3426:2:
3426 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3427:2:
3427 | real(8), intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3428:2:
3428 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3429:2:
3429 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3430:2:
3430 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3431:2:
3431 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3432:2:
3432 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3433:2:
3433 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3434:2:
3434 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3435:2:
3435 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3436:2:
3436 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3437:2:
3437 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3438:2:
3438 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3439:2:
3439 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3440:2:
3440 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3441:2:
3441 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3442:2:
3442 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3443:2:
3443 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3444:2:
3444 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3445:2:
3445 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3446:2:
3446 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3447:2:
3447 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3448:2:
3448 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3449:2:
3449 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3452:2:
3452 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3453:2:
3453 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3454:2:
3454 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3455:2:
3455 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3456:2:
3456 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3457:2:
3457 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3458:2:
3458 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3459:2:
3459 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3460:2:
3460 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3461:2:
3461 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3462:2:
3462 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3463:2:
3463 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3464:2:
3464 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3465:2:
3465 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3466:2:
3466 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3467:2:
3467 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3468:2:
3468 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3469:2:
3469 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3470:2:
3470 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3473:2:
3473 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3474:2:
3474 | integer,intent(in) :: msize,maxdepth,prunind,cv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3475:2:
3475 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3476:2:
3476 | double precision,intent(in) :: bestgammaval,allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3477:2:
3477 | integer,intent(out) :: prunenodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3478:2:
3478 | double precision minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3479:2:
3479 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3480:2:
3480 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3481:2:
3481 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3482:2:
3482 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3483:2:
3483 | if(bestgammaval <= 0d0 .or. prunind==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3484:2:
3484 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3485:2:
3485 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3486:2:
3486 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3487:2:
3487 | gammavec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3488:2:
3488 | call gterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3489:2:
3489 | call gweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3490:2:
3490 | gammavec(1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3491:2:
3491 | if(gammavec(1) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3492:2:
3492 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3493:2:
3493 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3494:2:
3494 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3495:2:
3495 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3496:2:
3496 | call gpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3497:2:
3497 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3498:2:
3498 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3499:2:
3499 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3500:2:
3500 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3501:2:
3501 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3502:2:
3502 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3503:2:
3503 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3504:2:
3504 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3505:2:
3505 | call gterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3506:2:
3506 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3507:2:
3507 | prunenodenummat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3508:2:
3508 | prunenodenummat(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3509:2:
3509 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3510:2:
3510 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3511:2:
3511 | call gweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3512:2:
3512 | gammavec(prunloop) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3513:2:
3513 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3514:2:
3514 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3515:2:
3515 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3516:2:
3516 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3517:2:
3517 | allocate(nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3518:2:
3518 | call gpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3519:2:
3519 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3520:2:
3520 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3521:2:
3521 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3522:2:
3522 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3523:2:
3523 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3524:2:
3524 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3525:2:
3525 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3526:2:
3526 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3530:2:
3530 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3531:2:
3531 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3532:2:
3532 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3533:2:
3533 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3534:2:
3534 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3535:2:
3535 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3536:2:
3536 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3537:2:
3537 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3538:2:
3538 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3539:2:
3539 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3540:2:
3540 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3541:2:
3541 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3542:2:
3542 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3543:2:
3543 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3544:2:
3544 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3545:2:
3545 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3546:2:
3546 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3547:2:
3547 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3548:2:
3548 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3549:2:
3549 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3550:2:
3550 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3551:2:
3551 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3552:2:
3552 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3553:2:
3553 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3554:2:
3554 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3555:2:
3555 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3556:2:
3556 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3557:2:
3557 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3558:2:
3558 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3561:2:
3561 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3562:2:
3562 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3563:2:
3563 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3564:2:
3564 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3565:2:
3565 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3566:2:
3566 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3567:2:
3567 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3568:2:
3568 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3569:2:
3569 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3570:2:
3570 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3571:2:
3571 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3572:2:
3572 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3573:2:
3573 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3574:2:
3574 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3575:2:
3575 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3576:2:
3576 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3577:2:
3577 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3578:2:
3578 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3579:2:
3579 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3580:2:
3580 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3581:2:
3581 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3582:2:
3582 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3583:2:
3583 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3584:2:
3584 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3585:2:
3585 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3586:2:
3586 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3587:2:
3587 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3588:2:
3588 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3589:2:
3589 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3590:2:
3590 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3591:2:
3591 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3592:2:
3592 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3593:2:
3593 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3594:2:
3594 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3595:2:
3595 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3596:2:
3596 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3597:2:
3597 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3598:2:
3598 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3599:2:
3599 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3600:2:
3600 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3601:2:
3601 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3602:2:
3602 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3603:2:
3603 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3606:2:
3606 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3607:2:
3607 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3608:2:
3608 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3609:2:
3609 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3610:2:
3610 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3611:2:
3611 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3612:2:
3612 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3613:2:
3613 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3614:2:
3614 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3615:2:
3615 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3616:2:
3616 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3617:2:
3617 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3618:2:
3618 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3619:2:
3619 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3620:2:
3620 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3621:2:
3621 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3622:2:
3622 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3623:2:
3623 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3624:2:
3624 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3625:2:
3625 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3626:2:
3626 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3627:2:
3627 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3628:2:
3628 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3629:2:
3629 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3630:2:
3630 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3631:2:
3631 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3632:2:
3632 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3633:2:
3633 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3636:2:
3636 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3637:2:
3637 | integer, intent(in) :: msize,levelcount,maxdepth,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3638:2:
3638 | integer, intent(in) :: prunenodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3639:2:
3639 | double precision, intent(in) :: XYDATA(Msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3640:2:
3640 | integer, intent(out) :: datatnnodenum(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3641:2:
3641 | double precision, intent(out) :: predvec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3642:2:
3642 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3643:2:
3643 | double precision tnodepredmat((2**maxdepth)-1,levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3644:2:
3644 | integer i,j,maxactive_depth,nidx,tidx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3645:2:
3645 | allocate(timepredsum(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3646:2:
3646 | timepredsum(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3647:2:
3647 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3648:2:
3648 | datatnnodenum(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3649:2:
3649 | maxactive_depth = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3650:2:
3650 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3651:2:
3651 | if(sum(prunenodenummat(:,i)) == 0) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3652:2:
3652 | maxactive_depth = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3653:2:
3653 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3654:2:
3654 | do j = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3655:2:
3655 | tidx = int(XYDATA(j,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3656:2:
3656 | do i = maxactive_depth, 1, -1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3657:2:
3657 | nidx = prunenodenummat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3658:2:
3658 | if(nidx > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3659:2:
3659 | if(i == maxactive_depth .or. prunenodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3660:2:
3660 | timepredsum(nidx,tidx) = timepredsum(nidx,tidx) + XYDATA(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3661:2:
3661 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3662:2:
3662 | datatnnodenum(j) = nidx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3663:2:
3663 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3664:2:
3664 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3665:2:
3665 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3666:2:
3666 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3667:2:
3667 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3668:2:
3668 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3669:2:
3669 | if(abs(sum(timepredsum(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3670:2:
3670 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3671:2:
3671 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3672:2:
3672 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3673:2:
3673 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3674:2:
3674 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3675:2:
3675 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3676:2:
3676 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3677:2:
3677 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3680:2:
3680 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3681:2:
3681 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3682:2:
3682 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3683:2:
3683 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3684:2:
3684 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3685:2:
3685 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3686:2:
3686 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3687:2:
3687 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3688:2:
3688 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3689:2:
3689 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3690:2:
3690 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3691:2:
3691 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3692:2:
3692 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3696:2:
3696 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3697:2:
3697 | integer, intent(in) :: nodedatasize,colnum,maxdepth,ind1,ind2,splitvecsize,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3698:2:
3698 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3699:2:
3699 | double precision, intent(in) :: nodedata(nodedatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3700:2:
3700 | integer, intent(in) :: prunnodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3701:2:
3701 | integer, intent(out) :: splitvector(splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3702:2:
3702 | double precision, intent(out) :: splitnumber(splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3703:2:
3703 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3704:2:
3704 | double precision datasample(nodedatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3705:2:
3705 | integer, allocatable :: splitindmat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3706:2:
3706 | datasample = nodedata(:,ind1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3707:2:
3707 | if(datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3708:2:
3708 | splitnum = splitvecsize - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3709:2:
3709 | elseif(datatype(ind1-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3710:2:
3710 | splitnum = (2 ** (splitvecsize-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3711:2:
3711 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3712:2:
3712 | call spdataval(nodedata(:,ind1),nodedatasize,splitnumber,splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3713:2:
3713 | allocate(splitindmat(splitnum,splitvecsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3714:2:
3714 | if(datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3715:2:
3715 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3716:2:
3716 | do j = 1,splitvecsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3717:2:
3717 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3718:2:
3718 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3719:2:
3719 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3720:2:
3720 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3721:2:
3721 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3722:2:
3722 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3723:2:
3723 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3724:2:
3724 | elseif(datatype(ind1-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3725:2:
3725 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3726:2:
3726 | do i = 0, 2**(splitvecsize-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3727:2:
3727 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3728:2:
3728 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3729:2:
3729 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3730:2:
3730 | do j = 0, splitvecsize - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3731:2:
3731 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3732:2:
3732 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3733:2:
3733 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3734:2:
3734 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3735:2:
3735 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3736:2:
3736 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3737:2:
3737 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3738:2:
3738 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3739:2:
3739 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3740:2:
3740 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3741:2:
3741 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3742:2:
3742 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3743:2:
3743 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3744:2:
3744 | splitvector = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3747:2:
3747 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3748:2:
3748 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3749:2:
3749 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3750:2:
3750 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3751:2:
3751 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3752:2:
3752 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3753:2:
3753 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3754:2:
3754 | call spdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3755:2:
3755 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3756:2:
3756 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3757:2:
3757 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3758:2:
3758 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3759:2:
3759 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3760:2:
3760 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3761:2:
3761 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3762:2:
3762 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3765:2:
3765 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3766:2:
3766 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3767:2:
3767 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3768:2:
3768 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3769:2:
3769 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3770:2:
3770 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3771:2:
3771 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3772:2:
3772 | call spdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3773:2:
3773 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3774:2:
3774 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3775:2:
3775 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3776:2:
3776 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3777:2:
3777 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3778:2:
3778 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3779:2:
3779 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3782:2:
3782 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3783:2:
3783 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3784:2:
3784 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3785:2:
3785 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3786:2:
3786 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3787:2:
3787 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3788:2:
3788 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3789:2:
3789 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3790:2:
3790 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3791:2:
3791 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3792:2:
3792 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3793:2:
3793 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3794:2:
3794 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3795:2:
3795 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3796:2:
3796 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3797:2:
3797 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3798:2:
3798 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3799:2:
3799 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3800:2:
3800 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3801:2:
3801 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3802:2:
3802 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3803:2:
3803 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3804:2:
3804 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3805:2:
3805 | call spdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3806:2:
3806 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3807:2:
3807 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3808:2:
3808 | call spdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3809:2:
3809 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3810:2:
3810 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3813:2:
3813 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3814:2:
3814 | integer, intent(in) :: msize,bootsize,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3815:2:
3815 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3816:2:
3816 | integer, intent(out) :: oridata(bootsize*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3817:2:
3817 | double precision, intent(out) :: bootdata(bootsize*levelcount,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3818:2:
3818 | integer idsum,randval,i,j,k,l,m
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3819:2:
3819 | integer oriind(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3820:2:
3820 | double precision randvalsub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3821:2:
3821 | double precision idnum(levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3822:2:
3822 | call random_seed()
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3823:2:
3823 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3824:2:
3824 | oriind(i) = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3825:2:
3825 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3826:2:
3826 | call threetreesbsdatasum(xydata(:,2),msize,idsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3827:2:
3827 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3828:2:
3828 | k = levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3829:2:
3829 | do i=1,bootsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3830:2:
3830 | call random_number(randvalsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3831:2:
3831 | randval = int(randvalsub * dble(idsum)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3832:2:
3832 | l = (randval-1)*levelcount+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3833:2:
3833 | m = randval*levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3834:2:
3834 | idnum(:) = dble(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3835:2:
3835 | oridata(j:k)=oriind(l:m)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3836:2:
3836 | bootdata(j:k,1) = xydata(l:m,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3837:2:
3837 | bootdata(j:k,2) = idnum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3838:2:
3838 | bootdata(j:k,3:colnum) = xydata(l:m,3:colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3839:2:
3839 | j = j + levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3840:2:
3840 | k = k + levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3841:2:
3841 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3844:2:
3844 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3845:2:
3845 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3846:2:
3846 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3847:2:
3847 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3848:2:
3848 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3849:2:
3849 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3850:2:
3850 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3851:2:
3851 | call threetreesbsdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3852:2:
3852 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3853:2:
3853 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3854:2:
3854 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3855:2:
3855 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3856:2:
3856 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3857:2:
3857 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3858:2:
3858 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3861:2:
3861 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3862:2:
3862 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3863:2:
3863 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3864:2:
3864 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3865:2:
3865 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3866:2:
3866 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3867:2:
3867 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3868:2:
3868 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3869:2:
3869 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3870:2:
3870 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3871:2:
3871 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3872:2:
3872 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3873:2:
3873 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3874:2:
3874 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3875:2:
3875 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3876:2:
3876 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3877:2:
3877 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3878:2:
3878 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3879:2:
3879 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3880:2:
3880 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3881:2:
3881 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3882:2:
3882 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3883:2:
3883 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3884:2:
3884 | call threetreesbsdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3885:2:
3885 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3886:2:
3886 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3887:2:
3887 | call threetreesbsdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3888:2:
3888 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3889:2:
3889 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3893:2:
3893 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3894:2:
3894 | integer, intent(in) :: bootdatasize,oridatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3895:2:
3895 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3896:2:
3896 | double precision, intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3897:2:
3897 | double precision, intent(in) :: bootdata(bootdatasize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3898:2:
3898 | double precision, intent(in) :: oridata(oridatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3899:2:
3899 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3900:2:
3900 | integer, intent(out) :: nodenummatboot(bootdatasize,maxdepth),nodenummatori(oridatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3901:2:
3901 | double precision,intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3902:2:
3902 | integer nodenummatsub(bootdatasize,maxdepth),nodenummatsubori(oridatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3903:2:
3903 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3904:2:
3904 | integer sizel,sizer,sizelori,sizerori,treeloop,stopcount,nodeloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3905:2:
3905 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3906:2:
3906 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3907:2:
3907 | double precision fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3908:2:
3908 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizeori(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3909:2:
3909 | integer,allocatable :: nodesizesub(:),nodesizesubori(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3910:2:
3910 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3911:2:
3911 | double precision, allocatable :: xynodedata(:,:),xynodedataori(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3912:2:
3912 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3913:2:
3913 | integer, allocatable :: flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3914:2:
3914 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3915:2:
3915 | double precision :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3916:2:
3916 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3917:2:
3917 | nodenummatboot(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3918:2:
3918 | nodenummatboot(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3919:2:
3919 | nodenummatori(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3920:2:
3920 | nodenummatori(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3921:2:
3921 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3922:2:
3922 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3923:2:
3923 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3924:2:
3924 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3925:2:
3925 | allocate(nodesize(2),nodesizeori(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3926:2:
3926 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3927:2:
3927 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3928:2:
3928 | call threetreesbootsplitcount(bootdatasize, colnum-3, bootdata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3929:2:
3929 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3930:2:
3930 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3931:2:
3931 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3932:2:
3932 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3933:2:
3933 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3934:2:
3934 | allocate(anovadata(bootdatasize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3935:2:
3935 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3936:2:
3936 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3937:2:
3937 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3938:2:
3938 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3939:2:
3939 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3940:2:
3940 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3941:2:
3941 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3942:2:
3942 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3943:2:
3943 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3944:2:
3944 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3945:2:
3945 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),bootdata,bootdatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3946:2:
3946 | call threetreesbootrepANOVA(bootdatasize,colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3947:2:
3947 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3948:2:
3948 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3949:2:
3949 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3950:2:
3950 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3951:2:
3951 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3952:2:
3952 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3953:2:
3953 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3954:2:
3954 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3955:2:
3955 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3956:2:
3956 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3957:2:
3957 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3958:2:
3958 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3959:2:
3959 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3960:2:
3960 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3961:2:
3961 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3962:2:
3962 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3963:2:
3963 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3964:2:
3964 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3965:2:
3965 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3966:2:
3966 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3967:2:
3967 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3968:2:
3968 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3969:2:
3969 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3970:2:
3970 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3971:2:
3971 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3972:2:
3972 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3973:2:
3973 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3974:2:
3974 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3975:2:
3975 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3976:2:
3976 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3977:2:
3977 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3978:2:
3978 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3979:2:
3979 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3980:2:
3980 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3981:2:
3981 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3982:2:
3982 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3983:2:
3983 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3984:2:
3984 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3985:2:
3985 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3986:2:
3986 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3987:2:
3987 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3988:2:
3988 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3989:2:
3989 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3990:2:
3990 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3991:2:
3991 | (dble(bootdatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3992:2:
3992 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3993:2:
3993 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3994:2:
3994 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3995:2:
3995 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3996:2:
3996 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3997:2:
3997 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3998:2:
3998 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3999:2:
3999 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4000:2:
4000 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4001:2:
4001 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4002:2:
4002 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4003:2:
4003 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4004:2:
4004 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4005:2:
4005 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4006:2:
4006 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4007:2:
4007 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4008:2:
4008 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4009:2:
4009 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4010:2:
4010 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4011:2:
4011 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4012:2:
4012 | bootdata,bootdatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4013:2:
4013 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4014:2:
4014 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4015:2:
4015 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4016:2:
4016 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4017:2:
4017 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4018:2:
4018 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4019:2:
4019 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4020:2:
4020 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4021:2:
4021 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4022:2:
4022 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4023:2:
4023 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4024:2:
4024 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4025:2:
4025 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4026:2:
4026 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4027:2:
4027 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4028:2:
4028 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4029:2:
4029 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4030:2:
4030 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4031:2:
4031 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4032:2:
4032 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4033:2:
4033 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4034:2:
4034 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4035:2:
4035 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4036:2:
4036 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4037:2:
4037 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4038:2:
4038 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4039:2:
4039 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4040:2:
4040 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4041:2:
4041 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4042:2:
4042 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4043:2:
4043 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4044:2:
4044 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4045:2:
4045 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4046:2:
4046 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4047:2:
4047 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4048:2:
4048 | (dble(bootdatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4049:2:
4049 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4050:2:
4050 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4051:2:
4051 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4052:2:
4052 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4053:2:
4053 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4054:2:
4054 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4055:2:
4055 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4056:2:
4056 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4057:2:
4057 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4058:2:
4058 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4059:2:
4059 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4060:2:
4060 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4061:2:
4061 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4062:2:
4062 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4063:2:
4063 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4064:2:
4064 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4065:2:
4065 | bootdata,bootdatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4066:2:
4066 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4067:2:
4067 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4068:2:
4068 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4069:2:
4069 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4070:2:
4070 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4071:2:
4071 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4072:2:
4072 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4073:2:
4073 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4074:2:
4074 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4075:2:
4075 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4076:2:
4076 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4077:2:
4077 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4078:2:
4078 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4079:2:
4079 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4080:2:
4080 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4081:2:
4081 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4082:2:
4082 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4083:2:
4083 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4084:2:
4084 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4085:2:
4085 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4086:2:
4086 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4087:2:
4087 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4088:2:
4088 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4089:2:
4089 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4090:2:
4090 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4091:2:
4091 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4092:2:
4092 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4093:2:
4093 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4094:2:
4094 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4095:2:
4095 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4096:2:
4096 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4097:2:
4097 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4098:2:
4098 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4099:2:
4099 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4100:2:
4100 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4101:2:
4101 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4102:2:
4102 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4103:2:
4103 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4104:2:
4104 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4105:2:
4105 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4106:2:
4106 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4107:2:
4107 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4108:2:
4108 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4109:2:
4109 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4110:2:
4110 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4111:2:
4111 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4112:2:
4112 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4113:2:
4113 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4114:2:
4114 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4115:2:
4115 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4116:2:
4116 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4117:2:
4117 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4118:2:
4118 | (dble(bootdatasize) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4119:2:
4119 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4120:2:
4120 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4121:2:
4121 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4122:2:
4122 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4123:2:
4123 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4124:2:
4124 | call threetreesbootnodenumber(bootdata,maxdepth,bootdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4125:2:
4125 | hierarchy+1,nodenummatboot,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4126:2:
4126 | call threetreesbootnodenumber(oridata,maxdepth,oridatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4127:2:
4127 | hierarchy+1,nodenummatori,nodenummatsubori,sizelori,sizerori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4128:2:
4128 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4129:2:
4129 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4130:2:
4130 | nodesizeori(1) = sizelori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4131:2:
4131 | nodesizeori(2) = sizerori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4132:2:
4132 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4133:2:
4133 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4134:2:
4134 | nodenummatboot(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4135:2:
4135 | nodenummatori(:,:) = nodenummatsubori(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4136:2:
4136 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4137:2:
4137 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4138:2:
4138 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4139:2:
4139 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4140:2:
4140 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4141:2:
4141 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4142:2:
4142 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4143:2:
4143 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4144:2:
4144 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4145:2:
4145 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedataori(nodesizeori(nodeloop),colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4146:2:
4146 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4147:2:
4147 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4148:2:
4148 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4149:2:
4149 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4150:2:
4150 | call threetreesbootnodedata(bootdata,bootdatasize,colnum,nodenum,hierarchy,nodenummatboot,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4151:2:
4151 | call threetreesbootnodedata(oridata,oridatasize,colnum,nodenum,hierarchy,nodenummatori,nodesizeori(nodeloop),xynodedataori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4152:2:
4152 | call threetreesbootsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4153:2:
4153 | if(sum(splitnum) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4154:2:
4154 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4155:2:
4155 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4156:2:
4156 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4157:2:
4157 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4158:2:
4158 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4159:2:
4159 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4160:2:
4160 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4161:2:
4161 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4162:2:
4162 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4163:2:
4163 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4164:2:
4164 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4165:2:
4165 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4166:2:
4166 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4167:2:
4167 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4168:2:
4168 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4169:2:
4169 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4170:2:
4170 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4171:2:
4171 | if(allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4172:2:
4172 | deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4173:2:
4173 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4174:2:
4174 | if(.not. allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4175:2:
4175 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4176:2:
4176 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4177:2:
4177 | if(allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4178:2:
4178 | deallocate(facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4179:2:
4179 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4180:2:
4180 | if(.not. allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4181:2:
4181 | allocate(facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4182:2:
4182 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4183:2:
4183 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4184:2:
4184 | countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4185:2:
4185 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4186:2:
4186 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4187:2:
4187 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4188:2:
4188 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4189:2:
4189 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4190:2:
4190 | colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4191:2:
4191 | call threetreesbootrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4192:2:
4192 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4193:2:
4193 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4194:2:
4194 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4195:2:
4195 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4196:2:
4196 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4197:2:
4197 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4198:2:
4198 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4199:2:
4199 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4200:2:
4200 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4201:2:
4201 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4202:2:
4202 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4203:2:
4203 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4204:2:
4204 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4205:2:
4205 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4206:2:
4206 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4207:2:
4207 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4208:2:
4208 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4209:2:
4209 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4210:6:
4210 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4211:2:
4211 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4212:2:
4212 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4213:2:
4213 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4214:2:
4214 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4215:2:
4215 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4216:2:
4216 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4217:2:
4217 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4218:2:
4218 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4219:2:
4219 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4220:2:
4220 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4221:2:
4221 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4222:2:
4222 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4223:2:
4223 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4224:2:
4224 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4225:2:
4225 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4226:2:
4226 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4227:2:
4227 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4228:2:
4228 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4229:2:
4229 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4230:2:
4230 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4231:2:
4231 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4232:2:
4232 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4233:2:
4233 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4234:2:
4234 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4235:2:
4235 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4236:2:
4236 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4237:2:
4237 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4238:2:
4238 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4239:2:
4239 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4240:2:
4240 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4241:2:
4241 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4242:2:
4242 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4243:2:
4243 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4244:2:
4244 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4245:2:
4245 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4246:2:
4246 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4247:2:
4247 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4248:2:
4248 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4249:2:
4249 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4250:2:
4250 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4251:2:
4251 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4252:2:
4252 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4253:2:
4253 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4254:2:
4254 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4255:2:
4255 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4256:2:
4256 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4257:2:
4257 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4258:2:
4258 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4259:2:
4259 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4260:2:
4260 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4261:2:
4261 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4262:2:
4262 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4263:2:
4263 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4264:2:
4264 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4265:2:
4265 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4266:2:
4266 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4267:2:
4267 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4268:2:
4268 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4269:2:
4269 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4270:2:
4270 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4271:2:
4271 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4272:2:
4272 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4273:2:
4273 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4274:2:
4274 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4275:2:
4275 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4276:2:
4276 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4277:2:
4277 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4278:2:
4278 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4279:2:
4279 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4280:2:
4280 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4281:2:
4281 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4282:2:
4282 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4283:2:
4283 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4284:2:
4284 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4285:2:
4285 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4286:2:
4286 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4287:2:
4287 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4288:2:
4288 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4289:2:
4289 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4290:2:
4290 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4291:2:
4291 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4292:2:
4292 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4293:2:
4293 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4294:2:
4294 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4295:2:
4295 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4296:2:
4296 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4297:2:
4297 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4298:2:
4298 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4299:2:
4299 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4300:2:
4300 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4301:2:
4301 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4302:2:
4302 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4303:2:
4303 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4304:2:
4304 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4305:2:
4305 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4306:2:
4306 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4307:2:
4307 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4308:2:
4308 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4309:2:
4309 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4310:2:
4310 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4311:2:
4311 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4312:2:
4312 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4313:2:
4313 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4314:2:
4314 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4315:2:
4315 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4316:2:
4316 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4317:2:
4317 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4318:2:
4318 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4319:2:
4319 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4320:2:
4320 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4321:2:
4321 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4322:2:
4322 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4323:2:
4323 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4324:2:
4324 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4325:2:
4325 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4326:2:
4326 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4327:2:
4327 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4328:2:
4328 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4329:2:
4329 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4330:2:
4330 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4331:2:
4331 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4332:2:
4332 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4333:2:
4333 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4334:2:
4334 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4335:2:
4335 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4336:2:
4336 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4337:2:
4337 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4338:2:
4338 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4339:2:
4339 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4340:2:
4340 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4341:2:
4341 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4342:2:
4342 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4343:2:
4343 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4344:2:
4344 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4345:2:
4345 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4346:2:
4346 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4347:2:
4347 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4348:2:
4348 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4349:2:
4349 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4350:2:
4350 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4351:2:
4351 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4352:2:
4352 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4353:2:
4353 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4354:2:
4354 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4355:2:
4355 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4356:2:
4356 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4357:2:
4357 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4358:2:
4358 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4359:2:
4359 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4360:2:
4360 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4361:2:
4361 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4362:2:
4362 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4363:2:
4363 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4364:2:
4364 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4365:2:
4365 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4366:2:
4366 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4367:2:
4367 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4368:2:
4368 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4369:2:
4369 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4370:2:
4370 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4371:2:
4371 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4372:2:
4372 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4373:2:
4373 | if(.not. allocated(nodesizesubori)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4374:2:
4374 | allocate(nodesizesubori(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4375:2:
4375 | nodesizesubori(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4376:2:
4376 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4377:2:
4377 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4378:2:
4378 | call threetreesbootnodenumber(bootdata,maxdepth,bootdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4379:2:
4379 | hierarchy+1,nodenummatboot,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4380:2:
4380 | call threetreesbootnodenumber(oridata,maxdepth,oridatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4381:2:
4381 | hierarchy+1,nodenummatori,nodenummatsubori,sizelori,sizerori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4382:2:
4382 | nodenummatboot(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4383:2:
4383 | nodenummatori(:,:) = nodenummatsubori(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4384:2:
4384 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4385:2:
4385 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4386:2:
4386 | nodesizesubori(2*nodeloop-1) = sizelori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4387:2:
4387 | nodesizesubori(2*nodeloop) = sizerori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4388:6:
4388 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4389:2:
4389 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4390:2:
4390 | deallocate(anovadata,xynodedata,xynodedataori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4391:2:
4391 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4392:2:
4392 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4393:2:
4393 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4394:2:
4394 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4395:2:
4395 | deallocate(nodesize,nodesizeori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4396:2:
4396 | allocate(nodesize(2**hierarchy),nodesizeori(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4397:2:
4397 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4398:2:
4398 | nodesizeori(:) = nodesizesubori(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4399:2:
4399 | deallocate(nodesizesub,nodesizesubori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4400:2:
4400 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4402:2:
4402 | deallocate(nodesize,nodesizeori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4406:2:
4406 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4407:2:
4407 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4408:2:
4408 | double precision, intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4409:2:
4409 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4410:2:
4410 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4411:2:
4411 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4412:2:
4412 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4413:2:
4413 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4414:2:
4414 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4415:2:
4415 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4416:2:
4416 | call threetreesbootdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4417:2:
4417 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4418:2:
4418 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4419:2:
4419 | call threetreesbootdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4420:2:
4420 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4421:2:
4421 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4422:2:
4422 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4423:2:
4423 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4426:2:
4426 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4427:2:
4427 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4428:2:
4428 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4429:2:
4429 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4430:2:
4430 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4431:2:
4431 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4432:2:
4432 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4433:2:
4433 | call threetreesbootdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4434:2:
4434 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4435:2:
4435 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4436:2:
4436 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4437:2:
4437 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4438:2:
4438 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4439:2:
4439 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4440:2:
4440 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4443:2:
4443 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4444:2:
4444 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4445:2:
4445 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4446:2:
4446 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4447:2:
4447 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4448:2:
4448 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4449:2:
4449 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4450:2:
4450 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4451:2:
4451 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4452:2:
4452 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4453:2:
4453 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4454:2:
4454 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4455:2:
4455 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4456:2:
4456 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4457:2:
4457 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4458:2:
4458 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4459:2:
4459 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4460:2:
4460 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4461:2:
4461 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4462:2:
4462 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4463:2:
4463 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4464:2:
4464 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4465:2:
4465 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4466:2:
4466 | call threetreesbootdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4467:2:
4467 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4468:2:
4468 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4469:2:
4469 | call threetreesbootdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4470:2:
4470 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4471:2:
4471 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4474:2:
4474 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4475:2:
4475 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4476:2:
4476 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4477:2:
4477 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4478:2:
4478 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4479:2:
4479 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4480:2:
4480 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4481:2:
4481 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4482:2:
4482 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4483:2:
4483 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4484:2:
4484 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4485:2:
4485 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4486:2:
4486 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4487:2:
4487 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4488:2:
4488 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4489:2:
4489 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4490:2:
4490 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4491:2:
4491 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4492:2:
4492 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4493:2:
4493 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4494:2:
4494 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4495:2:
4495 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4496:2:
4496 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4497:2:
4497 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4498:2:
4498 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4499:2:
4499 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4500:2:
4500 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4501:2:
4501 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4502:2:
4502 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4503:2:
4503 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4504:2:
4504 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4505:2:
4505 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4506:2:
4506 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4507:2:
4507 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4508:2:
4508 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4511:2:
4511 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4512:2:
4512 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4513:2:
4513 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4514:2:
4514 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4515:2:
4515 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4516:2:
4516 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4517:2:
4517 | double precision facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4518:2:
4518 | call threetreesbootdataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4519:2:
4519 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4520:2:
4520 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4521:2:
4521 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4522:2:
4522 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4523:2:
4523 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4524:2:
4524 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4525:2:
4525 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4526:2:
4526 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4527:2:
4527 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4530:2:
4530 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4531:2:
4531 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4532:2:
4532 | double precision, intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4533:2:
4533 | double precision, intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4534:2:
4534 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4535:2:
4535 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4536:2:
4536 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4537:2:
4537 | double precision ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4538:2:
4538 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4539:2:
4539 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4540:2:
4540 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4541:2:
4541 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4542:2:
4542 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4543:2:
4543 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4544:2:
4544 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4545:2:
4545 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4546:2:
4546 | subj_map(nint(anovadata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4547:2:
4547 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4548:2:
4548 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4549:2:
4549 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4550:2:
4550 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4551:2:
4551 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4552:2:
4552 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4553:2:
4553 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4554:2:
4554 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4555:2:
4555 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4556:2:
4556 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4557:2:
4557 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4558:2:
4558 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4559:2:
4559 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4560:2:
4560 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4561:2:
4561 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4562:2:
4562 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4563:2:
4563 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4564:2:
4564 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4565:2:
4565 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4566:2:
4566 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4567:2:
4567 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4568:2:
4568 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4569:2:
4569 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4570:2:
4570 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4571:2:
4571 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4572:2:
4572 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4573:2:
4573 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4574:2:
4574 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4575:2:
4575 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4576:2:
4576 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4577:2:
4577 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4578:2:
4578 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4579:2:
4579 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4580:2:
4580 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4581:2:
4581 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4582:2:
4582 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4583:2:
4583 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4584:2:
4584 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4585:2:
4585 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4586:2:
4586 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4587:2:
4587 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4588:2:
4588 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4589:2:
4589 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4590:2:
4590 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4591:2:
4591 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4592:2:
4592 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4593:2:
4593 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4594:2:
4594 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4595:2:
4595 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4596:2:
4596 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4597:2:
4597 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4598:2:
4598 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4599:2:
4599 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4600:2:
4600 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4601:2:
4601 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4602:2:
4602 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4603:2:
4603 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4604:2:
4604 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4605:2:
4605 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4606:2:
4606 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4609:2:
4609 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4610:2:
4610 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4611:2:
4611 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4612:2:
4612 | double precision, intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4613:2:
4613 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4614:2:
4614 | double precision xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4615:2:
4615 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4616:2:
4616 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4617:2:
4617 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4618:2:
4618 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4619:2:
4619 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4620:2:
4620 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4621:2:
4621 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4622:2:
4622 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4623:2:
4623 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4624:2:
4624 | call threetreesbootpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4625:2:
4625 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4626:2:
4626 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4627:2:
4627 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4628:2:
4628 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4629:2:
4629 | call threetreesbootpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4630:2:
4630 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4631:2:
4631 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4632:2:
4632 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4633:2:
4633 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4634:2:
4634 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4635:2:
4635 | call threetreesbootdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4636:2:
4636 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4638:2:
4638 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4641:2:
4641 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4642:2:
4642 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4643:2:
4643 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4644:2:
4644 | double precision,intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4645:2:
4645 | double precision,intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4646:2:
4646 | double precision res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4647:2:
4647 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4649:2:
4649 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4650:2:
4650 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4651:2:
4651 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4652:2:
4652 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4653:2:
4653 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4654:2:
4654 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4655:2:
4655 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4660:2:
4660 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4661:2:
4661 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4662:2:
4662 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4667:2:
4667 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4668:2:
4668 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4669:2:
4669 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4670:2:
4670 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4671:2:
4671 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4672:2:
4672 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4673:2:
4673 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4674:2:
4674 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4675:2:
4675 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4676:2:
4676 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4677:2:
4677 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4678:2:
4678 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4679:2:
4679 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4680:2:
4680 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4681:2:
4681 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4682:2:
4682 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4683:2:
4683 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4684:2:
4684 | s0=s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4685:2:
4685 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4688:2:
4688 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4689:2:
4689 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4691:2:
4691 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4692:2:
4692 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4719:2:
4719 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4728:2:
4728 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4729:2:
4729 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4735:2:
4735 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4769:2:
4769 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4780:2:
4780 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4781:2:
4781 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4782:2:
4782 | double precision,intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4783:2:
4783 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4784:2:
4784 | eps=1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4785:2:
4785 | s1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4786:2:
4786 | s2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4787:2:
4787 | zval = (z-((1d0-weight)*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4788:2:
4788 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4789:2:
4789 | form2 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4790:2:
4790 | form3 = (df11/df12)**(df11/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4791:2:
4791 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4792:2:
4792 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4793:2:
4793 | form6 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4794:2:
4794 | form7 = (df21/df22)**(df21/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4795:2:
4795 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4796:2:
4796 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4797:2:
4797 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4800:2:
4800 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4801:2:
4801 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4802:2:
4802 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4803:2:
4803 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4804:2:
4804 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4805:2:
4805 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4806:2:
4806 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4807:2:
4807 | call threetreesbootdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4808:2:
4808 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4809:2:
4809 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4810:2:
4810 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4811:2:
4811 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4812:2:
4812 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4813:2:
4813 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4814:2:
4814 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4815:2:
4815 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4819:2:
4819 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4820:2:
4820 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4821:2:
4821 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4822:2:
4822 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4823:2:
4823 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4824:2:
4824 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4825:2:
4825 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4826:2:
4826 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4827:2:
4827 | nodenummatsub(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4828:2:
4828 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4829:2:
4829 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4830:2:
4830 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4831:2:
4831 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4832:2:
4832 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4833:2:
4833 | nodenummatsub(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4834:2:
4834 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4835:2:
4835 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4836:2:
4836 | nodenummatsub(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4837:2:
4837 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4838:2:
4838 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4839:2:
4839 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4840:2:
4840 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4841:2:
4841 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4842:2:
4842 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4845:2:
4845 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4846:2:
4846 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4847:2:
4847 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4848:2:
4848 | integer, intent(in) :: nodenummat(msize,11)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4849:2:
4849 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4850:2:
4850 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4851:2:
4851 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4852:2:
4852 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4853:2:
4853 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4854:2:
4854 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4855:2:
4855 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4856:2:
4856 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4857:2:
4857 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4860:2:
4860 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4861:2:
4861 | integer,intent(in) :: prunind,msize,cv,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4862:2:
4862 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4863:2:
4863 | double precision,intent(in) :: alpha,gamma,allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4864:2:
4864 | double precision,intent(out) :: allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4865:2:
4865 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4866:2:
4866 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4867:2:
4867 | double precision minghval,allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4868:2:
4868 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4869:2:
4869 | allgammaval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4870:2:
4870 | if(prunind == 1 .or. alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4871:2:
4871 | goto 3001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4872:2:
4872 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4873:2:
4873 | call threetreesbootcvterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4874:2:
4874 | call threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4875:2:
4875 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4876:2:
4876 | call threetreesbootcvpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4877:2:
4877 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4878:2:
4878 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4879:2:
4879 | allgammaval(2) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4880:2:
4880 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4881:2:
4881 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4882:2:
4882 | call threetreesbootcvterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4883:2:
4883 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4884:2:
4884 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4885:2:
4885 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4886:2:
4886 | call threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4887:2:
4887 | allocate(nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4888:2:
4888 | call threetreesbootcvpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4889:2:
4889 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4890:2:
4890 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4891:2:
4891 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4892:2:
4892 | allgammaval(prunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4893:2:
4893 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4897:2:
4897 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4898:2:
4898 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4899:2:
4899 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4900:2:
4900 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4901:2:
4901 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4902:2:
4902 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4903:2:
4903 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4904:2:
4904 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4905:2:
4905 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4906:2:
4906 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4907:2:
4907 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4908:2:
4908 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4909:2:
4909 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4910:2:
4910 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4911:2:
4911 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4912:2:
4912 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4913:2:
4913 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4914:2:
4914 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4915:2:
4915 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4916:2:
4916 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4917:2:
4917 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4918:2:
4918 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4919:2:
4919 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4920:2:
4920 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4921:2:
4921 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4922:2:
4922 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4923:2:
4923 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4924:2:
4924 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4925:2:
4925 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4928:2:
4928 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4929:2:
4929 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4930:2:
4930 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4931:2:
4931 | double precision testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4932:2:
4932 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4933:2:
4933 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4934:2:
4934 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4935:2:
4935 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4936:2:
4936 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4937:2:
4937 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4938:2:
4938 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4939:2:
4939 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4940:2:
4940 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4941:2:
4941 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4942:2:
4942 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4943:2:
4943 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4944:2:
4944 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4945:2:
4945 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4946:2:
4946 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4947:2:
4947 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4948:2:
4948 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4949:2:
4949 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4950:2:
4950 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4951:2:
4951 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4952:2:
4952 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4953:2:
4953 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4954:2:
4954 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4955:2:
4955 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4956:2:
4956 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4957:2:
4957 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4958:2:
4958 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4959:2:
4959 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4960:2:
4960 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4961:2:
4961 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4962:2:
4962 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4963:2:
4963 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4964:2:
4964 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4965:2:
4965 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4966:2:
4966 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4967:2:
4967 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4968:2:
4968 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4969:2:
4969 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4970:2:
4970 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4971:2:
4971 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4974:2:
4974 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4975:2:
4975 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4976:2:
4976 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4977:2:
4977 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4978:2:
4978 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4979:2:
4979 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4980:2:
4980 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4981:2:
4981 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4982:2:
4982 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4983:2:
4983 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4984:2:
4984 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4985:2:
4985 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4986:2:
4986 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4987:2:
4987 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4988:2:
4988 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4989:2:
4989 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4990:2:
4990 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4991:2:
4991 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4992:2:
4992 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4993:2:
4993 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4994:2:
4994 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4995:2:
4995 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4996:2:
4996 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4997:2:
4997 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4998:2:
4998 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4999:2:
4999 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5000:2:
5000 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5001:2:
5001 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5005:2:
5005 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5006:2:
5006 | integer,intent(in) :: cv,msize,colnum,Ksplit,maxdepth,levelcount,beta1len,beta2len,minbucket,minsplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5007:2:
5007 | integer,intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5008:2:
5008 | integer,intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5009:2:
5009 | double precision,intent(in) :: alpha,gamma,fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5010:2:
5010 | double precision,intent(in) :: beta1(beta1len),beta2(beta2len),allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5011:2:
5011 | double precision,intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5012:2:
5012 | double precision,intent(out) :: bestgammaval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5013:2:
5013 | integer,intent(out) :: cvsplitind(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5014:2:
5014 | integer, allocatable :: cvind(:),cvsize(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5015:2:
5015 | integer, allocatable :: nodenummat(:,:), nodenummattest(:,:),prunenodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5016:2:
5016 | double precision, allocatable :: meangammacv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5017:2:
5017 | double precision, allocatable :: gammacvmat(:,:),traindata(:,:),testdata(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5018:2:
5018 | integer cvloop,traindatasize,testdatasize,prunind,i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5019:2:
5019 | double precision allfval((2**maxdepth)-1),gammacv((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5020:2:
5020 | double precision maxgammasub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5021:2:
5021 | if(alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5022:2:
5022 | bestgammaval = gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5023:2:
5023 | allocate(cvind(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5024:2:
5024 | cvind(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5025:2:
5025 | cvsplitind(:) = cvind(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5026:2:
5026 | goto 7001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5027:2:
5027 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5028:2:
5028 | allocate(cvind(msize),cvsize(Ksplit),gammacvmat(ksplit,(2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5029:2:
5029 | allocate(meangammacv((2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5030:2:
5030 | call threetreesbootcvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5031:2:
5031 | cvsplitind(:) = cvind(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5032:2:
5032 | do cvloop = 1,Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5033:2:
5033 | traindatasize = ((sum(cvsize)-cvsize(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5034:2:
5034 | testdatasize = (cvsize(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5035:2:
5035 | allocate(traindata(traindatasize,colnum),testdata(testdatasize,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5036:2:
5036 | allocate(nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5037:2:
5037 | call threetreesbootcvdatachoice(XYDATA,msize,colnum,Ksplit,levelcount,cvloop,cvind,cvsize,traindata,testdata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5038:2:
5038 | call threetreesbootcvtreegrowth(traindatasize,testdatasize,traindata,testdata,nodenummattest,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5039:2:
5039 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,xydata,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5040:2:
5040 | beta2len,nodenummat,allfval,prunind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5041:2:
5041 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5042:2:
5042 | call threetreesbootcvbesttreepruning(traindatasize,testdatasize,maxdepth,nodenummat,nodenummattest,allfval,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5043:2:
5043 | levelcount,colnum,traindata,testdata,allgammaval,gammacv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5044:2:
5044 | gammacvmat(cvloop,:) = gammacv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5045:2:
5045 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5046:2:
5046 | deallocate(traindata,testdata,nodenummat,nodenummattest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5047:2:
5047 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5048:2:
5048 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5049:2:
5049 | do i = 1,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5050:2:
5050 | meangammacv(i) = sum(gammacvmat(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5051:2:
5051 | if(meangammacv(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5052:2:
5052 | meangammacv(i) = meangammacv(i) / dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5053:2:
5053 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5054:2:
5054 | meangammacv(i) = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5055:2:
5055 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5056:2:
5056 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5057:2:
5057 | maxgammasub = maxval(meangammacv) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5058:2:
5058 | do i = 1,size(meangammacv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5059:2:
5059 | if(meangammacv(i) < maxgammasub .and. meangammacv(i) >= 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5060:2:
5060 | bestgammaval = allgammaval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5061:2:
5061 | maxgammasub = meangammacv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5062:2:
5062 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5063:2:
5063 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5064:2:
5064 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5068:2:
5068 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5069:2:
5069 | integer, intent(in) :: msize,colnum,Ksplit,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5070:2:
5070 | integer, intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5071:2:
5071 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5072:2:
5072 | integer, intent(out) :: cvind(msize), cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5073:2:
5073 | integer i,subnum, randval, cvsizecou(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5074:2:
5074 | integer, allocatable :: cvindsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5075:2:
5075 | double precision randvalsub,ii
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5076:2:
5076 | integer :: seed_size, seed_i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5077:2:
5077 | integer, allocatable :: seed_array(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5078:2:
5078 | call random_seed(size=seed_size)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5079:2:
5079 | allocate(seed_array(seed_size))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5080:2:
5080 | do seed_i = 1, seed_size
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5081:2:
5081 | seed_array(seed_i) = iseed + (seed_i - 1) * 37
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5082:2:
5082 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5083:2:
5083 | call random_seed(put=seed_array)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5084:2:
5084 | deallocate(seed_array)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5085:2:
5085 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5086:2:
5086 | cvsize(:) = subnum/Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5087:2:
5087 | do i = 1,(subnum - sum(cvsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5088:2:
5088 | cvsize(i) = cvsize(i) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5089:2:
5089 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5090:2:
5090 | allocate(cvindsub(subnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5091:2:
5091 | cvsizecou(:) = cvsize(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5092:2:
5092 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5093:2:
5093 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5094:2:
5094 | call random_number(randvalsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5095:2:
5095 | randval = int(randvalsub * dble(Ksplit)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5096:2:
5096 | if(cvsizecou(randval) > 0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5097:2:
5097 | cvsizecou(randval) = cvsizecou(randval) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5098:2:
5098 | cvindsub(i) = randval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5099:2:
5099 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5100:2:
5100 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5101:2:
5101 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5102:2:
5102 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5103:2:
5103 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5104:2:
5104 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5105:2:
5105 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5108:2:
5108 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5109:2:
5109 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5110:2:
5110 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5111:2:
5111 | integer, intent(in) :: cvind(msize),cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5112:2:
5112 | double precision, intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5113:2:
5113 | testdata((cvsize(testind)*levelcount),colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5114:2:
5114 | integer i,jtrain,jtest,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5115:2:
5115 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5116:2:
5116 | jtest = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5117:2:
5117 | jtrain = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5118:2:
5118 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5119:2:
5119 | if(cvind(((i-1)*levelcount)+1) == testind) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5120:2:
5120 | testdata((levelcount*(jtest-1)+1):(levelcount*jtest),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5121:2:
5121 | jtest = jtest + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5122:2:
5122 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5123:2:
5123 | traindata((levelcount*(jtrain-1)+1):(levelcount*jtrain),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5124:2:
5124 | jtrain = jtrain + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5125:2:
5125 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5126:2:
5126 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5131:2:
5131 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5132:2:
5132 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5133:2:
5133 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5134:2:
5134 | double precision, intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5135:2:
5135 | double precision, intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5136:2:
5136 | double precision, intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5137:2:
5137 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5138:2:
5138 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5139:2:
5139 | double precision,intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5140:2:
5140 | integer nodenummatsub(traindatasize,maxdepth),nodenummatsubtest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5141:2:
5141 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5142:2:
5142 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5143:2:
5143 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5144:2:
5144 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5145:2:
5145 | double precision fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5146:2:
5146 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5147:2:
5147 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5148:2:
5148 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5149:2:
5149 | double precision, allocatable :: xynodedata(:,:),xynodedatatest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5150:2:
5150 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5151:2:
5151 | integer, allocatable :: flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5152:2:
5152 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5153:2:
5153 | double precision :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5154:2:
5154 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5155:2:
5155 | nodenummat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5156:2:
5156 | nodenummat(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5157:2:
5157 | nodenummattest(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5158:2:
5158 | nodenummattest(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5159:2:
5159 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5160:2:
5160 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5161:2:
5161 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5162:2:
5162 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5163:2:
5163 | allocate(nodesize(2),nodesizetest(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5164:2:
5164 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5165:2:
5165 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5166:2:
5166 | call threetreesbootcvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5167:2:
5167 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5168:2:
5168 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5169:2:
5169 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5170:2:
5170 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5171:2:
5171 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5172:2:
5172 | allocate(anovadata(traindatasize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5173:2:
5173 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5174:2:
5174 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5175:2:
5175 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5176:2:
5176 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5177:2:
5177 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5178:2:
5178 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5179:2:
5179 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5180:2:
5180 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5181:2:
5181 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5182:2:
5182 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5183:2:
5183 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5184:2:
5184 | call threetreesbootcvrepANOVA(traindatasize,colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5185:2:
5185 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5186:2:
5186 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5187:2:
5187 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5188:2:
5188 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5189:2:
5189 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5190:2:
5190 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5191:2:
5191 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5192:2:
5192 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5193:2:
5193 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5194:2:
5194 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5195:2:
5195 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5196:2:
5196 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5197:2:
5197 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5198:2:
5198 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5199:2:
5199 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5200:2:
5200 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5201:2:
5201 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5202:2:
5202 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5203:2:
5203 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5204:2:
5204 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5205:2:
5205 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5206:2:
5206 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5207:2:
5207 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5208:2:
5208 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5209:2:
5209 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5210:2:
5210 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5211:2:
5211 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5212:2:
5212 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5213:2:
5213 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5214:2:
5214 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5215:2:
5215 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5216:2:
5216 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5217:2:
5217 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5218:2:
5218 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5219:2:
5219 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5220:2:
5220 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5221:2:
5221 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5222:2:
5222 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5223:2:
5223 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5224:2:
5224 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5225:2:
5225 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5226:2:
5226 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5227:2:
5227 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5228:2:
5228 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5229:2:
5229 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5230:2:
5230 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5231:2:
5231 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5232:2:
5232 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5233:2:
5233 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5234:2:
5234 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5235:2:
5235 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5236:2:
5236 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5237:2:
5237 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5238:2:
5238 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5239:2:
5239 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5240:2:
5240 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5241:2:
5241 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5242:2:
5242 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5243:2:
5243 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5244:2:
5244 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5245:2:
5245 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5246:2:
5246 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5247:2:
5247 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5248:2:
5248 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5249:2:
5249 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5250:2:
5250 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5251:2:
5251 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5252:2:
5252 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5253:2:
5253 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5254:2:
5254 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5255:2:
5255 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5256:2:
5256 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5257:2:
5257 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5258:2:
5258 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5259:2:
5259 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5260:2:
5260 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5261:2:
5261 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5262:2:
5262 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5263:2:
5263 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5264:2:
5264 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5265:2:
5265 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5266:2:
5266 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5267:2:
5267 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5268:2:
5268 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5269:2:
5269 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5270:2:
5270 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5271:2:
5271 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5272:2:
5272 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5273:2:
5273 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5274:2:
5274 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5275:2:
5275 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5276:2:
5276 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5277:2:
5277 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5278:2:
5278 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5279:2:
5279 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5280:2:
5280 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5281:2:
5281 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5282:2:
5282 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5283:2:
5283 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5284:2:
5284 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5285:2:
5285 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5286:2:
5286 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5287:2:
5287 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5288:2:
5288 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5289:2:
5289 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5290:2:
5290 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5291:2:
5291 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5292:2:
5292 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5293:2:
5293 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5294:2:
5294 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5295:2:
5295 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5296:2:
5296 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5297:2:
5297 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5298:2:
5298 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5299:2:
5299 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5300:2:
5300 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5301:2:
5301 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5302:2:
5302 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5303:2:
5303 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5304:2:
5304 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5305:2:
5305 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5306:2:
5306 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5307:2:
5307 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5308:2:
5308 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5309:2:
5309 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5310:2:
5310 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5311:2:
5311 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5312:2:
5312 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5313:2:
5313 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5314:2:
5314 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5315:2:
5315 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5316:2:
5316 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5317:2:
5317 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5318:2:
5318 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5319:2:
5319 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5320:2:
5320 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5321:2:
5321 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5322:2:
5322 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5323:2:
5323 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5324:2:
5324 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5325:2:
5325 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5326:2:
5326 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5327:2:
5327 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5328:2:
5328 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5329:2:
5329 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5330:2:
5330 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5331:2:
5331 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5332:2:
5332 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5333:2:
5333 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5334:2:
5334 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5335:2:
5335 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5336:2:
5336 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5337:2:
5337 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5338:2:
5338 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5339:2:
5339 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5340:2:
5340 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5341:2:
5341 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5342:2:
5342 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5343:2:
5343 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5344:2:
5344 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5345:2:
5345 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5346:2:
5346 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5347:2:
5347 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5348:2:
5348 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5349:2:
5349 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5350:2:
5350 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5351:2:
5351 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5352:2:
5352 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5353:2:
5353 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5354:2:
5354 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5355:2:
5355 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5356:2:
5356 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5357:2:
5357 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5358:2:
5358 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5359:2:
5359 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5360:2:
5360 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5361:2:
5361 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5362:2:
5362 | call threetreesbootcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5363:2:
5363 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5364:2:
5364 | call threetreesbootcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5365:2:
5365 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5366:2:
5366 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5367:2:
5367 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5368:2:
5368 | nodesizetest(1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5369:2:
5369 | nodesizetest(2) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5370:2:
5370 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5371:2:
5371 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5372:2:
5372 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5373:2:
5373 | nodenummattest(:,:) = nodenummatsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5374:2:
5374 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5375:2:
5375 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5376:2:
5376 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5377:2:
5377 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5378:2:
5378 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5379:2:
5379 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5380:2:
5380 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5381:2:
5381 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5382:2:
5382 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5383:2:
5383 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5384:2:
5384 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5385:2:
5385 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5386:2:
5386 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5387:2:
5387 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5388:2:
5388 | call threetreesbootcvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5389:2:
5389 | call threetreesbootcvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,nodenummattest,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5390:2:
5390 | nodesizetest(nodeloop),xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5391:2:
5391 | call threetreesbootcvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5392:2:
5392 | if(sum(splitnum) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5393:2:
5393 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5394:2:
5394 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5395:2:
5395 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5396:2:
5396 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5397:2:
5397 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5398:2:
5398 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5399:2:
5399 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5400:2:
5400 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5401:2:
5401 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5402:2:
5402 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5403:2:
5403 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5404:2:
5404 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5405:2:
5405 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5406:2:
5406 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5407:2:
5407 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5408:2:
5408 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5409:2:
5409 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5410:2:
5410 | if(allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5411:2:
5411 | deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5412:2:
5412 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5413:2:
5413 | if(.not. allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5414:2:
5414 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5415:2:
5415 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5416:2:
5416 | if(allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5417:2:
5417 | deallocate(facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5418:2:
5418 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5419:2:
5419 | if(.not. allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5420:2:
5420 | allocate(facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5421:2:
5421 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5422:2:
5422 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5423:2:
5423 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5424:2:
5424 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5425:2:
5425 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5426:2:
5426 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5427:2:
5427 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5428:2:
5428 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5429:2:
5429 | colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5430:2:
5430 | call threetreesbootcvrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5431:2:
5431 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5432:2:
5432 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5433:2:
5433 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5434:2:
5434 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5435:2:
5435 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5436:2:
5436 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5437:2:
5437 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5438:2:
5438 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5439:2:
5439 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5440:2:
5440 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5441:2:
5441 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5442:2:
5442 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5443:2:
5443 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5444:2:
5444 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5445:2:
5445 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5446:2:
5446 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5447:2:
5447 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5448:2:
5448 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5449:6:
5449 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5450:2:
5450 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5451:2:
5451 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5452:2:
5452 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5453:2:
5453 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5454:2:
5454 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5455:2:
5455 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5456:2:
5456 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5457:2:
5457 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5458:2:
5458 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5459:2:
5459 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5460:2:
5460 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5461:2:
5461 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5462:2:
5462 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5463:2:
5463 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5464:2:
5464 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5465:2:
5465 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5466:2:
5466 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5467:2:
5467 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5468:2:
5468 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5469:2:
5469 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5470:2:
5470 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5471:2:
5471 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5472:2:
5472 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5473:2:
5473 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5474:2:
5474 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5475:2:
5475 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5476:2:
5476 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5477:2:
5477 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5478:2:
5478 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5479:2:
5479 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5480:2:
5480 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5481:2:
5481 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5482:2:
5482 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5483:2:
5483 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5484:2:
5484 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5485:2:
5485 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5486:2:
5486 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5487:2:
5487 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5488:2:
5488 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5489:2:
5489 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5490:2:
5490 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5491:2:
5491 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5492:2:
5492 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5493:2:
5493 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5494:2:
5494 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5495:2:
5495 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5496:2:
5496 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5497:2:
5497 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5498:2:
5498 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5499:2:
5499 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5500:2:
5500 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5501:2:
5501 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5502:2:
5502 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5503:2:
5503 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5504:2:
5504 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5505:2:
5505 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5506:2:
5506 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5507:2:
5507 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5508:2:
5508 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5509:2:
5509 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5510:2:
5510 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5511:2:
5511 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5512:2:
5512 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5513:2:
5513 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5514:2:
5514 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5515:2:
5515 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5516:2:
5516 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5517:2:
5517 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5518:2:
5518 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5519:2:
5519 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5520:2:
5520 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5521:2:
5521 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5522:2:
5522 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5523:2:
5523 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5524:2:
5524 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5525:2:
5525 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5526:2:
5526 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5527:2:
5527 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5528:2:
5528 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5529:2:
5529 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5530:2:
5530 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5531:2:
5531 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5532:2:
5532 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5533:2:
5533 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5534:2:
5534 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5535:2:
5535 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5536:2:
5536 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5537:2:
5537 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5538:2:
5538 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5539:2:
5539 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5540:2:
5540 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5541:2:
5541 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5542:2:
5542 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5543:2:
5543 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5544:2:
5544 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5545:2:
5545 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5546:2:
5546 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5547:2:
5547 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5548:2:
5548 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5549:2:
5549 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5550:2:
5550 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5551:2:
5551 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5552:2:
5552 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5553:2:
5553 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5554:2:
5554 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5555:2:
5555 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5556:2:
5556 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5557:2:
5557 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5558:2:
5558 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5559:2:
5559 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5560:2:
5560 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5561:2:
5561 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5562:2:
5562 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5563:2:
5563 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5564:2:
5564 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5565:2:
5565 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5566:2:
5566 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5567:2:
5567 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5568:2:
5568 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5569:2:
5569 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5570:2:
5570 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5571:2:
5571 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5572:2:
5572 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5573:2:
5573 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5574:2:
5574 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5575:2:
5575 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5576:2:
5576 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5577:2:
5577 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5578:2:
5578 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5579:2:
5579 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5580:2:
5580 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5581:2:
5581 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5582:2:
5582 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5583:2:
5583 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5584:2:
5584 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5585:2:
5585 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5586:2:
5586 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5587:2:
5587 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5588:2:
5588 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5589:2:
5589 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5590:2:
5590 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5591:2:
5591 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5592:2:
5592 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5593:2:
5593 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5594:2:
5594 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5595:2:
5595 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5596:2:
5596 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5597:2:
5597 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5598:2:
5598 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5599:2:
5599 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5600:2:
5600 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5601:2:
5601 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5602:2:
5602 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5603:2:
5603 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5604:2:
5604 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5605:2:
5605 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5606:2:
5606 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5607:2:
5607 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5608:2:
5608 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5609:2:
5609 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5610:2:
5610 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5611:2:
5611 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5612:2:
5612 | if(.not. allocated(nodesizesubtest)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5613:2:
5613 | allocate(nodesizesubtest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5614:2:
5614 | nodesizesubtest(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5615:2:
5615 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5616:2:
5616 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5617:2:
5617 | call threetreesbootcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5618:2:
5618 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5619:2:
5619 | call threetreesbootcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5620:2:
5620 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5621:2:
5621 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5622:2:
5622 | nodenummattest(:,:) = nodenummatsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5623:2:
5623 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5624:2:
5624 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5625:2:
5625 | nodesizesubtest(2*nodeloop-1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5626:2:
5626 | nodesizesubtest(2*nodeloop) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5627:6:
5627 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5628:2:
5628 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5629:2:
5629 | deallocate(anovadata,xynodedata,xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5630:2:
5630 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5631:2:
5631 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5632:2:
5632 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5633:2:
5633 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5634:2:
5634 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5635:2:
5635 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5636:2:
5636 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5637:2:
5637 | nodesizetest(:) = nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5638:2:
5638 | deallocate(nodesizesub,nodesizesubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5639:2:
5639 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5641:2:
5641 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5645:2:
5645 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5646:2:
5646 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5647:2:
5647 | double precision, intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5648:2:
5648 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5649:2:
5649 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5650:2:
5650 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5651:2:
5651 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5652:2:
5652 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5653:2:
5653 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5654:2:
5654 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5655:2:
5655 | call threetreesbootcvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5656:2:
5656 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5657:2:
5657 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5658:2:
5658 | call threetreesbootcvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5659:2:
5659 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5660:2:
5660 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5661:2:
5661 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5662:2:
5662 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5665:2:
5665 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5666:2:
5666 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5667:2:
5667 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5668:2:
5668 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5669:2:
5669 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5670:2:
5670 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5671:2:
5671 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5672:2:
5672 | call threetreesbootcvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5673:2:
5673 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5674:2:
5674 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5675:2:
5675 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5676:2:
5676 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5677:2:
5677 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5678:2:
5678 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5679:2:
5679 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5682:2:
5682 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5683:2:
5683 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5684:2:
5684 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5685:2:
5685 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5686:2:
5686 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5687:2:
5687 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5688:2:
5688 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5689:2:
5689 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5690:2:
5690 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5691:2:
5691 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5692:2:
5692 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5693:2:
5693 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5694:2:
5694 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5695:2:
5695 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5696:2:
5696 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5697:2:
5697 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5698:2:
5698 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5699:2:
5699 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5700:2:
5700 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5701:2:
5701 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5702:2:
5702 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5703:2:
5703 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5704:2:
5704 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5705:2:
5705 | call threetreesbootcvdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5706:2:
5706 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5707:2:
5707 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5708:2:
5708 | call threetreesbootcvdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5709:2:
5709 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5710:2:
5710 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5713:2:
5713 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5714:2:
5714 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5715:2:
5715 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5716:2:
5716 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5717:2:
5717 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5718:2:
5718 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5719:2:
5719 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5720:2:
5720 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5721:2:
5721 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5722:2:
5722 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5723:2:
5723 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5724:2:
5724 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5725:2:
5725 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5726:2:
5726 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5727:2:
5727 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5728:2:
5728 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5729:2:
5729 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5730:2:
5730 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5731:2:
5731 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5732:2:
5732 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5733:2:
5733 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5734:2:
5734 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5735:2:
5735 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5736:2:
5736 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5737:2:
5737 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5738:2:
5738 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5739:2:
5739 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5740:2:
5740 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5741:2:
5741 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5742:2:
5742 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5743:2:
5743 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5744:2:
5744 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5745:2:
5745 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5746:2:
5746 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5747:2:
5747 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5750:2:
5750 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5751:2:
5751 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5752:2:
5752 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5753:2:
5753 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5754:2:
5754 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5755:2:
5755 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5756:2:
5756 | double precision facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5757:2:
5757 | call threetreesbootcvdataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5758:2:
5758 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5759:2:
5759 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5760:2:
5760 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5761:2:
5761 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5762:2:
5762 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5763:2:
5763 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5764:2:
5764 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5765:2:
5765 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5766:2:
5766 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5769:2:
5769 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5770:2:
5770 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5771:2:
5771 | double precision, intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5772:2:
5772 | double precision, intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5773:2:
5773 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5774:2:
5774 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5775:2:
5775 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5776:2:
5776 | double precision ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5777:2:
5777 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5778:2:
5778 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5779:2:
5779 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5780:2:
5780 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5781:2:
5781 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5782:2:
5782 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5783:2:
5783 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5784:2:
5784 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5785:2:
5785 | subj_map(nint(anovadata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5786:2:
5786 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5787:2:
5787 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5788:2:
5788 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5789:2:
5789 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5790:2:
5790 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5791:2:
5791 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5792:2:
5792 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5793:2:
5793 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5794:2:
5794 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5795:2:
5795 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5796:2:
5796 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5797:2:
5797 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5798:2:
5798 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5799:2:
5799 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5800:2:
5800 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5801:2:
5801 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5802:2:
5802 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5803:2:
5803 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5804:2:
5804 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5805:2:
5805 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5806:2:
5806 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5807:2:
5807 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5808:2:
5808 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5809:2:
5809 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5810:2:
5810 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5811:2:
5811 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5812:2:
5812 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5813:2:
5813 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5814:2:
5814 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5815:2:
5815 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5816:2:
5816 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5817:2:
5817 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5818:2:
5818 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5819:2:
5819 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5820:2:
5820 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5821:2:
5821 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5822:2:
5822 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5823:2:
5823 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5824:2:
5824 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5825:2:
5825 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5826:2:
5826 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5827:2:
5827 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5828:2:
5828 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5829:2:
5829 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5830:2:
5830 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5831:2:
5831 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5832:2:
5832 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5833:2:
5833 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5834:2:
5834 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5835:2:
5835 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5836:2:
5836 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5837:2:
5837 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5838:2:
5838 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5839:2:
5839 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5840:2:
5840 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5841:2:
5841 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5842:2:
5842 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5843:2:
5843 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5844:2:
5844 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5845:2:
5845 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5848:2:
5848 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5849:2:
5849 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5850:2:
5850 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5851:2:
5851 | double precision, intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5852:2:
5852 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5853:2:
5853 | double precision xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5854:2:
5854 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5855:2:
5855 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5856:2:
5856 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5857:2:
5857 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5858:2:
5858 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5859:2:
5859 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5860:2:
5860 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5861:2:
5861 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5862:2:
5862 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5863:2:
5863 | call threetreesbootcvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5864:2:
5864 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5865:2:
5865 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5866:2:
5866 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5867:2:
5867 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5868:2:
5868 | call threetreesbootcvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5869:2:
5869 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5870:2:
5870 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5871:2:
5871 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5872:2:
5872 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5873:2:
5873 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5874:2:
5874 | call threetreesbootcvdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5875:2:
5875 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5877:2:
5877 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5880:2:
5880 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5881:2:
5881 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5882:2:
5882 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5883:2:
5883 | double precision,intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5884:2:
5884 | double precision,intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5885:2:
5885 | double precision res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5886:2:
5886 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5888:2:
5888 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5889:2:
5889 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5890:2:
5890 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5891:2:
5891 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5892:2:
5892 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5893:2:
5893 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5894:2:
5894 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5899:2:
5899 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5900:2:
5900 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5901:2:
5901 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5906:2:
5906 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5907:2:
5907 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5908:2:
5908 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5909:2:
5909 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5910:2:
5910 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5911:2:
5911 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5912:2:
5912 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5913:2:
5913 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5914:2:
5914 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5915:2:
5915 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5916:2:
5916 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5917:2:
5917 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5918:2:
5918 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5919:2:
5919 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5920:2:
5920 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5921:2:
5921 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5922:2:
5922 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5923:2:
5923 | s0=s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5924:2:
5924 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5927:2:
5927 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5928:2:
5928 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5930:2:
5930 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5931:2:
5931 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5958:2:
5958 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5967:2:
5967 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5968:2:
5968 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5974:2:
5974 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6008:2:
6008 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6019:2:
6019 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6020:2:
6020 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6021:2:
6021 | double precision,intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6022:2:
6022 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6023:2:
6023 | eps=1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6024:2:
6024 | s1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6025:2:
6025 | s2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6026:2:
6026 | zval = (z-((1d0-weight)*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6027:2:
6027 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6028:2:
6028 | form2 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6029:2:
6029 | form3 = (df11/df12)**(df11/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6030:2:
6030 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6031:2:
6031 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6032:2:
6032 | form6 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6033:2:
6033 | form7 = (df21/df22)**(df21/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6034:2:
6034 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6035:2:
6035 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6036:2:
6036 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6039:2:
6039 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6040:2:
6040 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6041:2:
6041 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6042:2:
6042 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6043:2:
6043 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6044:2:
6044 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6045:2:
6045 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6046:2:
6046 | call threetreesbootcvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6047:2:
6047 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6048:2:
6048 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6049:2:
6049 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6050:2:
6050 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6051:2:
6051 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6052:2:
6052 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6053:2:
6053 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6054:2:
6054 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6058:2:
6058 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6059:2:
6059 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6060:2:
6060 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6061:2:
6061 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6062:2:
6062 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6063:2:
6063 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6064:2:
6064 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6065:2:
6065 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6066:2:
6066 | nodenummatsub(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6067:2:
6067 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6068:2:
6068 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6069:2:
6069 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6070:2:
6070 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6071:2:
6071 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6072:2:
6072 | nodenummatsub(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6073:2:
6073 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6074:2:
6074 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6075:2:
6075 | nodenummatsub(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6076:2:
6076 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6077:2:
6077 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6078:2:
6078 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6079:2:
6079 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6080:2:
6080 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6081:2:
6081 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6084:2:
6084 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6085:2:
6085 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6086:2:
6086 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6087:2:
6087 | integer, intent(in) :: nodenummat(msize,11)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6088:2:
6088 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6089:2:
6089 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6090:2:
6090 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6091:2:
6091 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6092:2:
6092 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6093:2:
6093 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6094:2:
6094 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6095:2:
6095 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6096:2:
6096 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6099:2:
6099 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6100:2:
6100 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6101:2:
6101 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6102:2:
6102 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6103:2:
6103 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6104:2:
6104 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6105:2:
6105 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6106:2:
6106 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6107:2:
6107 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6108:2:
6108 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6109:2:
6109 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6110:2:
6110 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6111:2:
6111 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6112:2:
6112 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6113:2:
6113 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6114:2:
6114 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6115:2:
6115 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6116:2:
6116 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6117:2:
6117 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6118:2:
6118 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6119:2:
6119 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6120:2:
6120 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6121:2:
6121 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6122:2:
6122 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6123:2:
6123 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6124:2:
6124 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6125:2:
6125 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6126:2:
6126 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6127:2:
6127 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6130:2:
6130 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6131:2:
6131 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6132:2:
6132 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6133:2:
6133 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6134:2:
6134 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6135:2:
6135 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6136:2:
6136 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6137:2:
6137 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6138:2:
6138 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6139:2:
6139 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6140:2:
6140 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6141:2:
6141 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6142:2:
6142 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6143:2:
6143 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6144:2:
6144 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6145:2:
6145 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6146:2:
6146 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6147:2:
6147 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6148:2:
6148 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6149:2:
6149 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6150:2:
6150 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6151:2:
6151 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6152:2:
6152 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6153:2:
6153 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6154:2:
6154 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6155:2:
6155 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6156:2:
6156 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6157:2:
6157 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6158:2:
6158 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6159:2:
6159 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6160:2:
6160 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6161:2:
6161 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6162:2:
6162 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6163:2:
6163 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6164:2:
6164 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6165:2:
6165 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6166:2:
6166 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6167:2:
6167 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6168:2:
6168 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6169:2:
6169 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6170:2:
6170 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6171:2:
6171 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6172:2:
6172 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6175:2:
6175 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6176:2:
6176 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6177:2:
6177 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6178:2:
6178 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6179:2:
6179 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6180:2:
6180 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6181:2:
6181 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6182:2:
6182 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6183:2:
6183 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6184:2:
6184 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6185:2:
6185 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6186:2:
6186 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6187:2:
6187 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6188:2:
6188 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6189:2:
6189 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6190:2:
6190 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6191:2:
6191 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6192:2:
6192 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6193:2:
6193 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6194:2:
6194 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6195:2:
6195 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6196:2:
6196 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6197:2:
6197 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6198:2:
6198 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6199:2:
6199 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6200:2:
6200 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6201:2:
6201 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6202:2:
6202 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6205:2:
6205 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6206:2:
6206 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6207:2:
6207 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6208:2:
6208 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6209:2:
6209 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6210:2:
6210 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6211:2:
6211 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6212:2:
6212 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6213:2:
6213 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6214:2:
6214 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6215:2:
6215 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6216:2:
6216 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6217:2:
6217 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6218:2:
6218 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6219:2:
6219 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6220:2:
6220 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6221:2:
6221 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6222:2:
6222 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6223:2:
6223 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6227:2:
6227 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6228:2:
6228 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6229:2:
6229 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6230:2:
6230 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6231:2:
6231 | double precision, intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6232:2:
6232 | double precision, intent(out) :: gammacv((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6233:2:
6233 | double precision allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6234:2:
6234 | double precision allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6235:2:
6235 | double precision losspredsum,minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6236:2:
6236 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6237:2:
6237 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6238:2:
6238 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6239:2:
6239 | allgammavaltrain(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6240:2:
6240 | gammacv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6241:2:
6241 | losspredsumvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6242:2:
6242 | call threetreesbootcvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6243:2:
6243 | nodenummattest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6244:2:
6244 | losspredsumvec(1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6245:2:
6245 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6246:2:
6246 | allfvalnew(:) = allfval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6247:2:
6247 | nodenummatnew(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6248:2:
6248 | nodenummatnewtest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6249:2:
6249 | do cvprunloop = 1,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6250:2:
6250 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6251:2:
6251 | call threetreesbootcvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6252:2:
6252 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6253:2:
6253 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6254:2:
6254 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6255:2:
6255 | call threetreesbootcvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6256:2:
6256 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6257:2:
6257 | call threetreesbootcvbestpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6258:2:
6258 | call threetreesbootcvbestpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6259:2:
6259 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6260:2:
6260 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6261:2:
6261 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6262:2:
6262 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6263:2:
6263 | allgammavaltrain(cvprunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6264:2:
6264 | call threetreesbootcvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6265:2:
6265 | nodenummatnewtest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6266:2:
6266 | losspredsumvec(cvprunloop+1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6267:2:
6267 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6268:2:
6268 | gammacv(1) = losspredsumvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6269:2:
6269 | j = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6270:2:
6270 | do i = 2,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6271:2:
6271 | if(allgammaval(i) == 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6272:2:
6272 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6273:2:
6273 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6274:2:
6274 | if(allgammaval(i) <= allgammavaltrain(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6275:2:
6275 | gammacv(i) = losspredsumvec(j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6276:2:
6276 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6277:2:
6277 | do k = 1,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6278:2:
6278 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6279:2:
6279 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6280:2:
6280 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6281:2:
6281 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6282:2:
6282 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6283:2:
6283 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6284:2:
6284 | gammacv(i) = losspredsumvec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6285:2:
6285 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6286:2:
6286 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6287:2:
6287 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6291:2:
6291 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6292:2:
6292 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6293:2:
6293 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6294:2:
6294 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6295:2:
6295 | double precision, intent(out) :: losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6296:2:
6296 | double precision, allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6297:2:
6297 | integer i,j,k,l
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6298:2:
6298 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6299:2:
6299 | allocate(timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6300:2:
6300 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6301:2:
6301 | losspred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6302:2:
6302 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6303:2:
6303 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6304:2:
6304 | do j = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6305:2:
6305 | if(sum(nodenummat(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6306:2:
6306 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6307:2:
6307 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6308:2:
6308 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6309:2:
6309 | if(nodenummat(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6310:2:
6310 | timepred(nodenummat(j,maxdepth),int(traindata(j,3))) = timepred(nodenummat(j,maxdepth),int(traindata(j,3))) + traindata(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6311:2:
6311 | timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) = timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6312:2:
6312 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6313:2:
6313 | elseif(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6314:2:
6314 | timepred(nodenummat(j,i),int(traindata(j,3))) = timepred(nodenummat(j,i),int(traindata(j,3))) + traindata(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6315:2:
6315 | timepredcou(nodenummat(j,i),int(traindata(j,3))) = timepredcou(nodenummat(j,i),int(traindata(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6316:2:
6316 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6317:2:
6317 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6318:2:
6318 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6320:2:
6320 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6321:2:
6321 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6322:2:
6322 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6323:2:
6323 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6324:2:
6324 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6325:2:
6325 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6326:2:
6326 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6327:2:
6327 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6328:2:
6328 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6329:2:
6329 | do j=1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6330:2:
6330 | if(2**(j-1) <= i .and. i < 2**j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6331:2:
6331 | k = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6332:2:
6332 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6333:2:
6333 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6334:2:
6334 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6335:2:
6335 | do l = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6336:2:
6336 | if(nodenummattest(l,k) == i) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6337:2:
6337 | losspred(i,int(testdata(l,3))) = losspred(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6338:2:
6338 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6339:2:
6339 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6340:2:
6340 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6341:2:
6341 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6342:2:
6342 | losspredsum = sum(losspred)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6343:2:
6343 | deallocate(timepred,losspred,timepredcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6346:2:
6346 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6347:2:
6347 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6348:2:
6348 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6349:2:
6349 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6350:2:
6350 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6351:2:
6351 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6352:2:
6352 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6353:2:
6353 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6354:2:
6354 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6355:2:
6355 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6356:2:
6356 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6357:2:
6357 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6358:2:
6358 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6359:2:
6359 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6360:2:
6360 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6361:2:
6361 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6362:2:
6362 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6363:2:
6363 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6364:2:
6364 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6365:2:
6365 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6366:2:
6366 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6367:2:
6367 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6368:2:
6368 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6369:2:
6369 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6370:2:
6370 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6371:2:
6371 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6372:2:
6372 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6373:2:
6373 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6374:2:
6374 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6377:2:
6377 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6378:2:
6378 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6379:2:
6379 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6380:2:
6380 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6381:2:
6381 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6382:2:
6382 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6383:2:
6383 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6384:2:
6384 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6385:2:
6385 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6386:2:
6386 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6387:2:
6387 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6388:2:
6388 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6389:2:
6389 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6390:2:
6390 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6391:2:
6391 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6392:2:
6392 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6393:2:
6393 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6394:2:
6394 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6395:2:
6395 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6396:2:
6396 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6397:2:
6397 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6398:2:
6398 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6399:2:
6399 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6400:2:
6400 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6401:2:
6401 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6402:2:
6402 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6403:2:
6403 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6404:2:
6404 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6405:2:
6405 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6406:2:
6406 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6407:2:
6407 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6408:2:
6408 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6409:2:
6409 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6410:2:
6410 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6411:2:
6411 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6412:2:
6412 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6413:2:
6413 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6414:2:
6414 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6415:2:
6415 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6416:2:
6416 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6417:2:
6417 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6418:2:
6418 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6419:2:
6419 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6422:2:
6422 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6423:2:
6423 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6424:2:
6424 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6425:2:
6425 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6426:2:
6426 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6427:2:
6427 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6428:2:
6428 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6429:2:
6429 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6430:2:
6430 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6431:2:
6431 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6432:2:
6432 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6433:2:
6433 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6434:2:
6434 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6435:2:
6435 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6436:2:
6436 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6437:2:
6437 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6438:2:
6438 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6439:2:
6439 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6440:2:
6440 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6441:2:
6441 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6442:2:
6442 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6443:2:
6443 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6444:2:
6444 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6445:2:
6445 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6446:2:
6446 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6447:2:
6447 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6448:2:
6448 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6449:2:
6449 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6452:2:
6452 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6453:2:
6453 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6454:2:
6454 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6455:2:
6455 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6456:2:
6456 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6457:2:
6457 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6458:2:
6458 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6459:2:
6459 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6460:2:
6460 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6461:2:
6461 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6462:2:
6462 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6463:2:
6463 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6464:2:
6464 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6465:2:
6465 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6466:2:
6466 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6467:2:
6467 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6468:2:
6468 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6469:2:
6469 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6470:2:
6470 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6474:2:
6474 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6475:2:
6475 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize,cv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6476:2:
6476 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6477:2:
6477 | double precision,intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6478:2:
6478 | double precision,intent(in) :: bestgammaval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6479:2:
6479 | integer,intent(out) :: prunenodenummattest(testdatasize,maxdepth),prunenodenummat(traindatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6480:2:
6480 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6481:2:
6481 | double precision minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6482:2:
6482 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6483:2:
6483 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6484:2:
6484 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6485:2:
6485 | if(bestgammaval <= 0d0 .or. prunind==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6486:2:
6486 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6487:2:
6487 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6488:2:
6488 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6489:2:
6489 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6490:2:
6490 | gammavec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6491:2:
6491 | call threetreesbootgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6492:2:
6492 | call threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6493:2:
6493 | gammavec(1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6494:2:
6494 | if(gammavec(1) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6495:2:
6495 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6496:2:
6496 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6497:2:
6497 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6498:2:
6498 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6499:2:
6499 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6500:2:
6500 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6501:2:
6501 | call threetreesbootgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6502:2:
6502 | call threetreesbootgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6503:2:
6503 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6504:2:
6504 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6505:2:
6505 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6506:2:
6506 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6507:2:
6507 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6508:2:
6508 | prunenodenummattest(:,:) = nodenummatnewtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6509:2:
6509 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6510:2:
6510 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6511:2:
6511 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6512:2:
6512 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6513:2:
6513 | call threetreesbootgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6514:2:
6514 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6515:2:
6515 | prunenodenummattest(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6516:2:
6516 | prunenodenummattest(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6517:2:
6517 | prunenodenummat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6518:2:
6518 | prunenodenummat(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6519:2:
6519 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6520:2:
6520 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6521:2:
6521 | call threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6522:2:
6522 | gammavec(prunloop) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6523:2:
6523 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6524:2:
6524 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6525:2:
6525 | prunenodenummattest(:,:) = nodenummatnewtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6526:2:
6526 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6527:2:
6527 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6528:2:
6528 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6529:2:
6529 | call threetreesbootgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6530:2:
6530 | call threetreesbootgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6531:2:
6531 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6532:2:
6532 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6533:2:
6533 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6534:2:
6534 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6535:2:
6535 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6536:2:
6536 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6537:2:
6537 | prunenodenummattest(:,:) = nodenummatnewtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6538:2:
6538 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6539:2:
6539 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6540:2:
6540 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6544:2:
6544 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6545:2:
6545 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6546:2:
6546 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6547:2:
6547 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6548:2:
6548 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6549:2:
6549 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6550:2:
6550 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6551:2:
6551 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6552:2:
6552 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6553:2:
6553 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6554:2:
6554 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6555:2:
6555 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6556:2:
6556 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6557:2:
6557 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6558:2:
6558 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6559:2:
6559 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6560:2:
6560 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6561:2:
6561 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6562:2:
6562 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6563:2:
6563 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6564:2:
6564 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6565:2:
6565 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6566:2:
6566 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6567:2:
6567 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6568:2:
6568 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6569:2:
6569 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6570:2:
6570 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6571:2:
6571 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6572:2:
6572 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6575:2:
6575 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6576:2:
6576 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6577:2:
6577 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6578:2:
6578 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6579:2:
6579 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6580:2:
6580 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6581:2:
6581 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6582:2:
6582 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6583:2:
6583 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6584:2:
6584 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6585:2:
6585 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6586:2:
6586 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6587:2:
6587 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6588:2:
6588 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6589:2:
6589 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6590:2:
6590 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6591:2:
6591 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6592:2:
6592 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6593:2:
6593 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6594:2:
6594 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6595:2:
6595 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6596:2:
6596 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6597:2:
6597 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6598:2:
6598 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6599:2:
6599 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6600:2:
6600 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6601:2:
6601 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6602:2:
6602 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6603:2:
6603 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6604:2:
6604 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6605:2:
6605 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6606:2:
6606 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6607:2:
6607 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6608:2:
6608 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6609:2:
6609 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6610:2:
6610 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6611:2:
6611 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6612:2:
6612 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6613:2:
6613 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6614:2:
6614 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6615:2:
6615 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6616:2:
6616 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6617:2:
6617 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6620:2:
6620 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6621:2:
6621 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6622:2:
6622 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6623:2:
6623 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6624:2:
6624 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6625:2:
6625 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6626:2:
6626 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6627:2:
6627 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6628:2:
6628 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6629:2:
6629 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6630:2:
6630 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6631:2:
6631 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6632:2:
6632 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6633:2:
6633 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6634:2:
6634 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6635:2:
6635 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6636:2:
6636 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6637:2:
6637 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6638:2:
6638 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6639:2:
6639 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6640:2:
6640 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6641:2:
6641 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6642:2:
6642 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6643:2:
6643 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6644:2:
6644 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6645:2:
6645 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6646:2:
6646 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6647:2:
6647 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6650:2:
6650 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6651:2:
6651 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6652:2:
6652 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6653:2:
6653 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6654:2:
6654 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6655:2:
6655 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6656:2:
6656 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6657:2:
6657 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6658:2:
6658 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6659:2:
6659 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6660:2:
6660 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6661:2:
6661 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6662:2:
6662 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6663:2:
6663 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6664:2:
6664 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6665:2:
6665 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6666:2:
6666 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6667:2:
6667 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6668:2:
6668 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6672:2:
6672 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6673:2:
6673 | integer, intent(in) :: datasizeori,datasizeboot,levelcount,colnum,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6674:2:
6674 | integer, intent(in) :: prunenodenummatboot(datasizeboot,maxdepth),prunenodenummatori(datasizeori,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6675:2:
6675 | double precision, intent(in) :: bootDATA(datasizeboot,colnum),XYDATA(datasizeori,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6676:2:
6676 | integer, intent(out) :: datatnnodenum(datasizeori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6677:2:
6677 | double precision, intent(out) :: predvec(datasizeori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6678:2:
6678 | integer tndatacount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6679:2:
6679 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6680:2:
6680 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6681:2:
6681 | double precision tnodepredmat((2**maxdepth)-1,levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6682:2:
6682 | allocate(timepredsum((2**maxdepth)-1,levelcount),timepredcou((2**maxdepth)-1,levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6683:2:
6683 | timepredsum(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6684:2:
6684 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6685:2:
6685 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6686:2:
6686 | do j = 1,datasizeboot
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6687:2:
6687 | if(sum(prunenodenummatboot(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6688:2:
6688 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6689:2:
6689 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6690:2:
6690 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6691:2:
6691 | if(prunenodenummatboot(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6692:2:
6692 | timepredsum(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6693:2:
6693 | timepredsum(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) + bootDATA(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6694:2:
6694 | timepredcou(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6695:2:
6695 | timepredcou(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6696:2:
6696 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6697:2:
6697 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6698:2:
6698 | elseif(prunenodenummatboot(j,i) > 0 .and. prunenodenummatboot(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6699:2:
6699 | timepredsum(prunenodenummatboot(j,i),int(bootDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6700:2:
6700 | timepredsum(prunenodenummatboot(j,i),int(bootDATA(j,3))) + bootDATA(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6701:2:
6701 | timepredcou(prunenodenummatboot(j,i),int(bootDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6702:2:
6702 | timepredcou(prunenodenummatboot(j,i),int(bootDATA(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6703:2:
6703 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6704:2:
6704 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6705:2:
6705 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6707:2:
6707 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6708:2:
6708 | if(sum(prunenodenummatori(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6709:2:
6709 | goto 3020
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6710:2:
6710 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6711:2:
6711 | do j = 1,datasizeori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6712:2:
6712 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6713:2:
6713 | if(prunenodenummatori(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6714:2:
6714 | datatnnodenum(j) = prunenodenummatori(j,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6715:2:
6715 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6716:2:
6716 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6717:2:
6717 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6718:2:
6718 | if(prunenodenummatori(j,i) > 0 .and. prunenodenummatori(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6719:2:
6719 | datatnnodenum(j) = prunenodenummatori(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6720:2:
6720 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6721:2:
6721 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6722:2:
6722 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6724:2:
6724 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6725:2:
6725 | if(abs(sum(timepredsum(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6726:2:
6726 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6727:2:
6727 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6728:2:
6728 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6729:2:
6729 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6730:2:
6730 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6731:2:
6731 | do i = 1,datasizeori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6732:2:
6732 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6733:2:
6733 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6737:2:
6737 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6738:2:
6738 | integer, intent(in) :: msize,loops,levelcount,mins,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6739:2:
6739 | double precision, intent(in) :: predvecmat(msize,loops),xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6740:2:
6740 | integer, intent(in) :: datatnnodenummat(msize,loops)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6741:2:
6741 | double precision, intent(out) :: bettertreelossval(mins,5),bettertreemaxval(mins,5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6742:2:
6742 | integer, intent(out) :: bettertreenum(mins,6)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6743:2:
6743 | double precision, allocatable :: randmat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6744:2:
6744 | integer ind1,ind2,ind3,samplesize,i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6745:2:
6745 | integer combinations(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6746:2:
6746 | integer losscomb(mins,3),randmaxcomb(mins,3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6747:2:
6747 | double precision lossvec(mins,5),randmaxvec(mins,5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6748:2:
6748 | double precision predmean(msize),randindexval,randval(3),lossval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6749:2:
6749 | double precision worst_loss, worst_randmax
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6750:2:
6750 | integer worst_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6751:2:
6751 | logical, allocatable :: has_split(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6752:2:
6752 | allocate(randmat(loops,loops))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6753:2:
6753 | allocate(has_split(loops))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6754:2:
6754 | samplesize = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6755:2:
6755 | do i = 1,loops
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6756:2:
6756 | has_split(i) = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6757:2:
6757 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6758:2:
6758 | if(datatnnodenummat(j,i) /= datatnnodenummat(1,i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6759:2:
6759 | has_split(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6760:2:
6760 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6761:2:
6761 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6762:2:
6762 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6763:2:
6763 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6764:2:
6764 | randmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6765:2:
6765 | do i = 1,loops
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6766:2:
6766 | if(.not. has_split(i)) cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6767:2:
6767 | do j = (i+1),loops
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6768:2:
6768 | if(.not. has_split(j)) cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6769:2:
6769 | call threetreesrandindex(samplesize,levelcount,datatnnodenummat(:,i),datatnnodenummat(:,j),msize,randindexval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6770:2:
6770 | if(isnan(randindexval)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6771:2:
6771 | randmat(i,j) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6772:2:
6772 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6773:2:
6773 | randmat(i,j) = randindexval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6774:2:
6774 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6775:2:
6775 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6776:2:
6776 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6777:2:
6777 | lossvec(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6778:2:
6778 | randmaxvec(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6779:2:
6779 | losscomb(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6780:2:
6780 | randmaxcomb(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6781:2:
6781 | do i = 1,mins
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6782:2:
6782 | lossvec(i,1) = huge(1d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6783:2:
6783 | randmaxvec(i,1) = huge(1d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6784:2:
6784 | randmaxvec(i,3:5) = 2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6785:2:
6785 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6786:2:
6786 | do ind1 = 1, (loops-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6787:2:
6787 | if(.not. has_split(ind1)) cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6788:2:
6788 | do ind2 = (ind1 + 1), (loops-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6789:2:
6789 | if(.not. has_split(ind2)) cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6790:2:
6790 | do ind3 = (ind2 + 1), loops
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6791:2:
6791 | if(.not. has_split(ind3)) cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6792:2:
6792 | combinations(1) = ind1 ; combinations(2) = ind2 ; combinations(3) = ind3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6793:2:
6793 | predmean(:) = (predvecmat(:,ind1) + predvecmat(:,ind2) + predvecmat(:,ind3)) / 3d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6794:2:
6794 | lossval = sum((xydata(:,1) - predmean(:))*(xydata(:,1) - predmean(:))) / dble(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6795:2:
6795 | randval(1) = randmat(ind1,ind2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6796:2:
6796 | randval(2) = randmat(ind1,ind3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6797:2:
6797 | randval(3) = randmat(ind2,ind3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6798:2:
6798 | worst_loss = lossvec(1,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6799:2:
6799 | worst_idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6800:2:
6800 | do i = 2,mins
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6801:2:
6801 | if(lossvec(i,1) > worst_loss) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6802:2:
6802 | worst_loss = lossvec(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6803:2:
6803 | worst_idx = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6804:2:
6804 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6805:2:
6805 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6806:2:
6806 | if(lossval < worst_loss) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6807:2:
6807 | lossvec(worst_idx,1) = lossval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6808:2:
6808 | losscomb(worst_idx,:) = combinations(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6809:2:
6809 | lossvec(worst_idx,2) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6810:2:
6810 | lossvec(worst_idx,3:5) = randval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6811:2:
6811 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6812:2:
6812 | worst_randmax = maxval(randmaxvec(1,3:5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6813:2:
6813 | worst_idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6814:2:
6814 | do i = 2,mins
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6815:2:
6815 | if(maxval(randmaxvec(i,3:5)) > worst_randmax) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6816:2:
6816 | worst_randmax = maxval(randmaxvec(i,3:5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6817:2:
6817 | worst_idx = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6818:2:
6818 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6819:2:
6819 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6820:2:
6820 | if(maxval(randval(:)) < worst_randmax) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6821:2:
6821 | randmaxvec(worst_idx,1) = lossval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6822:2:
6822 | randmaxcomb(worst_idx,:) = combinations(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6823:2:
6823 | randmaxvec(worst_idx,2) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6824:2:
6824 | randmaxvec(worst_idx,3:5) = randval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6825:2:
6825 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6826:2:
6826 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6827:2:
6827 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6828:2:
6828 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6829:2:
6829 | deallocate(randmat, has_split)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6830:2:
6830 | do i = 1,mins
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6831:2:
6831 | bettertreenum(i,1:3) = losscomb(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6832:2:
6832 | bettertreenum(i,4:6) = randmaxcomb(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6833:2:
6833 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6834:2:
6834 | bettertreelossval(:,:) = lossvec(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6835:2:
6835 | bettertreemaxval(:,:) = randmaxvec(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6838:2:
6838 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6839:2:
6839 | integer, intent(in) :: msize,samplesize,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6840:2:
6840 | integer, intent(in) :: datatnnodenum(msize),datatnnodenumtrue(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6841:2:
6841 | double precision, intent(out) :: randindexval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6842:2:
6842 | integer tncount,tncounttrue,i,j,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6843:2:
6843 | integer datatnnodenumnorm(msize),datatnnodenumtruenorm(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6844:2:
6844 | integer subtnnodenumnorm(samplesize),subtnnodenumtruenorm(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6845:2:
6845 | double precision form1,form2,form3,form4,formval,rowsum,colsum,denom,num
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6846:2:
6846 | integer nz,r,c
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6847:2:
6847 | logical same
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6848:2:
6848 | double precision, allocatable :: tnval(:),tntrueval(:),conttable(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6849:2:
6849 | call threetreestcdatasum(dble(datatnnodenum(:)),msize,tncount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6850:2:
6850 | call threetreestcdatasum(dble(datatnnodenumtrue(:)),msize,tncounttrue)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6851:2:
6851 | allocate(tnval(tncount),tntrueval(tncounttrue))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6852:2:
6852 | call threetreestcdataval(dble(datatnnodenum(:)),msize,tnval,tncount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6853:2:
6853 | call threetreestcdataval(dble(datatnnodenumtrue(:)),msize,tntrueval,tncounttrue)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6854:2:
6854 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6855:2:
6855 | do j = 1,tncount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6856:2:
6856 | if(datatnnodenum(i) == int(tnval(j))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6857:2:
6857 | datatnnodenumnorm(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6858:2:
6858 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6859:2:
6859 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6860:2:
6860 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6861:2:
6861 | do k = 1,tncounttrue
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6862:2:
6862 | if(datatnnodenumtrue(i) == int(tntrueval(k))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6863:2:
6863 | datatnnodenumtruenorm(i) = k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6864:2:
6864 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6865:2:
6865 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6866:2:
6866 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6867:2:
6867 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6868:2:
6868 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6869:2:
6869 | do i = 1,samplesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6870:2:
6870 | subtnnodenumnorm(i) = datatnnodenumnorm(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6871:2:
6871 | subtnnodenumtruenorm(i) = datatnnodenumtruenorm(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6872:2:
6872 | j = j + levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6873:2:
6873 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6874:2:
6874 | allocate(conttable(tncount,tncounttrue))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6875:2:
6875 | conttable(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6876:2:
6876 | do i = 1,samplesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6877:2:
6877 | conttable(subtnnodenumnorm(i),subtnnodenumtruenorm(i)) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6878:2:
6878 | conttable(subtnnodenumnorm(i),subtnnodenumtruenorm(i)) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6879:2:
6879 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6880:2:
6880 | form1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6881:2:
6881 | do i = 1,tncount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6882:2:
6882 | do j = 1,tncounttrue
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6883:2:
6883 | formval = conttable(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6884:2:
6884 | if(formval > 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6885:2:
6885 | form1 = form1 + formval * (formval - 1d0) / 2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6886:2:
6886 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6887:2:
6887 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6888:2:
6888 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6889:2:
6889 | form2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6890:2:
6890 | do i = 1,tncount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6891:2:
6891 | rowsum = sum(conttable(i,:))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6892:2:
6892 | if(rowsum > 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6893:2:
6893 | form2 = form2 + rowsum * (rowsum - 1d0) / 2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6894:2:
6894 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6895:2:
6895 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6896:2:
6896 | form3 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6897:2:
6897 | do j = 1,tncounttrue
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6898:2:
6898 | colsum = sum(conttable(:,j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6899:2:
6899 | if(colsum > 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6900:2:
6900 | form3 = form3 + colsum * (colsum - 1d0) / 2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6901:2:
6901 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6902:2:
6902 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6903:2:
6903 | form4 = dble(samplesize) * dble(samplesize - 1) / 2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6904:2:
6904 | denom = 0.5d0 * (form2 + form3) - (form2 * form3) / form4
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6905:2:
6905 | num = form1 - (form2 * form3) / form4
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6906:2:
6906 | if(abs(denom) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6907:2:
6907 | if(abs(num) > 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6908:2:
6908 | randindexval = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6909:2:
6909 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6910:2:
6910 | same = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6911:2:
6911 | do r = 1, tncount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6912:2:
6912 | nz = count(conttable(r,:) > 0d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6913:2:
6913 | if(nz > 1) same = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6914:2:
6914 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6915:2:
6915 | do c = 1, tncounttrue
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6916:2:
6916 | nz = count(conttable(:,c) > 0d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6917:2:
6917 | if(nz > 1) same = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6918:2:
6918 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6919:2:
6919 | if(same) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6920:2:
6920 | randindexval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6921:2:
6921 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6922:2:
6922 | randindexval = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6923:2:
6923 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6924:2:
6924 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6925:2:
6925 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6926:2:
6926 | randindexval = num / denom
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6927:2:
6927 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6928:2:
6928 | deallocate(conttable,tnval,tntrueval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6931:2:
6931 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6932:2:
6932 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6933:2:
6933 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6934:2:
6934 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6935:2:
6935 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6936:2:
6936 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6937:2:
6937 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6938:2:
6938 | call threetreestcdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6939:2:
6939 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6940:2:
6940 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6941:2:
6941 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6942:2:
6942 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6943:2:
6943 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6944:2:
6944 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6945:2:
6945 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6948:2:
6948 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6949:2:
6949 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6950:2:
6950 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6951:2:
6951 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6952:2:
6952 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6953:2:
6953 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6954:2:
6954 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6955:2:
6955 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6956:2:
6956 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6957:2:
6957 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6958:2:
6958 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6959:2:
6959 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6960:2:
6960 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6961:2:
6961 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6962:2:
6962 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6963:2:
6963 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6964:2:
6964 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6965:2:
6965 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6966:2:
6966 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6967:2:
6967 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6968:2:
6968 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6969:2:
6969 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6970:2:
6970 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6971:2:
6971 | call threetreestcdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6972:2:
6972 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6973:2:
6973 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6974:2:
6974 | call threetreestcdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6975:2:
6975 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6976:2:
6976 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6979:2:
6979 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6980:2:
6980 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6981:2:
6981 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6982:2:
6982 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6983:2:
6983 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6984:2:
6984 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6985:2:
6985 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6986:2:
6986 | call threetreestcdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6987:2:
6987 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6988:2:
6988 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6989:2:
6989 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6990:2:
6990 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6991:2:
6991 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6992:2:
6992 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6993:2:
6993 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6994:2:
6994 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6997:2:
6997 | beta1len,beta2len,nodenummat,allfval,prunind,Rsplitmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6998:2:
6998 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6999:2:
6999 | integer,intent(in) :: msize,colnum,levelcount,beta1len,beta2len,maxdepth,minsplit,minbucket
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7000:2:
7000 | integer,intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7001:2:
7001 | double precision,intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7002:2:
7002 | double precision,intent(in) :: xydata(msize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7003:2:
7003 | double precision, intent(out) :: Rsplitmat((2**maxdepth)-1,10)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7004:2:
7004 | double precision,intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7005:2:
7005 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7006:2:
7006 | integer,intent(out) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7007:2:
7007 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7008:2:
7008 | double precision fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7009:2:
7009 | integer nodenum, hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,sizenum,sizer,sizel,treeloop,stopcount,nodeloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7010:2:
7010 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5),nodenummatsub(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7011:2:
7011 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:), splitindvec(:),nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7012:2:
7012 | double precision,allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),xynodedata(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7013:2:
7013 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7014:2:
7014 | integer, allocatable :: flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7015:2:
7015 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7016:2:
7016 | double precision :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7017:2:
7017 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7018:2:
7018 | Rsplitmat(:,:) = 0.0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7019:2:
7019 | nodenummat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7020:2:
7020 | nodenummat(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7021:2:
7021 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7022:2:
7022 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7023:2:
7023 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7024:2:
7024 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7025:2:
7025 | allocate(nodesize(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7026:2:
7026 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7027:2:
7027 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7028:2:
7028 | call threetreessplitcount(msize, colnum-3, xydata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7029:2:
7029 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7030:2:
7030 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7031:2:
7031 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7032:2:
7032 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7033:2:
7033 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7034:2:
7034 | allocate(anovadata(msize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7035:2:
7035 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7036:2:
7036 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7037:2:
7037 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7038:2:
7038 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7039:2:
7039 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7040:2:
7040 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7041:2:
7041 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7042:2:
7042 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7043:2:
7043 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7044:2:
7044 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7045:2:
7045 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),xydata,msize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7046:2:
7046 | call threetreesrepANOVA(msize,colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7047:2:
7047 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7048:2:
7048 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7049:2:
7049 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7050:2:
7050 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7051:2:
7051 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7052:2:
7052 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7053:2:
7053 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7054:2:
7054 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7055:2:
7055 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7056:2:
7056 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7057:2:
7057 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7058:2:
7058 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7059:2:
7059 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7060:2:
7060 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7061:2:
7061 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7062:2:
7062 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7063:2:
7063 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7064:2:
7064 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7065:2:
7065 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7066:2:
7066 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7067:2:
7067 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7068:2:
7068 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7069:2:
7069 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7070:2:
7070 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7071:2:
7071 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7072:2:
7072 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7073:2:
7073 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7074:2:
7074 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7075:2:
7075 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7076:2:
7076 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7077:2:
7077 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7078:2:
7078 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7079:2:
7079 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7080:2:
7080 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7081:2:
7081 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7082:2:
7082 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7083:2:
7083 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7084:2:
7084 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7085:2:
7085 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7086:2:
7086 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7087:2:
7087 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7088:2:
7088 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7089:2:
7089 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7090:2:
7090 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7091:2:
7091 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7092:2:
7092 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7093:2:
7093 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7094:2:
7094 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7095:2:
7095 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7096:2:
7096 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7097:2:
7097 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7098:2:
7098 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7099:2:
7099 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7100:2:
7100 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7101:2:
7101 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7102:2:
7102 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7103:2:
7103 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7104:2:
7104 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7105:2:
7105 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7106:2:
7106 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7107:2:
7107 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7108:2:
7108 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7109:2:
7109 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7110:2:
7110 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7111:2:
7111 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7112:2:
7112 | xydata,msize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7113:2:
7113 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7114:2:
7114 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7115:2:
7115 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7116:2:
7116 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7117:2:
7117 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7118:2:
7118 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7119:2:
7119 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7120:2:
7120 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7121:2:
7121 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7122:2:
7122 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7123:2:
7123 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7124:2:
7124 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7125:2:
7125 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7126:2:
7126 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7127:2:
7127 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7128:2:
7128 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7129:2:
7129 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7130:2:
7130 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7131:2:
7131 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7132:2:
7132 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7133:2:
7133 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7134:2:
7134 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7135:2:
7135 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7136:2:
7136 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7137:2:
7137 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7138:2:
7138 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7139:2:
7139 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7140:2:
7140 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7141:2:
7141 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7142:2:
7142 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7143:2:
7143 | xydata,msize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7144:2:
7144 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7145:2:
7145 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7146:2:
7146 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7147:2:
7147 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7148:2:
7148 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7149:2:
7149 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7150:2:
7150 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7151:2:
7151 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7152:2:
7152 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7153:2:
7153 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7154:2:
7154 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7155:2:
7155 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7156:2:
7156 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7157:2:
7157 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7158:2:
7158 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7159:2:
7159 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7160:2:
7160 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7161:2:
7161 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7162:2:
7162 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7163:2:
7163 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7164:2:
7164 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7165:2:
7165 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7166:2:
7166 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7167:2:
7167 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7168:2:
7168 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7169:2:
7169 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7170:2:
7170 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7171:2:
7171 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7172:2:
7172 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7173:2:
7173 | if(splitgroupsum <= dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7174:2:
7174 | (dble(msize) - splitgroupsum) <= dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7175:2:
7175 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7176:2:
7176 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7177:2:
7177 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7178:2:
7178 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7179:2:
7179 | Rsplitmat(1,1) =dble(nodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7180:2:
7180 | Rsplitmat(1,2) = splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7181:2:
7181 | Rsplitmat(1,3) = 1d0-splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7182:2:
7182 | Rsplitmat(1,4) = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7183:2:
7183 | Rsplitmat(1,5) = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7184:2:
7184 | Rsplitmat(1,6) = splitfval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7185:2:
7185 | Rsplitmat(1,7) = splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7186:2:
7186 | Rsplitmat(1,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7187:2:
7187 | Rsplitmat(1,9) = splitpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7188:2:
7188 | Rsplitmat(1,10) = splitmcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7189:2:
7189 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7190:2:
7190 | call threetreesnodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7191:2:
7191 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7192:2:
7192 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7193:2:
7193 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7194:2:
7194 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7195:2:
7195 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7196:2:
7196 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7197:2:
7197 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7198:2:
7198 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7199:2:
7199 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7200:2:
7200 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7201:2:
7201 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7202:2:
7202 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7203:2:
7203 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7204:2:
7204 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7205:2:
7205 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7206:2:
7206 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7207:2:
7207 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7208:2:
7208 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7209:2:
7209 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7210:2:
7210 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7211:2:
7211 | call threetreesnodedatanumber(xydata,msize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7212:2:
7212 | call threetreessplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7213:2:
7213 | if(sum(splitnum) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7214:2:
7214 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7215:2:
7215 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7216:2:
7216 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7217:2:
7217 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7218:2:
7218 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7219:2:
7219 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7220:2:
7220 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7221:2:
7221 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7222:2:
7222 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7223:2:
7223 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7224:2:
7224 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7225:2:
7225 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7226:2:
7226 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7227:2:
7227 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7228:2:
7228 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7229:2:
7229 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7230:2:
7230 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7231:2:
7231 | if(allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7232:2:
7232 | deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7233:2:
7233 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7234:2:
7234 | if(.not. allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7235:2:
7235 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7236:2:
7236 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7237:2:
7237 | if(allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7238:2:
7238 | deallocate(facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7239:2:
7239 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7240:2:
7240 | if(.not. allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7241:2:
7241 | allocate(facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7242:2:
7242 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7243:2:
7243 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7244:2:
7244 | countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7245:2:
7245 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7246:2:
7246 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7247:2:
7247 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7248:2:
7248 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7249:2:
7249 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7250:2:
7250 | call threetreesrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7251:2:
7251 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7252:2:
7252 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7253:2:
7253 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7254:2:
7254 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7255:2:
7255 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7256:2:
7256 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7257:2:
7257 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7258:2:
7258 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7259:2:
7259 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7260:2:
7260 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7261:2:
7261 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7262:2:
7262 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7263:2:
7263 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7264:2:
7264 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7265:2:
7265 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7266:2:
7266 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7267:2:
7267 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7268:2:
7268 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7269:6:
7269 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7270:2:
7270 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7271:2:
7271 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7272:2:
7272 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7273:2:
7273 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7274:2:
7274 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7275:2:
7275 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7276:2:
7276 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7277:2:
7277 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7278:2:
7278 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7279:2:
7279 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7280:2:
7280 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7281:2:
7281 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7282:2:
7282 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7283:2:
7283 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7284:2:
7284 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7285:2:
7285 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7286:2:
7286 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7287:2:
7287 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7288:2:
7288 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7289:2:
7289 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7290:2:
7290 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7291:2:
7291 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7292:2:
7292 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7293:2:
7293 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7294:2:
7294 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7295:2:
7295 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7296:2:
7296 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7297:2:
7297 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7298:2:
7298 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7299:2:
7299 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7300:2:
7300 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7301:2:
7301 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7302:2:
7302 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7303:2:
7303 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7304:2:
7304 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7305:2:
7305 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7306:2:
7306 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7307:2:
7307 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7308:2:
7308 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7309:2:
7309 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7310:2:
7310 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7311:2:
7311 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7312:2:
7312 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7313:2:
7313 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7314:2:
7314 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7315:2:
7315 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7316:2:
7316 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7317:2:
7317 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7318:2:
7318 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7319:2:
7319 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7320:2:
7320 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7321:2:
7321 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7322:2:
7322 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7323:2:
7323 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7324:2:
7324 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7325:2:
7325 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7326:2:
7326 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7327:2:
7327 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7328:2:
7328 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7329:2:
7329 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7330:2:
7330 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7331:2:
7331 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7332:2:
7332 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7333:2:
7333 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7334:2:
7334 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7335:2:
7335 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7336:2:
7336 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7337:2:
7337 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7338:2:
7338 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7339:2:
7339 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7340:2:
7340 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7341:2:
7341 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7342:2:
7342 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7343:2:
7343 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7344:2:
7344 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7345:2:
7345 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7346:2:
7346 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7347:2:
7347 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7348:2:
7348 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7349:2:
7349 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7350:2:
7350 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7351:2:
7351 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7352:2:
7352 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7353:2:
7353 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7354:2:
7354 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7355:2:
7355 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7356:2:
7356 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7357:2:
7357 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7358:2:
7358 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7359:2:
7359 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7360:2:
7360 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7361:2:
7361 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7362:2:
7362 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7363:2:
7363 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7364:2:
7364 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7365:2:
7365 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7366:2:
7366 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7367:2:
7367 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7368:2:
7368 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7369:2:
7369 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7370:2:
7370 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7371:2:
7371 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7372:2:
7372 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7373:2:
7373 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7374:2:
7374 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7375:2:
7375 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7376:2:
7376 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7377:2:
7377 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7378:2:
7378 | if(splitgroupsum <= dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7379:2:
7379 | (dble(nodesize(nodeloop)) - splitgroupsum) <= dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7380:2:
7380 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7381:2:
7381 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7382:2:
7382 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7383:2:
7383 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7384:2:
7384 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7385:2:
7385 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7386:2:
7386 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7387:2:
7387 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7388:2:
7388 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7389:2:
7389 | call threetreesnodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7390:2:
7390 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7391:2:
7391 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7392:2:
7392 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7393:2:
7393 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7394:2:
7394 | Rsplitmat(nodenum,1) =dble(nodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7395:2:
7395 | Rsplitmat(nodenum,2) = splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7396:2:
7396 | Rsplitmat(nodenum,3) = 1d0-splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7397:2:
7397 | Rsplitmat(nodenum,4) = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7398:2:
7398 | Rsplitmat(nodenum,5) = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7399:2:
7399 | Rsplitmat(nodenum,6) = splitfval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7400:2:
7400 | Rsplitmat(nodenum,7) = splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7401:2:
7401 | Rsplitmat(nodenum,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7402:2:
7402 | Rsplitmat(nodenum,9) = splitpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7403:2:
7403 | Rsplitmat(nodenum,10) = splitmcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7404:6:
7404 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7405:2:
7405 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7406:2:
7406 | deallocate(anovadata,xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7407:2:
7407 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7408:2:
7408 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7409:2:
7409 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7410:2:
7410 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7411:2:
7411 | deallocate(nodesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7412:2:
7412 | allocate(nodesize(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7413:2:
7413 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7414:2:
7414 | deallocate(nodesizesub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7415:2:
7415 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7417:2:
7417 | deallocate(nodesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7421:2:
7421 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7422:2:
7422 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7423:2:
7423 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7424:2:
7424 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7425:2:
7425 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7426:2:
7426 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7427:2:
7427 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7428:2:
7428 | call threetreesdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7429:2:
7429 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7430:2:
7430 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7431:2:
7431 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7432:2:
7432 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7433:2:
7433 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7434:2:
7434 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7435:2:
7435 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7438:2:
7438 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7439:2:
7439 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7440:2:
7440 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7441:2:
7441 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7442:2:
7442 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7443:2:
7443 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7444:2:
7444 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7445:2:
7445 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7446:2:
7446 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7447:2:
7447 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7448:2:
7448 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7449:2:
7449 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7450:2:
7450 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7451:2:
7451 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7452:2:
7452 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7453:2:
7453 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7454:2:
7454 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7455:2:
7455 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7456:2:
7456 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7457:2:
7457 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7458:2:
7458 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7459:2:
7459 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7460:2:
7460 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7461:2:
7461 | call threetreesdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7462:2:
7462 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7463:2:
7463 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7464:2:
7464 | call threetreesdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7465:2:
7465 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7466:2:
7466 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7469:2:
7469 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7470:2:
7470 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7471:2:
7471 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7472:2:
7472 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7473:2:
7473 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7474:2:
7474 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7475:2:
7475 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7476:2:
7476 | call threetreesdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7477:2:
7477 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7478:2:
7478 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7479:2:
7479 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7480:2:
7480 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7481:2:
7481 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7482:2:
7482 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7483:2:
7483 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7484:2:
7484 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7487:2:
7487 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7488:2:
7488 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7489:2:
7489 | double precision, intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7490:2:
7490 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7491:2:
7491 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7492:2:
7492 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7493:2:
7493 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7494:2:
7494 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7495:2:
7495 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7496:2:
7496 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7497:2:
7497 | call threetreesdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7498:2:
7498 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7499:2:
7499 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7500:2:
7500 | call threetreesdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7501:2:
7501 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7502:2:
7502 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7503:2:
7503 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7504:2:
7504 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7507:2:
7507 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7508:2:
7508 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7509:2:
7509 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7510:2:
7510 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7511:2:
7511 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7512:2:
7512 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7513:2:
7513 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7514:2:
7514 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7515:2:
7515 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7516:2:
7516 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7517:2:
7517 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7518:2:
7518 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7519:2:
7519 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7520:2:
7520 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7521:2:
7521 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7522:2:
7522 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7523:2:
7523 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7524:2:
7524 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7525:2:
7525 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7526:2:
7526 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7527:2:
7527 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7528:2:
7528 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7529:2:
7529 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7530:2:
7530 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7531:2:
7531 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7532:2:
7532 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7533:2:
7533 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7534:2:
7534 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7535:2:
7535 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7536:2:
7536 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7537:2:
7537 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7538:2:
7538 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7539:2:
7539 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7540:2:
7540 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7541:2:
7541 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7544:2:
7544 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7545:2:
7545 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7546:2:
7546 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7547:2:
7547 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7548:2:
7548 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7549:2:
7549 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7550:2:
7550 | double precision facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7551:2:
7551 | call threetreesdataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7552:2:
7552 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7553:2:
7553 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7554:2:
7554 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7555:2:
7555 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7556:2:
7556 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7557:2:
7557 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7558:2:
7558 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7559:2:
7559 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7560:2:
7560 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7563:2:
7563 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7564:2:
7564 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7565:2:
7565 | double precision, intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7566:2:
7566 | double precision, intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7567:2:
7567 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7568:2:
7568 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7569:2:
7569 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7570:2:
7570 | double precision ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7571:2:
7571 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7572:2:
7572 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7573:2:
7573 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7574:2:
7574 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7575:2:
7575 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7576:2:
7576 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7577:2:
7577 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7578:2:
7578 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7579:2:
7579 | subj_map(nint(anovadata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7580:2:
7580 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7581:2:
7581 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7582:2:
7582 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7583:2:
7583 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7584:2:
7584 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7585:2:
7585 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7586:2:
7586 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7587:2:
7587 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7588:2:
7588 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7589:2:
7589 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7590:2:
7590 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7591:2:
7591 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7592:2:
7592 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7593:2:
7593 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7594:2:
7594 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7595:2:
7595 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7596:2:
7596 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7597:2:
7597 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7598:2:
7598 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7599:2:
7599 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7600:2:
7600 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7601:2:
7601 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7602:2:
7602 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7603:2:
7603 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7604:2:
7604 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7605:2:
7605 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7606:2:
7606 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7607:2:
7607 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7608:2:
7608 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7609:2:
7609 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7610:2:
7610 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7611:2:
7611 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7612:2:
7612 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7613:2:
7613 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7614:2:
7614 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7615:2:
7615 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7616:2:
7616 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7617:2:
7617 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7618:2:
7618 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7619:2:
7619 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7620:2:
7620 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7621:2:
7621 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7622:2:
7622 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7623:2:
7623 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7624:2:
7624 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7625:2:
7625 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7626:2:
7626 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7627:2:
7627 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7628:2:
7628 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7629:2:
7629 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7630:2:
7630 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7631:2:
7631 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7632:2:
7632 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7633:2:
7633 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7634:2:
7634 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7635:2:
7635 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7636:2:
7636 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7637:2:
7637 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7638:2:
7638 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7639:2:
7639 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7642:2:
7642 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7643:2:
7643 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7644:2:
7644 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7645:2:
7645 | double precision, intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7646:2:
7646 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7647:2:
7647 | double precision xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7648:2:
7648 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7649:2:
7649 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7650:2:
7650 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7651:2:
7651 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7652:2:
7652 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7653:2:
7653 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7654:2:
7654 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7655:2:
7655 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7656:2:
7656 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7657:2:
7657 | call threetreespfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7658:2:
7658 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7659:2:
7659 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7660:2:
7660 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7661:2:
7661 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7662:2:
7662 | call threetreespfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7663:2:
7663 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7664:2:
7664 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7665:2:
7665 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7666:2:
7666 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7667:2:
7667 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7668:2:
7668 | call threetreesdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7669:2:
7669 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7671:2:
7671 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7674:2:
7674 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7675:2:
7675 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7676:2:
7676 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7677:2:
7677 | double precision,intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7678:2:
7678 | double precision,intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7679:2:
7679 | double precision res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7680:2:
7680 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7682:2:
7682 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7683:2:
7683 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7684:2:
7684 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7685:2:
7685 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7686:2:
7686 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7687:2:
7687 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7688:2:
7688 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7693:2:
7693 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7694:2:
7694 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7695:2:
7695 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7700:2:
7700 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7701:2:
7701 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7702:2:
7702 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7703:2:
7703 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7704:2:
7704 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7705:2:
7705 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7706:2:
7706 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7707:2:
7707 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7708:2:
7708 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7709:2:
7709 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7710:2:
7710 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7711:2:
7711 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7712:2:
7712 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7713:2:
7713 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7714:2:
7714 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7715:2:
7715 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7716:2:
7716 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7717:2:
7717 | s0=s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7718:2:
7718 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7721:2:
7721 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7722:2:
7722 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7724:2:
7724 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7725:2:
7725 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7752:2:
7752 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7761:2:
7761 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7762:2:
7762 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7768:2:
7768 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7802:2:
7802 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7813:2:
7813 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7814:2:
7814 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7815:2:
7815 | double precision,intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7816:2:
7816 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7817:2:
7817 | eps=1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7818:2:
7818 | s1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7819:2:
7819 | s2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7820:2:
7820 | zval = (z-((1d0-weight)*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7821:2:
7821 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7822:2:
7822 | form2 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7823:2:
7823 | form3 = (df11/df12)**(df11/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7824:2:
7824 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7825:2:
7825 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7826:2:
7826 | form6 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7827:2:
7827 | form7 = (df21/df22)**(df21/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7828:2:
7828 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7829:2:
7829 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7830:2:
7830 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7834:2:
7834 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7835:2:
7835 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7836:2:
7836 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7837:2:
7837 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7838:2:
7838 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7839:2:
7839 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7840:2:
7840 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7841:2:
7841 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7842:2:
7842 | nodenummatsub(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7843:2:
7843 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7844:2:
7844 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7845:2:
7845 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7846:2:
7846 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7847:2:
7847 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7848:2:
7848 | nodenummatsub(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7849:2:
7849 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7850:2:
7850 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7851:2:
7851 | nodenummatsub(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7852:2:
7852 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7853:2:
7853 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7854:2:
7854 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7855:2:
7855 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7856:2:
7856 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7857:2:
7857 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7860:2:
7860 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7861:2:
7861 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7862:2:
7862 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7863:2:
7863 | integer, intent(in) :: nodenummat(msize,11)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7864:2:
7864 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7865:2:
7865 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7866:2:
7866 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7867:2:
7867 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7868:2:
7868 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7869:2:
7869 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7870:2:
7870 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7871:2:
7871 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7872:2:
7872 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7875:2:
7875 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7876:2:
7876 | integer,intent(in) :: prunind,msize,cv,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7877:2:
7877 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7878:2:
7878 | double precision,intent(in) :: alpha,gamma,allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7879:2:
7879 | double precision,intent(out) :: allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7880:2:
7880 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7881:2:
7881 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7882:2:
7882 | double precision minghval,allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7883:2:
7883 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7884:2:
7884 | allgammaval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7885:2:
7885 | if(prunind == 1 .or. alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7886:2:
7886 | goto 3001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7887:2:
7887 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7888:2:
7888 | call threetreescvterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7889:2:
7889 | call threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7890:2:
7890 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7891:2:
7891 | call threetreescvpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7892:2:
7892 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7893:2:
7893 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7894:2:
7894 | allgammaval(2) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7895:2:
7895 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7896:2:
7896 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7897:2:
7897 | call threetreescvterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7898:2:
7898 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7899:2:
7899 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7900:2:
7900 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7901:2:
7901 | call threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7902:2:
7902 | allocate(nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7903:2:
7903 | call threetreescvpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7904:2:
7904 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7905:2:
7905 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7906:2:
7906 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7907:2:
7907 | allgammaval(prunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7908:2:
7908 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7912:2:
7912 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7913:2:
7913 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7914:2:
7914 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7915:2:
7915 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7916:2:
7916 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7917:2:
7917 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7918:2:
7918 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7919:2:
7919 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7920:2:
7920 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7921:2:
7921 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7922:2:
7922 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7923:2:
7923 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7924:2:
7924 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7925:2:
7925 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7926:2:
7926 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7927:2:
7927 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7928:2:
7928 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7929:2:
7929 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7930:2:
7930 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7931:2:
7931 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7932:2:
7932 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7933:2:
7933 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7934:2:
7934 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7935:2:
7935 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7936:2:
7936 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7937:2:
7937 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7938:2:
7938 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7939:2:
7939 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7940:2:
7940 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7943:2:
7943 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7944:2:
7944 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7945:2:
7945 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7946:2:
7946 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7947:2:
7947 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7948:2:
7948 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7949:2:
7949 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7950:2:
7950 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7951:2:
7951 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7952:2:
7952 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7953:2:
7953 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7954:2:
7954 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7955:2:
7955 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7956:2:
7956 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7957:2:
7957 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7958:2:
7958 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7959:2:
7959 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7960:2:
7960 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7961:2:
7961 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7962:2:
7962 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7963:2:
7963 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7964:2:
7964 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7965:2:
7965 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7966:2:
7966 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7967:2:
7967 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7968:2:
7968 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7969:2:
7969 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7970:2:
7970 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7971:2:
7971 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7972:2:
7972 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7973:2:
7973 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7974:2:
7974 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7975:2:
7975 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7976:2:
7976 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7977:2:
7977 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7978:2:
7978 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7979:2:
7979 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7980:2:
7980 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7981:2:
7981 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7982:2:
7982 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7983:2:
7983 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7984:2:
7984 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7985:2:
7985 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7988:2:
7988 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7989:2:
7989 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7990:2:
7990 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7991:2:
7991 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7992:2:
7992 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7993:2:
7993 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7994:2:
7994 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7995:2:
7995 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7996:2:
7996 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7997:2:
7997 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7998:2:
7998 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7999:2:
7999 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8000:2:
8000 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8001:2:
8001 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8002:2:
8002 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8003:2:
8003 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8004:2:
8004 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8005:2:
8005 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8006:2:
8006 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8007:2:
8007 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8008:2:
8008 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8009:2:
8009 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8010:2:
8010 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8011:2:
8011 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8012:2:
8012 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8013:2:
8013 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8014:2:
8014 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8015:2:
8015 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8020:2:
8020 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8021:2:
8021 | integer,intent(in) :: cv,msize,colnum,Ksplit,maxdepth,levelcount,beta1len,beta2len,minbucket,minsplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8022:2:
8022 | integer,intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8023:2:
8023 | integer,intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8024:2:
8024 | double precision,intent(in) :: alpha,gamma,fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8025:2:
8025 | double precision,intent(in) :: beta1(beta1len),beta2(beta2len),allgammaval1((2**(maxdepth-1))-1),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8026:2:
8026 | allgammaval2((2**(maxdepth-1))-1),allgammaval3((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8027:2:
8027 | integer,intent(in) :: cvindin1(msize),cvindin2(msize),cvindin3(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8028:2:
8028 | double precision,intent(in) :: bootdata1(msize,colnum),bootdata2(msize,colnum),bootdata3(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8029:2:
8029 | double precision,intent(out) :: bestgammaval1,bestgammaval2,bestgammaval3,r2cvval1,r2cvval2,r2cvval3,r2cvvalthree
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8030:2:
8030 | integer, allocatable :: cvind1(:),cvind2(:),cvind3(:),cvsize1(:),cvsize2(:),cvsize3(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8031:2:
8031 | integer, allocatable :: nodenummat1(:,:),nodenummat2(:,:),nodenummat3(:,:), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8032:2:
8032 | prunenodenummat1(:,:), prunenodenummat2(:,:), prunenodenummat3(:,:),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8033:2:
8033 | nodenummattest1(:,:),nodenummattest2(:,:),nodenummattest3(:,:),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8034:2:
8034 | nodenummattestcv1(:,:),nodenummattestcv2(:,:),nodenummattestcv3(:,:),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8035:2:
8035 | prunenodenummattest1(:,:),prunenodenummattest2(:,:),prunenodenummattest3(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8036:2:
8036 | double precision, allocatable :: meangammacv1(:),meangammacv2(:),meangammacv3(:),meangammar2cv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8037:2:
8037 | double precision, allocatable :: gammacvmat1(:,:),gammacvmat2(:,:),gammacvmat3(:,:),traindata1(:,:),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8038:2:
8038 | traindata2(:,:),traindata3(:,:),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8039:2:
8039 | testdata1(:,:),testdata2(:,:),testdata3(:,:),testdataall(:,:),gammar2cvmat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8040:2:
8040 | integer cvloop,traindatasize1,traindatasize2,traindatasize3,testdatasize1,testdatasize2,testdatasize3,prunind1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8041:2:
8041 | prunind2,prunind3,i,testdataallsize,bfsize,afsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8042:2:
8042 | double precision allfval1((2**maxdepth)-1),allfval2((2**maxdepth)-1),allfval3((2**maxdepth)-1),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8043:2:
8043 | gammacv1((2**(maxdepth-1))-1),gammacv2((2**(maxdepth-1))-1),gammacv3((2**(maxdepth-1))-1),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8044:2:
8044 | r2cvvalvec1(ksplit),r2cvvalvec2(ksplit),r2cvvalvec3(ksplit),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8045:2:
8045 | r2cvvalvecthree(ksplit),gammar2cv((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8046:2:
8046 | double precision maxgammasub,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8047:2:
8047 | allocate(cvind1(msize),cvind2(msize),cvind3(msize),cvsize1(Ksplit),cvsize2(Ksplit),cvsize3(Ksplit),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8048:2:
8048 | gammacvmat1(ksplit,(2**(maxdepth-1))-1),gammacvmat2(ksplit,(2**(maxdepth-1))-1),gammacvmat3(ksplit,(2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8049:2:
8049 | allocate(gammar2cvmat(ksplit,(2**(maxdepth-1))-1),meangammacv1((2**(maxdepth-1))-1),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8050:2:
8050 | meangammacv2((2**(maxdepth-1))-1),meangammacv3((2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8051:2:
8051 | allocate(meangammar2cv((2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8052:2:
8052 | call threetreesttcvdata(bootdata1,msize,colnum,Ksplit,levelcount,cvindin1,cvind1,cvsize1,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8053:2:
8053 | call threetreesttcvdata(bootdata2,msize,colnum,Ksplit,levelcount,cvindin2,cvind2,cvsize2,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8054:2:
8054 | call threetreesttcvdata(bootdata3,msize,colnum,Ksplit,levelcount,cvindin3,cvind3,cvsize3,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8055:2:
8055 | do cvloop = 1,Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8056:2:
8056 | traindatasize1 = ((sum(cvsize1)-cvsize1(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8057:2:
8057 | testdatasize1 = (cvsize1(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8058:2:
8058 | traindatasize2 = ((sum(cvsize2)-cvsize2(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8059:2:
8059 | testdatasize2 = (cvsize2(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8060:2:
8060 | traindatasize3 = ((sum(cvsize3)-cvsize3(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8061:2:
8061 | testdatasize3 = (cvsize3(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8062:2:
8062 | testdataallsize = testdatasize1+testdatasize2+testdatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8063:2:
8063 | allocate(traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),traindata3(traindatasize3,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8064:2:
8064 | allocate(testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),testdata3(testdatasize3,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8065:2:
8065 | allocate(testdataall(testdataallsize,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8066:2:
8066 | allocate(nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),nodenummat3(traindatasize3,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8067:2:
8067 | allocate(nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8068:2:
8068 | nodenummattest3(testdataallsize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8069:2:
8069 | allocate(nodenummattestcv1(testdatasize1,maxdepth),nodenummattestcv2(testdatasize2,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8070:2:
8070 | nodenummattestcv3(testdatasize3,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8071:2:
8071 | call threetreesttcvdatachoice(bootdata1,msize,colnum,Ksplit,levelcount,cvloop,cvind1,cvsize1,traindata1,testdata1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8072:2:
8072 | call threetreesttcvdatachoice(bootdata2,msize,colnum,Ksplit,levelcount,cvloop,cvind2,cvsize2,traindata2,testdata2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8073:2:
8073 | call threetreesttcvdatachoice(bootdata3,msize,colnum,Ksplit,levelcount,cvloop,cvind3,cvsize3,traindata3,testdata3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8074:2:
8074 | testdataall(1:testdatasize1,:) = testdata1(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8075:2:
8075 | testdataall((testdatasize1+1):(testdatasize1+testdatasize2),:) = testdata2(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8076:2:
8076 | testdataall((testdatasize1+testdatasize2+1):testdataallsize,:) = testdata3(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8077:2:
8077 | call threetreesttcvtreegrowth(traindatasize1,testdataallsize,traindata1,testdataall,nodenummattest1,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8078:2:
8078 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata1,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8079:2:
8079 | beta2len,nodenummat1,allfval1,prunind1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8080:2:
8080 | call threetreesttcvtreegrowth(traindatasize2,testdataallsize,traindata2,testdataall,nodenummattest2,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8081:2:
8081 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata2,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8082:2:
8082 | beta2len,nodenummat2,allfval2,prunind2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8083:2:
8083 | call threetreesttcvtreegrowth(traindatasize3,testdataallsize,traindata3,testdataall,nodenummattest3,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8084:2:
8084 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata3,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8085:2:
8085 | beta2len,nodenummat3,allfval3,prunind3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8086:2:
8086 | if(alpha < 1d0 .and. gamma < 0d0 .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8087:2:
8087 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8088:2:
8088 | nodenummat1,nodenummat2,nodenummat3,testdata1,testdata2,testdata3,testdataall,testdatasize1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8089:2:
8089 | testdatasize2,testdatasize3,testdataallsize,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8090:2:
8090 | colnum,levelcount,nodenummattest1,nodenummattest2,nodenummattest3,maxdepth,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8091:2:
8091 | r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8092:2:
8092 | r2cvvalvec1(cvloop) = r2cvval1sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8093:2:
8093 | r2cvvalvec2(cvloop) = r2cvval2sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8094:2:
8094 | r2cvvalvec3(cvloop) = r2cvval3sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8095:2:
8095 | r2cvvalvecthree(cvloop) = r2cvvalthreesub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8096:2:
8096 | bestgammaval1 = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8097:2:
8097 | bestgammaval2 = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8098:2:
8098 | bestgammaval3 = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8099:2:
8099 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8100:2:
8100 | if(alpha == 1d0 .and. gamma >= 0d0 .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8101:2:
8101 | allocate(prunenodenummattest1(testdataallsize,maxdepth),prunenodenummattest2(testdataallsize,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8102:2:
8102 | prunenodenummattest3(testdataallsize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8103:2:
8103 | allocate(prunenodenummat1(traindatasize1,maxdepth),prunenodenummat2(traindatasize2,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8104:2:
8104 | prunenodenummat3(traindatasize3,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8105:2:
8105 | call threetreesttcvgammatreepruning(prunind1,traindatasize1,testdataallsize,gamma,maxdepth,nodenummat1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8106:2:
8106 | nodenummattest1,allfval1,prunenodenummat1,prunenodenummattest1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8107:2:
8107 | call threetreesttcvgammatreepruning(prunind2,traindatasize2,testdataallsize,gamma,maxdepth,nodenummat2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8108:2:
8108 | nodenummattest2,allfval2,prunenodenummat2,prunenodenummattest2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8109:2:
8109 | call threetreesttcvgammatreepruning(prunind3,traindatasize3,testdataallsize,gamma,maxdepth,nodenummat3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8110:2:
8110 | nodenummattest3,allfval3,prunenodenummat3,prunenodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8111:2:
8111 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8112:2:
8112 | prunenodenummat1,prunenodenummat2,prunenodenummat3,testdata1,testdata2,testdata3,testdataall,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8113:2:
8113 | testdatasize1,testdatasize2,testdatasize3,testdataallsize,colnum,levelcount,prunenodenummattest1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8114:2:
8114 | prunenodenummattest2,prunenodenummattest3,maxdepth,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8115:2:
8115 | r2cvvalvec1(cvloop) = r2cvval1sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8116:2:
8116 | r2cvvalvec2(cvloop) = r2cvval2sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8117:2:
8117 | r2cvvalvec3(cvloop) = r2cvval3sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8118:2:
8118 | r2cvvalvecthree(cvloop) = r2cvvalthreesub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8119:2:
8119 | bestgammaval1 = gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8120:2:
8120 | bestgammaval2 = gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8121:2:
8121 | bestgammaval3 = gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8122:2:
8122 | deallocate(prunenodenummattest1,prunenodenummattest2,prunenodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8123:2:
8123 | deallocate(prunenodenummat1,prunenodenummat2,prunenodenummat3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8124:2:
8124 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8125:2:
8125 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8126:2:
8126 | nodenummattestcv1(:,:) = nodenummattest1(1:testdatasize1,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8127:2:
8127 | nodenummattestcv2(:,:) = nodenummattest2((testdatasize1+1):(testdatasize1+testdatasize2),:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8128:2:
8128 | nodenummattestcv3(:,:) = nodenummattest3((testdatasize1+testdatasize2+1):testdataallsize,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8129:2:
8129 | call threetreesttcvbesttreepruning(traindatasize1,testdatasize1,maxdepth,nodenummat1,nodenummattestcv1,allfval1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8130:2:
8130 | levelcount,colnum,traindata1,testdata1,allgammaval1,gammacv1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8131:2:
8131 | call threetreesttcvbesttreepruning(traindatasize2,testdatasize2,maxdepth,nodenummat2,nodenummattestcv2,allfval2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8132:2:
8132 | levelcount,colnum,traindata2,testdata2,allgammaval2,gammacv2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8133:2:
8133 | call threetreesttcvbesttreepruning(traindatasize3,testdatasize3,maxdepth,nodenummat3,nodenummattestcv3,allfval3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8134:2:
8134 | levelcount,colnum,traindata3,testdata3,allgammaval3,gammacv3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8135:2:
8135 | gammacvmat1(cvloop,:) = gammacv1(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8136:2:
8136 | gammacvmat2(cvloop,:) = gammacv2(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8137:2:
8137 | gammacvmat3(cvloop,:) = gammacv3(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8138:2:
8138 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8139:2:
8139 | deallocate(traindata1,traindata2,traindata3,testdata1,testdata2,testdata3,testdataall)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8140:2:
8140 | deallocate(nodenummat1,nodenummat2,nodenummat3,nodenummattest1,nodenummattest2,nodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8141:2:
8141 | deallocate(nodenummattestcv1,nodenummattestcv2,nodenummattestcv3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8142:2:
8142 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8143:2:
8143 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8144:2:
8144 | do i = 1,size(allgammaval1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8145:2:
8145 | meangammacv1(i) = sum(gammacvmat1(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8146:2:
8146 | if(meangammacv1(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8147:2:
8147 | meangammacv1(i) = meangammacv1(i) / dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8148:2:
8148 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8149:2:
8149 | meangammacv1(i) = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8150:2:
8150 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8151:2:
8151 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8152:2:
8152 | maxgammasub = maxval(meangammacv1) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8153:2:
8153 | do i = 1,size(meangammacv1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8154:2:
8154 | if(meangammacv1(i) < maxgammasub .and. meangammacv1(i) >= 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8155:2:
8155 | bestgammaval1 = allgammaval1(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8156:2:
8156 | maxgammasub = meangammacv1(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8157:2:
8157 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8158:2:
8158 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8159:2:
8159 | do i = 1,size(allgammaval2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8160:2:
8160 | meangammacv2(i) = sum(gammacvmat2(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8161:2:
8161 | if(meangammacv2(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8162:2:
8162 | meangammacv2(i) = meangammacv2(i) / dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8163:2:
8163 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8164:2:
8164 | meangammacv2(i) = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8165:2:
8165 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8166:2:
8166 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8167:2:
8167 | maxgammasub = maxval(meangammacv2) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8168:2:
8168 | do i = 1,size(meangammacv2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8169:2:
8169 | if(meangammacv2(i) < maxgammasub .and. meangammacv2(i) >= 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8170:2:
8170 | bestgammaval2 = allgammaval2(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8171:2:
8171 | maxgammasub = meangammacv2(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8172:2:
8172 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8173:2:
8173 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8174:2:
8174 | do i = 1,size(allgammaval3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8175:2:
8175 | meangammacv3(i) = sum(gammacvmat3(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8176:2:
8176 | if(meangammacv3(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8177:2:
8177 | meangammacv3(i) = meangammacv3(i) / dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8178:2:
8178 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8179:2:
8179 | meangammacv3(i) = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8180:2:
8180 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8181:2:
8181 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8182:2:
8182 | maxgammasub = maxval(meangammacv3) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8183:2:
8183 | do i = 1,size(meangammacv3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8184:2:
8184 | if(meangammacv3(i) < maxgammasub .and. meangammacv3(i) >= 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8185:2:
8185 | bestgammaval3 = allgammaval3(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8186:2:
8186 | maxgammasub = meangammacv3(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8187:2:
8187 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8188:2:
8188 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8189:2:
8189 | deallocate(cvind1,cvind2,cvind3,cvsize1,cvsize2,cvsize3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8190:2:
8190 | allocate(cvind1(msize),cvind2(msize),cvind3(msize),cvsize1(Ksplit),cvsize2(Ksplit),cvsize3(Ksplit))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8191:2:
8191 | call threetreesttcvdata(bootdata1,msize,colnum,Ksplit,levelcount,cvindin1,cvind1,cvsize1,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8192:2:
8192 | call threetreesttcvdata(bootdata2,msize,colnum,Ksplit,levelcount,cvindin2,cvind2,cvsize2,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8193:2:
8193 | call threetreesttcvdata(bootdata3,msize,colnum,Ksplit,levelcount,cvindin3,cvind3,cvsize3,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8194:2:
8194 | do cvloop = 1,Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8195:2:
8195 | traindatasize1 = ((sum(cvsize1)-cvsize1(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8196:2:
8196 | testdatasize1 = (cvsize1(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8197:2:
8197 | traindatasize2 = ((sum(cvsize2)-cvsize2(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8198:2:
8198 | testdatasize2 = (cvsize2(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8199:2:
8199 | traindatasize3 = ((sum(cvsize3)-cvsize3(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8200:2:
8200 | testdatasize3 = (cvsize3(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8201:2:
8201 | testdataallsize = testdatasize1+testdatasize2+testdatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8202:2:
8202 | allocate(traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),traindata3(traindatasize3,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8203:2:
8203 | allocate(testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),testdata3(testdatasize3,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8204:2:
8204 | allocate(testdataall(testdataallsize,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8205:2:
8205 | allocate(nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),nodenummat3(traindatasize3,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8206:2:
8206 | allocate(nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8207:2:
8207 | nodenummattest3(testdataallsize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8208:2:
8208 | call threetreesttcvdatachoice(bootdata1,msize,colnum,Ksplit,levelcount,cvloop,cvind1,cvsize1,traindata1,testdata1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8209:2:
8209 | call threetreesttcvdatachoice(bootdata2,msize,colnum,Ksplit,levelcount,cvloop,cvind2,cvsize2,traindata2,testdata2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8210:2:
8210 | call threetreesttcvdatachoice(bootdata3,msize,colnum,Ksplit,levelcount,cvloop,cvind3,cvsize3,traindata3,testdata3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8211:2:
8211 | testdataall(1:testdatasize1,:) = testdata1(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8212:2:
8212 | testdataall((testdatasize1+1):(testdatasize1+testdatasize2),:) = testdata2(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8213:2:
8213 | testdataall((testdatasize1+testdatasize2+1):testdataallsize,:) = testdata3(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8214:2:
8214 | call threetreesttcvtreegrowth(traindatasize1,testdataallsize,traindata1,testdataall,nodenummattest1,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8215:2:
8215 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata1,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8216:2:
8216 | beta2len,nodenummat1,allfval1,prunind1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8217:2:
8217 | call threetreesttcvtreegrowth(traindatasize2,testdataallsize,traindata2,testdataall,nodenummattest2,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8218:2:
8218 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata2,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8219:2:
8219 | beta2len,nodenummat2,allfval2,prunind2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8220:2:
8220 | call threetreesttcvtreegrowth(traindatasize3,testdataallsize,traindata3,testdataall,nodenummattest3,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8221:2:
8221 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata3,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8222:2:
8222 | beta2len,nodenummat3,allfval3,prunind3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8223:2:
8223 | allocate(prunenodenummattest1(testdataallsize,maxdepth),prunenodenummattest2(testdataallsize,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8224:2:
8224 | prunenodenummattest3(testdataallsize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8225:2:
8225 | allocate(prunenodenummat1(traindatasize1,maxdepth),prunenodenummat2(traindatasize2,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8226:2:
8226 | prunenodenummat3(traindatasize3,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8227:2:
8227 | call threetreesttcvgammatreepruning(prunind1,traindatasize1,testdataallsize,bestgammaval1,maxdepth,nodenummat1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8228:2:
8228 | nodenummattest1,allfval1,prunenodenummat1,prunenodenummattest1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8229:2:
8229 | call threetreesttcvgammatreepruning(prunind2,traindatasize2,testdataallsize,bestgammaval2,maxdepth,nodenummat2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8230:2:
8230 | nodenummattest2,allfval2,prunenodenummat2,prunenodenummattest2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8231:2:
8231 | call threetreesttcvgammatreepruning(prunind3,traindatasize3,testdataallsize,bestgammaval3,maxdepth,nodenummat3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8232:2:
8232 | nodenummattest3,allfval3,prunenodenummat3,prunenodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8233:2:
8233 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8234:2:
8234 | prunenodenummat1,prunenodenummat2,prunenodenummat3,testdata1,testdata2,testdata3,testdataall,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8235:2:
8235 | testdatasize1,testdatasize2,testdatasize3,testdataallsize,colnum,levelcount,prunenodenummattest1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8236:2:
8236 | prunenodenummattest2,prunenodenummattest3,maxdepth,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8237:2:
8237 | r2cvvalvec1(cvloop) = r2cvval1sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8238:2:
8238 | r2cvvalvec2(cvloop) = r2cvval2sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8239:2:
8239 | r2cvvalvec3(cvloop) = r2cvval3sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8240:2:
8240 | r2cvvalvecthree(cvloop) = r2cvvalthreesub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8241:2:
8241 | deallocate(prunenodenummattest1,prunenodenummattest2,prunenodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8242:2:
8242 | deallocate(prunenodenummat1,prunenodenummat2,prunenodenummat3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8243:2:
8243 | deallocate(traindata1,traindata2,traindata3,testdata1,testdata2,testdata3,testdataall)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8244:2:
8244 | deallocate(nodenummat1,nodenummat2,nodenummat3,nodenummattest1,nodenummattest2,nodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8245:2:
8245 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8246:2:
8246 | r2cvval1=sum(r2cvvalvec1)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8247:2:
8247 | r2cvval2=sum(r2cvvalvec2)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8248:2:
8248 | r2cvval3=sum(r2cvvalvec3)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8249:2:
8249 | r2cvvalthree=sum(r2cvvalvecthree)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8250:2:
8250 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8251:2:
8251 | r2cvval1=sum(r2cvvalvec1)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8252:2:
8252 | r2cvval2=sum(r2cvvalvec2)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8253:2:
8253 | r2cvval3=sum(r2cvvalvec3)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8254:2:
8254 | r2cvvalthree=sum(r2cvvalvecthree)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8255:2:
8255 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8258:2:
8258 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8259:2:
8259 | integer, intent(in) :: msize,colnum,Ksplit,levelcount,cv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8260:2:
8260 | integer, intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8261:2:
8261 | integer, intent(in) :: cvindin(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8262:2:
8262 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8263:2:
8263 | integer, intent(out) :: cvind(msize), cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8264:2:
8264 | integer i,subnum, randval, cvsizecou(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8265:2:
8265 | integer, allocatable :: cvindsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8266:2:
8266 | double precision randvalsub,ii
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8267:2:
8267 | integer :: seed_size, seed_i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8268:2:
8268 | integer, allocatable :: seed_array(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8269:2:
8269 | call random_seed(size=seed_size)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8270:2:
8270 | allocate(seed_array(seed_size))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8271:2:
8271 | do seed_i = 1, seed_size
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8272:2:
8272 | seed_array(seed_i) = iseed + (seed_i - 1) * 37
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8273:2:
8273 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8274:2:
8274 | call random_seed(put=seed_array)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8275:2:
8275 | deallocate(seed_array)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8276:2:
8276 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8277:2:
8277 | cvsize(:) = subnum/Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8278:2:
8278 | do i = 1,(subnum - sum(cvsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8279:2:
8279 | cvsize(i) = cvsize(i) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8280:2:
8280 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8281:2:
8281 | if(cv==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8282:2:
8282 | cvind(:) = cvindin(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8283:2:
8283 | goto 9000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8284:2:
8284 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8285:2:
8285 | allocate(cvindsub(subnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8286:2:
8286 | cvsizecou(:) = cvsize(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8287:2:
8287 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8288:2:
8288 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8289:2:
8289 | call random_number(randvalsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8290:2:
8290 | randval = int(randvalsub * dble(Ksplit)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8291:2:
8291 | if(cvsizecou(randval) > 0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8292:2:
8292 | cvsizecou(randval) = cvsizecou(randval) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8293:2:
8293 | cvindsub(i) = randval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8294:2:
8294 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8295:2:
8295 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8296:2:
8296 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8297:2:
8297 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8298:2:
8298 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8299:2:
8299 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8300:2:
8300 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8304:2:
8304 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8305:2:
8305 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8306:2:
8306 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8307:2:
8307 | integer, intent(in) :: cvind(msize),cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8308:2:
8308 | double precision, intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8309:2:
8309 | testdata((cvsize(testind)*levelcount),colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8310:2:
8310 | integer i,jtrain,jtest,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8311:2:
8311 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8312:2:
8312 | jtest = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8313:2:
8313 | jtrain = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8314:2:
8314 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8315:2:
8315 | if(cvind(((i-1)*levelcount)+1) == testind) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8316:2:
8316 | testdata((levelcount*(jtest-1)+1):(levelcount*jtest),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8317:2:
8317 | jtest = jtest + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8318:2:
8318 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8319:2:
8319 | traindata((levelcount*(jtrain-1)+1):(levelcount*jtrain),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8320:2:
8320 | jtrain = jtrain + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8321:2:
8321 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8322:2:
8322 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8327:2:
8327 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8328:2:
8328 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8329:2:
8329 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8330:2:
8330 | double precision, intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8331:2:
8331 | double precision, intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8332:2:
8332 | double precision, intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8333:2:
8333 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8334:2:
8334 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8335:2:
8335 | double precision,intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8336:2:
8336 | integer nodenummatsub(traindatasize,maxdepth),nodenummatsubtest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8337:2:
8337 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8338:2:
8338 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8339:2:
8339 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8340:2:
8340 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8341:2:
8341 | double precision fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8342:2:
8342 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8343:2:
8343 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8344:2:
8344 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8345:2:
8345 | double precision, allocatable :: xynodedata(:,:),xynodedatatest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8346:2:
8346 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8347:2:
8347 | integer, allocatable :: flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8348:2:
8348 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8349:2:
8349 | double precision :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8350:2:
8350 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8351:2:
8351 | nodenummat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8352:2:
8352 | nodenummat(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8353:2:
8353 | nodenummattest(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8354:2:
8354 | nodenummattest(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8355:2:
8355 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8356:2:
8356 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8357:2:
8357 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8358:2:
8358 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8359:2:
8359 | allocate(nodesize(2),nodesizetest(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8360:2:
8360 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8361:2:
8361 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8362:2:
8362 | call threetreesttcvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8363:2:
8363 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8364:2:
8364 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8365:2:
8365 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8366:2:
8366 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8367:2:
8367 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8368:2:
8368 | allocate(anovadata(traindatasize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8369:2:
8369 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8370:2:
8370 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8371:2:
8371 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8372:2:
8372 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8373:2:
8373 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8374:2:
8374 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8375:2:
8375 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8376:2:
8376 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8377:2:
8377 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8378:2:
8378 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8379:2:
8379 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8380:2:
8380 | call threetreesttcvrepANOVA(traindatasize,colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8381:2:
8381 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8382:2:
8382 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8383:2:
8383 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8384:2:
8384 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8385:2:
8385 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8386:2:
8386 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8387:2:
8387 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8388:2:
8388 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8389:2:
8389 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8390:2:
8390 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8391:2:
8391 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8392:2:
8392 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8393:2:
8393 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8394:2:
8394 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8395:2:
8395 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8396:2:
8396 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8397:2:
8397 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8398:2:
8398 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8399:2:
8399 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8400:2:
8400 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8401:2:
8401 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8402:2:
8402 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8403:2:
8403 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8404:2:
8404 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8405:2:
8405 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8406:2:
8406 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8407:2:
8407 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8408:2:
8408 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8409:2:
8409 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8410:2:
8410 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8411:2:
8411 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8412:2:
8412 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8413:2:
8413 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8414:2:
8414 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8415:2:
8415 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8416:2:
8416 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8417:2:
8417 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8418:2:
8418 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8419:2:
8419 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8420:2:
8420 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8421:2:
8421 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8422:2:
8422 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8423:2:
8423 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8424:2:
8424 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8425:2:
8425 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8426:2:
8426 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8427:2:
8427 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8428:2:
8428 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8429:2:
8429 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8430:2:
8430 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8431:2:
8431 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8432:2:
8432 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8433:2:
8433 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8434:2:
8434 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8435:2:
8435 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8436:2:
8436 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8437:2:
8437 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8438:2:
8438 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8439:2:
8439 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8440:2:
8440 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8441:2:
8441 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8442:2:
8442 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8443:2:
8443 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8444:2:
8444 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8445:2:
8445 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8446:2:
8446 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8447:2:
8447 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8448:2:
8448 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8449:2:
8449 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8450:2:
8450 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8451:2:
8451 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8452:2:
8452 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8453:2:
8453 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8454:2:
8454 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8455:2:
8455 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8456:2:
8456 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8457:2:
8457 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8458:2:
8458 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8459:2:
8459 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8460:2:
8460 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8461:2:
8461 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8462:2:
8462 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8463:2:
8463 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8464:2:
8464 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8465:2:
8465 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8466:2:
8466 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8467:2:
8467 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8468:2:
8468 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8469:2:
8469 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8470:2:
8470 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8471:2:
8471 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8472:2:
8472 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8473:2:
8473 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8474:2:
8474 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8475:2:
8475 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8476:2:
8476 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8477:2:
8477 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8478:2:
8478 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8479:2:
8479 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8480:2:
8480 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8481:2:
8481 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8482:2:
8482 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8483:2:
8483 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8484:2:
8484 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8485:2:
8485 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8486:2:
8486 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8487:2:
8487 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8488:2:
8488 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8489:2:
8489 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8490:2:
8490 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8491:2:
8491 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8492:2:
8492 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8493:2:
8493 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8494:2:
8494 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8495:2:
8495 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8496:2:
8496 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8497:2:
8497 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8498:2:
8498 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8499:2:
8499 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8500:2:
8500 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8501:2:
8501 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8502:2:
8502 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8503:2:
8503 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8504:2:
8504 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8505:2:
8505 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8506:2:
8506 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8507:2:
8507 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8508:2:
8508 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8509:2:
8509 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8510:2:
8510 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8511:2:
8511 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8512:2:
8512 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8513:2:
8513 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8514:2:
8514 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8515:2:
8515 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8516:2:
8516 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8517:2:
8517 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8518:2:
8518 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8519:2:
8519 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8520:2:
8520 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8521:2:
8521 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8522:2:
8522 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8523:2:
8523 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8524:2:
8524 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8525:2:
8525 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8526:2:
8526 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8527:2:
8527 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8528:2:
8528 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8529:2:
8529 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8530:2:
8530 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8531:2:
8531 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8532:2:
8532 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8533:2:
8533 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8534:2:
8534 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8535:2:
8535 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8536:2:
8536 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8537:2:
8537 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8538:2:
8538 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8539:2:
8539 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8540:2:
8540 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8541:2:
8541 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8542:2:
8542 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8543:2:
8543 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8544:2:
8544 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8545:2:
8545 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8546:2:
8546 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8547:2:
8547 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8548:2:
8548 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8549:2:
8549 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8550:2:
8550 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8551:2:
8551 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8552:2:
8552 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8553:2:
8553 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8554:2:
8554 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8555:2:
8555 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8556:2:
8556 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8557:2:
8557 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8558:2:
8558 | call threetreesttcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8559:2:
8559 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8560:2:
8560 | call threetreesttcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8561:2:
8561 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8562:2:
8562 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8563:2:
8563 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8564:2:
8564 | nodesizetest(1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8565:2:
8565 | nodesizetest(2) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8566:2:
8566 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8567:2:
8567 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8568:2:
8568 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8569:2:
8569 | nodenummattest(:,:) = nodenummatsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8570:2:
8570 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8571:2:
8571 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8572:2:
8572 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8573:2:
8573 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8574:2:
8574 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8575:2:
8575 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8576:2:
8576 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8577:2:
8577 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8578:2:
8578 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8579:2:
8579 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8580:2:
8580 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8581:2:
8581 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8582:2:
8582 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8583:2:
8583 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8584:2:
8584 | call threetreesttcvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8585:2:
8585 | call threetreesttcvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,nodenummattest,nodesizetest(nodeloop),xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8586:2:
8586 | call threetreesttcvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8587:2:
8587 | if(sum(splitnum) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8588:2:
8588 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8589:2:
8589 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8590:2:
8590 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8591:2:
8591 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8592:2:
8592 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8593:2:
8593 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8594:2:
8594 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8595:2:
8595 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8596:2:
8596 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8597:2:
8597 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8598:2:
8598 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8599:2:
8599 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8600:2:
8600 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8601:2:
8601 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8602:2:
8602 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8603:2:
8603 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8604:2:
8604 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8605:2:
8605 | if(allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8606:2:
8606 | deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8607:2:
8607 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8608:2:
8608 | if(.not. allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8609:2:
8609 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8610:2:
8610 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8611:2:
8611 | if(allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8612:2:
8612 | deallocate(facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8613:2:
8613 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8614:2:
8614 | if(.not. allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8615:2:
8615 | allocate(facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8616:2:
8616 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8617:2:
8617 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8618:2:
8618 | countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8619:2:
8619 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8620:2:
8620 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8621:2:
8621 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8622:2:
8622 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8623:2:
8623 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8624:2:
8624 | colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8625:2:
8625 | call threetreesttcvrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8626:2:
8626 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8627:2:
8627 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8628:2:
8628 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8629:2:
8629 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8630:2:
8630 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8631:2:
8631 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8632:2:
8632 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8633:2:
8633 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8634:2:
8634 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8635:2:
8635 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8636:2:
8636 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8637:2:
8637 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8638:2:
8638 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8639:2:
8639 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8640:2:
8640 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8641:2:
8641 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8642:2:
8642 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8643:2:
8643 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8644:6:
8644 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8645:2:
8645 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8646:2:
8646 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8647:2:
8647 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8648:2:
8648 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8649:2:
8649 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8650:2:
8650 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8651:2:
8651 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8652:2:
8652 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8653:2:
8653 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8654:2:
8654 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8655:2:
8655 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8656:2:
8656 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8657:2:
8657 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8658:2:
8658 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8659:2:
8659 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8660:2:
8660 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8661:2:
8661 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8662:2:
8662 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8663:2:
8663 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8664:2:
8664 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8665:2:
8665 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8666:2:
8666 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8667:2:
8667 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8668:2:
8668 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8669:2:
8669 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8670:2:
8670 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8671:2:
8671 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8672:2:
8672 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8673:2:
8673 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8674:2:
8674 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8675:2:
8675 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8676:2:
8676 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8677:2:
8677 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8678:2:
8678 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8679:2:
8679 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8680:2:
8680 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8681:2:
8681 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8682:2:
8682 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8683:2:
8683 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8684:2:
8684 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8685:2:
8685 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8686:2:
8686 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8687:2:
8687 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8688:2:
8688 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8689:2:
8689 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8690:2:
8690 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8691:2:
8691 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8692:2:
8692 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8693:2:
8693 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8694:2:
8694 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8695:2:
8695 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8696:2:
8696 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8697:2:
8697 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8698:2:
8698 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8699:2:
8699 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8700:2:
8700 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8701:2:
8701 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8702:2:
8702 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8703:2:
8703 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8704:2:
8704 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8705:2:
8705 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8706:2:
8706 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8707:2:
8707 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8708:2:
8708 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8709:2:
8709 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8710:2:
8710 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8711:2:
8711 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8712:2:
8712 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8713:2:
8713 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8714:2:
8714 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8715:2:
8715 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8716:2:
8716 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8717:2:
8717 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8718:2:
8718 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8719:2:
8719 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8720:2:
8720 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8721:2:
8721 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8722:2:
8722 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8723:2:
8723 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8724:2:
8724 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8725:2:
8725 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8726:2:
8726 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8727:2:
8727 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8728:2:
8728 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8729:2:
8729 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8730:2:
8730 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8731:2:
8731 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8732:2:
8732 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8733:2:
8733 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8734:2:
8734 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8735:2:
8735 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8736:2:
8736 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8737:2:
8737 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8738:2:
8738 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8739:2:
8739 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8740:2:
8740 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8741:2:
8741 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8742:2:
8742 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8743:2:
8743 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8744:2:
8744 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8745:2:
8745 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8746:2:
8746 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8747:2:
8747 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8748:2:
8748 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8749:2:
8749 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8750:2:
8750 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8751:2:
8751 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8752:2:
8752 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8753:2:
8753 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8754:2:
8754 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8755:2:
8755 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8756:2:
8756 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8757:2:
8757 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8758:2:
8758 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8759:2:
8759 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8760:2:
8760 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8761:2:
8761 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8762:2:
8762 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8763:2:
8763 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8764:2:
8764 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8765:2:
8765 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8766:2:
8766 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8767:2:
8767 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8768:2:
8768 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8769:2:
8769 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8770:2:
8770 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8771:2:
8771 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8772:2:
8772 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8773:2:
8773 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8774:2:
8774 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8775:2:
8775 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8776:2:
8776 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8777:2:
8777 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8778:2:
8778 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8779:2:
8779 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8780:2:
8780 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8781:2:
8781 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8782:2:
8782 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8783:2:
8783 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8784:2:
8784 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8785:2:
8785 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8786:2:
8786 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8787:2:
8787 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8788:2:
8788 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8789:2:
8789 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8790:2:
8790 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8791:2:
8791 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8792:2:
8792 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8793:2:
8793 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8794:2:
8794 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8795:2:
8795 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8796:2:
8796 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8797:2:
8797 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8798:2:
8798 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8799:2:
8799 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8800:2:
8800 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8801:2:
8801 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8802:2:
8802 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8803:2:
8803 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8804:2:
8804 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8805:2:
8805 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8806:2:
8806 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8807:2:
8807 | if(.not. allocated(nodesizesubtest)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8808:2:
8808 | allocate(nodesizesubtest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8809:2:
8809 | nodesizesubtest(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8810:2:
8810 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8811:2:
8811 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8812:2:
8812 | call threetreesttcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8813:2:
8813 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8814:2:
8814 | call threetreesttcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8815:2:
8815 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8816:2:
8816 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8817:2:
8817 | nodenummattest(:,:) = nodenummatsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8818:2:
8818 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8819:2:
8819 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8820:2:
8820 | nodesizesubtest(2*nodeloop-1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8821:2:
8821 | nodesizesubtest(2*nodeloop) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8822:6:
8822 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8823:2:
8823 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8824:2:
8824 | deallocate(anovadata,xynodedata,xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8825:2:
8825 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8826:2:
8826 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8827:2:
8827 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8828:2:
8828 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8829:2:
8829 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8830:2:
8830 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8831:2:
8831 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8832:2:
8832 | nodesizetest(:) = nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8833:2:
8833 | deallocate(nodesizesub,nodesizesubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8834:2:
8834 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8836:2:
8836 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8840:2:
8840 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8841:2:
8841 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8842:2:
8842 | double precision, intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8843:2:
8843 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8844:2:
8844 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8845:2:
8845 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8846:2:
8846 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8847:2:
8847 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8848:2:
8848 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8849:2:
8849 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8850:2:
8850 | call threetreesttcvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8851:2:
8851 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8852:2:
8852 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8853:2:
8853 | call threetreesttcvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8854:2:
8854 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8855:2:
8855 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8856:2:
8856 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8857:2:
8857 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8860:2:
8860 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8861:2:
8861 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8862:2:
8862 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8863:2:
8863 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8864:2:
8864 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8865:2:
8865 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8866:2:
8866 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8867:2:
8867 | call threetreesttcvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8868:2:
8868 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8869:2:
8869 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8870:2:
8870 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8871:2:
8871 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8872:2:
8872 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8873:2:
8873 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8874:2:
8874 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8877:2:
8877 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8878:2:
8878 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8879:2:
8879 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8880:2:
8880 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8881:2:
8881 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8882:2:
8882 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8883:2:
8883 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8884:2:
8884 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8885:2:
8885 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8886:2:
8886 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8887:2:
8887 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8888:2:
8888 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8889:2:
8889 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8890:2:
8890 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8891:2:
8891 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8892:2:
8892 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8893:2:
8893 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8894:2:
8894 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8895:2:
8895 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8896:2:
8896 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8897:2:
8897 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8898:2:
8898 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8899:2:
8899 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8900:2:
8900 | call threetreesttcvdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8901:2:
8901 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8902:2:
8902 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8903:2:
8903 | call threetreesttcvdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8904:2:
8904 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8905:2:
8905 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8908:2:
8908 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8909:2:
8909 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8910:2:
8910 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8911:2:
8911 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8912:2:
8912 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8913:2:
8913 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8914:2:
8914 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8915:2:
8915 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8916:2:
8916 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8917:2:
8917 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8918:2:
8918 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8919:2:
8919 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8920:2:
8920 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8921:2:
8921 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8922:2:
8922 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8923:2:
8923 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8924:2:
8924 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8925:2:
8925 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8926:2:
8926 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8927:2:
8927 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8928:2:
8928 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8929:2:
8929 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8930:2:
8930 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8931:2:
8931 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8932:2:
8932 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8933:2:
8933 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8934:2:
8934 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8935:2:
8935 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8936:2:
8936 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8937:2:
8937 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8938:2:
8938 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8939:2:
8939 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8940:2:
8940 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8941:2:
8941 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8942:2:
8942 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8945:2:
8945 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8946:2:
8946 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8947:2:
8947 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8948:2:
8948 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8949:2:
8949 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8950:2:
8950 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8951:2:
8951 | double precision facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8952:2:
8952 | call threetreesttcvdataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8953:2:
8953 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8954:2:
8954 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8955:2:
8955 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8956:2:
8956 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8957:2:
8957 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8958:2:
8958 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8959:2:
8959 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8960:2:
8960 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8961:2:
8961 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8964:2:
8964 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8965:2:
8965 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8966:2:
8966 | double precision, intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8967:2:
8967 | double precision, intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8968:2:
8968 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8969:2:
8969 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8970:2:
8970 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8971:2:
8971 | double precision ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8972:2:
8972 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8973:2:
8973 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8974:2:
8974 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8975:2:
8975 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8976:2:
8976 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8977:2:
8977 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8978:2:
8978 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8979:2:
8979 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8980:2:
8980 | subj_map(nint(anovadata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8981:2:
8981 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8982:2:
8982 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8983:2:
8983 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8984:2:
8984 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8985:2:
8985 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8986:2:
8986 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8987:2:
8987 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8988:2:
8988 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8989:2:
8989 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8990:2:
8990 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8991:2:
8991 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8992:2:
8992 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8993:2:
8993 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8994:2:
8994 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8995:2:
8995 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8996:2:
8996 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8997:2:
8997 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8998:2:
8998 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8999:2:
8999 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9000:2:
9000 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9001:2:
9001 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9002:2:
9002 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9003:2:
9003 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9004:2:
9004 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9005:2:
9005 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9006:2:
9006 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9007:2:
9007 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9008:2:
9008 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9009:2:
9009 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9010:2:
9010 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9011:2:
9011 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9012:2:
9012 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9013:2:
9013 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9014:2:
9014 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9015:2:
9015 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9016:2:
9016 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9017:2:
9017 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9018:2:
9018 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9019:2:
9019 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9020:2:
9020 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9021:2:
9021 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9022:2:
9022 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9023:2:
9023 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9024:2:
9024 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9025:2:
9025 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9026:2:
9026 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9027:2:
9027 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9028:2:
9028 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9029:2:
9029 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9030:2:
9030 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9031:2:
9031 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9032:2:
9032 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9033:2:
9033 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9034:2:
9034 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9035:2:
9035 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9036:2:
9036 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9037:2:
9037 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9038:2:
9038 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9039:2:
9039 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9040:2:
9040 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9043:2:
9043 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9044:2:
9044 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9045:2:
9045 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9046:2:
9046 | double precision, intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9047:2:
9047 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9048:2:
9048 | double precision xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9049:2:
9049 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9050:2:
9050 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9051:2:
9051 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9052:2:
9052 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9053:2:
9053 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9054:2:
9054 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9055:2:
9055 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9056:2:
9056 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9057:2:
9057 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9058:2:
9058 | call threetreesttcvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9059:2:
9059 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9060:2:
9060 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9061:2:
9061 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9062:2:
9062 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9063:2:
9063 | call threetreesttcvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9064:2:
9064 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9065:2:
9065 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9066:2:
9066 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9067:2:
9067 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9068:2:
9068 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9069:2:
9069 | call threetreesttcvdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9070:2:
9070 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9072:2:
9072 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9075:2:
9075 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9076:2:
9076 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9077:2:
9077 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9078:2:
9078 | double precision,intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9079:2:
9079 | double precision,intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9080:2:
9080 | double precision res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9081:2:
9081 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9083:2:
9083 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9084:2:
9084 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9085:2:
9085 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9086:2:
9086 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9087:2:
9087 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9088:2:
9088 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9089:2:
9089 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9094:2:
9094 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9095:2:
9095 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9096:2:
9096 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9101:2:
9101 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9102:2:
9102 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9103:2:
9103 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9104:2:
9104 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9105:2:
9105 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9106:2:
9106 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9107:2:
9107 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9108:2:
9108 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9109:2:
9109 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9110:2:
9110 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9111:2:
9111 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9112:2:
9112 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9113:2:
9113 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9114:2:
9114 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9115:2:
9115 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9116:2:
9116 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9117:2:
9117 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9118:2:
9118 | s0=s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9119:2:
9119 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9122:2:
9122 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9123:2:
9123 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9125:2:
9125 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9126:2:
9126 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9153:2:
9153 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9162:2:
9162 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9163:2:
9163 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9169:2:
9169 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9203:2:
9203 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9214:2:
9214 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9215:2:
9215 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9216:2:
9216 | double precision,intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9217:2:
9217 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9218:2:
9218 | eps=1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9219:2:
9219 | s1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9220:2:
9220 | s2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9221:2:
9221 | zval = (z-((1d0-weight)*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9222:2:
9222 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9223:2:
9223 | form2 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9224:2:
9224 | form3 = (df11/df12)**(df11/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9225:2:
9225 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9226:2:
9226 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9227:2:
9227 | form6 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9228:2:
9228 | form7 = (df21/df22)**(df21/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9229:2:
9229 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9230:2:
9230 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9231:2:
9231 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9234:2:
9234 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9235:2:
9235 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9236:2:
9236 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9237:2:
9237 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9238:2:
9238 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9239:2:
9239 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9240:2:
9240 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9241:2:
9241 | call threetreesttcvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9242:2:
9242 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9243:2:
9243 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9244:2:
9244 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9245:2:
9245 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9246:2:
9246 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9247:2:
9247 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9248:2:
9248 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9249:2:
9249 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9253:2:
9253 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9254:2:
9254 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9255:2:
9255 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9256:2:
9256 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9257:2:
9257 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9258:2:
9258 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9259:2:
9259 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9260:2:
9260 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9261:2:
9261 | nodenummatsub(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9262:2:
9262 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9263:2:
9263 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9264:2:
9264 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9265:2:
9265 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9266:2:
9266 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9267:2:
9267 | nodenummatsub(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9268:2:
9268 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9269:2:
9269 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9270:2:
9270 | nodenummatsub(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9271:2:
9271 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9272:2:
9272 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9273:2:
9273 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9274:2:
9274 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9275:2:
9275 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9276:2:
9276 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9279:2:
9279 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9280:2:
9280 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9281:2:
9281 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9282:2:
9282 | integer, intent(in) :: nodenummat(msize,11)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9283:2:
9283 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9284:2:
9284 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9285:2:
9285 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9286:2:
9286 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9287:2:
9287 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9288:2:
9288 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9289:2:
9289 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9290:2:
9290 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9291:2:
9291 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9295:2:
9295 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9296:2:
9296 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9297:2:
9297 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9298:2:
9298 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9299:2:
9299 | double precision, intent(out) :: r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9300:2:
9300 | double precision, allocatable :: timepred(:,:),r2cvnumsub(:,:), timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9301:2:
9301 | double precision r2cvnum,r2cvden,ymean
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9302:2:
9302 | integer i,j,k,l
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9303:2:
9303 | allocate(timepred(((2**maxdepth)-1),levelcount),r2cvnumsub(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9304:2:
9304 | allocate(timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9305:2:
9305 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9306:2:
9306 | r2cvnumsub(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9307:2:
9307 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9308:2:
9308 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9309:2:
9309 | do j = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9310:2:
9310 | if(sum(nodenummat(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9311:2:
9311 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9312:2:
9312 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9313:2:
9313 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9314:2:
9314 | if(nodenummat(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9315:2:
9315 | timepred(nodenummat(j,maxdepth),int(traindata(j,3))) = timepred(nodenummat(j,maxdepth),int(traindata(j,3))) + traindata(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9316:2:
9316 | timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) = timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9317:2:
9317 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9318:2:
9318 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9319:2:
9319 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9320:2:
9320 | if(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9321:2:
9321 | timepred(nodenummat(j,i),int(traindata(j,3))) = timepred(nodenummat(j,i),int(traindata(j,3))) + traindata(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9322:2:
9322 | timepredcou(nodenummat(j,i),int(traindata(j,3))) = timepredcou(nodenummat(j,i),int(traindata(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9323:2:
9323 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9324:2:
9324 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9325:2:
9325 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9327:2:
9327 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9328:2:
9328 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9329:2:
9329 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9330:2:
9330 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9331:2:
9331 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9332:2:
9332 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9333:2:
9333 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9334:2:
9334 | ymean = sum(testdata(:,1))/dble(testdatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9335:2:
9335 | r2cvnum = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9336:2:
9336 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9337:2:
9337 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9338:2:
9338 | do j=1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9339:2:
9339 | if(2**(j-1) <= i .and. i < 2**j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9340:2:
9340 | k = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9341:2:
9341 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9342:2:
9342 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9343:2:
9343 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9344:2:
9344 | do l = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9345:2:
9345 | if(nodenummattest(l,k) == i) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9346:2:
9346 | r2cvnumsub(i,int(testdata(l,3))) = r2cvnumsub(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9347:2:
9347 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9348:2:
9348 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9349:2:
9349 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9350:2:
9350 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9351:2:
9351 | r2cvnum = sum(r2cvnumsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9352:2:
9352 | r2cvden = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9353:2:
9353 | do i = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9354:2:
9354 | r2cvden = r2cvden + ((testdata(i,1) - ymean) * (testdata(i,1) - ymean))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9355:2:
9355 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9356:2:
9356 | r2cvval = 1d0-(r2cvnum/r2cvden)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9357:2:
9357 | deallocate(timepred,r2cvnumsub,timepredcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9361:2:
9361 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9362:2:
9362 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9363:2:
9363 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9364:2:
9364 | double precision,intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9365:2:
9365 | double precision,intent(in) :: gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9366:2:
9366 | integer,intent(out) :: prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9367:2:
9367 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9368:2:
9368 | double precision minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9369:2:
9369 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9370:2:
9370 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9371:2:
9371 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9372:2:
9372 | if(prunind==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9373:2:
9373 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9374:2:
9374 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9375:2:
9375 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9376:2:
9376 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9377:2:
9377 | gammavec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9378:2:
9378 | call threetreesttcvgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9379:2:
9379 | call threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9380:2:
9380 | gammavec(1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9381:2:
9381 | if(gammavec(1) > gamma) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9382:2:
9382 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9383:2:
9383 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9384:2:
9384 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9385:2:
9385 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9386:2:
9386 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9387:2:
9387 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9388:2:
9388 | call threetreesttcvgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9389:2:
9389 | call threetreesttcvgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9390:2:
9390 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9391:2:
9391 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9392:2:
9392 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9393:2:
9393 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9394:2:
9394 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9395:2:
9395 | call threetreesttcvgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9396:2:
9396 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9397:2:
9397 | prunenodenummattest(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9398:2:
9398 | prunenodenummattest(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9399:2:
9399 | prunenodenummat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9400:2:
9400 | prunenodenummat(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9401:2:
9401 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9402:2:
9402 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9403:2:
9403 | call threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9404:2:
9404 | gammavec(prunloop) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9405:2:
9405 | if(gammavec(prunloop-1) < gamma .and. gammavec(prunloop) > gamma) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9406:2:
9406 | prunenodenummattest(:,:) = nodenummatnewtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9407:2:
9407 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9408:2:
9408 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9409:2:
9409 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9410:2:
9410 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9411:2:
9411 | call threetreesttcvgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9412:2:
9412 | call threetreesttcvgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9413:2:
9413 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9414:2:
9414 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9415:2:
9415 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9416:2:
9416 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9417:2:
9417 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9421:2:
9421 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9422:2:
9422 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9423:2:
9423 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9424:2:
9424 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9425:2:
9425 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9426:2:
9426 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9427:2:
9427 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9428:2:
9428 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9429:2:
9429 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9430:2:
9430 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9431:2:
9431 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9432:2:
9432 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9433:2:
9433 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9434:2:
9434 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9435:2:
9435 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9436:2:
9436 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9437:2:
9437 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9438:2:
9438 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9439:2:
9439 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9440:2:
9440 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9441:2:
9441 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9442:2:
9442 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9443:2:
9443 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9444:2:
9444 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9445:2:
9445 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9446:2:
9446 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9447:2:
9447 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9448:2:
9448 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9449:2:
9449 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9452:2:
9452 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9453:2:
9453 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9454:2:
9454 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9455:2:
9455 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9456:2:
9456 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9457:2:
9457 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9458:2:
9458 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9459:2:
9459 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9460:2:
9460 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9461:2:
9461 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9462:2:
9462 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9463:2:
9463 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9464:2:
9464 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9465:2:
9465 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9466:2:
9466 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9467:2:
9467 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9468:2:
9468 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9469:2:
9469 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9470:2:
9470 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9471:2:
9471 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9472:2:
9472 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9473:2:
9473 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9474:2:
9474 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9475:2:
9475 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9476:2:
9476 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9477:2:
9477 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9478:2:
9478 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9479:2:
9479 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9480:2:
9480 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9481:2:
9481 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9482:2:
9482 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9483:2:
9483 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9484:2:
9484 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9485:2:
9485 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9486:2:
9486 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9487:2:
9487 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9488:2:
9488 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9489:2:
9489 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9490:2:
9490 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9491:2:
9491 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9492:2:
9492 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9493:2:
9493 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9494:2:
9494 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9497:2:
9497 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9498:2:
9498 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9499:2:
9499 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9500:2:
9500 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9501:2:
9501 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9502:2:
9502 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9503:2:
9503 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9504:2:
9504 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9505:2:
9505 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9506:2:
9506 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9507:2:
9507 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9508:2:
9508 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9509:2:
9509 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9510:2:
9510 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9511:2:
9511 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9512:2:
9512 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9513:2:
9513 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9514:2:
9514 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9515:2:
9515 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9516:2:
9516 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9517:2:
9517 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9518:2:
9518 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9519:2:
9519 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9520:2:
9520 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9521:2:
9521 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9522:2:
9522 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9523:2:
9523 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9524:2:
9524 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9527:2:
9527 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9528:2:
9528 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9529:2:
9529 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9530:2:
9530 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9531:2:
9531 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9532:2:
9532 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9533:2:
9533 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9534:2:
9534 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9535:2:
9535 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9536:2:
9536 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9537:2:
9537 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9538:2:
9538 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9539:2:
9539 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9540:2:
9540 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9541:2:
9541 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9542:2:
9542 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9543:2:
9543 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9544:2:
9544 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9545:2:
9545 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9549:2:
9549 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9550:2:
9550 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9551:2:
9551 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9552:2:
9552 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9553:2:
9553 | double precision, intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9554:2:
9554 | double precision, intent(out) :: gammacv((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9555:2:
9555 | double precision allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9556:2:
9556 | double precision allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9557:2:
9557 | double precision losspredsum,minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9558:2:
9558 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9559:2:
9559 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9560:2:
9560 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9561:2:
9561 | allgammavaltrain(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9562:2:
9562 | gammacv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9563:2:
9563 | losspredsumvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9564:2:
9564 | call threetreesttcvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9565:2:
9565 | nodenummattest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9566:2:
9566 | losspredsumvec(1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9567:2:
9567 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9568:2:
9568 | allfvalnew(:) = allfval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9569:2:
9569 | nodenummatnew(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9570:2:
9570 | nodenummatnewtest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9571:2:
9571 | do cvprunloop = 1,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9572:2:
9572 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9573:2:
9573 | call threetreesttcvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9574:2:
9574 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9575:2:
9575 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9576:2:
9576 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9577:2:
9577 | call threetreesttcvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9578:2:
9578 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9579:2:
9579 | call threetreesttcvbestpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9580:2:
9580 | call threetreesttcvbestpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9581:2:
9581 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9582:2:
9582 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9583:2:
9583 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9584:2:
9584 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9585:2:
9585 | allgammavaltrain(cvprunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9586:2:
9586 | call threetreesttcvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9587:2:
9587 | nodenummatnewtest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9588:2:
9588 | losspredsumvec(cvprunloop+1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9589:2:
9589 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9590:2:
9590 | gammacv(1) = losspredsumvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9591:2:
9591 | j = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9592:2:
9592 | do i = 2,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9593:2:
9593 | if(allgammaval(i) == 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9594:2:
9594 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9595:2:
9595 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9596:2:
9596 | if(allgammaval(i) <= allgammavaltrain(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9597:2:
9597 | gammacv(i) = losspredsumvec(j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9598:2:
9598 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9599:2:
9599 | do k = 1,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9600:2:
9600 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9601:2:
9601 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9602:2:
9602 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9603:2:
9603 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9604:2:
9604 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9605:2:
9605 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9606:2:
9606 | gammacv(i) = losspredsumvec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9607:2:
9607 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9608:2:
9608 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9609:2:
9609 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9613:2:
9613 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9614:2:
9614 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9615:2:
9615 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9616:2:
9616 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9617:2:
9617 | double precision, intent(out) :: losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9618:2:
9618 | double precision, allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9619:2:
9619 | integer i,j,k,l
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9620:2:
9620 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9621:2:
9621 | allocate(timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9622:2:
9622 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9623:2:
9623 | losspred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9624:2:
9624 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9625:2:
9625 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9626:2:
9626 | do j = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9627:2:
9627 | if(sum(nodenummat(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9628:2:
9628 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9629:2:
9629 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9630:2:
9630 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9631:2:
9631 | if(nodenummat(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9632:2:
9632 | timepred(nodenummat(j,maxdepth),int(traindata(j,3))) = timepred(nodenummat(j,maxdepth),int(traindata(j,3))) + traindata(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9633:2:
9633 | timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) = timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9634:2:
9634 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9635:2:
9635 | elseif(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9636:2:
9636 | timepred(nodenummat(j,i),int(traindata(j,3))) = timepred(nodenummat(j,i),int(traindata(j,3))) + traindata(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9637:2:
9637 | timepredcou(nodenummat(j,i),int(traindata(j,3))) = timepredcou(nodenummat(j,i),int(traindata(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9638:2:
9638 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9639:2:
9639 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9640:2:
9640 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9642:2:
9642 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9643:2:
9643 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9644:2:
9644 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9645:2:
9645 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9646:2:
9646 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9647:2:
9647 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9648:2:
9648 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9649:2:
9649 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9650:2:
9650 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9651:2:
9651 | do j=1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9652:2:
9652 | if(2**(j-1) <= i .and. i < 2**j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9653:2:
9653 | k = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9654:2:
9654 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9655:2:
9655 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9656:2:
9656 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9657:2:
9657 | do l = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9658:2:
9658 | if(nodenummattest(l,k) == i) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9659:2:
9659 | losspred(i,int(testdata(l,3))) = losspred(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9660:2:
9660 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9661:2:
9661 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9662:2:
9662 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9663:2:
9663 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9664:2:
9664 | losspredsum = sum(losspred)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9665:2:
9665 | deallocate(timepred,losspred,timepredcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9668:2:
9668 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9669:2:
9669 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9670:2:
9670 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9671:2:
9671 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9672:2:
9672 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9673:2:
9673 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9674:2:
9674 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9675:2:
9675 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9676:2:
9676 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9677:2:
9677 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9678:2:
9678 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9679:2:
9679 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9680:2:
9680 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9681:2:
9681 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9682:2:
9682 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9683:2:
9683 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9684:2:
9684 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9685:2:
9685 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9686:2:
9686 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9687:2:
9687 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9688:2:
9688 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9689:2:
9689 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9690:2:
9690 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9691:2:
9691 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9692:2:
9692 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9693:2:
9693 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9694:2:
9694 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9695:2:
9695 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9696:2:
9696 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9699:2:
9699 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9700:2:
9700 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9701:2:
9701 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9702:2:
9702 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9703:2:
9703 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9704:2:
9704 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9705:2:
9705 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9706:2:
9706 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9707:2:
9707 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9708:2:
9708 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9709:2:
9709 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9710:2:
9710 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9711:2:
9711 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9712:2:
9712 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9713:2:
9713 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9714:2:
9714 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9715:2:
9715 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9716:2:
9716 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9717:2:
9717 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9718:2:
9718 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9719:2:
9719 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9720:2:
9720 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9721:2:
9721 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9722:2:
9722 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9723:2:
9723 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9724:2:
9724 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9725:2:
9725 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9726:2:
9726 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9727:2:
9727 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9728:2:
9728 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9729:2:
9729 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9730:2:
9730 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9731:2:
9731 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9732:2:
9732 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9733:2:
9733 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9734:2:
9734 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9735:2:
9735 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9736:2:
9736 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9737:2:
9737 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9738:2:
9738 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9739:2:
9739 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9740:2:
9740 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9741:2:
9741 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9744:2:
9744 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9745:2:
9745 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9746:2:
9746 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9747:2:
9747 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9748:2:
9748 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9749:2:
9749 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9750:2:
9750 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9751:2:
9751 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9752:2:
9752 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9753:2:
9753 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9754:2:
9754 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9755:2:
9755 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9756:2:
9756 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9757:2:
9757 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9758:2:
9758 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9759:2:
9759 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9760:2:
9760 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9761:2:
9761 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9762:2:
9762 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9763:2:
9763 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9764:2:
9764 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9765:2:
9765 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9766:2:
9766 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9767:2:
9767 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9768:2:
9768 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9769:2:
9769 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9770:2:
9770 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9771:2:
9771 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9774:2:
9774 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9775:2:
9775 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9776:2:
9776 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9777:2:
9777 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9778:2:
9778 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9779:2:
9779 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9780:2:
9780 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9781:2:
9781 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9782:2:
9782 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9783:2:
9783 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9784:2:
9784 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9785:2:
9785 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9786:2:
9786 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9787:2:
9787 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9788:2:
9788 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9789:2:
9789 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9790:2:
9790 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9791:2:
9791 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9792:2:
9792 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9799:2:
9799 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9800:2:
9800 | integer,intent(in) :: colnum,levelcount,maxdepth,cvloop,traindatasize1,traindatasize2,traindatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9801:2:
9801 | integer,intent(in) :: testdatasize1,testdatasize2,testdatasize3,testdataallsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9802:2:
9802 | integer,intent(in) :: nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9803:2:
9803 | nodenummat3(traindatasize3,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9804:2:
9804 | integer,intent(in) :: nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9805:2:
9805 | nodenummattest3(testdataallsize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9806:2:
9806 | double precision,intent(in) :: traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9807:2:
9807 | traindata3(traindatasize3,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9808:2:
9808 | double precision,intent(in) :: testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9809:2:
9809 | testdata3(testdatasize3,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9810:2:
9810 | double precision,intent(in) :: testdataall(testdataallsize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9811:2:
9811 | double precision,intent(out) :: r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9812:2:
9812 | double precision bootpredictsub1(testdatasize1,5),bootpredictsub2(testdatasize2,5),bootpredictsub3(testdatasize3,5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9813:2:
9813 | double precision, allocatable :: timepred(:,:),timepredcou(:,:),predictvec(:),r2cvks0(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9814:2:
9814 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9815:2:
9815 | double precision ymean,r2cvbunsi,r2cvbunbo,r2cvks1,r2cvks2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9816:2:
9816 | bootpredictsub1(:,1) = dble(cvloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9817:2:
9817 | bootpredictsub1(:,2) = testdata1(:,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9818:2:
9818 | bootpredictsub2(:,1) = dble(cvloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9819:2:
9819 | bootpredictsub2(:,2) = testdata2(:,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9820:2:
9820 | bootpredictsub3(:,1) = dble(cvloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9821:2:
9821 | bootpredictsub3(:,2) = testdata3(:,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9822:2:
9822 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9823:2:
9823 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9824:2:
9824 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9825:2:
9825 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9826:2:
9826 | do j = 1,traindatasize1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9827:2:
9827 | if(sum(nodenummat1(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9828:2:
9828 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9829:2:
9829 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9830:2:
9830 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9831:2:
9831 | if(nodenummat1(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9832:2:
9832 | timepred(nodenummat1(j,maxdepth),int(traindata1(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9833:2:
9833 | timepred(nodenummat1(j,maxdepth),int(traindata1(j,3))) + traindata1(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9834:2:
9834 | timepredcou(nodenummat1(j,maxdepth),int(traindata1(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9835:2:
9835 | timepredcou(nodenummat1(j,maxdepth),int(traindata1(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9836:2:
9836 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9837:2:
9837 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9838:2:
9838 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9839:2:
9839 | if(nodenummat1(j,i) > 0 .and. nodenummat1(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9840:2:
9840 | timepred(nodenummat1(j,i),int(traindata1(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9841:2:
9841 | timepred(nodenummat1(j,i),int(traindata1(j,3))) + traindata1(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9842:2:
9842 | timepredcou(nodenummat1(j,i),int(traindata1(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9843:2:
9843 | timepredcou(nodenummat1(j,i),int(traindata1(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9844:2:
9844 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9845:2:
9845 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9846:2:
9846 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9848:2:
9848 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9849:2:
9849 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9850:2:
9850 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9851:2:
9851 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9852:2:
9852 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9853:2:
9853 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9854:2:
9854 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9855:2:
9855 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9856:2:
9856 | do j = 1,testdataallsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9857:2:
9857 | if(sum(nodenummattest1(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9858:2:
9858 | goto 3020
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9859:2:
9859 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9860:2:
9860 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9861:2:
9861 | if(nodenummattest1(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9862:2:
9862 | predictvec(j) = timepred(nodenummattest1(j,maxdepth),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9863:2:
9863 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9864:2:
9864 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9865:2:
9865 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9866:2:
9866 | if(nodenummattest1(j,i) > 0 .and. nodenummattest1(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9867:2:
9867 | predictvec(j) = timepred(nodenummattest1(j,i),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9868:2:
9868 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9869:2:
9869 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9870:2:
9870 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9872:2:
9872 | bootpredictsub1(:,3) = predictvec(1:testdatasize1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9873:2:
9873 | bootpredictsub2(:,3) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9874:2:
9874 | bootpredictsub3(:,3) = predictvec((testdatasize1+testdatasize2+1):testdataallsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9875:2:
9875 | deallocate(timepred,timepredcou,predictvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9876:2:
9876 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9877:2:
9877 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9878:2:
9878 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9879:2:
9879 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9880:2:
9880 | do j = 1,traindatasize2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9881:2:
9881 | if(sum(nodenummat2(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9882:2:
9882 | goto 3030
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9883:2:
9883 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9884:2:
9884 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9885:2:
9885 | if(nodenummat2(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9886:2:
9886 | timepred(nodenummat2(j,maxdepth),int(traindata2(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9887:2:
9887 | timepred(nodenummat2(j,maxdepth),int(traindata2(j,3))) + traindata2(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9888:2:
9888 | timepredcou(nodenummat2(j,maxdepth),int(traindata2(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9889:2:
9889 | timepredcou(nodenummat2(j,maxdepth),int(traindata2(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9890:2:
9890 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9891:2:
9891 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9892:2:
9892 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9893:2:
9893 | if(nodenummat2(j,i) > 0 .and. nodenummat2(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9894:2:
9894 | timepred(nodenummat2(j,i),int(traindata2(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9895:2:
9895 | timepred(nodenummat2(j,i),int(traindata2(j,3))) + traindata2(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9896:2:
9896 | timepredcou(nodenummat2(j,i),int(traindata2(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9897:2:
9897 | timepredcou(nodenummat2(j,i),int(traindata2(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9898:2:
9898 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9899:2:
9899 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9900:2:
9900 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9902:2:
9902 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9903:2:
9903 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9904:2:
9904 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9905:2:
9905 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9906:2:
9906 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9907:2:
9907 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9908:2:
9908 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9909:2:
9909 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9910:2:
9910 | do j = 1,testdataallsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9911:2:
9911 | if(sum(nodenummattest2(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9912:2:
9912 | goto 3040
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9913:2:
9913 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9914:2:
9914 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9915:2:
9915 | if(nodenummattest2(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9916:2:
9916 | predictvec(j) = timepred(nodenummattest2(j,maxdepth),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9917:2:
9917 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9918:2:
9918 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9919:2:
9919 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9920:2:
9920 | if(nodenummattest2(j,i) > 0 .and. nodenummattest2(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9921:2:
9921 | predictvec(j) = timepred(nodenummattest2(j,i),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9922:2:
9922 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9923:2:
9923 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9924:2:
9924 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9926:2:
9926 | bootpredictsub1(:,4) = predictvec(1:testdatasize1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9927:2:
9927 | bootpredictsub2(:,4) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9928:2:
9928 | bootpredictsub3(:,4) = predictvec((testdatasize1+testdatasize2+1):testdataallsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9929:2:
9929 | deallocate(timepred,timepredcou,predictvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9930:2:
9930 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9931:2:
9931 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9932:2:
9932 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9933:2:
9933 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9934:2:
9934 | do j = 1,traindatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9935:2:
9935 | if(sum(nodenummat3(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9936:2:
9936 | goto 3050
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9937:2:
9937 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9938:2:
9938 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9939:2:
9939 | if(nodenummat3(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9940:2:
9940 | timepred(nodenummat3(j,maxdepth),int(traindata3(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9941:2:
9941 | timepred(nodenummat3(j,maxdepth),int(traindata3(j,3))) + traindata3(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9942:2:
9942 | timepredcou(nodenummat3(j,maxdepth),int(traindata3(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9943:2:
9943 | timepredcou(nodenummat3(j,maxdepth),int(traindata3(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9944:2:
9944 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9945:2:
9945 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9946:2:
9946 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9947:2:
9947 | if(nodenummat3(j,i) > 0 .and. nodenummat3(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9948:2:
9948 | timepred(nodenummat3(j,i),int(traindata3(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9949:2:
9949 | timepred(nodenummat3(j,i),int(traindata3(j,3))) + traindata3(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9950:2:
9950 | timepredcou(nodenummat3(j,i),int(traindata3(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9951:2:
9951 | timepredcou(nodenummat3(j,i),int(traindata3(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9952:2:
9952 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9953:2:
9953 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9954:2:
9954 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9956:2:
9956 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9957:2:
9957 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9958:2:
9958 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9959:2:
9959 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9960:2:
9960 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9961:2:
9961 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9962:2:
9962 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9963:2:
9963 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9964:2:
9964 | do j = 1,testdataallsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9965:2:
9965 | if(sum(nodenummattest3(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9966:2:
9966 | goto 3060
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9967:2:
9967 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9968:2:
9968 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9969:2:
9969 | if(nodenummattest3(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9970:2:
9970 | predictvec(j) = timepred(nodenummattest3(j,maxdepth),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9971:2:
9971 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9972:2:
9972 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9973:2:
9973 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9974:2:
9974 | if(nodenummattest3(j,i) > 0 .and. nodenummattest3(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9975:2:
9975 | predictvec(j) = timepred(nodenummattest3(j,i),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9976:2:
9976 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9977:2:
9977 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9978:2:
9978 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9980:2:
9980 | bootpredictsub1(:,5) = predictvec(1:testdatasize1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9981:2:
9981 | bootpredictsub2(:,5) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9982:2:
9982 | bootpredictsub3(:,5) = predictvec((testdatasize1+testdatasize2+1):testdataallsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9983:2:
9983 | r2cvks1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9984:2:
9984 | r2cvks2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9985:2:
9985 | ymean = sum(bootpredictsub1(:,2))/testdatasize1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9986:2:
9986 | do i = 1,testdatasize1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9987:2:
9987 | r2cvks1 = r2cvks1 + (bootpredictsub1(i,2)-bootpredictsub1(i,3)) * (bootpredictsub1(i,2)-bootpredictsub1(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9988:2:
9988 | r2cvks2 = r2cvks2 + (bootpredictsub1(i,2)-ymean) * (bootpredictsub1(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9989:2:
9989 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9990:2:
9990 | r2cvbunsi = r2cvks1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9991:2:
9991 | r2cvbunbo = r2cvks2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9992:2:
9992 | r2cvval1sub = 1d0-(r2cvbunsi/r2cvbunbo)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9993:2:
9993 | r2cvks1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9994:2:
9994 | r2cvks2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9995:2:
9995 | ymean = sum(bootpredictsub2(:,2))/testdatasize2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9996:2:
9996 | do i = 1,testdatasize2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9997:2:
9997 | r2cvks1 = r2cvks1 + (bootpredictsub2(i,2)-bootpredictsub2(i,4)) * (bootpredictsub2(i,2)-bootpredictsub2(i,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9998:2:
9998 | r2cvks2 = r2cvks2 + (bootpredictsub2(i,2)-ymean) * (bootpredictsub2(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9999:2:
9999 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10000:2:
10000 | r2cvbunsi = r2cvks1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10001:2:
10001 | r2cvbunbo = r2cvks2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10002:2:
10002 | r2cvval2sub = 1d0-(r2cvbunsi/r2cvbunbo)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10003:2:
10003 | r2cvks1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10004:2:
10004 | r2cvks2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10005:2:
10005 | ymean = sum(bootpredictsub3(:,2))/testdatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10006:2:
10006 | do i = 1,testdatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10007:2:
10007 | r2cvks1 = r2cvks1 + (bootpredictsub3(i,2)-bootpredictsub3(i,5)) * (bootpredictsub3(i,2)-bootpredictsub3(i,5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10008:2:
10008 | r2cvks2 = r2cvks2 + (bootpredictsub3(i,2)-ymean) * (bootpredictsub3(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10009:2:
10009 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10010:2:
10010 | r2cvbunsi = r2cvks1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10011:2:
10011 | r2cvbunbo = r2cvks2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10012:2:
10012 | r2cvval3sub = 1d0-(r2cvbunsi/r2cvbunbo)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10013:2:
10013 | r2cvks1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10014:2:
10014 | r2cvks2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10015:2:
10015 | ymean = (sum(bootpredictsub1(:,2))+sum(bootpredictsub2(:,2))+sum(bootpredictsub3(:,2)))/testdataallsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10016:2:
10016 | allocate(r2cvks0(testdatasize1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10017:2:
10017 | r2cvks0(:) = (bootpredictsub1(:,3)+bootpredictsub1(:,4)+bootpredictsub1(:,5))/3d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10018:2:
10018 | do i = 1,testdatasize1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10019:2:
10019 | r2cvks1 = r2cvks1 + (bootpredictsub1(i,2)-r2cvks0(i)) * (bootpredictsub1(i,2)-r2cvks0(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10020:2:
10020 | r2cvks2 = r2cvks2 + (bootpredictsub1(i,2)-ymean) * (bootpredictsub1(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10021:2:
10021 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10022:2:
10022 | deallocate(r2cvks0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10023:2:
10023 | allocate(r2cvks0(testdatasize2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10024:2:
10024 | r2cvks0(:) = (bootpredictsub2(:,3)+bootpredictsub2(:,4)+bootpredictsub2(:,5))/3d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10025:2:
10025 | do i = 1,testdatasize2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10026:2:
10026 | r2cvks1 = r2cvks1 + (bootpredictsub2(i,2)-r2cvks0(i)) * (bootpredictsub2(i,2)-r2cvks0(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10027:2:
10027 | r2cvks2 = r2cvks2 + (bootpredictsub2(i,2)-ymean) * (bootpredictsub2(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10028:2:
10028 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10029:2:
10029 | deallocate(r2cvks0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10030:2:
10030 | allocate(r2cvks0(testdatasize3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10031:2:
10031 | r2cvks0(:) = (bootpredictsub3(:,3)+bootpredictsub3(:,4)+bootpredictsub3(:,5))/3d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10032:2:
10032 | do i = 1,testdatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10033:2:
10033 | r2cvks1 = r2cvks1 + (bootpredictsub3(i,2)-r2cvks0(i)) * (bootpredictsub3(i,2)-r2cvks0(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10034:2:
10034 | r2cvks2 = r2cvks2 + (bootpredictsub3(i,2)-ymean) * (bootpredictsub3(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10035:2:
10035 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10036:2:
10036 | deallocate(r2cvks0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10037:2:
10037 | r2cvbunsi = r2cvks1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10038:2:
10038 | r2cvbunbo = r2cvks2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10039:2:
10039 | r2cvvalthreesub = 1d0-(r2cvbunsi/r2cvbunbo)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10040:2:
10040 | deallocate(timepred,timepredcou,predictvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10043:2:
10043 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10044:2:
10044 | integer,intent(in) :: msize,maxdepth,prunind,cv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10045:2:
10045 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10046:2:
10046 | double precision,intent(in) :: bestgammaval,allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10047:2:
10047 | integer,intent(out) :: prunenodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10048:2:
10048 | double precision minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10049:2:
10049 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10050:2:
10050 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10051:2:
10051 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10052:2:
10052 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10053:2:
10053 | if(bestgammaval <= 0d0 .or. prunind==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10054:2:
10054 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10055:2:
10055 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10056:2:
10056 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10057:2:
10057 | gammavec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10058:2:
10058 | call threetreesgterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10059:2:
10059 | call threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10060:2:
10060 | gammavec(1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10061:2:
10061 | if(gammavec(1) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10062:2:
10062 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10063:2:
10063 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10064:2:
10064 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10065:2:
10065 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10066:2:
10066 | call threetreesgpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10067:2:
10067 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10068:2:
10068 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10069:2:
10069 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10070:2:
10070 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10071:2:
10071 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10072:2:
10072 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10073:2:
10073 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10074:2:
10074 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10075:2:
10075 | call threetreesgterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10076:2:
10076 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10077:2:
10077 | prunenodenummat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10078:2:
10078 | prunenodenummat(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10079:2:
10079 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10080:2:
10080 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10081:2:
10081 | call threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10082:2:
10082 | gammavec(prunloop) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10083:2:
10083 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10084:2:
10084 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10085:2:
10085 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10086:2:
10086 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10087:2:
10087 | allocate(nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10088:2:
10088 | call threetreesgpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10089:2:
10089 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10090:2:
10090 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10091:2:
10091 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10092:2:
10092 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10093:2:
10093 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10094:2:
10094 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10095:2:
10095 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10096:2:
10096 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10100:2:
10100 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10101:2:
10101 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10102:2:
10102 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10103:2:
10103 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10104:2:
10104 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10105:2:
10105 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10106:2:
10106 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10107:2:
10107 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10108:2:
10108 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10109:2:
10109 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10110:2:
10110 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10111:2:
10111 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10112:2:
10112 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10113:2:
10113 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10114:2:
10114 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10115:2:
10115 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10116:2:
10116 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10117:2:
10117 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10118:2:
10118 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10119:2:
10119 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10120:2:
10120 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10121:2:
10121 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10122:2:
10122 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10123:2:
10123 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10124:2:
10124 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10125:2:
10125 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10126:2:
10126 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10127:2:
10127 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10128:2:
10128 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10131:2:
10131 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10132:2:
10132 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10133:2:
10133 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10134:2:
10134 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10135:2:
10135 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10136:2:
10136 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10137:2:
10137 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10138:2:
10138 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10139:2:
10139 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10140:2:
10140 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10141:2:
10141 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10142:2:
10142 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10143:2:
10143 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10144:2:
10144 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10145:2:
10145 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10146:2:
10146 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10147:2:
10147 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10148:2:
10148 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10149:2:
10149 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10150:2:
10150 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10151:2:
10151 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10152:2:
10152 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10153:2:
10153 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10154:2:
10154 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10155:2:
10155 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10156:2:
10156 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10157:2:
10157 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10158:2:
10158 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10159:2:
10159 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10160:2:
10160 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10161:2:
10161 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10162:2:
10162 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10163:2:
10163 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10164:2:
10164 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10165:2:
10165 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10166:2:
10166 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10167:2:
10167 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10168:2:
10168 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10169:2:
10169 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10170:2:
10170 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10171:2:
10171 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10172:2:
10172 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10173:2:
10173 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10176:2:
10176 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10177:2:
10177 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10178:2:
10178 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10179:2:
10179 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10180:2:
10180 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10181:2:
10181 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10182:2:
10182 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10183:2:
10183 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10184:2:
10184 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10185:2:
10185 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10186:2:
10186 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10187:2:
10187 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10188:2:
10188 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10189:2:
10189 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10190:2:
10190 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10191:2:
10191 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10192:2:
10192 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10193:2:
10193 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10194:2:
10194 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10195:2:
10195 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10196:2:
10196 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10197:2:
10197 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10198:2:
10198 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10199:2:
10199 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10200:2:
10200 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10201:2:
10201 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10202:2:
10202 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10203:2:
10203 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10206:2:
10206 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10207:2:
10207 | integer, intent(in) :: msize,levelcount,maxdepth,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10208:2:
10208 | integer, intent(in) :: prunenodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10209:2:
10209 | double precision, intent(in) :: XYDATA(Msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10210:2:
10210 | integer, intent(out) :: datatnnodenum(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10211:2:
10211 | double precision, intent(out) :: predvec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10212:2:
10212 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10213:2:
10213 | double precision tnodepredmat((2**maxdepth)-1,levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10214:2:
10214 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10215:2:
10215 | allocate(timepredsum(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10216:2:
10216 | timepredsum(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10217:2:
10217 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10218:2:
10218 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10219:2:
10219 | do j = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10220:2:
10220 | if(sum(prunenodenummat(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10221:2:
10221 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10222:2:
10222 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10223:2:
10223 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10224:2:
10224 | if(prunenodenummat(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10225:2:
10225 | timepredsum(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10226:2:
10226 | timepredsum(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) + XYDATA(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10227:2:
10227 | timepredcou(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10228:2:
10228 | timepredcou(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10229:2:
10229 | datatnnodenum(j) = prunenodenummat(j,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10230:2:
10230 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10231:2:
10231 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10232:2:
10232 | elseif(prunenodenummat(j,i) > 0 .and. prunenodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10233:2:
10233 | timepredsum(prunenodenummat(j,i),int(XYDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10234:2:
10234 | timepredsum(prunenodenummat(j,i),int(XYDATA(j,3))) + XYDATA(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10235:2:
10235 | timepredcou(prunenodenummat(j,i),int(XYDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10236:2:
10236 | timepredcou(prunenodenummat(j,i),int(XYDATA(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10237:2:
10237 | datatnnodenum(j) = prunenodenummat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10238:2:
10238 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10239:2:
10239 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10240:2:
10240 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10242:2:
10242 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10243:2:
10243 | if(abs(sum(timepredsum(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10244:2:
10244 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10245:2:
10245 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10246:2:
10246 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10247:2:
10247 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10248:2:
10248 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10249:2:
10249 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10250:2:
10250 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10251:2:
10251 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10254:2:
10254 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10255:2:
10255 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10256:2:
10256 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10257:2:
10257 | integer, intent(in) :: nodenummat(msize,11)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10258:2:
10258 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10259:2:
10259 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10260:2:
10260 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10261:2:
10261 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10262:2:
10262 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10263:2:
10263 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10264:2:
10264 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10265:2:
10265 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10266:2:
10266 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10270:2:
10270 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10271:2:
10271 | integer, intent(in) :: nodedatasize,colnum,maxdepth,ind1,ind2,splitvecsize,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10272:2:
10272 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10273:2:
10273 | double precision, intent(in) :: nodedatanum(nodedatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10274:2:
10274 | integer, intent(in) :: prunnodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10275:2:
10275 | integer, intent(out) :: splitvector(splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10276:2:
10276 | double precision, intent(out) :: splitnumber(splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10277:2:
10277 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10278:2:
10278 | double precision datasample(nodedatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10279:2:
10279 | integer, allocatable :: splitindmat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10280:2:
10280 | datasample = nodedatanum(:,ind1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10281:2:
10281 | if(datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10282:2:
10282 | splitnum = splitvecsize - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10283:2:
10283 | elseif(datatype(ind1-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10284:2:
10284 | splitnum = (2 ** (splitvecsize-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10285:2:
10285 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10286:2:
10286 | call threetreesspdataval(nodedatanum(:,ind1),nodedatasize,splitnumber,splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10287:2:
10287 | allocate(splitindmat(splitnum,splitvecsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10288:2:
10288 | if(datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10289:2:
10289 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10290:2:
10290 | do j = 1,splitvecsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10291:2:
10291 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10292:2:
10292 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10293:2:
10293 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10294:2:
10294 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10295:2:
10295 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10296:2:
10296 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10297:2:
10297 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10298:2:
10298 | elseif(datatype(ind1-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10299:2:
10299 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10300:2:
10300 | do i = 0, 2**(splitvecsize-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10301:2:
10301 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10302:2:
10302 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10303:2:
10303 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10304:2:
10304 | do j = 0, splitvecsize - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10305:2:
10305 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10306:2:
10306 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10307:2:
10307 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10308:2:
10308 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10309:2:
10309 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10310:2:
10310 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10311:2:
10311 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10312:2:
10312 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10313:2:
10313 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10314:2:
10314 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10315:2:
10315 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10316:2:
10316 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10317:2:
10317 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10318:2:
10318 | splitvector = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10321:2:
10321 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10322:2:
10322 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10323:2:
10323 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10324:2:
10324 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10325:2:
10325 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10326:2:
10326 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10327:2:
10327 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10328:2:
10328 | call threetreesspdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10329:2:
10329 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10330:2:
10330 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10331:2:
10331 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10332:2:
10332 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10333:2:
10333 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10334:2:
10334 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10335:2:
10335 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10336:2:
10336 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10339:2:
10339 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10340:2:
10340 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10341:2:
10341 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10342:2:
10342 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10343:2:
10343 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10344:2:
10344 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10345:2:
10345 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10346:2:
10346 | call threetreesspdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10347:2:
10347 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10348:2:
10348 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10349:2:
10349 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10350:2:
10350 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10351:2:
10351 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10352:2:
10352 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10353:2:
10353 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10356:2:
10356 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10357:2:
10357 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10358:2:
10358 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10359:2:
10359 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10360:2:
10360 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10361:2:
10361 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10362:2:
10362 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10363:2:
10363 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10364:2:
10364 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10365:2:
10365 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10366:2:
10366 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10367:2:
10367 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10368:2:
10368 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10369:2:
10369 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10370:2:
10370 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10371:2:
10371 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10372:2:
10372 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10373:2:
10373 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10374:2:
10374 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10375:2:
10375 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10376:2:
10376 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10377:2:
10377 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10378:2:
10378 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10379:2:
10379 | call threetreesspdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10380:2:
10380 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10381:2:
10381 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10382:2:
10382 | call threetreesspdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10383:2:
10383 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10384:2:
10384 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10326:14:
10326 | integer count, i, j, k
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:10326:17:
10326 | integer count, i, j, k
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:10130:61:
10130 | subroutine threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:10130:51:
10130 | subroutine threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:8325:64:
8325 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,xydata,datatype,beta1,beta2,beta1len,&
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:8266:31:
8266 | double precision randvalsub,ii
| 1
Warning: Unused variable 'ii' declared at (1) [-Wunused-variable]
longitree_program.f90:8257:36:
8257 | subroutine threetreesttcvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvindin,cvind,cvsize,cv,iseed)
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:9698:68:
9698 | subroutine threetreesttcvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:9698:58:
9698 | subroutine threetreesttcvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:9451:65:
9451 | subroutine threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:9451:55:
9451 | subroutine threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:9239:14:
9239 | integer count, i, j, k
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:9239:17:
9239 | integer count, i, j, k
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:8865:20:
8865 | integer count, j, i
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:8912:37:
8912 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Unused variable 'splitindmat1' declared at (1) [-Wunused-variable]
longitree_program.f90:8907:40:
8907 | subroutine threetreesttcvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'varnum' at (1) [-Wunused-dummy-argument]
longitree_program.f90:8907:56:
8907 | subroutine threetreesttcvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:8963:43:
8963 | subroutine threetreesttcvrepANOVA(msize, pp, anovadata, fval, dfvec)
| 1
Warning: Unused dummy argument 'pp' at (1) [-Wunused-dummy-argument]
longitree_program.f90:8846:20:
8846 | integer i, j, count, facsum
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:8846:13:
8846 | integer i, j, count, facsum
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
longitree_program.f90:8845:64:
8845 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Unused variable 'sortsample' declared at (1) [-Wunused-variable]
longitree_program.f90:9128:27:
9128 | double precision yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'res' declared at (1) [-Wunused-variable]
longitree_program.f90:9128:23:
9128 | double precision yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'yb' declared at (1) [-Wunused-variable]
longitree_program.f90:7942:62:
7942 | subroutine threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:7942:52:
7942 | subroutine threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:7511:37:
7511 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Unused variable 'splitindmat1' declared at (1) [-Wunused-variable]
longitree_program.f90:7506:36:
7506 | subroutine threetreessplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'varnum' at (1) [-Wunused-dummy-argument]
longitree_program.f90:7506:52:
7506 | subroutine threetreessplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:7562:39:
7562 | subroutine threetreesrepANOVA(msize, pp, anovadata, fval, dfvec)
| 1
Warning: Unused dummy argument 'pp' at (1) [-Wunused-dummy-argument]
longitree_program.f90:7493:20:
7493 | integer i, j, count, facsum
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:7493:13:
7493 | integer i, j, count, facsum
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
longitree_program.f90:7492:64:
7492 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Unused variable 'sortsample' declared at (1) [-Wunused-variable]
longitree_program.f90:7727:27:
7727 | double precision yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'res' declared at (1) [-Wunused-variable]
longitree_program.f90:7727:23:
7727 | double precision yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'yb' declared at (1) [-Wunused-variable]
longitree_program.f90:7474:14:
7474 | integer count, i, j, k
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:7474:17:
7474 | integer count, i, j, k
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:7426:20:
7426 | integer count, j, i
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:6984:14:
6984 | integer count, i, j, k
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:6984:17:
6984 | integer count, i, j, k
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:6936:20:
6936 | integer count, j, i
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:6574:65:
6574 | subroutine threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:6574:55:
6574 | subroutine threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:6376:70:
6376 | subroutine threetreesbootcvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:6376:60:
6376 | subroutine threetreesbootcvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:5129:64:
5129 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,xydata,datatype,beta1,beta2,beta1len,&
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:6044:14:
6044 | integer count, i, j, k
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:6044:17:
6044 | integer count, i, j, k
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:5670:20:
5670 | integer count, j, i
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:5717:37:
5717 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Unused variable 'splitindmat1' declared at (1) [-Wunused-variable]
longitree_program.f90:5712:42:
5712 | subroutine threetreesbootcvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'varnum' at (1) [-Wunused-dummy-argument]
longitree_program.f90:5712:58:
5712 | subroutine threetreesbootcvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:5768:45:
5768 | subroutine threetreesbootcvrepANOVA(msize, pp, anovadata, fval, dfvec)
| 1
Warning: Unused dummy argument 'pp' at (1) [-Wunused-dummy-argument]
longitree_program.f90:5651:20:
5651 | integer i, j, count, facsum
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:5651:13:
5651 | integer i, j, count, facsum
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
longitree_program.f90:5650:64:
5650 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Unused variable 'sortsample' declared at (1) [-Wunused-variable]
longitree_program.f90:5933:27:
5933 | double precision yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'res' declared at (1) [-Wunused-variable]
longitree_program.f90:5933:23:
5933 | double precision yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'yb' declared at (1) [-Wunused-variable]
longitree_program.f90:5075:31:
5075 | double precision randvalsub,ii
| 1
Warning: Unused variable 'ii' declared at (1) [-Wunused-variable]
longitree_program.f90:5067:38:
5067 | subroutine threetreesbootcvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed)
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:4927:66:
4927 | subroutine threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:4927:56:
4927 | subroutine threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:4805:14:
4805 | integer count, i, j, k
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:4805:17:
4805 | integer count, i, j, k
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:4431:20:
4431 | integer count, j, i
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:4478:37:
4478 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Unused variable 'splitindmat1' declared at (1) [-Wunused-variable]
longitree_program.f90:4473:40:
4473 | subroutine threetreesbootsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'varnum' at (1) [-Wunused-dummy-argument]
longitree_program.f90:4473:56:
4473 | subroutine threetreesbootsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:4529:43:
4529 | subroutine threetreesbootrepANOVA(msize, pp, anovadata, fval, dfvec)
| 1
Warning: Unused dummy argument 'pp' at (1) [-Wunused-dummy-argument]
longitree_program.f90:4412:20:
4412 | integer i, j, count, facsum
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:4412:13:
4412 | integer i, j, count, facsum
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
longitree_program.f90:4411:64:
4411 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Unused variable 'sortsample' declared at (1) [-Wunused-variable]
longitree_program.f90:4694:27:
4694 | double precision yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'res' declared at (1) [-Wunused-variable]
longitree_program.f90:4694:23:
4694 | double precision yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'yb' declared at (1) [-Wunused-variable]
longitree_program.f90:3849:20:
3849 | integer count, j, i
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:3752:14:
3752 | integer count, i, j, k
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:3752:17:
3752 | integer count, i, j, k
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:3560:51:
3560 | subroutine gweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:3560:41:
3560 | subroutine gweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:3376:56:
3376 | subroutine cvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:3376:46:
3376 | subroutine cvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:3101:53:
3101 | subroutine cvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:3101:43:
3101 | subroutine cvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:1551:55:
1551 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1
Warning: Unused variable 'dfvec' declared at (1) [-Wunused-variable]
longitree_program.f90:2891:14:
2891 | integer count, i, j, k
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:2891:17:
2891 | integer count, i, j, k
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:2425:20:
2425 | integer count, j, i
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:2492:37:
2492 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Unused variable 'splitindmat1' declared at (1) [-Wunused-variable]
longitree_program.f90:2487:28:
2487 | subroutine cvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'varnum' at (1) [-Wunused-dummy-argument]
longitree_program.f90:2487:44:
2487 | subroutine cvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:2406:20:
2406 | integer i, j, count, facsum
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:2406:13:
2406 | integer i, j, count, facsum
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
longitree_program.f90:2405:55:
2405 | real(8) datasample(samplesize), sortsample(samplesize)
| 1
Warning: Unused variable 'sortsample' declared at (1) [-Wunused-variable]
longitree_program.f90:2771:18:
2771 | real(8) yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'res' declared at (1) [-Wunused-variable]
longitree_program.f90:2771:14:
2771 | real(8) yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'yb' declared at (1) [-Wunused-variable]
longitree_program.f90:1485:22:
1485 | real(8) randvalsub,ii
| 1
Warning: Unused variable 'ii' declared at (1) [-Wunused-variable]
longitree_program.f90:1477:24:
1477 | subroutine cvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed)
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:1316:52:
1316 | subroutine cvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:1316:42:
1316 | subroutine cvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:876:37:
876 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Unused variable 'splitindmat1' declared at (1) [-Wunused-variable]
longitree_program.f90:871:26:
871 | subroutine splitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'varnum' at (1) [-Wunused-dummy-argument]
longitree_program.f90:871:42:
871 | subroutine splitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1
Warning: Unused dummy argument 'xydata' at (1) [-Wunused-dummy-argument]
longitree_program.f90:819:14:
819 | integer count, i, j, k
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:819:17:
819 | integer count, i, j, k
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:858:20:
858 | integer i, j, count, facsum
| 1
Warning: Unused variable 'count' declared at (1) [-Wunused-variable]
longitree_program.f90:858:13:
858 | integer i, j, count, facsum
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
longitree_program.f90:857:64:
857 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Unused variable 'sortsample' declared at (1) [-Wunused-variable]
longitree_program.f90:1093:27:
1093 | double precision yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'res' declared at (1) [-Wunused-variable]
longitree_program.f90:1093:23:
1093 | double precision yb,res,err,ft,h,s0,xt,wt,t,as,shk,mba,pba,seps
| 1
Warning: Unused variable 'yb' declared at (1) [-Wunused-variable]
longitree_program.f90:771:20:
771 | integer count, j, i
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:928:29:
928 | subroutine repANOVA(msize, pp, anovadata, fval, dfvec)
| 1
Warning: Unused dummy argument 'pp' at (1) [-Wunused-dummy-argument]
longitree_program.f90:2544:31:
2544 | subroutine cvrepANOVA(msize, pp, anovadata, fval, dfvec)
| 1
Warning: Unused dummy argument 'pp' at (1) [-Wunused-dummy-argument]
longitree_program.f90:3703:76:
3703 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Unused variable 'countvec' declared at (1) [-Wunused-variable]
longitree_program.f90:3703:38:
3703 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Unused variable 'facsum' declared at (1) [-Wunused-variable]
longitree_program.f90:3703:22:
3703 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Unused variable 'hierarchy' declared at (1) [-Wunused-variable]
longitree_program.f90:3703:31:
3703 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Unused variable 'nodesize' declared at (1) [-Wunused-variable]
longitree_program.f90:3694:87:
3694 | subroutine splitvec(nodedata,nodedatasize,colnum,msize,maxdepth,DATATYPE,prunnodenummat,&
| 1
Warning: Unused dummy argument 'prunnodenummat' at (1) [-Wunused-dummy-argument]
longitree_program.f90:3770:20:
3770 | integer count, j, i
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:5015:87:
5015 | integer, allocatable :: nodenummat(:,:), nodenummattest(:,:),prunenodenummattest(:,:)
| 1
Warning: Unused variable 'prunenodenummattest' declared at (1) [-Wunused-variable]
longitree_program.f90:6129:67:
6129 | subroutine threetreesbootcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'ncountval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:6129:57:
6129 | subroutine threetreesbootcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Unused dummy argument 'nottnodeval' at (1) [-Wunused-dummy-argument]
longitree_program.f90:6678:37:
6678 | integer tndatacount((2**maxdepth)-1)
| 1
Warning: Unused variable 'tndatacount' declared at (1) [-Wunused-variable]
longitree_program.f90:8041:50:
8041 | prunind2,prunind3,i,testdataallsize,bfsize,afsize
| 1
Warning: Unused variable 'afsize' declared at (1) [-Wunused-variable]
longitree_program.f90:8041:43:
8041 | prunind2,prunind3,i,testdataallsize,bfsize,afsize
| 1
Warning: Unused variable 'bfsize' declared at (1) [-Wunused-variable]
longitree_program.f90:8045:55:
8045 | r2cvvalvecthree(ksplit),gammar2cv((2**(maxdepth-1))-1)
| 1
Warning: Unused variable 'gammar2cv' declared at (1) [-Wunused-variable]
longitree_program.f90:10277:76:
10277 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Unused variable 'countvec' declared at (1) [-Wunused-variable]
longitree_program.f90:10277:38:
10277 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Unused variable 'facsum' declared at (1) [-Wunused-variable]
longitree_program.f90:10277:22:
10277 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Unused variable 'hierarchy' declared at (1) [-Wunused-variable]
longitree_program.f90:10277:31:
10277 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Unused variable 'nodesize' declared at (1) [-Wunused-variable]
longitree_program.f90:10268:100:
10268 | subroutine threetreessplitvec(nodedatanum,nodedatasize,colnum,msize,maxdepth,DATATYPE,prunnodenummat,&
| 1
Warning: Unused dummy argument 'prunnodenummat' at (1) [-Wunused-dummy-argument]
longitree_program.f90:10344:20:
10344 | integer count, j, i
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
longitree_program.f90:10195:5:
10195 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: 'indcol' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:10182:19:
10182 | integer i,j,indcol
| ^
note: 'indcol' was declared here
longitree_program.f90:9658:7:
9658 | if(nodenummattest(l,k) == i) then
| ^
Warning: 'k' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:9619:14:
9619 | integer i,j,k,l
| ^
note: 'k' was declared here
longitree_program.f90:9540:5:
9540 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: 'indcol' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:9531:19:
9531 | integer i,j,indcol
| ^
note: 'indcol' was declared here
longitree_program.f90:8518:8:
8518 | if(splitfacval(separateint) < separatesp) then
| ^
Warning: 'separatesp' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8340:98:
8340 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^
note: 'separatesp' was declared here
longitree_program.f90:8446:59:
8446 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| ^
Warning: 'splitind2' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8337:82:
8337 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| ^
note: 'splitind2' was declared here
longitree_program.f90:8551:51:
8551 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| ^
Warning: 'splitgroupsum' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8349:34:
8349 | double precision :: splitgroupsum
| ^
note: 'splitgroupsum' was declared here
longitree_program.f90:8567:24:
8567 | allfval(1) = splitwfval
| ^
Warning: 'splitwfval' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8340:87:
8340 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^
note: 'splitwfval' was declared here
longitree_program.f90:8557:28:
8557 | sizenum = size(splitfacval)
| ^
Warning: 'splitfacval.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8344:96:
8344 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| ^
note: 'splitfacval.dim[0].ubound' was declared here
longitree_program.f90:8831:30:
8831 | nodesize(:) = nodesizesub(:)
| ^
Warning: 'nodesizesub.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8343:38:
8343 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^
note: 'nodesizesub.dim[0].ubound' was declared here
longitree_program.f90:8832:38:
8832 | nodesizetest(:) = nodesizesubtest(:)
| ^
Warning: 'nodesizesubtest.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8343:57:
8343 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^
note: 'nodesizesubtest.dim[0].ubound' was declared here
longitree_program.f90:6336:7:
6336 | if(nodenummattest(l,k) == i) then
| ^
Warning: 'k' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6297:14:
6297 | integer i,j,k,l
| ^
note: 'k' was declared here
longitree_program.f90:5322:8:
5322 | if(splitfacval(separateint) < separatesp) then
| ^
Warning: 'separatesp' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5144:98:
5144 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^
note: 'separatesp' was declared here
longitree_program.f90:5250:59:
5250 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| ^
Warning: 'splitind2' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5141:82:
5141 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| ^
note: 'splitind2' was declared here
longitree_program.f90:5355:51:
5355 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| ^
Warning: 'splitgroupsum' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5153:34:
5153 | double precision :: splitgroupsum
| ^
note: 'splitgroupsum' was declared here
longitree_program.f90:5371:24:
5371 | allfval(1) = splitwfval
| ^
Warning: 'splitwfval' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5144:87:
5144 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^
note: 'splitwfval' was declared here
longitree_program.f90:5361:28:
5361 | sizenum = size(splitfacval)
| ^
Warning: 'splitfacval.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5148:96:
5148 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| ^
note: 'splitfacval.dim[0].ubound' was declared here
longitree_program.f90:5636:30:
5636 | nodesize(:) = nodesizesub(:)
| ^
Warning: 'nodesizesub.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5147:38:
5147 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^
note: 'nodesizesub.dim[0].ubound' was declared here
longitree_program.f90:5637:38:
5637 | nodesizetest(:) = nodesizesubtest(:)
| ^
Warning: 'nodesizesubtest.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5147:57:
5147 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^
note: 'nodesizesubtest.dim[0].ubound' was declared here
longitree_program.f90:2995:7:
2995 | if(nodenummattest(l,k) == i) then
| ^
Warning: 'k' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:2953:14:
2953 | integer i,j,k,l,maxactive_depth,nidx,tidx
| ^
note: 'k' was declared here
longitree_program.f90:3336:7:
3336 | if(nodenummattest(l,k) == i) then
| ^
Warning: 'k' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3296:14:
3296 | integer i,j,k,l,maxactive_depth,nidx,tidx
| ^
note: 'k' was declared here
longitree_program.f90:3211:18:
3211 | integer :: indcol
| ^
Warning: 'indcol' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1907:8:
1907 | if(splitfacval(separateint) < separatesp) then
| ^
Warning: 'separatesp' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1552:89:
1552 | real(8) splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^
note: 'separatesp' was declared here
longitree_program.f90:1940:51:
1940 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| ^
Warning: 'splitgroupsum' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1561:25:
1561 | real(8) :: splitgroupsum
| ^
note: 'splitgroupsum' was declared here
longitree_program.f90:1839:113:
1839 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| ^
Warning: 'splitind2' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1549:82:
1549 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| ^
note: 'splitind2' was declared here
longitree_program.f90:1956:24:
1956 | allfval(1) = splitwfval
| ^
Warning: 'splitwfval' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1552:78:
1552 | real(8) splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^
note: 'splitwfval' was declared here
longitree_program.f90:2392:38:
2392 | nodesizetest(:) = nodesizesubtest(:)
| ^
Warning: 'nodesizesubtest.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1555:57:
1555 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^
note: 'nodesizesubtest.dim[0].ubound' was declared here
longitree_program.f90:2391:30:
2391 | nodesize(:) = nodesizesub(:)
| ^
Warning: 'nodesizesub.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1555:38:
1555 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^
note: 'nodesizesub.dim[0].ubound' was declared here
longitree_program.f90:298:100:
298 | call splitdata(splitindmat(ind2,:),countvec(ind1-3),xydata,msize,colnum,ind1,anovadata,facvalout)
| ^
Warning: 'splitind2' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:14:83:
14 | integer nodenum, hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,sizenum,sizer,sizel,treeloop,stopcount,nodeloop
| ^
note: 'splitind2' was declared here
longitree_program.f90:355:52:
355 | if(splitgroupsum <= dble(levelcount*minbucket) .or. &
| ^
Warning: 'splitgroupsum' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:21:34:
21 | double precision :: splitgroupsum
| ^
note: 'splitgroupsum' was declared here
longitree_program.f90:368:73:
368 | Rsplitmat(1,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2)
| ^
Warning: 'splitweight' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:12:78:
12 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp
| ^
note: 'splitweight' was declared here
longitree_program.f90:377:24:
377 | allfval(1) = splitwfval
| ^
Warning: 'splitwfval' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:12:66:
12 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp
| ^
note: 'splitwfval' was declared here
longitree_program.f90:755:30:
755 | nodesize(:) = nodesizesub(:)
| ^
Warning: 'nodesizesub.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:16:117:
16 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:), splitindvec(:),nodesizesub(:)
| ^
note: 'nodesizesub.dim[0].ubound' was declared here
longitree_program.f90:3713:45:
3713 | allocate(splitindmat(splitnum,splitvecsize))
| ^
Warning: 'splitnum' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3703:67:
3703 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| ^
note: 'splitnum' was declared here
longitree_program.f90:4084:8:
4084 | if(splitfacval(separateint) < separatesp) then
| ^
Warning: 'separatesp' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3906:98:
3906 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^
note: 'separatesp' was declared here
longitree_program.f90:4012:57:
4012 | bootdata,bootdatasize,colnum,ind1,anovadata,facvalout)
| ^
Warning: 'splitind2' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3903:82:
3903 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| ^
note: 'splitind2' was declared here
longitree_program.f90:4117:51:
4117 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| ^
Warning: 'splitgroupsum' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3915:34:
3915 | double precision :: splitgroupsum
| ^
note: 'splitgroupsum' was declared here
longitree_program.f90:4133:24:
4133 | allfval(1) = splitwfval
| ^
Warning: 'splitwfval' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3906:87:
3906 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^
note: 'splitwfval' was declared here
longitree_program.f90:4123:28:
4123 | sizenum = size(splitfacval)
| ^
Warning: 'splitfacval.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3910:96:
3910 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| ^
note: 'splitfacval.dim[0].ubound' was declared here
longitree_program.f90:4397:30:
4397 | nodesize(:) = nodesizesub(:)
| ^
Warning: 'nodesizesub.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3909:38:
3909 | integer,allocatable :: nodesizesub(:),nodesizesubori(:)
| ^
note: 'nodesizesub.dim[0].ubound' was declared here
longitree_program.f90:4398:36:
4398 | nodesizeori(:) = nodesizesubori(:)
| ^
Warning: 'nodesizesubori.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3909:56:
3909 | integer,allocatable :: nodesizesub(:),nodesizesubori(:)
| ^
note: 'nodesizesubori.dim[0].ubound' was declared here
longitree_program.f90:7112:48:
7112 | xydata,msize,colnum,ind1,anovadata,facvalout)
| ^
Warning: 'splitind2' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:7009:83:
7009 | integer nodenum, hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,sizenum,sizer,sizel,treeloop,stopcount,nodeloop
| ^
note: 'splitind2' was declared here
longitree_program.f90:7189:28:
7189 | sizenum = size(splitfacval)
| ^
Warning: 'splitfacval.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:7012:95:
7012 | double precision,allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),xynodedata(:,:)
| ^
note: 'splitfacval.dim[0].ubound' was declared here
longitree_program.f90:7173:52:
7173 | if(splitgroupsum <= dble(levelcount*minbucket) .or. &
| ^
Warning: 'splitgroupsum' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:7016:34:
7016 | double precision :: splitgroupsum
| ^
note: 'splitgroupsum' was declared here
longitree_program.f90:7186:73:
7186 | Rsplitmat(1,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2)
| ^
Warning: 'splitweight' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:7007:78:
7007 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp
| ^
note: 'splitweight' was declared here
longitree_program.f90:7195:24:
7195 | allfval(1) = splitwfval
| ^
Warning: 'splitwfval' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:7007:66:
7007 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp
| ^
note: 'splitwfval' was declared here
longitree_program.f90:7413:30:
7413 | nodesize(:) = nodesizesub(:)
| ^
Warning: 'nodesizesub.dim[0].ubound' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:7011:117:
7011 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:), splitindvec(:),nodesizesub(:)
| ^
note: 'nodesizesub.dim[0].ubound' was declared here
longitree_program.f90:9345:7:
9345 | if(nodenummattest(l,k) == i) then
| ^
Warning: 'k' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:9302:14:
9302 | integer i,j,k,l
| ^
note: 'k' was declared here
longitree_program.f90:10287:45:
10287 | allocate(splitindmat(splitnum,splitvecsize))
| ^
Warning: 'splitnum' may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:10277:67:
10277 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| ^
note: 'splitnum' was declared here
clang -arch arm64 -std=gnu23 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -L/Library/Frameworks/R.framework/Resources/lib -L/opt/R/arm64/lib -o longitree.so init.o longitree_program.o -L/opt/gfortran/lib/gcc/aarch64-apple-darwin20.0/14.2.0 -L/opt/gfortran/lib -lemutls_w -lheapt_w -lgfortran -lquadmath -L/opt/gfortran/lib/gcc/aarch64-apple-darwin20.0/14.2.0 -L/opt/gfortran/lib -lemutls_w -lheapt_w -lgfortran -lquadmath -F/Library/Frameworks/R.framework/.. -framework R
ld: warning: ignoring duplicate libraries: '-lemutls_w', '-lgfortran', '-lheapt_w', '-lquadmath'
installing to /Volumes/Builds/packages/sonoma-arm64/results/4.6/longitree.Rcheck/00LOCK-longitree/00new/longitree/libs
** generating debug symbols (dSYM)
** R
** data
*** moving datasets to lazyload DB
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** testing if installed package can be loaded from temporary location
** checking absolute paths in shared objects and dynamic libraries
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (longitree)