* installing to library ‘/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages’
* installing *source* package ‘longitree’ ...
** this is package ‘longitree’ version ‘1.0.2’
** package ‘longitree’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘gcc-16 (Debian 16.2.0-1) 16.2.0’
using Fortran compiler: ‘GNU Fortran (Debian 16.2.0-1) 16.2.0’
make[1]: Entering directory '/home/hornik/tmp/scratch/RtmpOk4cl6/R.INSTALL1a37f77c2f25bc/longitree/src'
gcc-16 -I"/home/hornik/tmp/R.check/r-devel-gcc/Work/build/include" -DNDEBUG -I/usr/local/include -D_FORTIFY_SOURCE=3 -fpic -g -O2 -Wall -Wstrict-prototypes -pedantic -mtune=native -c init.c -o init.o
gfortran-16 -fpic -g -O2 -Wall -pedantic -mtune=native -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 getrngstate()
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1412:2:
1412 | call cvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1413:2:
1413 | call putrngstate()
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1414:2:
1414 | meangammacv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1415:2:
1415 | meangammar2cv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1416:2:
1416 | gammacvmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1417:2:
1417 | gammar2cvmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1418:2:
1418 | r2cvvalvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1419:2:
1419 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1420:2:
1420 | gammacv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1421:2:
1421 | r2cvvalvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1422:2:
1422 | gammar2cv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1423:2:
1423 | do cvloop = 1,Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1424:2:
1424 | traindatasize = ((sum(cvsize)-cvsize(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1425:2:
1425 | testdatasize = (cvsize(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1426:2:
1426 | allocate(traindata(traindatasize,colnum),testdata(testdatasize,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1427:2:
1427 | allocate(nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1428:2:
1428 | call cvdatachoice(XYDATA,msize,colnum,Ksplit,levelcount,cvloop,cvind,cvsize,traindata,testdata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1429:2:
1429 | call cvtreegrowth(traindatasize,testdatasize,traindata,testdata,nodenummattest,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1430:2:
1430 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,xydata,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1431:2:
1431 | beta2len,nodenummat,allfval,prunind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1432:2:
1432 | if(alpha < 1d0 .and. gamma < 0d0 .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1433:2:
1433 | call R2CV(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1434:2:
1434 | nodenummattest,testdatasize,maxdepth,r2cvval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1435:2:
1435 | r2cvvalvec(cvloop) = r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1436:2:
1436 | bestgammaval = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1437:2:
1437 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1438:2:
1438 | if(alpha == 1d0 .and. gamma >= 0d0 .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1439:2:
1439 | allocate(prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1440:2:
1440 | call cvgammatreepruning(prunind,traindatasize,testdatasize,gamma,maxdepth,nodenummat,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1441:2:
1441 | nodenummattest,allfval,prunenodenummat,prunenodenummattest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1442:2:
1442 | call R2CV(traindata,traindatasize,prunenodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1443:2:
1443 | prunenodenummattest,testdatasize,maxdepth,r2cvval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1444:2:
1444 | r2cvvalvec(cvloop) = r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1445:2:
1445 | deallocate(prunenodenummattest,prunenodenummat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1446:2:
1446 | bestgammaval = gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1447:2:
1447 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1448:2:
1448 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1449:2:
1449 | call cvbesttreepruning(traindatasize,testdatasize,maxdepth,nodenummat,nodenummattest,allfval,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1450:2:
1450 | levelcount,colnum,traindata,testdata,allgammaval,gammacv,gammar2cv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1451:2:
1451 | gammacvmat(cvloop,:) = gammacv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1452:2:
1452 | gammar2cvmat(cvloop,:) = gammar2cv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1453:2:
1453 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1454:2:
1454 | deallocate(traindata,testdata,nodenummat,nodenummattest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1455:2:
1455 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1456:2:
1456 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1457:2:
1457 | do i = 1,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1458:2:
1458 | meangammacv(i) = sum(gammacvmat(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1459:2:
1459 | meangammar2cv(i) = sum(gammar2cvmat(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1460:2:
1460 | if(meangammacv(i) > 0 .and. meangammar2cv(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1461:2:
1461 | meangammacv(i) = meangammacv(i) / dble(msize/levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1462:2:
1462 | meangammar2cv(i) = meangammar2cv(i) / dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1463:2:
1463 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1464:2:
1464 | meangammacv(i) = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1465:2:
1465 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1466:2:
1466 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1467:2:
1467 | maxgammasub = maxval(meangammacv) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1468:2:
1468 | do i = 1,size(meangammacv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1469:2:
1469 | if(meangammacv(i) < maxgammasub .and. meangammacv(i) >= 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1470:2:
1470 | bestgammaval = allgammaval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1471:2:
1471 | maxgammasub = meangammacv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1472:2:
1472 | r2cvvalmean = meangammar2cv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1473:2:
1473 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1474:2:
1474 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1475:2:
1475 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1476:2:
1476 | r2cvvalmean=sum(r2cvvalvec)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1477:2:
1477 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1480:2:
1480 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1481:2:
1481 | integer, intent(in) :: msize,colnum,Ksplit,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1482:2:
1482 | integer, intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1483:2:
1483 | real(8), intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1484:2:
1484 | integer, intent(out) :: cvind(msize), cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1485:2:
1485 | integer i,subnum, randval, cvsizecou(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1486:2:
1486 | integer, allocatable :: cvindsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1487:2:
1487 | real(8) randvalsub,ii
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1488:2:
1488 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1489:2:
1489 | cvsize(:) = subnum/Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1490:2:
1490 | do i = 1,(subnum - sum(cvsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1491:2:
1491 | cvsize(i) = cvsize(i) + 1
| 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 | allocate(cvindsub(subnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1494:2:
1494 | cvsizecou(:) = cvsize(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1495:2:
1495 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1496:2:
1496 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1497:2:
1497 | call unifrand(randvalsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1498:2:
1498 | randval = int(randvalsub * dble(Ksplit)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1499:2:
1499 | if(cvsizecou(randval) > 0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1500:2:
1500 | cvsizecou(randval) = cvsizecou(randval) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1501:2:
1501 | cvindsub(i) = randval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1502:2:
1502 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1503:2:
1503 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1504:2:
1504 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1505:2:
1505 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1506:2:
1506 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1507:2:
1507 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1508:2:
1508 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1511:2:
1511 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1512:2:
1512 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1513:2:
1513 | real(8), intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1514:2:
1514 | integer, intent(in) :: cvind(msize),cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1515:2:
1515 | 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:1516:2:
1516 | integer i,jtrain,jtest,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1517:2:
1517 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1518:2:
1518 | jtest = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1519:2:
1519 | jtrain = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1520:2:
1520 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1521:2:
1521 | if(cvind(((i-1)*levelcount)+1) == testind) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1522:2:
1522 | 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:1523:2:
1523 | jtest = jtest + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1524:2:
1524 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1525:2:
1525 | 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:1526:2:
1526 | jtrain = jtrain + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1527:2:
1527 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1528:2:
1528 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1533:2:
1533 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1534:2:
1534 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1535:2:
1535 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1536:2:
1536 | real(8), intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1537:2:
1537 | real(8), intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1538:2:
1538 | real(8), intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1539:2:
1539 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1540:2:
1540 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1541:2:
1541 | real(8),intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1542:2:
1542 | 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:1543:2:
1543 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1544:2:
1544 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1545:2:
1545 | real(8) splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1546:2:
1546 | real(8) fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1547:2:
1547 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1548:2:
1548 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1549:2:
1549 | real(8), allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1550:2:
1550 | real(8), allocatable :: xynodedata(:,:),xynodedatatest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1551:2:
1551 | real(8), allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1552:2:
1552 | integer, allocatable :: factor_idx(:), flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1553:2:
1553 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1554:2:
1554 | real(8) :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1555:2:
1555 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1556:2:
1556 | integer, allocatable :: w_subj_map(:), w_si_arr(:), w_subj_group(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1557:2:
1557 | real(8), allocatable :: w_ygroup(:), w_ytime(:), w_ysubject(:), w_ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1558:2:
1558 | real(8), allocatable :: w_ygroupcount(:), w_ytimecount(:), w_ysubjectcount(:), w_ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1559:2:
1559 | integer :: w_nsubjects, w_timecount, w_max_subj_id, gi, ti, si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1560:2:
1560 | real(8) :: ymean_const, sstotal_const, sstime_const
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1561:2:
1561 | real(8) :: ssgroup, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1562:2:
1562 | integer, allocatable :: ti_arr(:), factor_count(:), factor_offset(:), factor_obs(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1563:2:
1563 | real(8) :: total_y_sum, ygroup_mean1, ygroup_mean2, gt_mean
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1564:2:
1564 | real(8), allocatable :: w_ytime_sum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1565:2:
1565 | integer :: obs_i, f, lo, hi, mid
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1566:2:
1566 | nodenummat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1567:2:
1567 | nodenummat(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1568:2:
1568 | nodenummattest(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1569:2:
1569 | nodenummattest(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1570:2:
1570 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1571:2:
1571 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1572:2:
1572 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1573:2:
1573 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1574:2:
1574 | allocate(nodesize(2),nodesizetest(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1575:2:
1575 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1576:2:
1576 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1577:2:
1577 | call cvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1578:2:
1578 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1579:2:
1579 | 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:1580:2:
1580 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1581:2:
1581 | 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:1582:2:
1582 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1583:2:
1583 | allocate(anovadata(traindatasize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1584:2:
1584 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1585:2:
1585 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1586:2:
1586 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1587:2:
1587 | w_timecount = nint(maxval(traindata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1588:2:
1588 | w_max_subj_id = nint(maxval(traindata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1589:2:
1589 | allocate(w_subj_map(w_max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1590:2:
1590 | w_subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1591:2:
1591 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1592:2:
1592 | w_subj_map(nint(traindata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1593:2:
1593 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1594:2:
1594 | w_nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1595:2:
1595 | do i = 1, w_max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1596:2:
1596 | if (w_subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1597:2:
1597 | w_nsubjects = w_nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1598:2:
1598 | w_subj_map(i) = w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1599:2:
1599 | endif
| 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 | allocate(w_si_arr(traindatasize), w_ygroup(2), w_ytime(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1602:2:
1602 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1603:2:
1603 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1604:2:
1604 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1605:2:
1605 | allocate(w_subj_group(w_nsubjects))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1606:2:
1606 | allocate(ti_arr(traindatasize), w_ytime_sum(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1607:2:
1607 | dfvec_const(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1608:2:
1608 | dfvec_const(2) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1609:2:
1609 | dfvec_const(3) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1610:2:
1610 | dfvec_const(4) = w_nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1611:2:
1611 | dfvec_const(5) = (w_timecount - 1) * (w_nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1612:2:
1612 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1613:2:
1613 | ymean_const = sum(traindata(:,1)) / dble(traindatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1614:2:
1614 | sstotal_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1615:2:
1615 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1616:2:
1616 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1617:2:
1617 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1618:2:
1618 | ti = nint(traindata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1619:2:
1619 | si = w_subj_map(nint(traindata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1620:2:
1620 | w_si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1621:2:
1621 | ti_arr(i) = ti
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1622:2:
1622 | sstotal_const = sstotal_const + (traindata(i,1) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1623:2:
1623 | w_ytime(ti) = w_ytime(ti) + traindata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1624:2:
1624 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1625:2:
1625 | w_ysubject(si) = w_ysubject(si) + traindata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1626:2:
1626 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1627:2:
1627 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1628:2:
1628 | w_ytime_sum = w_ytime
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1629:2:
1629 | total_y_sum = ymean_const * dble(traindatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1630:2:
1630 | w_ytime = w_ytime / w_ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1631:2:
1631 | w_ysubject = w_ysubject / w_ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1632:2:
1632 | sstime_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1633:2:
1633 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1634:2:
1634 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1635:2:
1635 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1636:2:
1636 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1637:2:
1637 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1638:2:
1638 | allocate(factor_idx(traindatasize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1639:2:
1639 | 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:1640:2:
1640 | call cvdataval(traindata(:,ind1),traindatasize,facvalout,countvec(ind1-3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1641:2:
1641 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1642:2:
1642 | lo = 1; hi = countvec(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1643:2:
1643 | do while (lo <= hi)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1644:2:
1644 | mid = (lo + hi) / 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1645:2:
1645 | if (facvalout(mid) == traindata(i,ind1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1646:2:
1646 | factor_idx(i) = mid
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1647:2:
1647 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1648:2:
1648 | elseif (traindata(i,ind1) < facvalout(mid)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1649:2:
1649 | hi = mid - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1650:2:
1650 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1651:2:
1651 | lo = mid + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1652:2:
1652 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1653:2:
1653 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1654:2:
1654 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1655:2:
1655 | allocate(factor_count(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1656:2:
1656 | allocate(factor_offset(countvec(ind1-3)+1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1657:2:
1657 | allocate(factor_obs(traindatasize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1658:2:
1658 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1659:2:
1659 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1660:2:
1660 | f = factor_idx(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1661:2:
1661 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1662:2:
1662 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1663:2:
1663 | factor_offset(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1664:2:
1664 | do f = 2, countvec(ind1-3) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1665:2:
1665 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1666:2:
1666 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1667:2:
1667 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1668:2:
1668 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1669:2:
1669 | f = factor_idx(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1670:2:
1670 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1671:2:
1671 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1672:2:
1672 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1673:2:
1673 | if (datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1674:2:
1674 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1675:2:
1675 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(traindatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1676:2:
1676 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1677:2:
1677 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1678:2:
1678 | w_subj_group(:) = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1679:2:
1679 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1680:2:
1680 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1681:2:
1681 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1682:2:
1682 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1683:2:
1683 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1684:2:
1684 | obs_i = factor_obs(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1685:2:
1685 | w_ygroup(2) = w_ygroup(2) - traindata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1686:2:
1686 | w_ygroup(1) = w_ygroup(1) + traindata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1687:2:
1687 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1688:2:
1688 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1689:2:
1689 | ti = ti_arr(obs_i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1690:2:
1690 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - traindata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1691:2:
1691 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + traindata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1692:2:
1692 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1693:2:
1693 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1694:2:
1694 | w_subj_group(w_si_arr(obs_i)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1695:2:
1695 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1696:2:
1696 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1697:2:
1697 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1698:2:
1698 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1699:2:
1699 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1700:2:
1700 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1701:2:
1701 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1702:2:
1702 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1703:2:
1703 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1704:2:
1704 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1705:2:
1705 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1706:2:
1706 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1707:2:
1707 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1708:2:
1708 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1709:2:
1709 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1710:2:
1710 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1711:2:
1711 | if (w_subj_group(si) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1712:2:
1712 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1713:2:
1713 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1714:2:
1714 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1715:2:
1715 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1716:2:
1716 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1717:2:
1717 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1718:2:
1718 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1719:2:
1719 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1720:2:
1720 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1721:2:
1721 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1722:2:
1722 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1723:2:
1723 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1724:2:
1724 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1725:2:
1725 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1726:2:
1726 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1727:2:
1727 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1728:2:
1728 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1729:2:
1729 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1730:2:
1730 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1731:2:
1731 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1732:2:
1732 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1733:2:
1733 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1734:2:
1734 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1735:2:
1735 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1736:2:
1736 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1737:2:
1737 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1738:2:
1738 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1739:2:
1739 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1740:2:
1740 | do i = 1, traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1741:2:
1741 | gi = splitindmat(ind2, factor_idx(i)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1742:2:
1742 | w_ygroup(gi) = w_ygroup(gi) + traindata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1743:2:
1743 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1744:2:
1744 | ti = ti_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1745:2:
1745 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + traindata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1746:2:
1746 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1747:2:
1747 | w_subj_group(w_si_arr(i)) = gi
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1748:2:
1748 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1749:2:
1749 | w_ygroup = w_ygroup / w_ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1750:2:
1750 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1751:2:
1751 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1752:2:
1752 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1753:2:
1753 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1754:2:
1754 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1755:2:
1755 | do gi = 1, 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1756:2:
1756 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1757:2:
1757 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1758:2:
1758 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1759:2:
1759 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1760:2:
1760 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1761:2:
1761 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1762:2:
1762 | sssubject = sssubject + w_ysubjectcount(si) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1763:2:
1763 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1764:2:
1764 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1765:2:
1765 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1766:2:
1766 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1767:2:
1767 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1768:2:
1768 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1769:2:
1769 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1770:2:
1770 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1771:2:
1771 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1772:2:
1772 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1773:2:
1773 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1774:2:
1774 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1775:2:
1775 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1776:2:
1776 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1777:2:
1777 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1778:2:
1778 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1779:2:
1779 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1780:2:
1780 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1781:2:
1781 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1782:2:
1782 | deallocate(splitindmat,facvalout,factor_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1783:2:
1783 | deallocate(factor_count, factor_offset, factor_obs)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1784:2:
1784 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1785:2:
1785 | 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:1786:2:
1786 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount, w_subj_group)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1787:2:
1787 | deallocate(ti_arr, w_ytime_sum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1788:2:
1788 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1789:2:
1789 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1790:2:
1790 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1791:2:
1791 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1792:2:
1792 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1793:2:
1793 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1794:2:
1794 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1795:2:
1795 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1796:2:
1796 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1797:2:
1797 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1798:2:
1798 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1799:2:
1799 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1800:2:
1800 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1801:2:
1801 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1802:2:
1802 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1803:2:
1803 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1804:2:
1804 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1805:2:
1805 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1806:2:
1806 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1807:2:
1807 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1808:2:
1808 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1809:2:
1809 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1810:2:
1810 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1811:2:
1811 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1812:2:
1812 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1813:2:
1813 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1814:2:
1814 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1815:2:
1815 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1816:2:
1816 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1817:2:
1817 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1818:2:
1818 | splitind1 = ind1vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1819:2:
1819 | splitind2 = ind2vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1820:2:
1820 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1821:2:
1821 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1822:2:
1822 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1823:2:
1823 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1824:2:
1824 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1825:2:
1825 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1826:2:
1826 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1827:2:
1827 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1828:2:
1828 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1829:2:
1829 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1830:2:
1830 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1831:2:
1831 | 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:1832:2:
1832 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1833:2:
1833 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1834:2:
1834 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1835:2:
1835 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1836:2:
1836 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1837:2:
1837 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1838:2:
1838 | call cvdatasum(xydata(:,splitind1),msize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1839:2:
1839 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1840:2:
1840 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1841:2:
1841 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1842:2:
1842 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1843:2:
1843 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1844:2:
1844 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1845:2:
1845 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1846:2:
1846 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1847:2:
1847 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1848:2:
1848 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1849:2:
1849 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1850:2:
1850 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1851:2:
1851 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1852:2:
1852 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1853:2:
1853 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1854:2:
1854 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1855:2:
1855 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1856:2:
1856 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1857:2:
1857 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1858:2:
1858 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1859:2:
1859 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1860:2:
1860 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1861:2:
1861 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1862:2:
1862 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1863:2:
1863 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1864:2:
1864 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1865:2:
1865 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1866:2:
1866 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1867:2:
1867 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1868:2:
1868 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1869:2:
1869 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1870:2:
1870 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1871:2:
1871 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1872:2:
1872 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1873:2:
1873 | splitind1 = ind1vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1874:2:
1874 | splitind2 = ind2vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1875:2:
1875 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1876:2:
1876 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1877:2:
1877 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1878:2:
1878 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1879:2:
1879 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1880:2:
1880 | 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:1881:2:
1881 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1882:2:
1882 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1883:2:
1883 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1884:2:
1884 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1885:2:
1885 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1886:2:
1886 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1887:2:
1887 | call cvdatasum(xydata(:,splitind1),msize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1888:2:
1888 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1889:2:
1889 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1890:2:
1890 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1891:2:
1891 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1892:2:
1892 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1893:2:
1893 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1894:2:
1894 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1895:2:
1895 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1896:2:
1896 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1897:2:
1897 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1898:2:
1898 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1899:2:
1899 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1900:2:
1900 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1901:2:
1901 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1902:2:
1902 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1903:2:
1903 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1904:2:
1904 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1905:2:
1905 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1906:2:
1906 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1907:2:
1907 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1908:2:
1908 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1909:2:
1909 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1910:2:
1910 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1911:2:
1911 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1912:2:
1912 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1913:2:
1913 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1914:2:
1914 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1915:2:
1915 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1916:2:
1916 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1917:2:
1917 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1918:2:
1918 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1919:2:
1919 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1920:2:
1920 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1921:2:
1921 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1922:2:
1922 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1923:2:
1923 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1924:2:
1924 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1925:2:
1925 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1926:2:
1926 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1927:2:
1927 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1928:2:
1928 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1929:2:
1929 | if(.not. allocated(splitfacval)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1930:2:
1930 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1931:2:
1931 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1932:2:
1932 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1933:2:
1933 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1934:2:
1934 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1935:2:
1935 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1936:2:
1936 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1937:2:
1937 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1938:2:
1938 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1939:2:
1939 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1940:2:
1940 | call cvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1941:2:
1941 | hierarchy+1,nodenummat,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1942:2:
1942 | call cvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1943:2:
1943 | hierarchy+1,nodenummattest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1944:2:
1944 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1945:2:
1945 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1946:2:
1946 | nodesizetest(1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1947:2:
1947 | nodesizetest(2) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1948:2:
1948 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1949:2:
1949 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1950:2:
1950 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1951:2:
1951 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1952:2:
1952 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1953:2:
1953 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1954:2:
1954 | 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:1955:2:
1955 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1956:2:
1956 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1957:2:
1957 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1958:2:
1958 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1959:2:
1959 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1960:2:
1960 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1961:2:
1961 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1962:2:
1962 | goto 2001
| 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 | call cvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,maxdepth,nodenummat,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1965:2:
1965 | call cvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,maxdepth,nodenummattest,nodesizetest(nodeloop),xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1966:2:
1966 | call cvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1967:2:
1967 | if(sum(splitnum) == 0) 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 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1972:2:
1972 | 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:1973:2:
1973 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1974:2:
1974 | 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:1975:2:
1975 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1976:2:
1976 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1977:2:
1977 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1978:2:
1978 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1979:2:
1979 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1980:2:
1980 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1981:2:
1981 | w_timecount = nint(maxval(xynodedata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1982:2:
1982 | w_max_subj_id = nint(maxval(xynodedata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1983:2:
1983 | allocate(w_subj_map(w_max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1984:2:
1984 | w_subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1985:2:
1985 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1986:2:
1986 | w_subj_map(nint(xynodedata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1987:2:
1987 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1988:2:
1988 | w_nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1989:2:
1989 | do i = 1, w_max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1990:2:
1990 | if (w_subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1991:2:
1991 | w_nsubjects = w_nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1992:2:
1992 | w_subj_map(i) = w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1993:2:
1993 | endif
| 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 | allocate(w_si_arr(nodesize(nodeloop)), w_ygroup(2), w_ytime(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1996:2:
1996 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1997:2:
1997 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1998:2:
1998 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:1999:2:
1999 | allocate(w_subj_group(w_nsubjects))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2000:2:
2000 | allocate(ti_arr(nodesize(nodeloop)), w_ytime_sum(w_timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2001:2:
2001 | dfvec_const(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2002:2:
2002 | dfvec_const(2) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2003:2:
2003 | dfvec_const(3) = w_timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2004:2:
2004 | dfvec_const(4) = w_nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2005:2:
2005 | dfvec_const(5) = (w_timecount - 1) * (w_nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2006:2:
2006 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2007:2:
2007 | ymean_const = sum(xynodedata(:,1)) / dble(nodesize(nodeloop))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2008:2:
2008 | sstotal_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2009:2:
2009 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2010:2:
2010 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2011:2:
2011 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2012:2:
2012 | ti = nint(xynodedata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2013:2:
2013 | si = w_subj_map(nint(xynodedata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2014:2:
2014 | w_si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2015:2:
2015 | ti_arr(i) = ti
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2016:2:
2016 | sstotal_const = sstotal_const + (xynodedata(i,1) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2017:2:
2017 | w_ytime(ti) = w_ytime(ti) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2018:2:
2018 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2019:2:
2019 | w_ysubject(si) = w_ysubject(si) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2020:2:
2020 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2021:2:
2021 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2022:2:
2022 | w_ytime_sum = w_ytime
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2023:2:
2023 | total_y_sum = ymean_const * dble(nodesize(nodeloop))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2024:2:
2024 | w_ytime = w_ytime / w_ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2025:2:
2025 | w_ysubject = w_ysubject / w_ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2026:2:
2026 | sstime_const = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2027:2:
2027 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2028:2:
2028 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2029:2:
2029 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2030:2:
2030 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2031:2:
2031 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2032:2:
2032 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2033:2:
2033 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2034:2:
2034 | if(allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2035:2:
2035 | deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2036:2:
2036 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2037:2:
2037 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2038:2:
2038 | if(allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2039:2:
2039 | deallocate(facvalout)
| 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 | allocate(facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2042:2:
2042 | allocate(factor_idx(nodesize(nodeloop)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2043:2:
2043 | 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:2044:2:
2044 | call cvdataval(xynodedata(:,ind1),nodesize(nodeloop),facvalout,countvec(ind1-3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2045:2:
2045 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2046:2:
2046 | lo = 1; hi = countvec(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2047:2:
2047 | do while (lo <= hi)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2048:2:
2048 | mid = (lo + hi) / 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2049:2:
2049 | if (facvalout(mid) == xynodedata(i,ind1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2050:2:
2050 | factor_idx(i) = mid
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2051:2:
2051 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2052:2:
2052 | elseif (xynodedata(i,ind1) < facvalout(mid)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2053:2:
2053 | hi = mid - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2054:2:
2054 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2055:2:
2055 | lo = mid + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2056:2:
2056 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2057:2:
2057 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2058:2:
2058 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2059:2:
2059 | allocate(factor_count(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2060:2:
2060 | allocate(factor_offset(countvec(ind1-3)+1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2061:2:
2061 | allocate(factor_obs(nodesize(nodeloop)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2062:2:
2062 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2063:2:
2063 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2064:2:
2064 | f = factor_idx(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2065:2:
2065 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2066:2:
2066 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2067:2:
2067 | factor_offset(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2068:2:
2068 | do f = 2, countvec(ind1-3) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2069:2:
2069 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2070:2:
2070 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2071:2:
2071 | factor_count(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2072:2:
2072 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2073:2:
2073 | f = factor_idx(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2074:2:
2074 | factor_count(f) = factor_count(f) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2075:2:
2075 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2076:2:
2076 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2077:2:
2077 | if (datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2078:2:
2078 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2079:2:
2079 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(nodesize(nodeloop))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2080:2:
2080 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2081:2:
2081 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2082:2:
2082 | w_subj_group(:) = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2083:2:
2083 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2084:2:
2084 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2085:2:
2085 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2086:2:
2086 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2087:2:
2087 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2088:2:
2088 | obs_i = factor_obs(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2089:2:
2089 | w_ygroup(2) = w_ygroup(2) - xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2090:2:
2090 | w_ygroup(1) = w_ygroup(1) + xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2091:2:
2091 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2092:2:
2092 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2093:2:
2093 | ti = ti_arr(obs_i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2094:2:
2094 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2095:2:
2095 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + xynodedata(obs_i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2096:2:
2096 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2097:2:
2097 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2098:2:
2098 | w_subj_group(w_si_arr(obs_i)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2099:2:
2099 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2100:2:
2100 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2101:2:
2101 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2102:2:
2102 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2103:2:
2103 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2104:2:
2104 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2105:2:
2105 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2106:2:
2106 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2107:2:
2107 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2108:2:
2108 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2109:2:
2109 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2110:2:
2110 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2111:2:
2111 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2112:2:
2112 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2113:2:
2113 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2114:2:
2114 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2115:2:
2115 | if (w_subj_group(si) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2116:2:
2116 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2117:2:
2117 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2118:2:
2118 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2119:2:
2119 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2120:2:
2120 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2121:2:
2121 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2122:2:
2122 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2123:2:
2123 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2124:2:
2124 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2125:2:
2125 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2126:2:
2126 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2127:2:
2127 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2128:2:
2128 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2129:2:
2129 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2130:2:
2130 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2131:2:
2131 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2132:2:
2132 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2133:2:
2133 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2134:2:
2134 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2135:2:
2135 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2136:2:
2136 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2137:2:
2137 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2138:2:
2138 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2139:2:
2139 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2140:2:
2140 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2141:2:
2141 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2142:2:
2142 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2143:2:
2143 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2144:2:
2144 | do i = 1, nodesize(nodeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2145:2:
2145 | gi = splitindmat(ind2, factor_idx(i)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2146:2:
2146 | w_ygroup(gi) = w_ygroup(gi) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2147:2:
2147 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2148:2:
2148 | ti = ti_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2149:2:
2149 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + xynodedata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2150:2:
2150 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2151:2:
2151 | w_subj_group(w_si_arr(i)) = gi
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2152:2:
2152 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2153:2:
2153 | w_ygroup = w_ygroup / w_ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2154:2:
2154 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2155:2:
2155 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2156:2:
2156 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2157:2:
2157 | ssgrouptime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2158:2:
2158 | do ti = 1, w_timecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2159:2:
2159 | do gi = 1, 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2160:2:
2160 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2161:2:
2161 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2162:2:
2162 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2163:2:
2163 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2164:2:
2164 | sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2165:2:
2165 | do si = 1, w_nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2166:2:
2166 | sssubject = sssubject + w_ysubjectcount(si) * &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2167:2:
2167 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2168:2:
2168 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2169:2:
2169 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2170:2:
2170 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2171:2:
2171 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2172:2:
2172 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2173:2:
2173 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2174:2:
2174 | groupsum_cache(indcou) = w_ygroupcount(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2175:2:
2175 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2176:2:
2176 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2177:2:
2177 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2178:2:
2178 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2179:2:
2179 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2180:2:
2180 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2181:2:
2181 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2182:2:
2182 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2183:2:
2183 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2184:2:
2184 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2185:2:
2185 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2186:2:
2186 | deallocate(splitindmat,facvalout,factor_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2187:2:
2187 | deallocate(factor_count, factor_offset, factor_obs)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2188:6:
2188 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2189:2:
2189 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2190:2:
2190 | 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:2191:2:
2191 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2192:2:
2192 | deallocate(ti_arr, w_ytime_sum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2193:2:
2193 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2194:2:
2194 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2195:2:
2195 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2196:2:
2196 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2197:2:
2197 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2198:2:
2198 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2199:2:
2199 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2200:2:
2200 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2201:2:
2201 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2202:2:
2202 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2203:2:
2203 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2204:2:
2204 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2205:2:
2205 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2206:2:
2206 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2207:2:
2207 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2208:2:
2208 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2209:2:
2209 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2210:2:
2210 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2211:2:
2211 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2212:2:
2212 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2213:2:
2213 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2214:2:
2214 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2215:2:
2215 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2216:2:
2216 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2217:2:
2217 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2218:2:
2218 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2219:2:
2219 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2220:2:
2220 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2221:2:
2221 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2222:2:
2222 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2223:2:
2223 | splitind1 = ind1vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2224:2:
2224 | splitind2 = ind2vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2225:2:
2225 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2226:2:
2226 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2227:2:
2227 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2228:2:
2228 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2229:2:
2229 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2230:2:
2230 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2231:2:
2231 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2232:2:
2232 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2233:2:
2233 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2234:2:
2234 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2235:2:
2235 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2236:2:
2236 | 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:2237:2:
2237 | 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:2238:2:
2238 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2239:2:
2239 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2240:2:
2240 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2241:2:
2241 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2242:2:
2242 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2243:2:
2243 | call cvdatasum(xydata(:,splitind1),msize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2244:2:
2244 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2245:2:
2245 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2246:2:
2246 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2247:2:
2247 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2248:2:
2248 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2249:2:
2249 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2250:2:
2250 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2251:2:
2251 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2252:2:
2252 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2253:2:
2253 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2254:2:
2254 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2255:2:
2255 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2256:2:
2256 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2257:2:
2257 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2258:2:
2258 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2259:2:
2259 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2260:2:
2260 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2261:2:
2261 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2262:2:
2262 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2263:2:
2263 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2264:2:
2264 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2265:2:
2265 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2266:2:
2266 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2267:2:
2267 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2268:2:
2268 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2269:2:
2269 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2270:2:
2270 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2271:2:
2271 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2272:2:
2272 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2273:2:
2273 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2274:2:
2274 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2275:2:
2275 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2276:2:
2276 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2277:2:
2277 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2278:2:
2278 | splitind1 = ind1vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2279:2:
2279 | splitind2 = ind2vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2280:2:
2280 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2281:2:
2281 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2282:2:
2282 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2283:2:
2283 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2284:2:
2284 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2285:2:
2285 | 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:2286:2:
2286 | 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:2287:2:
2287 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2288:2:
2288 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2289:2:
2289 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2290:2:
2290 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2291:2:
2291 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2292:2:
2292 | call cvdatasum(xydata(:,splitind1),msize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2293:2:
2293 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2294:2:
2294 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2295:2:
2295 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2296:2:
2296 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2297:2:
2297 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2298:2:
2298 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2299:2:
2299 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2300:2:
2300 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2301:2:
2301 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2302:2:
2302 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2303:2:
2303 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2304:2:
2304 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2305:2:
2305 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2306:2:
2306 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2307:2:
2307 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2308:2:
2308 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2309:2:
2309 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2310:2:
2310 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2311:2:
2311 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2312:2:
2312 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2313:2:
2313 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2314:2:
2314 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2315:2:
2315 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2316:2:
2316 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2317:2:
2317 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2318:2:
2318 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2319:2:
2319 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2320:2:
2320 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2321:2:
2321 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2322:2:
2322 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2323:2:
2323 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2324:2:
2324 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2325:2:
2325 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2326:2:
2326 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2327:2:
2327 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2328:2:
2328 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2329:2:
2329 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2330:2:
2330 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2331:2:
2331 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2332:2:
2332 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2333:2:
2333 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2334:2:
2334 | if(.not. allocated(splitfacval)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2335:2:
2335 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2336:2:
2336 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2337:2:
2337 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2338:2:
2338 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2339:2:
2339 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2340:2:
2340 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2341:2:
2341 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2342:2:
2342 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2343:2:
2343 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2344:2:
2344 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2345:2:
2345 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2346:2:
2346 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2347:2:
2347 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2348:2:
2348 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2349:2:
2349 | if(.not. allocated(nodesizesubtest)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2350:2:
2350 | allocate(nodesizesubtest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2351:2:
2351 | nodesizesubtest(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2352:2:
2352 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2353:2:
2353 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2354:2:
2354 | call cvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2355:2:
2355 | hierarchy+1,nodenummat,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2356:2:
2356 | call cvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2357:2:
2357 | hierarchy+1,nodenummattest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2358:2:
2358 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2359:2:
2359 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2360:2:
2360 | nodesizesubtest(2*nodeloop-1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2361:2:
2361 | nodesizesubtest(2*nodeloop) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2362:6:
2362 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2363:2:
2363 | if(allocated(fval_cache)) deallocate(fval_cache)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2364:2:
2364 | if(allocated(groupsum_cache)) deallocate(groupsum_cache)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2365:2:
2365 | if(allocated(flat_idx_vec)) deallocate(flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2366:2:
2366 | if(allocated(factor_idx)) deallocate(factor_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2367:2:
2367 | if(allocated(w_subj_map)) deallocate(w_subj_map)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2368:2:
2368 | if(allocated(w_si_arr)) deallocate(w_si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2369:2:
2369 | if(allocated(w_ygroup)) deallocate(w_ygroup)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2370:2:
2370 | if(allocated(w_ytime)) deallocate(w_ytime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2371:2:
2371 | if(allocated(w_ysubject)) deallocate(w_ysubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2372:2:
2372 | if(allocated(w_ygrouptime)) deallocate(w_ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2373:2:
2373 | if(allocated(w_ygroupcount)) deallocate(w_ygroupcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2374:2:
2374 | if(allocated(w_ytimecount)) deallocate(w_ytimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2375:2:
2375 | if(allocated(w_ysubjectcount)) deallocate(w_ysubjectcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2376:2:
2376 | if(allocated(w_ygrouptimecount)) deallocate(w_ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2377:2:
2377 | deallocate(anovadata,xynodedata,xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2378:2:
2378 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2379:2:
2379 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2380:2:
2380 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2381:2:
2381 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2382:2:
2382 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2383:2:
2383 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2384:2:
2384 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2385:2:
2385 | nodesizetest(:) = nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2386:2:
2386 | deallocate(nodesizesub,nodesizesubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2387:2:
2387 | 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:2393:2:
2393 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2394:2:
2394 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2395:2:
2395 | real(8), intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2396:2:
2396 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2397:2:
2397 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2398:2:
2398 | real(8) datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2399:2:
2399 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2400:2:
2400 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2401:2:
2401 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2402:2:
2402 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2403:2:
2403 | call cvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2404:2:
2404 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2405:2:
2405 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2406:2:
2406 | call cvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2407:2:
2407 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2408:2:
2408 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2409:2:
2409 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2410:2:
2410 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2413:2:
2413 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2414:2:
2414 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2415:2:
2415 | real(8),intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2416:2:
2416 | real(8) datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2417:2:
2417 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2418:2:
2418 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2419:2:
2419 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2420:2:
2420 | call cvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2421:2:
2421 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2422:2:
2422 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2423:2:
2423 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2424:2:
2424 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2425:2:
2425 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2426:2:
2426 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2427:2:
2427 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2430:2:
2430 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2431:2:
2431 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2432:2:
2432 | real(8),intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2433:2:
2433 | real(8) x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2434:2:
2434 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2435:2:
2435 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2436:2:
2436 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2437:2:
2437 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2438:2:
2438 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2439:2:
2439 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2440:2:
2440 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2441:2:
2441 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2442:2:
2442 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2443:2:
2443 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2444:2:
2444 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2445:2:
2445 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2446:2:
2446 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2447:2:
2447 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2448:2:
2448 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2449:2:
2449 | i=i+1
| 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 (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2453:2:
2453 | call cvdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2454:2:
2454 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2455:2:
2455 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2456:2:
2456 | call cvdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2457:2:
2457 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2458:2:
2458 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2461:2:
2461 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2462:2:
2462 | integer, intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2463:2:
2463 | real(8), intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2464:2:
2464 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2465:2:
2465 | real(8), intent(out) :: facval(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2466:2:
2466 | real(8) :: datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2467:2:
2467 | integer :: j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2468:2:
2468 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2469:2:
2469 | call cvdatasort(datavecsub, 1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2470:2:
2470 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2471:2:
2471 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2472:2:
2472 | do j = 2, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2473:2:
2473 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2474:2:
2474 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2475:2:
2475 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2476:2:
2476 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2477:2:
2477 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2478:2:
2478 | facsum = k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2481:2:
2481 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2482:2:
2482 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2483:2:
2483 | real(8), intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2484:2:
2484 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2485:2:
2485 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2486:2:
2486 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2487:2:
2487 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2488:2:
2488 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2489:2:
2489 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2490:2:
2490 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2491:2:
2491 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2492:2:
2492 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2493:2:
2493 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2494:2:
2494 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2495:2:
2495 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2496:2:
2496 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2497:2:
2497 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2498:2:
2498 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2499:2:
2499 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2500:2:
2500 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2501:2:
2501 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2502:2:
2502 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2503:2:
2503 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2504:2:
2504 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2505:2:
2505 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2506:2:
2506 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2507:2:
2507 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2508:2:
2508 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2509:2:
2509 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2510:2:
2510 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2511:2:
2511 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2512:2:
2512 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2513:2:
2513 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2514:2:
2514 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2515:2:
2515 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2518:2:
2518 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2519:2:
2519 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2520:2:
2520 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2521:2:
2521 | real(8), intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2522:2:
2522 | real(8), intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2523:2:
2523 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2524:2:
2524 | real(8) facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2525:2:
2525 | call cvdataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2526:2:
2526 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2527:2:
2527 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2528:2:
2528 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2529:2:
2529 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2530:2:
2530 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2531:2:
2531 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2532:2:
2532 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2533:2:
2533 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2534:2:
2534 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2535:2:
2535 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2538:2:
2538 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2539:2:
2539 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2540:2:
2540 | real(8), intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2541:2:
2541 | real(8), intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2542:2:
2542 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2543:2:
2543 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2544:2:
2544 | real(8) ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2545:2:
2545 | real(8) ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2546:2:
2546 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2547:2:
2547 | real(8), allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2548:2:
2548 | real(8), allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2549:2:
2549 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2550:2:
2550 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2551:2:
2551 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2552:2:
2552 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2553:2:
2553 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2554:2:
2554 | subj_map(nint(anovadata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2555:2:
2555 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2556:2:
2556 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2557:2:
2557 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2558:2:
2558 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2559:2:
2559 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2560:2:
2560 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2561:2:
2561 | endif
| 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 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2564:2:
2564 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2565:2:
2565 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2566:2:
2566 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2567:2:
2567 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2568:2:
2568 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2569:2:
2569 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2570:2:
2570 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2571:2:
2571 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2572:2:
2572 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2573:2:
2573 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2574:2:
2574 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2575:2:
2575 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2576:2:
2576 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2577:2:
2577 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2578:2:
2578 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2579:2:
2579 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2580:2:
2580 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2581:2:
2581 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2582:2:
2582 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2583:2:
2583 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2584:2:
2584 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2585:2:
2585 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2586:2:
2586 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2587:2:
2587 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2588:2:
2588 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2589:2:
2589 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2590:2:
2590 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2591:2:
2591 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2592:2:
2592 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2593:2:
2593 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2594:2:
2594 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2595:2:
2595 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2596:2:
2596 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2597:2:
2597 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2598:2:
2598 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2599:2:
2599 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2600:2:
2600 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2601:2:
2601 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2602:2:
2602 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2603:2:
2603 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2604:2:
2604 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2605:2:
2605 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2606:2:
2606 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2607:2:
2607 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2608:2:
2608 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2609:2:
2609 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2610:2:
2610 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2611:2:
2611 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2612:2:
2612 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2613:2:
2613 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2614:2:
2614 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2617:2:
2617 | subj_map, nsubjects, timecount, max_subj_id, &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2618:2:
2618 | si_arr, ygroup, ytime, ysubject, ygrouptime, &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2619:2:
2619 | ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2620:2:
2620 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2621:2:
2621 | integer, intent(in) :: msize, nsubjects, timecount, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2622:2:
2622 | real(8), intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2623:2:
2623 | real(8), intent(out) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2624:2:
2624 | integer, intent(out) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2625:2:
2625 | integer, intent(in) :: subj_map(max_subj_id)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2626:2:
2626 | integer, intent(inout) :: si_arr(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2627:2:
2627 | real(8), intent(inout) :: ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2,timecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2628:2:
2628 | real(8), intent(inout) :: ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2,timecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2629:2:
2629 | integer :: i, gi, ti, si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2630:2:
2630 | real(8) :: ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr, ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2631:2:
2631 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2632:2:
2632 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2633:2:
2633 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2634:2:
2634 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2635:2:
2635 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2636:2:
2636 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2637:2:
2637 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2638:2:
2638 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2639:2:
2639 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2640:2:
2640 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2641:2:
2641 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2642:2:
2642 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2643:2:
2643 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2644:2:
2644 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2645:2:
2645 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2646:2:
2646 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2647:2:
2647 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2648:2:
2648 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2649:2:
2649 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2650:2:
2650 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2651:2:
2651 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2652:2:
2652 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2653:2:
2653 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2654:2:
2654 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2655:2:
2655 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2656:2:
2656 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2657:2:
2657 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2658:2:
2658 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2659:2:
2659 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2660:2:
2660 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2661:2:
2661 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2662:2:
2662 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2663:2:
2663 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2664:2:
2664 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2665:2:
2665 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2666:2:
2666 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2667:2:
2667 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2668:2:
2668 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2669:2:
2669 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2670:2:
2670 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2671:2:
2671 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2672:2:
2672 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2673:2:
2673 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2674:2:
2674 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2675:2:
2675 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2676:2:
2676 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2679:2:
2679 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2680:2:
2680 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2681:2:
2681 | real(8), intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2682:2:
2682 | real(8), intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2683:2:
2683 | REAL(8) DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2684:2:
2684 | real(8) xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2685:2:
2685 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2686:2:
2686 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2687:2:
2687 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2688:2:
2688 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2689:2:
2689 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2690:2:
2690 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2691:2:
2691 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2692:2:
2692 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2693:2:
2693 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2694:2:
2694 | call cvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2695:2:
2695 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2696:2:
2696 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2697:2:
2697 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2698:2:
2698 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2699:2:
2699 | call cvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2700:2:
2700 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2701:2:
2701 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2702:2:
2702 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2703:2:
2703 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2704:2:
2704 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2705:2:
2705 | 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:2706:2:
2706 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2708:2:
2708 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2711:2:
2711 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2712:2:
2712 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2713:2:
2713 | real(8),parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2714:2:
2714 | real(8),intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2715:2:
2715 | real(8),intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2716:2:
2716 | real(8) res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2717:2:
2717 | real(8) inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2719:2:
2719 | real(8) h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2720:2:
2720 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2721:2:
2721 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2722:2:
2722 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2723:2:
2723 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2724:2:
2724 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2725:2:
2725 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2730:2:
2730 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2731:2:
2731 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2732:2:
2732 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2737:2:
2737 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2738:2:
2738 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2739:2:
2739 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2740:2:
2740 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2741:2:
2741 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2742:2:
2742 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2743:2:
2743 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2744:2:
2744 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2745:2:
2745 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2746:2:
2746 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2747:2:
2747 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2748:2:
2748 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2749:2:
2749 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2750:2:
2750 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2751:2:
2751 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2752:2:
2752 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2753:2:
2753 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2754:2:
2754 | s0=s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2755:2:
2755 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2758:2:
2758 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2759:2:
2759 | real(8),intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2761:2:
2761 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2762:2:
2762 | real(8),parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2789:2:
2789 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2798:2:
2798 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2799:2:
2799 | real(8),parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2805:2:
2805 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2839:2:
2839 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2850:2:
2850 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2851:2:
2851 | real(8),intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2852:2:
2852 | real(8),intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2853:2:
2853 | real(8) zval,form1,form2,form3,form4,form5,form6,form7,form8,form9
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2854:2:
2854 | real(8) inv_weight, inv_beta1, inv_beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2855:2:
2855 | real(8) df_ratio1, df_ratio2, df11_half, df21_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2856:2:
2856 | real(8) df12_sum_half, df22_sum_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2857:2:
2857 | inv_weight = 1d0 - weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2858:2:
2858 | inv_beta1 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2859:2:
2859 | inv_beta2 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2860:2:
2860 | df_ratio1 = df11/df12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2861:2:
2861 | df_ratio2 = df21/df22
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2862:2:
2862 | df11_half = df11/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2863:2:
2863 | df21_half = df21/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2864:2:
2864 | df12_sum_half = (df11+df12)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2865:2:
2865 | df22_sum_half = (df21+df22)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2866:2:
2866 | zval = (z-(inv_weight*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2867:2:
2867 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2868:2:
2868 | form2 = inv_beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2869:2:
2869 | form3 = df_ratio1**df11_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2870:2:
2870 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2871:2:
2871 | form5 = (1d0+(df_ratio1*zval))**df12_sum_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2872:2:
2872 | form6 = inv_beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2873:2:
2873 | form7 = df_ratio2**df21_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2874:2:
2874 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2875:2:
2875 | form9 = (1d0+(df_ratio2*v))**df22_sum_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2876:2:
2876 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2879:2:
2879 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2880:2:
2880 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2881:2:
2881 | real(8),intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2882:2:
2882 | real(8) datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2883:2:
2883 | real(8), intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2884:2:
2884 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2885:2:
2885 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2886:2:
2886 | call cvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2887:2:
2887 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2888:2:
2888 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2889:2:
2889 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2890:2:
2890 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2891:2:
2891 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2892:2:
2892 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2893:2:
2893 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2894:2:
2894 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2898:2:
2898 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2899:2:
2899 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2900:2:
2900 | real(8), intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2901:2:
2901 | integer, intent(inout) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2902:2:
2902 | integer, intent(out) :: sizel,sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2903:2:
2903 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2904:2:
2904 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2905:2:
2905 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2906:2:
2906 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2907:2:
2907 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2908:2:
2908 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2909:2:
2909 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2910:2:
2910 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2911:2:
2911 | nodenummat(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2912:2:
2912 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2913:2:
2913 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2914:2:
2914 | nodenummat(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2915:2:
2915 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2916:2:
2916 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2917:2:
2917 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2918:2:
2918 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2919:2:
2919 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2920:2:
2920 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2923:2:
2923 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2924:2:
2924 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2925:2:
2925 | real(8), intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2926:2:
2926 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2927:2:
2927 | real(8), intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2928:2:
2928 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2929:2:
2929 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2930:2:
2930 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2931:2:
2931 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2932:2:
2932 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2933:2:
2933 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2934:2:
2934 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2935:2:
2935 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2939:2:
2939 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2940:2:
2940 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2941:2:
2941 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2942:2:
2942 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2943:2:
2943 | real(8), intent(out) :: r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2944:2:
2944 | real(8), allocatable :: timepred(:,:),r2cvnumsub(:,:), timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2945:2:
2945 | real(8) r2cvnum,r2cvden,ymean
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2946:2:
2946 | integer i,j,k,l,maxactive_depth,nidx,tidx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2947:2:
2947 | allocate(timepred(((2**maxdepth)-1),levelcount),r2cvnumsub(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2948:2:
2948 | allocate(timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2949:2:
2949 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2950:2:
2950 | r2cvnumsub(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2951:2:
2951 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2952:2:
2952 | maxactive_depth = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2953:2:
2953 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2954:2:
2954 | if(sum(nodenummat(:,i)) == 0) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2955:2:
2955 | maxactive_depth = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2956:2:
2956 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2957:2:
2957 | do j = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2958:2:
2958 | tidx = int(traindata(j,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2959:2:
2959 | do i = maxactive_depth, 1, -1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2960:2:
2960 | nidx = nodenummat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2961:2:
2961 | if(nidx > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2962:2:
2962 | if(i == maxactive_depth .or. nodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2963:2:
2963 | timepred(nidx,tidx) = timepred(nidx,tidx) + traindata(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2964:2:
2964 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2965:2:
2965 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2966:2:
2966 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2967:2:
2967 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2968:2:
2968 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2969:2:
2969 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2970:2:
2970 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2971:2:
2971 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2972:2:
2972 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2973:2:
2973 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2974:2:
2974 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2975:2:
2975 | endif
| 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 | ymean = sum(testdata(:,1))/dble(testdatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2978:2:
2978 | r2cvnum = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2979:2:
2979 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2980:2:
2980 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2981:2:
2981 | do j=1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2982:2:
2982 | if(2**(j-1) <= i .and. i < 2**j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2983:2:
2983 | k = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2984:2:
2984 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2985:2:
2985 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2986:2:
2986 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2987:2:
2987 | do l = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2988:2:
2988 | if(nodenummattest(l,k) == i) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2989:2:
2989 | 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:2990:2:
2990 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2991:2:
2991 | enddo
| 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 | r2cvnum = sum(r2cvnumsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2995:2:
2995 | r2cvden = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2996:2:
2996 | do i = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:2997:2:
2997 | r2cvden = r2cvden + ((testdata(i,1) - ymean) * (testdata(i,1) - ymean))
| 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 | r2cvval = 1d0-(r2cvnum/r2cvden)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3000:2:
3000 | deallocate(timepred,r2cvnumsub,timepredcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3004:2:
3004 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3005:2:
3005 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3006:2:
3006 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3007:2:
3007 | real(8),intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3008:2:
3008 | real(8),intent(in) :: gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3009:2:
3009 | integer,intent(out) :: prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3010:2:
3010 | 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:3011:2:
3011 | real(8) minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3012:2:
3012 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3013:2:
3013 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3014:2:
3014 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3015:2:
3015 | if(prunind==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3016:2:
3016 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3017:2:
3017 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3018:2:
3018 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3019:2:
3019 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3020:2:
3020 | gammavec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3021:2:
3021 | call cvgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3022:2:
3022 | call cvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3023:2:
3023 | gammavec(1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3024:2:
3024 | if(gammavec(1) > gamma) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3025:2:
3025 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3026:2:
3026 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3027:2:
3027 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3028:2:
3028 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3029:2:
3029 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3030:2:
3030 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3031:2:
3031 | call cvgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3032:2:
3032 | call cvgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3033:2:
3033 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3034:2:
3034 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3035:2:
3035 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3036:2:
3036 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3037:2:
3037 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3038:2:
3038 | call cvgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3039:2:
3039 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3040:2:
3040 | prunenodenummattest(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3041:2:
3041 | prunenodenummattest(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3042:2:
3042 | prunenodenummat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3043:2:
3043 | prunenodenummat(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3044:2:
3044 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3045:2:
3045 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3046:2:
3046 | call cvgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3047:2:
3047 | gammavec(prunloop) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3048:2:
3048 | if(gammavec(prunloop-1) < gamma .and. gammavec(prunloop) > gamma) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3049:2:
3049 | prunenodenummattest(:,:) = nodenummatnewtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3050:2:
3050 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3051:2:
3051 | goto 5000
| 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 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3054:2:
3054 | call cvgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3055:2:
3055 | call cvgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3056:2:
3056 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3057:2:
3057 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3058:2:
3058 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3059:2:
3059 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3060:2:
3060 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3064:2:
3064 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3065:2:
3065 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3066:2:
3066 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3067:2:
3067 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3068:2:
3068 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3069:2:
3069 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3070:2:
3070 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3071:2:
3071 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3072:2:
3072 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3073:2:
3073 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3074:2:
3074 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3075:2:
3075 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3076:2:
3076 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3077:2:
3077 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3078:2:
3078 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3079:2:
3079 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3080:2:
3080 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3081:2:
3081 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3082:2:
3082 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3083:2:
3083 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3084:2:
3084 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3085:2:
3085 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3086:2:
3086 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3087:2:
3087 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3088:2:
3088 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3089:2:
3089 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3090:2:
3090 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3091:2:
3091 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3092:2:
3092 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3095:2:
3095 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3096:2:
3096 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3097:2:
3097 | 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:3098:2:
3098 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3099:2:
3099 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3100:2:
3100 | real(8), intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3101:2:
3101 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3102:2:
3102 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3103:2:
3103 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3104:2:
3104 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3105:2:
3105 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3106:2:
3106 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3107:2:
3107 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3108:2:
3108 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3109:2:
3109 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3110:2:
3110 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3111:2:
3111 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3112:2:
3112 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3113:2:
3113 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3114:2:
3114 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3115:2:
3115 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3116:2:
3116 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3117:2:
3117 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3118:2:
3118 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3119:2:
3119 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3120:2:
3120 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3121:2:
3121 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3122:2:
3122 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3123:2:
3123 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3124:2:
3124 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3125:2:
3125 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3126:2:
3126 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3127:2:
3127 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3128:2:
3128 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3129:2:
3129 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3130:2:
3130 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3131:2:
3131 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3132:2:
3132 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3133:2:
3133 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3134:2:
3134 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3135:2:
3135 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3136:2:
3136 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3137:2:
3137 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3140:2:
3140 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3141:2:
3141 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3142:2:
3142 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3143:2:
3143 | real(8), intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3144:2:
3144 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3145:2:
3145 | real(8), intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3146:2:
3146 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3147:2:
3147 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3148:2:
3148 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3149:2:
3149 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3150:2:
3150 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3151:2:
3151 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3152:2:
3152 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3153:2:
3153 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3154:2:
3154 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3155:2:
3155 | endif
| 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 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3158:2:
3158 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3159:2:
3159 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3160:2:
3160 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3161:2:
3161 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3162:2:
3162 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3163:2:
3163 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3164:2:
3164 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3165:2:
3165 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3166:2:
3166 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3167:2:
3167 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3170:2:
3170 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3171:2:
3171 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3172:2:
3172 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3173:2:
3173 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3174:2:
3174 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3175:2:
3175 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3176:2:
3176 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3177:2:
3177 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3178:2:
3178 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3179:2:
3179 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3180:2:
3180 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3181:2:
3181 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3182:2:
3182 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3183:2:
3183 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3184:2:
3184 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3185:2:
3185 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3186:2:
3186 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3187:2:
3187 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3188:2:
3188 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3192:2:
3192 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3193:2:
3193 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3194:2:
3194 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3195:2:
3195 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3196:2:
3196 | real(8), intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3197:2:
3197 | 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:3198:2:
3198 | real(8) allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3199:2:
3199 | real(8) allfvalnew((2**maxdepth)-1),r2cvvec((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3200:2:
3200 | real(8) losspredsum,minghval,r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3201:2:
3201 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3202:2:
3202 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3203:2:
3203 | integer :: nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3204:2:
3204 | integer :: indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3205:2:
3205 | allgammavaltrain(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3206:2:
3206 | gammacv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3207:2:
3207 | losspredsumvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3208:2:
3208 | gammar2cv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3209:2:
3209 | r2cvvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3210:2:
3210 | call cvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3211:2:
3211 | nodenummattest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3212:2:
3212 | losspredsumvec(1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3213:2:
3213 | call R2CV(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3214:2:
3214 | nodenummattest,testdatasize,maxdepth,r2cvval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3215:2:
3215 | r2cvvec(1) = r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3216:2:
3216 | allfvalnew(:) = allfval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3217:2:
3217 | nodenummatnew(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3218:2:
3218 | nodenummatnewtest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3219:2:
3219 | do cvprunloop = 1,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3220:2:
3220 | call cvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3221:2:
3221 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3222:2:
3222 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3223:2:
3223 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3224:2:
3224 | call cvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3225:2:
3225 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3226:2:
3226 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3227:2:
3227 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3228:2:
3228 | indcol = i
| 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 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3232:2:
3232 | do i = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3233:2:
3233 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3234:2:
3234 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3235:2:
3235 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3236:2:
3236 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 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 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3239:2:
3239 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3240:2:
3240 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3241:2:
3241 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3242:2:
3242 | do i = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3243:2:
3243 | if(nodenummatnewtest(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3244:2:
3244 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3245:2:
3245 | nodenummatnewtest(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 | allgammavaltrain(cvprunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3250:2:
3250 | call cvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3251:2:
3251 | nodenummatnewtest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3252:2:
3252 | losspredsumvec(cvprunloop+1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3253:2:
3253 | call R2CV(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3254:2:
3254 | nodenummatnewtest,testdatasize,maxdepth,r2cvval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3255:2:
3255 | r2cvvec(cvprunloop+1) = r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3256:2:
3256 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3257:2:
3257 | gammacv(1) = losspredsumvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3258:2:
3258 | gammar2cv(1) = r2cvvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3259:2:
3259 | j = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3260:2:
3260 | do i = 2,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3261:2:
3261 | if(allgammaval(i) == 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3262:2:
3262 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3263:2:
3263 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3264:2:
3264 | if(allgammaval(i) <= allgammavaltrain(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3265:2:
3265 | gammacv(i) = losspredsumvec(j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3266:2:
3266 | gammar2cv(i) = r2cvvec(j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3267:2:
3267 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3268:2:
3268 | do k = 1,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3269:2:
3269 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3270:2:
3270 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3271:2:
3271 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3272:2:
3272 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3273:2:
3273 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3274:2:
3274 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3275:2:
3275 | gammacv(i) = losspredsumvec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3276:2:
3276 | gammar2cv(i) = r2cvvec(j)
| 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 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3279:2:
3279 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3283:2:
3283 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3284:2:
3284 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3285:2:
3285 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3286:2:
3286 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3287:2:
3287 | real(8), intent(out) :: losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3288:2:
3288 | real(8), allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3289:2:
3289 | integer i,j,k,l,maxactive_depth,nidx,tidx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3290:2:
3290 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3291:2:
3291 | allocate(timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3292:2:
3292 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3293:2:
3293 | losspred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3294:2:
3294 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3295:2:
3295 | maxactive_depth = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3296:2:
3296 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3297:2:
3297 | if(sum(nodenummat(:,i)) == 0) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3298:2:
3298 | maxactive_depth = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3299:2:
3299 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3300:2:
3300 | do j = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3301:2:
3301 | tidx = int(traindata(j,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3302:2:
3302 | do i = maxactive_depth, 1, -1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3303:2:
3303 | nidx = nodenummat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3304:2:
3304 | if(nidx > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3305:2:
3305 | if(i == maxactive_depth .or. nodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3306:2:
3306 | timepred(nidx,tidx) = timepred(nidx,tidx) + traindata(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3307:2:
3307 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3308:2:
3308 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3309:2:
3309 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3310:2:
3310 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3311:2:
3311 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3312:2:
3312 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3313:2:
3313 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3314:2:
3314 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3315:2:
3315 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3316:2:
3316 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3317:2:
3317 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3318:2:
3318 | endif
| 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,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3323:2:
3323 | if(2**(j-1) <= i .and. i < 2**j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3324:2:
3324 | k = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3325:2:
3325 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3326:2:
3326 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3327:2:
3327 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3328:2:
3328 | do l = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3329:2:
3329 | if(nodenummattest(l,k) == i) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3330:2:
3330 | 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:3331:2:
3331 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3332:2:
3332 | enddo
| 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 | losspredsum = sum(losspred)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3336:2:
3336 | deallocate(timepred,losspred,timepredcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3339:2:
3339 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3340:2:
3340 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3341:2:
3341 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3342:2:
3342 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3343:2:
3343 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3344:2:
3344 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3345:2:
3345 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3346:2:
3346 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3347:2:
3347 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3348:2:
3348 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3349:2:
3349 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3350:2:
3350 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3351:2:
3351 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3352:2:
3352 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3353:2:
3353 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3354:2:
3354 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3355:2:
3355 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3356:2:
3356 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3357:2:
3357 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3358:2:
3358 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3359:2:
3359 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3360:2:
3360 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3361:2:
3361 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3362:2:
3362 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3363:2:
3363 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3364:2:
3364 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3365:2:
3365 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3366:2:
3366 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3367:2:
3367 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3370:2:
3370 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3371:2:
3371 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3372:2:
3372 | 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:3373:2:
3373 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3374:2:
3374 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3375:2:
3375 | real(8), intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3376:2:
3376 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3377:2:
3377 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3378:2:
3378 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3379:2:
3379 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3380:2:
3380 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3381:2:
3381 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3382:2:
3382 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3383:2:
3383 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3384:2:
3384 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3385:2:
3385 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3386:2:
3386 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3387:2:
3387 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3388:2:
3388 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3389:2:
3389 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3390:2:
3390 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3391:2:
3391 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3392:2:
3392 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3393:2:
3393 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3394:2:
3394 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3395:2:
3395 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3396:2:
3396 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3397:2:
3397 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3398:2:
3398 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3399:2:
3399 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3400:2:
3400 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3401:2:
3401 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3402:2:
3402 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3403:2:
3403 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3404:2:
3404 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3405:2:
3405 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3406:2:
3406 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3407:2:
3407 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3408:2:
3408 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3409:2:
3409 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3410:2:
3410 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3411:2:
3411 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3412:2:
3412 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3415:2:
3415 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3416:2:
3416 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3417:2:
3417 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3418:2:
3418 | real(8), intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3419:2:
3419 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3420:2:
3420 | real(8), intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3421:2:
3421 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3422:2:
3422 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3423:2:
3423 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3424:2:
3424 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3425:2:
3425 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3426:2:
3426 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3427:2:
3427 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3428:2:
3428 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3429:2:
3429 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3430:2:
3430 | endif
| 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 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3433:2:
3433 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3434:2:
3434 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3435:2:
3435 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3436:2:
3436 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3437:2:
3437 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3438:2:
3438 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3439:2:
3439 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3440:2:
3440 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3441:2:
3441 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3442:2:
3442 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3445:2:
3445 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3446:2:
3446 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3447:2:
3447 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3448:2:
3448 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3449:2:
3449 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3450:2:
3450 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3451:2:
3451 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3452:2:
3452 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3453:2:
3453 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3454:2:
3454 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3455:2:
3455 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3456:2:
3456 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3457:2:
3457 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3458:2:
3458 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3459:2:
3459 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3460:2:
3460 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3461:2:
3461 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3462:2:
3462 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3463:2:
3463 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3466:2:
3466 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3467:2:
3467 | integer,intent(in) :: msize,maxdepth,prunind,cv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3468:2:
3468 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3469:2:
3469 | double precision,intent(in) :: bestgammaval,allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3470:2:
3470 | integer,intent(out) :: prunenodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3471:2:
3471 | double precision minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3472:2:
3472 | 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:3473:2:
3473 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3474:2:
3474 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3475:2:
3475 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3476:2:
3476 | if(bestgammaval <= 0d0 .or. prunind==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3477:2:
3477 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3478:2:
3478 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3479:2:
3479 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3480:2:
3480 | gammavec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3481:2:
3481 | call gterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3482:2:
3482 | call gweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3483:2:
3483 | gammavec(1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3484:2:
3484 | if(gammavec(1) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3485:2:
3485 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3486:2:
3486 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3487:2:
3487 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3488:2:
3488 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3489:2:
3489 | call gpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3490:2:
3490 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3491:2:
3491 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3492:2:
3492 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3493:2:
3493 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3494:2:
3494 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3495:2:
3495 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3496:2:
3496 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3497:2:
3497 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3498:2:
3498 | call gterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3499:2:
3499 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3500:2:
3500 | prunenodenummat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3501:2:
3501 | prunenodenummat(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3502:2:
3502 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3503:2:
3503 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3504:2:
3504 | call gweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3505:2:
3505 | gammavec(prunloop) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3506:2:
3506 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3507:2:
3507 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3508:2:
3508 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3509:2:
3509 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3510:2:
3510 | allocate(nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3511:2:
3511 | call gpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3512:2:
3512 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3513:2:
3513 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3514:2:
3514 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3515:2:
3515 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3516:2:
3516 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3517:2:
3517 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3518:2:
3518 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3519:2:
3519 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3523:2:
3523 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3524:2:
3524 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3525:2:
3525 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3526:2:
3526 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3527:2:
3527 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3528:2:
3528 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3529:2:
3529 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3530:2:
3530 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3531:2:
3531 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3532:2:
3532 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3533:2:
3533 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3534:2:
3534 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3535:2:
3535 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3536:2:
3536 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3537:2:
3537 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3538:2:
3538 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3539:2:
3539 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3540:2:
3540 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3541:2:
3541 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3542:2:
3542 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3543:2:
3543 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3544:2:
3544 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3545:2:
3545 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3546:2:
3546 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3547:2:
3547 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3548:2:
3548 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3549:2:
3549 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3550:2:
3550 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3551:2:
3551 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3554:2:
3554 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3555:2:
3555 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3556:2:
3556 | 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:3557:2:
3557 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3558:2:
3558 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3559:2:
3559 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3560:2:
3560 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3561:2:
3561 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3562:2:
3562 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3563:2:
3563 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3564:2:
3564 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3565:2:
3565 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3566:2:
3566 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3567:2:
3567 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3568:2:
3568 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3569:2:
3569 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3570:2:
3570 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3571:2:
3571 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3572:2:
3572 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3573:2:
3573 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3574:2:
3574 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3575:2:
3575 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3576:2:
3576 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3577:2:
3577 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3578:2:
3578 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3579:2:
3579 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3580:2:
3580 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3581:2:
3581 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3582:2:
3582 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3583:2:
3583 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3584:2:
3584 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3585:2:
3585 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3586:2:
3586 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3587:2:
3587 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3588:2:
3588 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3589:2:
3589 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3590:2:
3590 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3591:2:
3591 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3592:2:
3592 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3593:2:
3593 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3594:2:
3594 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3595:2:
3595 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3596:2:
3596 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3599:2:
3599 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3600:2:
3600 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3601:2:
3601 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3602:2:
3602 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3603:2:
3603 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3604:2:
3604 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3605:2:
3605 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3606:2:
3606 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3607:2:
3607 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3608:2:
3608 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3609:2:
3609 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3610:2:
3610 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3611:2:
3611 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3612:2:
3612 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3613:2:
3613 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3614:2:
3614 | endif
| 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 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3617:2:
3617 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3618:2:
3618 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3619:2:
3619 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3620:2:
3620 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3621:2:
3621 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3622:2:
3622 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3623:2:
3623 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3624:2:
3624 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3625:2:
3625 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3626:2:
3626 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3629:2:
3629 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3630:2:
3630 | integer, intent(in) :: msize,levelcount,maxdepth,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3631:2:
3631 | integer, intent(in) :: prunenodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3632:2:
3632 | double precision, intent(in) :: XYDATA(Msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3633:2:
3633 | integer, intent(out) :: datatnnodenum(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3634:2:
3634 | double precision, intent(out) :: predvec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3635:2:
3635 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3636:2:
3636 | double precision tnodepredmat((2**maxdepth)-1,levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3637:2:
3637 | integer i,j,maxactive_depth,nidx,tidx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3638:2:
3638 | allocate(timepredsum(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3639:2:
3639 | timepredsum(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3640:2:
3640 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3641:2:
3641 | datatnnodenum(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3642:2:
3642 | maxactive_depth = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3643:2:
3643 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3644:2:
3644 | if(sum(prunenodenummat(:,i)) == 0) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3645:2:
3645 | maxactive_depth = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3646:2:
3646 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3647:2:
3647 | do j = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3648:2:
3648 | tidx = int(XYDATA(j,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3649:2:
3649 | do i = maxactive_depth, 1, -1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3650:2:
3650 | nidx = prunenodenummat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3651:2:
3651 | if(nidx > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3652:2:
3652 | if(i == maxactive_depth .or. prunenodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3653:2:
3653 | timepredsum(nidx,tidx) = timepredsum(nidx,tidx) + XYDATA(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3654:2:
3654 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3655:2:
3655 | datatnnodenum(j) = nidx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3656:2:
3656 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3657:2:
3657 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3658:2:
3658 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3659:2:
3659 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3660:2:
3660 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3661:2:
3661 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3662:2:
3662 | if(abs(sum(timepredsum(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3663:2:
3663 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3664:2:
3664 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3665:2:
3665 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3666:2:
3666 | endif
| 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,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3669:2:
3669 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3670:2:
3670 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3673:2:
3673 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3674:2:
3674 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3675:2:
3675 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3676:2:
3676 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3677:2:
3677 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3678:2:
3678 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3679:2:
3679 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3680:2:
3680 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3681:2:
3681 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3682:2:
3682 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3683:2:
3683 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3684:2:
3684 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3685:2:
3685 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3689:2:
3689 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3690:2:
3690 | integer, intent(in) :: nodedatasize,colnum,maxdepth,ind1,ind2,splitvecsize,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3691:2:
3691 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3692:2:
3692 | double precision, intent(in) :: nodedata(nodedatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3693:2:
3693 | integer, intent(in) :: prunnodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3694:2:
3694 | integer, intent(out) :: splitvector(splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3695:2:
3695 | double precision, intent(out) :: splitnumber(splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3696:2:
3696 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3697:2:
3697 | double precision datasample(nodedatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3698:2:
3698 | integer, allocatable :: splitindmat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3699:2:
3699 | datasample = nodedata(:,ind1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3700:2:
3700 | if(datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3701:2:
3701 | splitnum = splitvecsize - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3702:2:
3702 | elseif(datatype(ind1-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3703:2:
3703 | splitnum = (2 ** (splitvecsize-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3704:2:
3704 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3705:2:
3705 | call spdataval(nodedata(:,ind1),nodedatasize,splitnumber,splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3706:2:
3706 | allocate(splitindmat(splitnum,splitvecsize))
| 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 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3709:2:
3709 | do j = 1,splitvecsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3710:2:
3710 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3711:2:
3711 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3712:2:
3712 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3713:2:
3713 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3714:2:
3714 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3715:2:
3715 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3716:2:
3716 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3717:2:
3717 | elseif(datatype(ind1-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3718:2:
3718 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3719:2:
3719 | do i = 0, 2**(splitvecsize-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3720:2:
3720 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3721:2:
3721 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3722:2:
3722 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3723:2:
3723 | do j = 0, splitvecsize - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3724:2:
3724 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3725:2:
3725 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3726:2:
3726 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3727:2:
3727 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3728:2:
3728 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3729:2:
3729 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3730:2:
3730 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3731:2:
3731 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3732:2:
3732 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3733:2:
3733 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3734:2:
3734 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3735:2:
3735 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3736:2:
3736 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3737:2:
3737 | splitvector = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3740:2:
3740 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3741:2:
3741 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3742:2:
3742 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3743:2:
3743 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3744:2:
3744 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3745:2:
3745 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3746:2:
3746 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3747:2:
3747 | call spdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3748:2:
3748 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3749:2:
3749 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3750:2:
3750 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3751:2:
3751 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3752:2:
3752 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3753:2:
3753 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3754:2:
3754 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3755:2:
3755 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3758:2:
3758 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3759:2:
3759 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3760:2:
3760 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3761:2:
3761 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3762:2:
3762 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3763:2:
3763 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3764:2:
3764 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3765:2:
3765 | call spdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3766:2:
3766 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3767:2:
3767 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3768:2:
3768 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3769:2:
3769 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3770:2:
3770 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3771:2:
3771 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3772:2:
3772 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3775:2:
3775 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3776:2:
3776 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3777:2:
3777 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3778:2:
3778 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3779:2:
3779 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3780:2:
3780 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3781:2:
3781 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3782:2:
3782 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3783:2:
3783 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3784:2:
3784 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3785:2:
3785 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3786:2:
3786 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3787:2:
3787 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3788:2:
3788 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3789:2:
3789 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3790:2:
3790 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3791:2:
3791 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3792:2:
3792 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3793:2:
3793 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3794:2:
3794 | i=i+1
| 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 (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3798:2:
3798 | call spdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3799:2:
3799 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3800:2:
3800 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3801:2:
3801 | call spdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3802:2:
3802 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3803:2:
3803 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3806:2:
3806 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3807:2:
3807 | integer, intent(in) :: msize,bootsize,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3808:2:
3808 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3809:2:
3809 | integer, intent(out) :: oridata(bootsize*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3810:2:
3810 | double precision, intent(out) :: bootdata(bootsize*levelcount,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3811:2:
3811 | integer idsum,randval,i,j,k,l,m
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3812:2:
3812 | integer oriind(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3813:2:
3813 | double precision randvalsub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3814:2:
3814 | double precision idnum(levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3815:2:
3815 | call getrngstate()
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3816:2:
3816 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3817:2:
3817 | oriind(i) = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3818:2:
3818 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3819:2:
3819 | call threetreesbsdatasum(xydata(:,2),msize,idsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3820:2:
3820 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3821:2:
3821 | k = levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3822:2:
3822 | do i=1,bootsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3823:2:
3823 | call unifrand(randvalsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3824:2:
3824 | randval = int(randvalsub * dble(idsum)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3825:2:
3825 | l = (randval-1)*levelcount+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3826:2:
3826 | m = randval*levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3827:2:
3827 | idnum(:) = dble(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3828:2:
3828 | oridata(j:k)=oriind(l:m)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3829:2:
3829 | bootdata(j:k,1) = xydata(l:m,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3830:2:
3830 | bootdata(j:k,2) = idnum(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3831:2:
3831 | bootdata(j:k,3:colnum) = xydata(l:m,3:colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3832:2:
3832 | j = j + levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3833:2:
3833 | k = k + levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3834:2:
3834 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3835:2:
3835 | call putrngstate()
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3838:2:
3838 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3839:2:
3839 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3840:2:
3840 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3841:2:
3841 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3842:2:
3842 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3843:2:
3843 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3844:2:
3844 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3845:2:
3845 | call threetreesbsdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3846:2:
3846 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3847:2:
3847 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3848:2:
3848 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3849:2:
3849 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3850:2:
3850 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3851:2:
3851 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3852:2:
3852 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3855:2:
3855 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3856:2:
3856 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3857:2:
3857 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3858:2:
3858 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3859:2:
3859 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3860:2:
3860 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3861:2:
3861 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3862:2:
3862 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3863:2:
3863 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3864:2:
3864 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3865:2:
3865 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3866:2:
3866 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3867:2:
3867 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3868:2:
3868 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3869:2:
3869 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3870:2:
3870 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3871:2:
3871 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3872:2:
3872 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3873:2:
3873 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3874:2:
3874 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3875:2:
3875 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3876:2:
3876 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3877:2:
3877 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3878:2:
3878 | call threetreesbsdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3879:2:
3879 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3880:2:
3880 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3881:2:
3881 | call threetreesbsdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3882:2:
3882 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3883:2:
3883 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3887:2:
3887 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3888:2:
3888 | integer, intent(in) :: bootdatasize,oridatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3889:2:
3889 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3890:2:
3890 | double precision, intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3891:2:
3891 | double precision, intent(in) :: bootdata(bootdatasize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3892:2:
3892 | double precision, intent(in) :: oridata(oridatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3893:2:
3893 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3894:2:
3894 | integer, intent(out) :: nodenummatboot(bootdatasize,maxdepth),nodenummatori(oridatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3895:2:
3895 | double precision,intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3896:2:
3896 | integer nodenummatsub(bootdatasize,maxdepth),nodenummatsubori(oridatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3897:2:
3897 | 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:3898:2:
3898 | integer sizel,sizer,sizelori,sizerori,treeloop,stopcount,nodeloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3899:2:
3899 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3900:2:
3900 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3901:2:
3901 | double precision fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3902:2:
3902 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizeori(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3903:2:
3903 | integer,allocatable :: nodesizesub(:),nodesizesubori(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3904:2:
3904 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3905:2:
3905 | double precision, allocatable :: xynodedata(:,:),xynodedataori(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3906:2:
3906 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3907:2:
3907 | integer, allocatable :: flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3908:2:
3908 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3909:2:
3909 | double precision :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3910:2:
3910 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3911:2:
3911 | nodenummatboot(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3912:2:
3912 | nodenummatboot(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3913:2:
3913 | nodenummatori(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3914:2:
3914 | nodenummatori(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3915:2:
3915 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3916:2:
3916 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3917:2:
3917 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3918:2:
3918 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3919:2:
3919 | allocate(nodesize(2),nodesizeori(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3920:2:
3920 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3921:2:
3921 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3922:2:
3922 | call threetreesbootsplitcount(bootdatasize, colnum-3, bootdata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3923:2:
3923 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3924:2:
3924 | 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:3925:2:
3925 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3926:2:
3926 | 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:3927:2:
3927 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3928:2:
3928 | allocate(anovadata(bootdatasize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3929:2:
3929 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3930:2:
3930 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3931:2:
3931 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3932:2:
3932 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3933:2:
3933 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3934:2:
3934 | 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:3935:2:
3935 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3936:2:
3936 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3937:2:
3937 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3938:2:
3938 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3939:2:
3939 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),bootdata,bootdatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3940:2:
3940 | call threetreesbootrepANOVA(bootdatasize,colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3941:2:
3941 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3942:2:
3942 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3943:2:
3943 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3944:2:
3944 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3945:2:
3945 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3946:2:
3946 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3947:2:
3947 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3948:2:
3948 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3949:2:
3949 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3950:2:
3950 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3951:2:
3951 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3952:2:
3952 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3953:2:
3953 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3954:2:
3954 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3955:2:
3955 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3956:2:
3956 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3957:2:
3957 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3958:2:
3958 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3959:2:
3959 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3960:2:
3960 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3961:2:
3961 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3962:2:
3962 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3963:2:
3963 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3964:2:
3964 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3965:2:
3965 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3966:2:
3966 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3967:2:
3967 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3968:2:
3968 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3969:2:
3969 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3970:2:
3970 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3971:2:
3971 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3972:2:
3972 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3973:2:
3973 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3974:2:
3974 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3975:2:
3975 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3976:2:
3976 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3977:2:
3977 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3978:2:
3978 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3979:2:
3979 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3980:2:
3980 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3981:2:
3981 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3982:2:
3982 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3983:2:
3983 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3984:2:
3984 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3985:2:
3985 | (dble(bootdatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3986:2:
3986 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3987:2:
3987 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3988:2:
3988 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3989:2:
3989 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3990:2:
3990 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3991:2:
3991 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3992:2:
3992 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3993:2:
3993 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3994:2:
3994 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3995:2:
3995 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3996:2:
3996 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3997:2:
3997 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3998:2:
3998 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:3999:2:
3999 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4000:2:
4000 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4001:2:
4001 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4002:2:
4002 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4003:2:
4003 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4004:2:
4004 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4005:2:
4005 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4006:2:
4006 | bootdata,bootdatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4007:2:
4007 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4008:2:
4008 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4009:2:
4009 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4010:2:
4010 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4011:2:
4011 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4012:2:
4012 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4013:2:
4013 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4014:2:
4014 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4015:2:
4015 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4016:2:
4016 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4017:2:
4017 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4018:2:
4018 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4019:2:
4019 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4020:2:
4020 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4021:2:
4021 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4022:2:
4022 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4023:2:
4023 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4024:2:
4024 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4025:2:
4025 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4026:2:
4026 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4027:2:
4027 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4028:2:
4028 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4029:2:
4029 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4030:2:
4030 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4031:2:
4031 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4032:2:
4032 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4033:2:
4033 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4034:2:
4034 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4035:2:
4035 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4036:2:
4036 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4037:2:
4037 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4038:2:
4038 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4039:2:
4039 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4040:2:
4040 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4041:2:
4041 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4042:2:
4042 | (dble(bootdatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4043:2:
4043 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4044:2:
4044 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4045:2:
4045 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4046:2:
4046 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4047:2:
4047 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4048:2:
4048 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4049:2:
4049 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4050:2:
4050 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4051:2:
4051 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4052:2:
4052 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4053:2:
4053 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4054:2:
4054 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4055:2:
4055 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4056:2:
4056 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4057:2:
4057 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4058:2:
4058 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4059:2:
4059 | bootdata,bootdatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4060:2:
4060 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4061:2:
4061 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4062:2:
4062 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4063:2:
4063 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4064:2:
4064 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4065:2:
4065 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4066:2:
4066 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4067:2:
4067 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4068:2:
4068 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4069:2:
4069 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4070:2:
4070 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4071:2:
4071 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4072:2:
4072 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4073:2:
4073 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4074:2:
4074 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4075:2:
4075 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4076:2:
4076 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4077:2:
4077 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4078:2:
4078 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4079:2:
4079 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4080:2:
4080 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4081:2:
4081 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4082:2:
4082 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4083:2:
4083 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4084:2:
4084 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4085:2:
4085 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4086:2:
4086 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4087:2:
4087 | endif
| 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 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4090:2:
4090 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4091:2:
4091 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4092:2:
4092 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4093:2:
4093 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4094:2:
4094 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4095:2:
4095 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4096:2:
4096 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4097:2:
4097 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4098:2:
4098 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4099:2:
4099 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4100:2:
4100 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4101:2:
4101 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4102:2:
4102 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4103:2:
4103 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4104:2:
4104 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4105:2:
4105 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4106:2:
4106 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4107:2:
4107 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4108:2:
4108 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4109:2:
4109 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4110:2:
4110 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4111:2:
4111 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4112:2:
4112 | (dble(bootdatasize) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4113:2:
4113 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4114:2:
4114 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4115:2:
4115 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4116:2:
4116 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4117:2:
4117 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4118:2:
4118 | call threetreesbootnodenumber(bootdata,maxdepth,bootdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4119:2:
4119 | hierarchy+1,nodenummatboot,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4120:2:
4120 | call threetreesbootnodenumber(oridata,maxdepth,oridatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4121:2:
4121 | hierarchy+1,nodenummatori,nodenummatsubori,sizelori,sizerori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4122:2:
4122 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4123:2:
4123 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4124:2:
4124 | nodesizeori(1) = sizelori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4125:2:
4125 | nodesizeori(2) = sizerori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4126:2:
4126 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4127:2:
4127 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4128:2:
4128 | nodenummatboot(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4129:2:
4129 | nodenummatori(:,:) = nodenummatsubori(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4130:2:
4130 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4131:2:
4131 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4132:2:
4132 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4133:2:
4133 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4134:2:
4134 | 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:4135:2:
4135 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4136:2:
4136 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4137:2:
4137 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4138:2:
4138 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4139:2:
4139 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedataori(nodesizeori(nodeloop),colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4140:2:
4140 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4141:2:
4141 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4142:2:
4142 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4143:2:
4143 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4144:2:
4144 | call threetreesbootnodedata(bootdata,bootdatasize,colnum,nodenum,hierarchy,nodenummatboot,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4145:2:
4145 | call threetreesbootnodedata(oridata,oridatasize,colnum,nodenum,hierarchy,nodenummatori,nodesizeori(nodeloop),xynodedataori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4146:2:
4146 | call threetreesbootsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4147:2:
4147 | if(sum(splitnum) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4148:2:
4148 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4149:2:
4149 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4150:2:
4150 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4151:2:
4151 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4152:2:
4152 | 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:4153:2:
4153 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4154:2:
4154 | 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:4155:2:
4155 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4156:2:
4156 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4157:2:
4157 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4158:2:
4158 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4159:2:
4159 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4160:2:
4160 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4161:2:
4161 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4162:2:
4162 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4163:2:
4163 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4164:2:
4164 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4165:2:
4165 | if(allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4166:2:
4166 | deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4167:2:
4167 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4168:2:
4168 | if(.not. allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4169:2:
4169 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 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(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4172:2:
4172 | deallocate(facvalout)
| 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(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4175:2:
4175 | allocate(facvalout(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 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4178:2:
4178 | countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4179:2:
4179 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4180:2:
4180 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4181:2:
4181 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4182:2:
4182 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4183:2:
4183 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4184:2:
4184 | colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4185:2:
4185 | call threetreesbootrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4186:2:
4186 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4187:2:
4187 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4188:2:
4188 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4189:2:
4189 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4190:2:
4190 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4191:2:
4191 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4192:2:
4192 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4193:2:
4193 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4194:2:
4194 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4195:2:
4195 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4196:2:
4196 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4197:2:
4197 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4198:2:
4198 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4199:2:
4199 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4200:2:
4200 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4201:2:
4201 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4202:2:
4202 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4203:2:
4203 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4204:6:
4204 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4205:2:
4205 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4206:2:
4206 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4207:2:
4207 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4208:2:
4208 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4209:2:
4209 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4210:2:
4210 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4211:2:
4211 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4212:2:
4212 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4213:2:
4213 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4214:2:
4214 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4215:2:
4215 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4216:2:
4216 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4217:2:
4217 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4218:2:
4218 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4219:2:
4219 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4220:2:
4220 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4221:2:
4221 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4222:2:
4222 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4223:2:
4223 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4224:2:
4224 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4225:2:
4225 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4226:2:
4226 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4227:2:
4227 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4228:2:
4228 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4229:2:
4229 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4230:2:
4230 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4231:2:
4231 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4232:2:
4232 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4233:2:
4233 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4234:2:
4234 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4235:2:
4235 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4236:2:
4236 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4237:2:
4237 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4238:2:
4238 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4239:2:
4239 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4240:2:
4240 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4241:2:
4241 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4242:2:
4242 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4243:2:
4243 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4244:2:
4244 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4245:2:
4245 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4246:2:
4246 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4247:2:
4247 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4248:2:
4248 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4249:2:
4249 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4250:2:
4250 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4251:2:
4251 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4252:2:
4252 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4253:2:
4253 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4254:2:
4254 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4255:2:
4255 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4256:2:
4256 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4257:2:
4257 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4258:2:
4258 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4259:2:
4259 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4260:2:
4260 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4261:2:
4261 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4262:2:
4262 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4263:2:
4263 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4264:2:
4264 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4265:2:
4265 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4266:2:
4266 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4267:2:
4267 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4268:2:
4268 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4269:2:
4269 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4270:2:
4270 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4271:2:
4271 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4272:2:
4272 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4273:2:
4273 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4274:2:
4274 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4275:2:
4275 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4276:2:
4276 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4277:2:
4277 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4278:2:
4278 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4279:2:
4279 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4280:2:
4280 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4281:2:
4281 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4282:2:
4282 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4283:2:
4283 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4284:2:
4284 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4285:2:
4285 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4286:2:
4286 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4287:2:
4287 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4288:2:
4288 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4289:2:
4289 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4290:2:
4290 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4291:2:
4291 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4292:2:
4292 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4293:2:
4293 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4294:2:
4294 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4295:2:
4295 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4296:2:
4296 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4297:2:
4297 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4298:2:
4298 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4299:2:
4299 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4300:2:
4300 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4301:2:
4301 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4302:2:
4302 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4303:2:
4303 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4304:2:
4304 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4305:2:
4305 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4306:2:
4306 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4307:2:
4307 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4308:2:
4308 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4309:2:
4309 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4310:2:
4310 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4311:2:
4311 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4312:2:
4312 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4313:2:
4313 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4314:2:
4314 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4315:2:
4315 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4316:2:
4316 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4317:2:
4317 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4318:2:
4318 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4319:2:
4319 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4320:2:
4320 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4321:2:
4321 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4322:2:
4322 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4323:2:
4323 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4324:2:
4324 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4325:2:
4325 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4326:2:
4326 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4327:2:
4327 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4328:2:
4328 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4329:2:
4329 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4330:2:
4330 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4331:2:
4331 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4332:2:
4332 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4333:2:
4333 | endif
| 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 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4336:2:
4336 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4337:2:
4337 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4338:2:
4338 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4339:2:
4339 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4340:2:
4340 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4341:2:
4341 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4342:2:
4342 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4343:2:
4343 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4344:2:
4344 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4345:2:
4345 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4346:2:
4346 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4347:2:
4347 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4348:2:
4348 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4349:2:
4349 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4350:2:
4350 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4351:2:
4351 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4352:2:
4352 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4353:2:
4353 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4354:2:
4354 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4355:2:
4355 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4356:2:
4356 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4357:2:
4357 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4358:2:
4358 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4359:2:
4359 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4360:2:
4360 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4361:2:
4361 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4362:2:
4362 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4363:2:
4363 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4364:2:
4364 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4365:2:
4365 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4366:2:
4366 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4367:2:
4367 | if(.not. allocated(nodesizesubori)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4368:2:
4368 | allocate(nodesizesubori(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4369:2:
4369 | nodesizesubori(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4370:2:
4370 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4371:2:
4371 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4372:2:
4372 | call threetreesbootnodenumber(bootdata,maxdepth,bootdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4373:2:
4373 | hierarchy+1,nodenummatboot,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4374:2:
4374 | call threetreesbootnodenumber(oridata,maxdepth,oridatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4375:2:
4375 | hierarchy+1,nodenummatori,nodenummatsubori,sizelori,sizerori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4376:2:
4376 | nodenummatboot(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4377:2:
4377 | nodenummatori(:,:) = nodenummatsubori(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4378:2:
4378 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4379:2:
4379 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4380:2:
4380 | nodesizesubori(2*nodeloop-1) = sizelori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4381:2:
4381 | nodesizesubori(2*nodeloop) = sizerori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4382:6:
4382 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4383:2:
4383 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4384:2:
4384 | deallocate(anovadata,xynodedata,xynodedataori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4385:2:
4385 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4386:2:
4386 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4387:2:
4387 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4388:2:
4388 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4389:2:
4389 | deallocate(nodesize,nodesizeori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4390:2:
4390 | allocate(nodesize(2**hierarchy),nodesizeori(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4391:2:
4391 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4392:2:
4392 | nodesizeori(:) = nodesizesubori(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4393:2:
4393 | deallocate(nodesizesub,nodesizesubori)
| 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:4396:2:
4396 | deallocate(nodesize,nodesizeori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4400:2:
4400 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4401:2:
4401 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4402:2:
4402 | double precision, intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4403:2:
4403 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4404:2:
4404 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4405:2:
4405 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4406:2:
4406 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4407:2:
4407 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4408:2:
4408 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4409:2:
4409 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4410:2:
4410 | call threetreesbootdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4411:2:
4411 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4412:2:
4412 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4413:2:
4413 | call threetreesbootdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4414:2:
4414 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4415:2:
4415 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4416:2:
4416 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4417:2:
4417 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4420:2:
4420 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4421:2:
4421 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4422:2:
4422 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4423:2:
4423 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4424:2:
4424 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4425:2:
4425 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4426:2:
4426 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4427:2:
4427 | call threetreesbootdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4428:2:
4428 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4429:2:
4429 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4430:2:
4430 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4431:2:
4431 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4432:2:
4432 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4433:2:
4433 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4434:2:
4434 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4437:2:
4437 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4438:2:
4438 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4439:2:
4439 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4440:2:
4440 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4441:2:
4441 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4442:2:
4442 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4443:2:
4443 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4444:2:
4444 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4445:2:
4445 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4446:2:
4446 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4447:2:
4447 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4448:2:
4448 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4449:2:
4449 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4450:2:
4450 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4451:2:
4451 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4452:2:
4452 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4453:2:
4453 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4454:2:
4454 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4455:2:
4455 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4456:2:
4456 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4457:2:
4457 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4458:2:
4458 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4459:2:
4459 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4460:2:
4460 | call threetreesbootdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4461:2:
4461 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4462:2:
4462 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4463:2:
4463 | call threetreesbootdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4464:2:
4464 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4465:2:
4465 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4468:2:
4468 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4469:2:
4469 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4470:2:
4470 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4471:2:
4471 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4472:2:
4472 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4473:2:
4473 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4474:2:
4474 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4475:2:
4475 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4476:2:
4476 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4477:2:
4477 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4478:2:
4478 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4479:2:
4479 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4480:2:
4480 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4481:2:
4481 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4482:2:
4482 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4483:2:
4483 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4484:2:
4484 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4485:2:
4485 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4486:2:
4486 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4487:2:
4487 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4488:2:
4488 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4489:2:
4489 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4490:2:
4490 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4491:2:
4491 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4492:2:
4492 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4493:2:
4493 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4494:2:
4494 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4495:2:
4495 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4496:2:
4496 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4497:2:
4497 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4498:2:
4498 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4499:2:
4499 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4500:2:
4500 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4501:2:
4501 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4502:2:
4502 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4505:2:
4505 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4506:2:
4506 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4507:2:
4507 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4508:2:
4508 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4509:2:
4509 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4510:2:
4510 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4511:2:
4511 | double precision facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4512:2:
4512 | call threetreesbootdataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4513:2:
4513 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4514:2:
4514 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4515:2:
4515 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4516:2:
4516 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4517:2:
4517 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4518:2:
4518 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4519:2:
4519 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4520:2:
4520 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4521:2:
4521 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4524:2:
4524 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4525:2:
4525 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4526:2:
4526 | double precision, intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4527:2:
4527 | double precision, intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4528:2:
4528 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4529:2:
4529 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4530:2:
4530 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4531:2:
4531 | double precision ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4532:2:
4532 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4533:2:
4533 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4534:2:
4534 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4535:2:
4535 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4536:2:
4536 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4537:2:
4537 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4538:2:
4538 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4539:2:
4539 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4540:2:
4540 | subj_map(nint(anovadata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4541:2:
4541 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4542:2:
4542 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4543:2:
4543 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4544:2:
4544 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4545:2:
4545 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4546:2:
4546 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4547:2:
4547 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4548:2:
4548 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4549:2:
4549 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4550:2:
4550 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4551:2:
4551 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4552:2:
4552 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4553:2:
4553 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4554:2:
4554 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4555:2:
4555 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4556:2:
4556 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4557:2:
4557 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4558:2:
4558 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4559:2:
4559 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4560:2:
4560 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4561:2:
4561 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4562:2:
4562 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4563:2:
4563 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4564:2:
4564 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4565:2:
4565 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4566:2:
4566 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4567:2:
4567 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4568:2:
4568 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4569:2:
4569 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4570:2:
4570 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4571:2:
4571 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4572:2:
4572 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4573:2:
4573 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4574:2:
4574 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4575:2:
4575 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4576:2:
4576 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4577:2:
4577 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4578:2:
4578 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4579:2:
4579 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4580:2:
4580 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4581:2:
4581 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4582:2:
4582 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4583:2:
4583 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4584:2:
4584 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4585:2:
4585 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4586:2:
4586 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4587:2:
4587 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4588:2:
4588 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4589:2:
4589 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4590:2:
4590 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4591:2:
4591 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4592:2:
4592 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4593:2:
4593 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4594:2:
4594 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4595:2:
4595 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4596:2:
4596 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4597:2:
4597 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4598:2:
4598 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4599:2:
4599 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4600:2:
4600 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4603:2:
4603 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4604:2:
4604 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4605:2:
4605 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4606:2:
4606 | double precision, intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4607:2:
4607 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4608:2:
4608 | double precision xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4609:2:
4609 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4610:2:
4610 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4611:2:
4611 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4612:2:
4612 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4613:2:
4613 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4614:2:
4614 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4615:2:
4615 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4616:2:
4616 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4617:2:
4617 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4618:2:
4618 | call threetreesbootpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4619:2:
4619 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4620:2:
4620 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4621:2:
4621 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4622:2:
4622 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4623:2:
4623 | call threetreesbootpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4624:2:
4624 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4625:2:
4625 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4626:2:
4626 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4627:2:
4627 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 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 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:4630:2:
4630 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4632:2:
4632 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4635:2:
4635 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4636:2:
4636 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4637:2:
4637 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4638:2:
4638 | double precision,intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4639:2:
4639 | double precision,intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4640:2:
4640 | double precision res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4641:2:
4641 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4643:2:
4643 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4644:2:
4644 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4645:2:
4645 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4646:2:
4646 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4647:2:
4647 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4648:2:
4648 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4649:2:
4649 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4654:2:
4654 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4655:2:
4655 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4656:2:
4656 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4661:2:
4661 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4662:2:
4662 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4663:2:
4663 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4664:2:
4664 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4665:2:
4665 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4666:2:
4666 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4667:2:
4667 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4668:2:
4668 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4669:2:
4669 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4670:2:
4670 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4671:2:
4671 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4672:2:
4672 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4673:2:
4673 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4674:2:
4674 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4675:2:
4675 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4676:2:
4676 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4677:2:
4677 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4678:2:
4678 | s0=s
| 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:4682:2:
4682 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4683:2:
4683 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4685:2:
4685 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4686:2:
4686 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4713:2:
4713 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4722:2:
4722 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4723:2:
4723 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4729:2:
4729 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4763:2:
4763 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4774:2:
4774 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4775:2:
4775 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4776:2:
4776 | double precision,intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4777:2:
4777 | 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:4778:2:
4778 | eps=1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4779:2:
4779 | s1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4780:2:
4780 | s2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4781:2:
4781 | zval = (z-((1d0-weight)*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4782:2:
4782 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4783:2:
4783 | form2 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4784:2:
4784 | form3 = (df11/df12)**(df11/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4785:2:
4785 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4786:2:
4786 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4787:2:
4787 | form6 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4788:2:
4788 | form7 = (df21/df22)**(df21/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4789:2:
4789 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4790:2:
4790 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4791:2:
4791 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4794:2:
4794 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4795:2:
4795 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4796:2:
4796 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4797:2:
4797 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4798:2:
4798 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4799:2:
4799 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4800:2:
4800 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4801:2:
4801 | call threetreesbootdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4802:2:
4802 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4803:2:
4803 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4804:2:
4804 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4805:2:
4805 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4806:2:
4806 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4807:2:
4807 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4808:2:
4808 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4809:2:
4809 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4813:2:
4813 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4814:2:
4814 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4815:2:
4815 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4816:2:
4816 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4817:2:
4817 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4818:2:
4818 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4819:2:
4819 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4820:2:
4820 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4821:2:
4821 | nodenummatsub(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4822:2:
4822 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4823:2:
4823 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4824:2:
4824 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4825:2:
4825 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4826:2:
4826 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4827:2:
4827 | nodenummatsub(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4828:2:
4828 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4829:2:
4829 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4830:2:
4830 | nodenummatsub(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4831:2:
4831 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4832:2:
4832 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4833:2:
4833 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4834:2:
4834 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4835:2:
4835 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4836:2:
4836 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4839:2:
4839 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4840:2:
4840 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4841:2:
4841 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4842:2:
4842 | integer, intent(in) :: nodenummat(msize,11)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4843:2:
4843 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4844:2:
4844 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4845:2:
4845 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4846:2:
4846 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4847:2:
4847 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4848:2:
4848 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4849:2:
4849 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4850:2:
4850 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4851:2:
4851 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4854:2:
4854 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4855:2:
4855 | integer,intent(in) :: prunind,msize,cv,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4856:2:
4856 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4857:2:
4857 | double precision,intent(in) :: alpha,gamma,allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4858:2:
4858 | double precision,intent(out) :: allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4859:2:
4859 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4860:2:
4860 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4861:2:
4861 | double precision minghval,allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4862:2:
4862 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4863:2:
4863 | allgammaval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4864:2:
4864 | if(prunind == 1 .or. alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4865:2:
4865 | goto 3001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4866:2:
4866 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4867:2:
4867 | call threetreesbootcvterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4868:2:
4868 | call threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4869:2:
4869 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4870:2:
4870 | call threetreesbootcvpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4871:2:
4871 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4872:2:
4872 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4873:2:
4873 | allgammaval(2) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4874:2:
4874 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4875:2:
4875 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4876:2:
4876 | call threetreesbootcvterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4877:2:
4877 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4878:2:
4878 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4879:2:
4879 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4880:2:
4880 | call threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4881:2:
4881 | allocate(nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4882:2:
4882 | call threetreesbootcvpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4883:2:
4883 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4884:2:
4884 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4885:2:
4885 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4886:2:
4886 | allgammaval(prunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4887:2:
4887 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4891:2:
4891 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4892:2:
4892 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4893:2:
4893 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4894:2:
4894 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4895:2:
4895 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4896:2:
4896 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4897:2:
4897 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4898:2:
4898 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4899:2:
4899 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4900:2:
4900 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4901:2:
4901 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4902:2:
4902 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4903:2:
4903 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4904:2:
4904 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4905:2:
4905 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4906:2:
4906 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4907:2:
4907 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4908:2:
4908 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4909:2:
4909 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4910:2:
4910 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4911:2:
4911 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4912:2:
4912 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4913:2:
4913 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4914:2:
4914 | tncountval(nodenummat(i,maxdepth)) = 1
| 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 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4918:2:
4918 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4919:2:
4919 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4922:2:
4922 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4923:2:
4923 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4924:2:
4924 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4925:2:
4925 | double precision testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4926:2:
4926 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4927:2:
4927 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4928:2:
4928 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4929:2:
4929 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4930:2:
4930 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4931:2:
4931 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4932:2:
4932 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4933:2:
4933 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4934:2:
4934 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4935:2:
4935 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4936:2:
4936 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4937:2:
4937 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4938:2:
4938 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4939:2:
4939 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4940:2:
4940 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4941:2:
4941 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4942:2:
4942 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4943:2:
4943 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4944:2:
4944 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4945:2:
4945 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4946:2:
4946 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4947:2:
4947 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4948:2:
4948 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4949:2:
4949 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4950:2:
4950 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4951:2:
4951 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4952:2:
4952 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4953:2:
4953 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4954:2:
4954 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4955:2:
4955 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4956:2:
4956 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4957:2:
4957 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4958:2:
4958 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4959:2:
4959 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4960:2:
4960 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4961:2:
4961 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4962:2:
4962 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4963:2:
4963 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4964:2:
4964 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4965:2:
4965 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4968:2:
4968 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4969:2:
4969 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4970:2:
4970 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4971:2:
4971 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4972:2:
4972 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4973:2:
4973 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4974:2:
4974 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4975:2:
4975 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4976:2:
4976 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4977:2:
4977 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4978:2:
4978 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4979:2:
4979 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4980:2:
4980 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4981:2:
4981 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4982:2:
4982 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4983:2:
4983 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4984:2:
4984 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4985:2:
4985 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4986:2:
4986 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4987:2:
4987 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4988:2:
4988 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4989:2:
4989 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4990:2:
4990 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4991:2:
4991 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4992:2:
4992 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4993:2:
4993 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4994:2:
4994 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4995:2:
4995 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:4999:2:
4999 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5000:2:
5000 | integer,intent(in) :: cv,msize,colnum,Ksplit,maxdepth,levelcount,beta1len,beta2len,minbucket,minsplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5001:2:
5001 | integer,intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5002:2:
5002 | integer,intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5003:2:
5003 | double precision,intent(in) :: alpha,gamma,fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5004:2:
5004 | double precision,intent(in) :: beta1(beta1len),beta2(beta2len),allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5005:2:
5005 | double precision,intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5006:2:
5006 | double precision,intent(out) :: bestgammaval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5007:2:
5007 | integer,intent(out) :: cvsplitind(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5008:2:
5008 | integer, allocatable :: cvind(:),cvsize(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5009:2:
5009 | integer, allocatable :: nodenummat(:,:), nodenummattest(:,:),prunenodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5010:2:
5010 | double precision, allocatable :: meangammacv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5011:2:
5011 | double precision, allocatable :: gammacvmat(:,:),traindata(:,:),testdata(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5012:2:
5012 | integer cvloop,traindatasize,testdatasize,prunind,i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5013:2:
5013 | double precision allfval((2**maxdepth)-1),gammacv((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5014:2:
5014 | double precision maxgammasub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5015:2:
5015 | if(alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5016:2:
5016 | bestgammaval = gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5017:2:
5017 | allocate(cvind(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5018:2:
5018 | cvind(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5019:2:
5019 | cvsplitind(:) = cvind(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5020:2:
5020 | goto 7001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5021:2:
5021 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5022:2:
5022 | allocate(cvind(msize),cvsize(Ksplit),gammacvmat(ksplit,(2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5023:2:
5023 | allocate(meangammacv((2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5024:2:
5024 | call getrngstate()
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5025:2:
5025 | call threetreesbootcvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5026:2:
5026 | call putrngstate()
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5027:2:
5027 | cvsplitind(:) = cvind(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5028:2:
5028 | do cvloop = 1,Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5029:2:
5029 | traindatasize = ((sum(cvsize)-cvsize(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5030:2:
5030 | testdatasize = (cvsize(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5031:2:
5031 | allocate(traindata(traindatasize,colnum),testdata(testdatasize,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5032:2:
5032 | allocate(nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5033:2:
5033 | call threetreesbootcvdatachoice(XYDATA,msize,colnum,Ksplit,levelcount,cvloop,cvind,cvsize,traindata,testdata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5034:2:
5034 | call threetreesbootcvtreegrowth(traindatasize,testdatasize,traindata,testdata,nodenummattest,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5035:2:
5035 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,xydata,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5036:2:
5036 | beta2len,nodenummat,allfval,prunind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5037:2:
5037 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5038:2:
5038 | call threetreesbootcvbesttreepruning(traindatasize,testdatasize,maxdepth,nodenummat,nodenummattest,allfval,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5039:2:
5039 | levelcount,colnum,traindata,testdata,allgammaval,gammacv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5040:2:
5040 | gammacvmat(cvloop,:) = gammacv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5041:2:
5041 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5042:2:
5042 | deallocate(traindata,testdata,nodenummat,nodenummattest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5043:2:
5043 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5044:2:
5044 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5045:2:
5045 | do i = 1,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5046:2:
5046 | meangammacv(i) = sum(gammacvmat(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5047:2:
5047 | if(meangammacv(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5048:2:
5048 | meangammacv(i) = meangammacv(i) / dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5049:2:
5049 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5050:2:
5050 | meangammacv(i) = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5051:2:
5051 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5052:2:
5052 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5053:2:
5053 | maxgammasub = maxval(meangammacv) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5054:2:
5054 | do i = 1,size(meangammacv)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5055:2:
5055 | if(meangammacv(i) < maxgammasub .and. meangammacv(i) >= 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5056:2:
5056 | bestgammaval = allgammaval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5057:2:
5057 | maxgammasub = meangammacv(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5058:2:
5058 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5059:2:
5059 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5060:2:
5060 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5064:2:
5064 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5065:2:
5065 | integer, intent(in) :: msize,colnum,Ksplit,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5066:2:
5066 | integer, intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5067:2:
5067 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5068:2:
5068 | integer, intent(out) :: cvind(msize), cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5069:2:
5069 | integer i,subnum, randval, cvsizecou(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5070:2:
5070 | integer, allocatable :: cvindsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5071:2:
5071 | double precision randvalsub,ii
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5072:2:
5072 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5073:2:
5073 | cvsize(:) = subnum/Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5074:2:
5074 | do i = 1,(subnum - sum(cvsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5075:2:
5075 | cvsize(i) = cvsize(i) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5076:2:
5076 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5077:2:
5077 | allocate(cvindsub(subnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5078:2:
5078 | cvsizecou(:) = cvsize(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5079:2:
5079 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5080:2:
5080 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5081:2:
5081 | call unifrand(randvalsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5082:2:
5082 | randval = int(randvalsub * dble(Ksplit)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5083:2:
5083 | if(cvsizecou(randval) > 0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5084:2:
5084 | cvsizecou(randval) = cvsizecou(randval) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5085:2:
5085 | cvindsub(i) = randval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5086:2:
5086 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5087:2:
5087 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5088:2:
5088 | enddo
| 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 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5091:2:
5091 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5092:2:
5092 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5095:2:
5095 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5096:2:
5096 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5097:2:
5097 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5098:2:
5098 | integer, intent(in) :: cvind(msize),cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5099:2:
5099 | double precision, intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5100:2:
5100 | testdata((cvsize(testind)*levelcount),colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5101:2:
5101 | integer i,jtrain,jtest,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5102:2:
5102 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5103:2:
5103 | jtest = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5104:2:
5104 | jtrain = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5105:2:
5105 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5106:2:
5106 | if(cvind(((i-1)*levelcount)+1) == testind) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5107:2:
5107 | 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:5108:2:
5108 | jtest = jtest + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5109:2:
5109 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5110:2:
5110 | 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:5111:2:
5111 | jtrain = jtrain + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5112:2:
5112 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5113:2:
5113 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5118:2:
5118 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5119:2:
5119 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5120:2:
5120 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5121:2:
5121 | double precision, intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5122:2:
5122 | double precision, intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5123:2:
5123 | double precision, intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5124:2:
5124 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5125:2:
5125 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5126:2:
5126 | double precision,intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5127:2:
5127 | integer nodenummatsub(traindatasize,maxdepth),nodenummatsubtest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5128:2:
5128 | 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:5129:2:
5129 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5130:2:
5130 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5131:2:
5131 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5132:2:
5132 | double precision fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5133:2:
5133 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5134:2:
5134 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5135:2:
5135 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5136:2:
5136 | double precision, allocatable :: xynodedata(:,:),xynodedatatest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5137:2:
5137 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5138:2:
5138 | integer, allocatable :: flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5139:2:
5139 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5140:2:
5140 | double precision :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5141:2:
5141 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5142:2:
5142 | nodenummat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5143:2:
5143 | nodenummat(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5144:2:
5144 | nodenummattest(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5145:2:
5145 | nodenummattest(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5146:2:
5146 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5147:2:
5147 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5148:2:
5148 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5149:2:
5149 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5150:2:
5150 | allocate(nodesize(2),nodesizetest(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5151:2:
5151 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5152:2:
5152 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5153:2:
5153 | call threetreesbootcvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5154:2:
5154 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5155:2:
5155 | 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:5156:2:
5156 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5157:2:
5157 | 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:5158:2:
5158 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5159:2:
5159 | allocate(anovadata(traindatasize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5160:2:
5160 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5161:2:
5161 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5162:2:
5162 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5163:2:
5163 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5164:2:
5164 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5165:2:
5165 | 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:5166:2:
5166 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5167:2:
5167 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5168:2:
5168 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5169:2:
5169 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5170:2:
5170 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5171:2:
5171 | call threetreesbootcvrepANOVA(traindatasize,colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5172:2:
5172 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5173:2:
5173 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5174:2:
5174 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5175:2:
5175 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5176:2:
5176 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5177:2:
5177 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5178:2:
5178 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5179:2:
5179 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5180:2:
5180 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5181:2:
5181 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5182:2:
5182 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5183:2:
5183 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5184:2:
5184 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5185:2:
5185 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5186:2:
5186 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5187:2:
5187 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5188:2:
5188 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5189:2:
5189 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5190:2:
5190 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5191:2:
5191 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5192:2:
5192 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5193:2:
5193 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5194:2:
5194 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5195:2:
5195 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5196:2:
5196 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5197:2:
5197 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5198:2:
5198 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5199:2:
5199 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5200:2:
5200 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5201:2:
5201 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5202:2:
5202 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5203:2:
5203 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5204:2:
5204 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5205:2:
5205 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5206:2:
5206 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5207:2:
5207 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5208:2:
5208 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5209:2:
5209 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5210:2:
5210 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5211:2:
5211 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5212:2:
5212 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5213:2:
5213 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5214:2:
5214 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5215:2:
5215 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5216:2:
5216 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5217:2:
5217 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5218:2:
5218 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5219:2:
5219 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5220:2:
5220 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5221:2:
5221 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5222:2:
5222 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5223:2:
5223 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5224:2:
5224 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5225:2:
5225 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5226:2:
5226 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5227:2:
5227 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5228:2:
5228 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5229:2:
5229 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5230:2:
5230 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5231:2:
5231 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5232:2:
5232 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5233:2:
5233 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5234:2:
5234 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5235:2:
5235 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5236:2:
5236 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5237:2:
5237 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5238:2:
5238 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5239:2:
5239 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5240:2:
5240 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5241:2:
5241 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5242:2:
5242 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5243:2:
5243 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5244:2:
5244 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5245:2:
5245 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5246:2:
5246 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5247:2:
5247 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5248:2:
5248 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5249:2:
5249 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5250:2:
5250 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5251:2:
5251 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5252:2:
5252 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5253:2:
5253 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5254:2:
5254 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5255:2:
5255 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5256:2:
5256 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5257:2:
5257 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5258:2:
5258 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5259:2:
5259 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5260:2:
5260 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5261:2:
5261 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5262:2:
5262 | deallocate(separateval)
| 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 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5265:2:
5265 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5266:2:
5266 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5267:2:
5267 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5268:2:
5268 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5269:2:
5269 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5270:2:
5270 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5271:2:
5271 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5272:2:
5272 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5273:2:
5273 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5274:2:
5274 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5275:2:
5275 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5276:2:
5276 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5277:2:
5277 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5278:2:
5278 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5279:2:
5279 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5280:2:
5280 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5281:2:
5281 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5282:2:
5282 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5283:2:
5283 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5284:2:
5284 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5285:2:
5285 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5286:2:
5286 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5287:2:
5287 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5288:2:
5288 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5289:2:
5289 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5290:2:
5290 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5291:2:
5291 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5292:2:
5292 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5293:2:
5293 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5294:2:
5294 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5295:2:
5295 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5296:2:
5296 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5297:2:
5297 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5298:2:
5298 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5299:2:
5299 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5300:2:
5300 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5301:2:
5301 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5302:2:
5302 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5303:2:
5303 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5304:2:
5304 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5305:2:
5305 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5306:2:
5306 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5307:2:
5307 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5308:2:
5308 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5309:2:
5309 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5310:2:
5310 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5311:2:
5311 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5312:2:
5312 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5313:2:
5313 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5314:2:
5314 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5315:2:
5315 | deallocate(separateval)
| 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 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5318:2:
5318 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5319:2:
5319 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5320:2:
5320 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5321:2:
5321 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5322:2:
5322 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5323:2:
5323 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5324:2:
5324 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5325:2:
5325 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5326:2:
5326 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5327:2:
5327 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5328:2:
5328 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5329:2:
5329 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5330:2:
5330 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5331:2:
5331 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5332:2:
5332 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5333:2:
5333 | if(splitmcp > alphamcp) 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 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5338:2:
5338 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5339:2:
5339 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5340:2:
5340 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5341:2:
5341 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5342:2:
5342 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5343:2:
5343 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5344:2:
5344 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5345:2:
5345 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5346:2:
5346 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5347:2:
5347 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5348:2:
5348 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5349:2:
5349 | call threetreesbootcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5350:2:
5350 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5351:2:
5351 | call threetreesbootcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5352:2:
5352 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5353:2:
5353 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5354:2:
5354 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5355:2:
5355 | nodesizetest(1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5356:2:
5356 | nodesizetest(2) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5357:2:
5357 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5358:2:
5358 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5359:2:
5359 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5360:2:
5360 | nodenummattest(:,:) = nodenummatsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5361:2:
5361 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5362:2:
5362 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5363:2:
5363 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5364:2:
5364 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5365:2:
5365 | 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:5366:2:
5366 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5367:2:
5367 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5368:2:
5368 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5369:2:
5369 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5370:2:
5370 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5371:2:
5371 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5372:2:
5372 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5373:2:
5373 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5374:2:
5374 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5375:2:
5375 | call threetreesbootcvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5376:2:
5376 | call threetreesbootcvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,nodenummattest,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5377:2:
5377 | nodesizetest(nodeloop),xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5378:2:
5378 | call threetreesbootcvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5379:2:
5379 | if(sum(splitnum) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5380:2:
5380 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5381:2:
5381 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5382:2:
5382 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5383:2:
5383 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5384:2:
5384 | 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:5385:2:
5385 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5386:2:
5386 | 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:5387:2:
5387 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5388:2:
5388 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5389:2:
5389 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5390:2:
5390 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5391:2:
5391 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5392:2:
5392 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5393:2:
5393 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5394:2:
5394 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5395:2:
5395 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5396:2:
5396 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5397:2:
5397 | if(allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5398:2:
5398 | deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5399:2:
5399 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5400:2:
5400 | if(.not. allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5401:2:
5401 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5402:2:
5402 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5403:2:
5403 | if(allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5404:2:
5404 | deallocate(facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5405:2:
5405 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5406:2:
5406 | if(.not. allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5407:2:
5407 | allocate(facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5408:2:
5408 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5409:2:
5409 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5410:2:
5410 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5411:2:
5411 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5412:2:
5412 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5413:2:
5413 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5414:2:
5414 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5415:2:
5415 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5416:2:
5416 | colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5417:2:
5417 | call threetreesbootcvrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5418:2:
5418 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5419:2:
5419 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5420:2:
5420 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5421:2:
5421 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5422:2:
5422 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5423:2:
5423 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5424:2:
5424 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5425:2:
5425 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5426:2:
5426 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5427:2:
5427 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5428:2:
5428 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5429:2:
5429 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5430:2:
5430 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5431:2:
5431 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5432:2:
5432 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5433:2:
5433 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5434:2:
5434 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5435:2:
5435 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5436:6:
5436 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5437:2:
5437 | enddo
| 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 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5440:2:
5440 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5441:2:
5441 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5442:2:
5442 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5443:2:
5443 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5444:2:
5444 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5445:2:
5445 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5446:2:
5446 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5447:2:
5447 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5448:2:
5448 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5449:2:
5449 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5450:2:
5450 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5451:2:
5451 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5452:2:
5452 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5453:2:
5453 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5454:2:
5454 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5455:2:
5455 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5456:2:
5456 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5457:2:
5457 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5458:2:
5458 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5459:2:
5459 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5460:2:
5460 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5461:2:
5461 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5462:2:
5462 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5463:2:
5463 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5464:2:
5464 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5465:2:
5465 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5466:2:
5466 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5467:2:
5467 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5468:2:
5468 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5469:2:
5469 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5470:2:
5470 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5471:2:
5471 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5472:2:
5472 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5473:2:
5473 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5474:2:
5474 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5475:2:
5475 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5476:2:
5476 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5477:2:
5477 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5478:2:
5478 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5479:2:
5479 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5480:2:
5480 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5481:2:
5481 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5482:2:
5482 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5483:2:
5483 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5484:2:
5484 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5485:2:
5485 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5486:2:
5486 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5487:2:
5487 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5488:2:
5488 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5489:2:
5489 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5490:2:
5490 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5491:2:
5491 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5492:2:
5492 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5493:2:
5493 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5494:2:
5494 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5495:2:
5495 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5496:2:
5496 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5497:2:
5497 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5498:2:
5498 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5499:2:
5499 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5500:2:
5500 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5501:2:
5501 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5502:2:
5502 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5503:2:
5503 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5504:2:
5504 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5505:2:
5505 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5506:2:
5506 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5507:2:
5507 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5508:2:
5508 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5509:2:
5509 | deallocate(separateval)
| 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 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5512:2:
5512 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5513:2:
5513 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5514:2:
5514 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5515:2:
5515 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5516:2:
5516 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5517:2:
5517 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5518:2:
5518 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5519:2:
5519 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5520:2:
5520 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5521:2:
5521 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5522:2:
5522 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5523:2:
5523 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5524:2:
5524 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5525:2:
5525 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5526:2:
5526 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5527:2:
5527 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5528:2:
5528 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5529:2:
5529 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5530:2:
5530 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5531:2:
5531 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5532:2:
5532 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5533:2:
5533 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5534:2:
5534 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5535:2:
5535 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5536:2:
5536 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5537:2:
5537 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5538:2:
5538 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5539:2:
5539 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5540:2:
5540 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5541:2:
5541 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5542:2:
5542 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5543:2:
5543 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5544:2:
5544 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5545:2:
5545 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5546:2:
5546 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5547:2:
5547 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5548:2:
5548 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5549:2:
5549 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5550:2:
5550 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5551:2:
5551 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5552:2:
5552 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5553:2:
5553 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5554:2:
5554 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5555:2:
5555 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5556:2:
5556 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5557:2:
5557 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5558:2:
5558 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5559:2:
5559 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5560:2:
5560 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5561:2:
5561 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5562:2:
5562 | deallocate(separateval)
| 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 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5565:2:
5565 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5566:2:
5566 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5567:2:
5567 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5568:2:
5568 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5569:2:
5569 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5570:2:
5570 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5571:2:
5571 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5572:2:
5572 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5573:2:
5573 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5574:2:
5574 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5575:2:
5575 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5576:2:
5576 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5577:2:
5577 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5578:2:
5578 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5579:2:
5579 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5580:2:
5580 | if(splitmcp > alphamcp) 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 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5585:2:
5585 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5586:2:
5586 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5587:2:
5587 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5588:2:
5588 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5589:2:
5589 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5590:2:
5590 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5591:2:
5591 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5592:2:
5592 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5593:2:
5593 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5594:2:
5594 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5595:2:
5595 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5596:2:
5596 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5597:2:
5597 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5598:2:
5598 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5599:2:
5599 | if(.not. allocated(nodesizesubtest)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5600:2:
5600 | allocate(nodesizesubtest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5601:2:
5601 | nodesizesubtest(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5602:2:
5602 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5603:2:
5603 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5604:2:
5604 | call threetreesbootcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5605:2:
5605 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5606:2:
5606 | call threetreesbootcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5607:2:
5607 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5608:2:
5608 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5609:2:
5609 | nodenummattest(:,:) = nodenummatsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5610:2:
5610 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5611:2:
5611 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5612:2:
5612 | nodesizesubtest(2*nodeloop-1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5613:2:
5613 | nodesizesubtest(2*nodeloop) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5614:6:
5614 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5615:2:
5615 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5616:2:
5616 | deallocate(anovadata,xynodedata,xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5617:2:
5617 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5618:2:
5618 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5619:2:
5619 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5620:2:
5620 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5621:2:
5621 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5622:2:
5622 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5623:2:
5623 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5624:2:
5624 | nodesizetest(:) = nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5625:2:
5625 | deallocate(nodesizesub,nodesizesubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5626:2:
5626 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5628:2:
5628 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5632:2:
5632 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5633:2:
5633 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5634:2:
5634 | double precision, intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5635:2:
5635 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5636:2:
5636 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5637:2:
5637 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5638:2:
5638 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5639:2:
5639 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5640:2:
5640 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5641:2:
5641 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5642:2:
5642 | call threetreesbootcvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5643:2:
5643 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5644:2:
5644 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5645:2:
5645 | call threetreesbootcvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5646:2:
5646 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5647:2:
5647 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5648:2:
5648 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5649:2:
5649 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5652:2:
5652 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5653:2:
5653 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5654:2:
5654 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5655:2:
5655 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5656:2:
5656 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5657:2:
5657 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5658:2:
5658 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5659:2:
5659 | call threetreesbootcvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5660:2:
5660 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5661:2:
5661 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5662:2:
5662 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5663:2:
5663 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5664:2:
5664 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5665:2:
5665 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5666:2:
5666 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5669:2:
5669 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5670:2:
5670 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5671:2:
5671 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5672:2:
5672 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5673:2:
5673 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5674:2:
5674 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5675:2:
5675 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5676:2:
5676 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5677:2:
5677 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5678:2:
5678 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5679:2:
5679 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5680:2:
5680 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5681:2:
5681 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5682:2:
5682 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5683:2:
5683 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5684:2:
5684 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5685:2:
5685 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5686:2:
5686 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5687:2:
5687 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5688:2:
5688 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5689:2:
5689 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5690:2:
5690 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5691:2:
5691 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5692:2:
5692 | call threetreesbootcvdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5693:2:
5693 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5694:2:
5694 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5695:2:
5695 | call threetreesbootcvdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5696:2:
5696 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5697:2:
5697 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5700:2:
5700 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5701:2:
5701 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5702:2:
5702 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5703:2:
5703 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5704:2:
5704 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5705:2:
5705 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5706:2:
5706 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5707:2:
5707 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5708:2:
5708 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5709:2:
5709 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5710:2:
5710 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5711:2:
5711 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5712:2:
5712 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5713:2:
5713 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5714:2:
5714 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5715:2:
5715 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5716:2:
5716 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5717:2:
5717 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5718:2:
5718 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5719:2:
5719 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5720:2:
5720 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5721:2:
5721 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5722:2:
5722 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5723:2:
5723 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5724:2:
5724 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5725:2:
5725 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5726:2:
5726 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5727:2:
5727 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5728:2:
5728 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5729:2:
5729 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5730:2:
5730 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5731:2:
5731 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5732:2:
5732 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5733:2:
5733 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5734:2:
5734 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5737:2:
5737 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5738:2:
5738 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5739:2:
5739 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5740:2:
5740 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5741:2:
5741 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5742:2:
5742 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5743:2:
5743 | double precision facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5744:2:
5744 | call threetreesbootcvdataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5745:2:
5745 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5746:2:
5746 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5747:2:
5747 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5748:2:
5748 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5749:2:
5749 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5750:2:
5750 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5751:2:
5751 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5752:2:
5752 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5753:2:
5753 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5756:2:
5756 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5757:2:
5757 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5758:2:
5758 | double precision, intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5759:2:
5759 | double precision, intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5760:2:
5760 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5761:2:
5761 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5762:2:
5762 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5763:2:
5763 | double precision ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5764:2:
5764 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5765:2:
5765 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5766:2:
5766 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5767:2:
5767 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5768:2:
5768 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5769:2:
5769 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5770:2:
5770 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5771:2:
5771 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5772:2:
5772 | subj_map(nint(anovadata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5773:2:
5773 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5774:2:
5774 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5775:2:
5775 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5776:2:
5776 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5777:2:
5777 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5778:2:
5778 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5779:2:
5779 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5780:2:
5780 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5781:2:
5781 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5782:2:
5782 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5783:2:
5783 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5784:2:
5784 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5785:2:
5785 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5786:2:
5786 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5787:2:
5787 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5788:2:
5788 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5789:2:
5789 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5790:2:
5790 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5791:2:
5791 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5792:2:
5792 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5793:2:
5793 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5794:2:
5794 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5795:2:
5795 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5796:2:
5796 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5797:2:
5797 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5798:2:
5798 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5799:2:
5799 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5800:2:
5800 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5801:2:
5801 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5802:2:
5802 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5803:2:
5803 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5804:2:
5804 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5805:2:
5805 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5806:2:
5806 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5807:2:
5807 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5808:2:
5808 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5809:2:
5809 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5810:2:
5810 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5811:2:
5811 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5812:2:
5812 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5813:2:
5813 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5814:2:
5814 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5815:2:
5815 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5816:2:
5816 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5817:2:
5817 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5818:2:
5818 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5819:2:
5819 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5820:2:
5820 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5821:2:
5821 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5822:2:
5822 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5823:2:
5823 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5824:2:
5824 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5825:2:
5825 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5826:2:
5826 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5827:2:
5827 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5828:2:
5828 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5829:2:
5829 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5830:2:
5830 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5831:2:
5831 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5832:2:
5832 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5835:2:
5835 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5836:2:
5836 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5837:2:
5837 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5838:2:
5838 | double precision, intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5839:2:
5839 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5840:2:
5840 | double precision xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5841:2:
5841 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5842:2:
5842 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5843:2:
5843 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5844:2:
5844 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5845:2:
5845 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5846:2:
5846 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5847:2:
5847 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5848:2:
5848 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5849:2:
5849 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5850:2:
5850 | call threetreesbootcvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5851:2:
5851 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5852:2:
5852 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5853:2:
5853 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5854:2:
5854 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5855:2:
5855 | call threetreesbootcvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5856:2:
5856 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5857:2:
5857 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5858:2:
5858 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5859:2:
5859 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5860:2:
5860 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5861:2:
5861 | 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:5862:2:
5862 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5864:2:
5864 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5867:2:
5867 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5868:2:
5868 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5869:2:
5869 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5870:2:
5870 | double precision,intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5871:2:
5871 | double precision,intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5872:2:
5872 | double precision res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5873:2:
5873 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5875:2:
5875 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5876:2:
5876 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5877:2:
5877 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5878:2:
5878 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5879:2:
5879 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5880:2:
5880 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5881:2:
5881 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5886:2:
5886 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5887:2:
5887 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5888:2:
5888 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5893:2:
5893 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5894:2:
5894 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5895:2:
5895 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5896:2:
5896 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5897:2:
5897 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5898:2:
5898 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5899:2:
5899 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5900:2:
5900 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5901:2:
5901 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5902:2:
5902 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5903:2:
5903 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5904:2:
5904 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5905:2:
5905 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5906:2:
5906 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5907:2:
5907 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5908:2:
5908 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5909:2:
5909 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5910:2:
5910 | s0=s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5911:2:
5911 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5914:2:
5914 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5915:2:
5915 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5917:2:
5917 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5918:2:
5918 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5945:2:
5945 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5954:2:
5954 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5955:2:
5955 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5961:2:
5961 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:5995:2:
5995 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6006:2:
6006 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6007:2:
6007 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6008:2:
6008 | double precision,intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6009:2:
6009 | 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:6010:2:
6010 | eps=1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6011:2:
6011 | s1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6012:2:
6012 | s2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6013:2:
6013 | zval = (z-((1d0-weight)*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6014:2:
6014 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6015:2:
6015 | form2 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6016:2:
6016 | form3 = (df11/df12)**(df11/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6017:2:
6017 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6018:2:
6018 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6019:2:
6019 | form6 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6020:2:
6020 | form7 = (df21/df22)**(df21/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6021:2:
6021 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6022:2:
6022 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6023:2:
6023 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6026:2:
6026 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6027:2:
6027 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6028:2:
6028 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6029:2:
6029 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6030:2:
6030 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6031:2:
6031 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6032:2:
6032 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6033:2:
6033 | call threetreesbootcvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6034:2:
6034 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6035:2:
6035 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6036:2:
6036 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6037:2:
6037 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6038:2:
6038 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6039:2:
6039 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6040:2:
6040 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6041:2:
6041 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6045:2:
6045 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6046:2:
6046 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6047:2:
6047 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6048:2:
6048 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6049:2:
6049 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6050:2:
6050 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6051:2:
6051 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6052:2:
6052 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6053:2:
6053 | nodenummatsub(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6054:2:
6054 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6055:2:
6055 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6056:2:
6056 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6057:2:
6057 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6058:2:
6058 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6059:2:
6059 | nodenummatsub(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6060:2:
6060 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6061:2:
6061 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6062:2:
6062 | nodenummatsub(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6063:2:
6063 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6064:2:
6064 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6065:2:
6065 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6066:2:
6066 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6067:2:
6067 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6068:2:
6068 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6071:2:
6071 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6072:2:
6072 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6073:2:
6073 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6074:2:
6074 | integer, intent(in) :: nodenummat(msize,11)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6075:2:
6075 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6076:2:
6076 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6077:2:
6077 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6078:2:
6078 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6079:2:
6079 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6080:2:
6080 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6081:2:
6081 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6082:2:
6082 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6083:2:
6083 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6086:2:
6086 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6087:2:
6087 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6088:2:
6088 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6089:2:
6089 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6090:2:
6090 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6091:2:
6091 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6092:2:
6092 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6093:2:
6093 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6094:2:
6094 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6095:2:
6095 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6096:2:
6096 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6097:2:
6097 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6098:2:
6098 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6099:2:
6099 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6100:2:
6100 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6101:2:
6101 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6102:2:
6102 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6103:2:
6103 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6104:2:
6104 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6105:2:
6105 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6106:2:
6106 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6107:2:
6107 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6108:2:
6108 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6109:2:
6109 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6110:2:
6110 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6111:2:
6111 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6112:2:
6112 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6113:2:
6113 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6114:2:
6114 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6117:2:
6117 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6118:2:
6118 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6119:2:
6119 | 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:6120:2:
6120 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6121:2:
6121 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6122:2:
6122 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6123:2:
6123 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6124:2:
6124 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6125:2:
6125 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6126:2:
6126 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6127:2:
6127 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6128:2:
6128 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6129:2:
6129 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6130:2:
6130 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6131:2:
6131 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6132:2:
6132 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6133:2:
6133 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6134:2:
6134 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6135:2:
6135 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6136:2:
6136 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6137:2:
6137 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6138:2:
6138 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6139:2:
6139 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6140:2:
6140 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6141:2:
6141 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6142:2:
6142 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6143:2:
6143 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6144:2:
6144 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6145:2:
6145 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6146:2:
6146 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6147:2:
6147 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6148:2:
6148 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6149:2:
6149 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6150:2:
6150 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6151:2:
6151 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6152:2:
6152 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6153:2:
6153 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6154:2:
6154 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6155:2:
6155 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6156:2:
6156 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6157:2:
6157 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6158:2:
6158 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6159:2:
6159 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6162:2:
6162 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6163:2:
6163 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6164:2:
6164 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6165:2:
6165 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6166:2:
6166 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6167:2:
6167 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6168:2:
6168 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6169:2:
6169 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6170:2:
6170 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6171:2:
6171 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6172:2:
6172 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6173:2:
6173 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6174:2:
6174 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6175:2:
6175 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6176:2:
6176 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6177:2:
6177 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6178:2:
6178 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6179:2:
6179 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6180:2:
6180 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6181:2:
6181 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6182:2:
6182 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6183:2:
6183 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6184:2:
6184 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6185:2:
6185 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6186:2:
6186 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6187:2:
6187 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6188:2:
6188 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6189:2:
6189 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6192:2:
6192 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6193:2:
6193 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6194:2:
6194 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6195:2:
6195 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6196:2:
6196 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6197:2:
6197 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6198:2:
6198 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6199:2:
6199 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6200:2:
6200 | exit
| 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:6203:2:
6203 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6204:2:
6204 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6205:2:
6205 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6206:2:
6206 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6207:2:
6207 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6208:2:
6208 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6209:2:
6209 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6210:2:
6210 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6214:2:
6214 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6215:2:
6215 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6216:2:
6216 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6217:2:
6217 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6218:2:
6218 | double precision, intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6219:2:
6219 | double precision, intent(out) :: gammacv((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6220:2:
6220 | double precision allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6221:2:
6221 | double precision allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6222:2:
6222 | double precision losspredsum,minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6223:2:
6223 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6224:2:
6224 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6225:2:
6225 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6226:2:
6226 | allgammavaltrain(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6227:2:
6227 | gammacv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6228:2:
6228 | losspredsumvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6229:2:
6229 | call threetreesbootcvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6230:2:
6230 | nodenummattest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6231:2:
6231 | losspredsumvec(1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6232:2:
6232 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6233:2:
6233 | allfvalnew(:) = allfval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6234:2:
6234 | nodenummatnew(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6235:2:
6235 | nodenummatnewtest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6236:2:
6236 | do cvprunloop = 1,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6237:2:
6237 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6238:2:
6238 | call threetreesbootcvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6239:2:
6239 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6240:2:
6240 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6241:2:
6241 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6242:2:
6242 | call threetreesbootcvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6243:2:
6243 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6244:2:
6244 | call threetreesbootcvbestpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6245:2:
6245 | call threetreesbootcvbestpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6246:2:
6246 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6247:2:
6247 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6248:2:
6248 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6249:2:
6249 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6250:2:
6250 | allgammavaltrain(cvprunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6251:2:
6251 | call threetreesbootcvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6252:2:
6252 | nodenummatnewtest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6253:2:
6253 | losspredsumvec(cvprunloop+1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6254:2:
6254 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6255:2:
6255 | gammacv(1) = losspredsumvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6256:2:
6256 | j = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6257:2:
6257 | do i = 2,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6258:2:
6258 | if(allgammaval(i) == 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6259:2:
6259 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6260:2:
6260 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6261:2:
6261 | if(allgammaval(i) <= allgammavaltrain(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6262:2:
6262 | gammacv(i) = losspredsumvec(j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6263:2:
6263 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6264:2:
6264 | do k = 1,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6265:2:
6265 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6266:2:
6266 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6267:2:
6267 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6268:2:
6268 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6269:2:
6269 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6270:2:
6270 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6271:2:
6271 | gammacv(i) = losspredsumvec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6272:2:
6272 | j = j + 1
| 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 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6278:2:
6278 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6279:2:
6279 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6280:2:
6280 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6281:2:
6281 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6282:2:
6282 | double precision, intent(out) :: losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6283:2:
6283 | double precision, allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6284:2:
6284 | integer i,j,k,l
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6285:2:
6285 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6286:2:
6286 | allocate(timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6287:2:
6287 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6288:2:
6288 | losspred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6289:2:
6289 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6290:2:
6290 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6291:2:
6291 | do j = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6292:2:
6292 | if(sum(nodenummat(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6293:2:
6293 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6294:2:
6294 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6295:2:
6295 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6296:2:
6296 | if(nodenummat(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6297:2:
6297 | 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:6298:2:
6298 | 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:6299:2:
6299 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6300:2:
6300 | elseif(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6301:2:
6301 | 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:6302:2:
6302 | 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:6303:2:
6303 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6304:2:
6304 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6305:2:
6305 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6307:2:
6307 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6308:2:
6308 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6309:2:
6309 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6310:2:
6310 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6311:2:
6311 | enddo
| 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 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6314:2:
6314 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6315:2:
6315 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6316:2:
6316 | do j=1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6317:2:
6317 | if(2**(j-1) <= i .and. i < 2**j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6318:2:
6318 | k = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6319:2:
6319 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6320:2:
6320 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6321:2:
6321 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6322:2:
6322 | do l = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6323:2:
6323 | if(nodenummattest(l,k) == i) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6324:2:
6324 | 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: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 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6328:2:
6328 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6329:2:
6329 | losspredsum = sum(losspred)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6330:2:
6330 | deallocate(timepred,losspred,timepredcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6333:2:
6333 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6334:2:
6334 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6335:2:
6335 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6336:2:
6336 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6337:2:
6337 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6338:2:
6338 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6339:2:
6339 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6340:2:
6340 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6341:2:
6341 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6342:2:
6342 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6343:2:
6343 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6344:2:
6344 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6345:2:
6345 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6346:2:
6346 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6347:2:
6347 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6348:2:
6348 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6349:2:
6349 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6350:2:
6350 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6351:2:
6351 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6352:2:
6352 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6353:2:
6353 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6354:2:
6354 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6355:2:
6355 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6356:2:
6356 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6357:2:
6357 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6358:2:
6358 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6359:2:
6359 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6360:2:
6360 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6361:2:
6361 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6364:2:
6364 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6365:2:
6365 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6366:2:
6366 | 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:6367:2:
6367 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6368:2:
6368 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6369:2:
6369 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6370:2:
6370 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6371:2:
6371 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6372:2:
6372 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6373:2:
6373 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6374:2:
6374 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6375:2:
6375 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6376:2:
6376 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6377:2:
6377 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6378:2:
6378 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6379:2:
6379 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6380:2:
6380 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6381:2:
6381 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6382:2:
6382 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6383:2:
6383 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6384:2:
6384 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6385:2:
6385 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6386:2:
6386 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6387:2:
6387 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6388:2:
6388 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6389:2:
6389 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6390:2:
6390 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6391:2:
6391 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6392:2:
6392 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6393:2:
6393 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6394:2:
6394 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6395:2:
6395 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6396:2:
6396 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6397:2:
6397 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6398:2:
6398 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6399:2:
6399 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6400:2:
6400 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6401:2:
6401 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6402:2:
6402 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6403:2:
6403 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6404:2:
6404 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6405:2:
6405 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6406:2:
6406 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6409:2:
6409 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6410:2:
6410 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6411:2:
6411 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6412:2:
6412 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6413:2:
6413 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6414:2:
6414 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6415:2:
6415 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6416:2:
6416 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6417:2:
6417 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6418:2:
6418 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6419:2:
6419 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6420:2:
6420 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6421:2:
6421 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6422:2:
6422 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6423:2:
6423 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6424:2:
6424 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6425:2:
6425 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6426:2:
6426 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6427:2:
6427 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6428:2:
6428 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6429:2:
6429 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6430:2:
6430 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6431:2:
6431 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6432:2:
6432 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6433:2:
6433 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6434:2:
6434 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6435:2:
6435 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6436:2:
6436 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6439:2:
6439 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6440:2:
6440 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6441:2:
6441 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6442:2:
6442 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6443:2:
6443 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6444:2:
6444 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6445:2:
6445 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6446:2:
6446 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6447:2:
6447 | exit
| 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:6450:2:
6450 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6451:2:
6451 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6452:2:
6452 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6453:2:
6453 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6454:2:
6454 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6455:2:
6455 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6456:2:
6456 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6457:2:
6457 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6461:2:
6461 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6462:2:
6462 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize,cv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6463:2:
6463 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6464:2:
6464 | double precision,intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6465:2:
6465 | double precision,intent(in) :: bestgammaval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6466:2:
6466 | integer,intent(out) :: prunenodenummattest(testdatasize,maxdepth),prunenodenummat(traindatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6467:2:
6467 | 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:6468:2:
6468 | double precision minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6469:2:
6469 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6470:2:
6470 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6471:2:
6471 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6472:2:
6472 | if(bestgammaval <= 0d0 .or. prunind==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6473:2:
6473 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6474:2:
6474 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6475:2:
6475 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6476:2:
6476 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6477:2:
6477 | gammavec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6478:2:
6478 | call threetreesbootgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6479:2:
6479 | call threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6480:2:
6480 | gammavec(1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6481:2:
6481 | if(gammavec(1) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6482:2:
6482 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6483:2:
6483 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6484:2:
6484 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6485:2:
6485 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6486:2:
6486 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6487:2:
6487 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6488:2:
6488 | call threetreesbootgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6489:2:
6489 | call threetreesbootgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6490:2:
6490 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6491:2:
6491 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6492:2:
6492 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6493:2:
6493 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6494:2:
6494 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6495:2:
6495 | prunenodenummattest(:,:) = nodenummatnewtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6496:2:
6496 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6497:2:
6497 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6498:2:
6498 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6499:2:
6499 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6500:2:
6500 | call threetreesbootgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6501:2:
6501 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6502:2:
6502 | prunenodenummattest(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6503:2:
6503 | prunenodenummattest(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6504:2:
6504 | prunenodenummat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6505:2:
6505 | prunenodenummat(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6506:2:
6506 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6507:2:
6507 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6508:2:
6508 | call threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6509:2:
6509 | gammavec(prunloop) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6510:2:
6510 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6511:2:
6511 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6512:2:
6512 | prunenodenummattest(:,:) = nodenummatnewtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6513:2:
6513 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6514:2:
6514 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6515:2:
6515 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6516:2:
6516 | call threetreesbootgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6517:2:
6517 | call threetreesbootgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6518:2:
6518 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6519:2:
6519 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6520:2:
6520 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6521:2:
6521 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6522:2:
6522 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6523:2:
6523 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6524:2:
6524 | prunenodenummattest(:,:) = nodenummatnewtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6525:2:
6525 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6526:2:
6526 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6527:2:
6527 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6531:2:
6531 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6532:2:
6532 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6533:2:
6533 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6534:2:
6534 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6535:2:
6535 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6536:2:
6536 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6537:2:
6537 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6538:2:
6538 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6539:2:
6539 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6540:2:
6540 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6541:2:
6541 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6542:2:
6542 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6543:2:
6543 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6544:2:
6544 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6545:2:
6545 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6546:2:
6546 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6547:2:
6547 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6548:2:
6548 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6549:2:
6549 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6550:2:
6550 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6551:2:
6551 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6552:2:
6552 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6553:2:
6553 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6554:2:
6554 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6555:2:
6555 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6556:2:
6556 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6557:2:
6557 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6558:2:
6558 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6559:2:
6559 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6562:2:
6562 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6563:2:
6563 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6564:2:
6564 | 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:6565:2:
6565 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6566:2:
6566 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6567:2:
6567 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6568:2:
6568 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6569:2:
6569 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6570:2:
6570 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6571:2:
6571 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6572:2:
6572 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6573:2:
6573 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6574:2:
6574 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6575:2:
6575 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6576:2:
6576 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6577:2:
6577 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6578:2:
6578 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6579:2:
6579 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6580:2:
6580 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6581:2:
6581 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6582:2:
6582 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6583:2:
6583 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6584:2:
6584 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6585:2:
6585 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6586:2:
6586 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6587:2:
6587 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6588:2:
6588 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6589:2:
6589 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6590:2:
6590 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6591:2:
6591 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6592:2:
6592 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6593:2:
6593 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6594:2:
6594 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6595:2:
6595 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6596:2:
6596 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6597:2:
6597 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6598:2:
6598 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6599:2:
6599 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6600:2:
6600 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6601:2:
6601 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6602:2:
6602 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6603:2:
6603 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6604:2:
6604 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6607:2:
6607 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6608:2:
6608 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6609:2:
6609 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6610:2:
6610 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6611:2:
6611 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6612:2:
6612 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6613:2:
6613 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6614:2:
6614 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6615:2:
6615 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6616:2:
6616 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6617:2:
6617 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6618:2:
6618 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6619:2:
6619 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6620:2:
6620 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6621:2:
6621 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6622:2:
6622 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6623:2:
6623 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6624:2:
6624 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6625:2:
6625 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6626:2:
6626 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6627:2:
6627 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6628:2:
6628 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6629:2:
6629 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6630:2:
6630 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6631:2:
6631 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6632:2:
6632 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6633:2:
6633 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6634:2:
6634 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6637:2:
6637 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6638:2:
6638 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6639:2:
6639 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6640:2:
6640 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6641:2:
6641 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6642:2:
6642 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6643:2:
6643 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6644:2:
6644 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6645:2:
6645 | exit
| 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:6648:2:
6648 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6649:2:
6649 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6650:2:
6650 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6651:2:
6651 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6652:2:
6652 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6653:2:
6653 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6654:2:
6654 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6655:2:
6655 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6659:2:
6659 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6660:2:
6660 | integer, intent(in) :: datasizeori,datasizeboot,levelcount,colnum,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6661:2:
6661 | integer, intent(in) :: prunenodenummatboot(datasizeboot,maxdepth),prunenodenummatori(datasizeori,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6662:2:
6662 | double precision, intent(in) :: bootDATA(datasizeboot,colnum),XYDATA(datasizeori,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6663:2:
6663 | integer, intent(out) :: datatnnodenum(datasizeori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6664:2:
6664 | double precision, intent(out) :: predvec(datasizeori)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6665:2:
6665 | integer tndatacount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6666:2:
6666 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6667:2:
6667 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6668:2:
6668 | double precision tnodepredmat((2**maxdepth)-1,levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6669:2:
6669 | allocate(timepredsum((2**maxdepth)-1,levelcount),timepredcou((2**maxdepth)-1,levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6670:2:
6670 | timepredsum(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6671:2:
6671 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6672:2:
6672 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6673:2:
6673 | do j = 1,datasizeboot
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6674:2:
6674 | if(sum(prunenodenummatboot(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6675:2:
6675 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6676:2:
6676 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6677:2:
6677 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6678:2:
6678 | if(prunenodenummatboot(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6679:2:
6679 | timepredsum(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6680:2:
6680 | timepredsum(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) + bootDATA(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6681:2:
6681 | timepredcou(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6682:2:
6682 | timepredcou(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6683:2:
6683 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6684:2:
6684 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6685:2:
6685 | elseif(prunenodenummatboot(j,i) > 0 .and. prunenodenummatboot(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6686:2:
6686 | timepredsum(prunenodenummatboot(j,i),int(bootDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6687:2:
6687 | timepredsum(prunenodenummatboot(j,i),int(bootDATA(j,3))) + bootDATA(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6688:2:
6688 | timepredcou(prunenodenummatboot(j,i),int(bootDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6689:2:
6689 | timepredcou(prunenodenummatboot(j,i),int(bootDATA(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6690:2:
6690 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6691:2:
6691 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6692:2:
6692 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6694:2:
6694 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6695:2:
6695 | if(sum(prunenodenummatori(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6696:2:
6696 | goto 3020
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6697:2:
6697 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6698:2:
6698 | do j = 1,datasizeori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6699:2:
6699 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6700:2:
6700 | if(prunenodenummatori(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6701:2:
6701 | datatnnodenum(j) = prunenodenummatori(j,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6702:2:
6702 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6703:2:
6703 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6704:2:
6704 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6705:2:
6705 | if(prunenodenummatori(j,i) > 0 .and. prunenodenummatori(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6706:2:
6706 | datatnnodenum(j) = prunenodenummatori(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6707:2:
6707 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6708:2:
6708 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6709:2:
6709 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6711:2:
6711 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6712:2:
6712 | if(abs(sum(timepredsum(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6713:2:
6713 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6714:2:
6714 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6715:2:
6715 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6716:2:
6716 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6717:2:
6717 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6718:2:
6718 | do i = 1,datasizeori
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6719:2:
6719 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6720:2:
6720 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6724:2:
6724 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6725:2:
6725 | integer, intent(in) :: msize,loops,levelcount,mins,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6726:2:
6726 | double precision, intent(in) :: predvecmat(msize,loops),xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6727:2:
6727 | integer, intent(in) :: datatnnodenummat(msize,loops)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6728:2:
6728 | double precision, intent(out) :: bettertreelossval(mins,5),bettertreemaxval(mins,5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6729:2:
6729 | integer, intent(out) :: bettertreenum(mins,6)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6730:2:
6730 | double precision, allocatable :: randmat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6731:2:
6731 | integer ind1,ind2,ind3,samplesize,i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6732:2:
6732 | integer combinations(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6733:2:
6733 | integer losscomb(mins,3),randmaxcomb(mins,3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6734:2:
6734 | double precision lossvec(mins,5),randmaxvec(mins,5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6735:2:
6735 | double precision predmean(msize),randindexval,randval(3),lossval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6736:2:
6736 | double precision worst_loss, worst_randmax
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6737:2:
6737 | integer worst_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6738:2:
6738 | logical, allocatable :: has_split(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6739:2:
6739 | allocate(randmat(loops,loops))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6740:2:
6740 | allocate(has_split(loops))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6741:2:
6741 | samplesize = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6742:2:
6742 | do i = 1,loops
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6743:2:
6743 | has_split(i) = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6744:2:
6744 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6745:2:
6745 | if(datatnnodenummat(j,i) /= datatnnodenummat(1,i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6746:2:
6746 | has_split(i) = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6747:2:
6747 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6748:2:
6748 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6749:2:
6749 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6750:2:
6750 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6751:2:
6751 | randmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6752:2:
6752 | do i = 1,loops
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6753:2:
6753 | if(.not. has_split(i)) cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6754:2:
6754 | do j = (i+1),loops
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6755:2:
6755 | if(.not. has_split(j)) cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6756:2:
6756 | call threetreesrandindex(samplesize,levelcount,datatnnodenummat(:,i),datatnnodenummat(:,j),msize,randindexval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6757:2:
6757 | if(isnan(randindexval)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6758:2:
6758 | randmat(i,j) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6759:2:
6759 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6760:2:
6760 | randmat(i,j) = randindexval
| 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 | lossvec(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6765:2:
6765 | randmaxvec(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6766:2:
6766 | losscomb(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6767:2:
6767 | randmaxcomb(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6768:2:
6768 | do i = 1,mins
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6769:2:
6769 | lossvec(i,1) = huge(1d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6770:2:
6770 | randmaxvec(i,1) = huge(1d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6771:2:
6771 | randmaxvec(i,3:5) = 2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6772:2:
6772 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6773:2:
6773 | do ind1 = 1, (loops-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6774:2:
6774 | if(.not. has_split(ind1)) cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6775:2:
6775 | do ind2 = (ind1 + 1), (loops-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6776:2:
6776 | if(.not. has_split(ind2)) cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6777:2:
6777 | do ind3 = (ind2 + 1), loops
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6778:2:
6778 | if(.not. has_split(ind3)) cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6779:2:
6779 | combinations(1) = ind1 ; combinations(2) = ind2 ; combinations(3) = ind3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6780:2:
6780 | predmean(:) = (predvecmat(:,ind1) + predvecmat(:,ind2) + predvecmat(:,ind3)) / 3d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6781:2:
6781 | lossval = sum((xydata(:,1) - predmean(:))*(xydata(:,1) - predmean(:))) / dble(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6782:2:
6782 | randval(1) = randmat(ind1,ind2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6783:2:
6783 | randval(2) = randmat(ind1,ind3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6784:2:
6784 | randval(3) = randmat(ind2,ind3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6785:2:
6785 | worst_loss = lossvec(1,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6786:2:
6786 | worst_idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6787:2:
6787 | do i = 2,mins
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6788:2:
6788 | if(lossvec(i,1) > worst_loss) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6789:2:
6789 | worst_loss = lossvec(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6790:2:
6790 | worst_idx = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6791:2:
6791 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6792:2:
6792 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6793:2:
6793 | if(lossval < worst_loss) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6794:2:
6794 | lossvec(worst_idx,1) = lossval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6795:2:
6795 | losscomb(worst_idx,:) = combinations(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6796:2:
6796 | lossvec(worst_idx,2) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6797:2:
6797 | lossvec(worst_idx,3:5) = randval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6798:2:
6798 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6799:2:
6799 | worst_randmax = maxval(randmaxvec(1,3:5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6800:2:
6800 | worst_idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6801:2:
6801 | do i = 2,mins
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6802:2:
6802 | if(maxval(randmaxvec(i,3:5)) > worst_randmax) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6803:2:
6803 | worst_randmax = maxval(randmaxvec(i,3:5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6804:2:
6804 | worst_idx = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6805:2:
6805 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6806:2:
6806 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6807:2:
6807 | if(maxval(randval(:)) < worst_randmax) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6808:2:
6808 | randmaxvec(worst_idx,1) = lossval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6809:2:
6809 | randmaxcomb(worst_idx,:) = combinations(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6810:2:
6810 | randmaxvec(worst_idx,2) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6811:2:
6811 | randmaxvec(worst_idx,3:5) = randval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6812:2:
6812 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6813:2:
6813 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6814:2:
6814 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6815:2:
6815 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6816:2:
6816 | deallocate(randmat, has_split)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6817:2:
6817 | do i = 1,mins
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6818:2:
6818 | bettertreenum(i,1:3) = losscomb(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6819:2:
6819 | bettertreenum(i,4:6) = randmaxcomb(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6820:2:
6820 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6821:2:
6821 | bettertreelossval(:,:) = lossvec(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6822:2:
6822 | bettertreemaxval(:,:) = randmaxvec(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6825:2:
6825 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6826:2:
6826 | integer, intent(in) :: msize,samplesize,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6827:2:
6827 | integer, intent(in) :: datatnnodenum(msize),datatnnodenumtrue(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6828:2:
6828 | double precision, intent(out) :: randindexval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6829:2:
6829 | integer tncount,tncounttrue,i,j,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6830:2:
6830 | integer datatnnodenumnorm(msize),datatnnodenumtruenorm(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6831:2:
6831 | integer subtnnodenumnorm(samplesize),subtnnodenumtruenorm(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6832:2:
6832 | double precision form1,form2,form3,form4,formval,rowsum,colsum,denom,num
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6833:2:
6833 | integer nz,r,c
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6834:2:
6834 | logical same
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6835:2:
6835 | double precision, allocatable :: tnval(:),tntrueval(:),conttable(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6836:2:
6836 | call threetreestcdatasum(dble(datatnnodenum(:)),msize,tncount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6837:2:
6837 | call threetreestcdatasum(dble(datatnnodenumtrue(:)),msize,tncounttrue)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6838:2:
6838 | allocate(tnval(tncount),tntrueval(tncounttrue))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6839:2:
6839 | call threetreestcdataval(dble(datatnnodenum(:)),msize,tnval,tncount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6840:2:
6840 | call threetreestcdataval(dble(datatnnodenumtrue(:)),msize,tntrueval,tncounttrue)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6841:2:
6841 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6842:2:
6842 | do j = 1,tncount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6843:2:
6843 | if(datatnnodenum(i) == int(tnval(j))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6844:2:
6844 | datatnnodenumnorm(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6845:2:
6845 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6846:2:
6846 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6847:2:
6847 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6848:2:
6848 | do k = 1,tncounttrue
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6849:2:
6849 | if(datatnnodenumtrue(i) == int(tntrueval(k))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6850:2:
6850 | datatnnodenumtruenorm(i) = k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6851:2:
6851 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6852:2:
6852 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6853:2:
6853 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6854:2:
6854 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6855:2:
6855 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6856:2:
6856 | do i = 1,samplesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6857:2:
6857 | subtnnodenumnorm(i) = datatnnodenumnorm(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6858:2:
6858 | subtnnodenumtruenorm(i) = datatnnodenumtruenorm(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6859:2:
6859 | j = j + levelcount
| 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 | allocate(conttable(tncount,tncounttrue))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6862:2:
6862 | conttable(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6863:2:
6863 | do i = 1,samplesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6864:2:
6864 | conttable(subtnnodenumnorm(i),subtnnodenumtruenorm(i)) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6865:2:
6865 | conttable(subtnnodenumnorm(i),subtnnodenumtruenorm(i)) + 1d0
| 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 | form1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6868:2:
6868 | do i = 1,tncount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6869:2:
6869 | do j = 1,tncounttrue
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6870:2:
6870 | formval = conttable(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6871:2:
6871 | if(formval > 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6872:2:
6872 | form1 = form1 + formval * (formval - 1d0) / 2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6873:2:
6873 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6874:2:
6874 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6875:2:
6875 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6876:2:
6876 | form2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6877:2:
6877 | do i = 1,tncount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6878:2:
6878 | rowsum = sum(conttable(i,:))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6879:2:
6879 | if(rowsum > 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6880:2:
6880 | form2 = form2 + rowsum * (rowsum - 1d0) / 2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6881:2:
6881 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6882:2:
6882 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6883:2:
6883 | form3 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6884:2:
6884 | do j = 1,tncounttrue
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6885:2:
6885 | colsum = sum(conttable(:,j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6886:2:
6886 | if(colsum > 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6887:2:
6887 | form3 = form3 + colsum * (colsum - 1d0) / 2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6888:2:
6888 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6889:2:
6889 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6890:2:
6890 | form4 = dble(samplesize) * dble(samplesize - 1) / 2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6891:2:
6891 | denom = 0.5d0 * (form2 + form3) - (form2 * form3) / form4
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6892:2:
6892 | num = form1 - (form2 * form3) / form4
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6893:2:
6893 | if(abs(denom) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6894:2:
6894 | if(abs(num) > 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6895:2:
6895 | randindexval = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6896:2:
6896 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6897:2:
6897 | same = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6898:2:
6898 | do r = 1, tncount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6899:2:
6899 | nz = count(conttable(r,:) > 0d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6900:2:
6900 | if(nz > 1) same = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6901:2:
6901 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6902:2:
6902 | do c = 1, tncounttrue
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6903:2:
6903 | nz = count(conttable(:,c) > 0d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6904:2:
6904 | if(nz > 1) same = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6905:2:
6905 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6906:2:
6906 | if(same) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6907:2:
6907 | randindexval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6908:2:
6908 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6909:2:
6909 | randindexval = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6910:2:
6910 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6911:2:
6911 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6912:2:
6912 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6913:2:
6913 | randindexval = num / denom
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6914:2:
6914 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6915:2:
6915 | deallocate(conttable,tnval,tntrueval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6918:2:
6918 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6919:2:
6919 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6920:2:
6920 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6921:2:
6921 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6922:2:
6922 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6923:2:
6923 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6924:2:
6924 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6925:2:
6925 | call threetreestcdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6926:2:
6926 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6927:2:
6927 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6928:2:
6928 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6929:2:
6929 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6930:2:
6930 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6931:2:
6931 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6932:2:
6932 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6935:2:
6935 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6936:2:
6936 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6937:2:
6937 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6938:2:
6938 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6939:2:
6939 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6940:2:
6940 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6941:2:
6941 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6942:2:
6942 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6943:2:
6943 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6944:2:
6944 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6945:2:
6945 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6946:2:
6946 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6947:2:
6947 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6948:2:
6948 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6949:2:
6949 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6950:2:
6950 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6951:2:
6951 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6952:2:
6952 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6953:2:
6953 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6954:2:
6954 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6955:2:
6955 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6956:2:
6956 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6957:2:
6957 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6958:2:
6958 | call threetreestcdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6959:2:
6959 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6960:2:
6960 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6961:2:
6961 | call threetreestcdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6962:2:
6962 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6963:2:
6963 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6966:2:
6966 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6967:2:
6967 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6968:2:
6968 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6969:2:
6969 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6970:2:
6970 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6971:2:
6971 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6972:2:
6972 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6973:2:
6973 | call threetreestcdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6974:2:
6974 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6975:2:
6975 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6976:2:
6976 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6977:2:
6977 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6978:2:
6978 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6979:2:
6979 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6980:2:
6980 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6981:2:
6981 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6984:2:
6984 | beta1len,beta2len,nodenummat,allfval,prunind,Rsplitmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6985:2:
6985 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6986:2:
6986 | integer,intent(in) :: msize,colnum,levelcount,beta1len,beta2len,maxdepth,minsplit,minbucket
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6987:2:
6987 | integer,intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6988:2:
6988 | double precision,intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6989:2:
6989 | double precision,intent(in) :: xydata(msize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6990:2:
6990 | double precision, intent(out) :: Rsplitmat((2**maxdepth)-1,10)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6991:2:
6991 | double precision,intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6992:2:
6992 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6993:2:
6993 | integer,intent(out) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6994:2:
6994 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6995:2:
6995 | double precision fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6996:2:
6996 | 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:6997:2:
6997 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5),nodenummatsub(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6998:2:
6998 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:), splitindvec(:),nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:6999:2:
6999 | double precision,allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),xynodedata(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7000:2:
7000 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7001:2:
7001 | integer, allocatable :: flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7002:2:
7002 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7003:2:
7003 | double precision :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7004:2:
7004 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7005:2:
7005 | Rsplitmat(:,:) = 0.0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7006:2:
7006 | nodenummat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7007:2:
7007 | nodenummat(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7008:2:
7008 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7009:2:
7009 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7010:2:
7010 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7011:2:
7011 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7012:2:
7012 | allocate(nodesize(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7013:2:
7013 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7014:2:
7014 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7015:2:
7015 | call threetreessplitcount(msize, colnum-3, xydata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7016:2:
7016 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7017:2:
7017 | 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:7018:2:
7018 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7019:2:
7019 | 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:7020:2:
7020 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7021:2:
7021 | allocate(anovadata(msize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7022:2:
7022 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7023:2:
7023 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7024:2:
7024 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7025:2:
7025 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7026:2:
7026 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7027:2:
7027 | 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:7028:2:
7028 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7029:2:
7029 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7030:2:
7030 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7031:2:
7031 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7032:2:
7032 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),xydata,msize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7033:2:
7033 | call threetreesrepANOVA(msize,colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7034:2:
7034 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7035:2:
7035 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7036:2:
7036 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7037:2:
7037 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7038:2:
7038 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7039:2:
7039 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7040:2:
7040 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7041:2:
7041 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7042:2:
7042 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7043:2:
7043 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7044:2:
7044 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7045:2:
7045 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7046:2:
7046 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7047:2:
7047 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7048:2:
7048 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7049:2:
7049 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7050:2:
7050 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7051:2:
7051 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7052:2:
7052 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7053:2:
7053 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7054:2:
7054 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7055:2:
7055 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7056:2:
7056 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7057:2:
7057 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7058:2:
7058 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7059:2:
7059 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7060:2:
7060 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7061:2:
7061 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7062:2:
7062 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7063:2:
7063 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7064:2:
7064 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7065:2:
7065 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7066:2:
7066 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7067:2:
7067 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7068:2:
7068 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7069:2:
7069 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7070:2:
7070 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7071:2:
7071 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7072:2:
7072 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7073:2:
7073 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7074:2:
7074 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7075:2:
7075 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7076:2:
7076 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7077:2:
7077 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7078:2:
7078 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7079:2:
7079 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7080:2:
7080 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7081:2:
7081 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7082:2:
7082 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7083:2:
7083 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7084:2:
7084 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7085:2:
7085 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7086:2:
7086 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7087:2:
7087 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7088:2:
7088 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7089:2:
7089 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7090:2:
7090 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7091:2:
7091 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7092:2:
7092 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7093:2:
7093 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7094:2:
7094 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7095:2:
7095 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7096:2:
7096 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7097:2:
7097 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7098:2:
7098 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7099:2:
7099 | xydata,msize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7100:2:
7100 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7101:2:
7101 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7102:2:
7102 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7103:2:
7103 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7104:2:
7104 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7105:2:
7105 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7106:2:
7106 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7107:2:
7107 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7108:2:
7108 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7109:2:
7109 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7110:2:
7110 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7111:2:
7111 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7112:2:
7112 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7113:2:
7113 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7114:2:
7114 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7115:2:
7115 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7116:2:
7116 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7117:2:
7117 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7118:2:
7118 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7119:2:
7119 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7120:2:
7120 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7121:2:
7121 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7122:2:
7122 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7123:2:
7123 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7124:2:
7124 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7125:2:
7125 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7126:2:
7126 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7127:2:
7127 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7128:2:
7128 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7129:2:
7129 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7130:2:
7130 | xydata,msize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7131:2:
7131 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7132:2:
7132 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7133:2:
7133 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7134:2:
7134 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7135:2:
7135 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7136:2:
7136 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7137:2:
7137 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7138:2:
7138 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7139:2:
7139 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7140:2:
7140 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7141:2:
7141 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7142:2:
7142 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7143:2:
7143 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7144:2:
7144 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7145:2:
7145 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7146:2:
7146 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7147:2:
7147 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7148:2:
7148 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7149:2:
7149 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7150:2:
7150 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7151:2:
7151 | if(splitmcp > alphamcp) 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 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7156:2:
7156 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7157:2:
7157 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7158:2:
7158 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7159:2:
7159 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7160:2:
7160 | if(splitgroupsum <= dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7161:2:
7161 | (dble(msize) - splitgroupsum) <= dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7162:2:
7162 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7163:2:
7163 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7164:2:
7164 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7165:2:
7165 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7166:2:
7166 | Rsplitmat(1,1) =dble(nodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7167:2:
7167 | Rsplitmat(1,2) = splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7168:2:
7168 | Rsplitmat(1,3) = 1d0-splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7169:2:
7169 | Rsplitmat(1,4) = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7170:2:
7170 | Rsplitmat(1,5) = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7171:2:
7171 | Rsplitmat(1,6) = splitfval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7172:2:
7172 | Rsplitmat(1,7) = splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7173:2:
7173 | Rsplitmat(1,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7174:2:
7174 | Rsplitmat(1,9) = splitpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7175:2:
7175 | Rsplitmat(1,10) = splitmcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7176:2:
7176 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7177:2:
7177 | call threetreesnodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7178:2:
7178 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7179:2:
7179 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7180:2:
7180 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7181:2:
7181 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7182:2:
7182 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7183:2:
7183 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7184:2:
7184 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7185:2:
7185 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7186:2:
7186 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7187:2:
7187 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7188:2:
7188 | 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:7189:2:
7189 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7190:2:
7190 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7191:2:
7191 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7192:2:
7192 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7193:2:
7193 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7194:2:
7194 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7195:2:
7195 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7196:2:
7196 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7197:2:
7197 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7198:2:
7198 | call threetreesnodedatanumber(xydata,msize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7199:2:
7199 | call threetreessplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7200:2:
7200 | if(sum(splitnum) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7201:2:
7201 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7202:2:
7202 | goto 2001
| 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 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7205:2:
7205 | 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:7206:2:
7206 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7207:2:
7207 | 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:7208:2:
7208 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7209:2:
7209 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7210:2:
7210 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7211:2:
7211 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7212:2:
7212 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7213:2:
7213 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7214:2:
7214 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7215:2:
7215 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7216:2:
7216 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7217:2:
7217 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7218:2:
7218 | if(allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7219:2:
7219 | deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7220:2:
7220 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7221:2:
7221 | if(.not. allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7222:2:
7222 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7223:2:
7223 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7224:2:
7224 | if(allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7225:2:
7225 | deallocate(facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7226:2:
7226 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7227:2:
7227 | if(.not. allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7228:2:
7228 | allocate(facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7229:2:
7229 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7230:2:
7230 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7231:2:
7231 | countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7232:2:
7232 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7233:2:
7233 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7234:2:
7234 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7235:2:
7235 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7236:2:
7236 | 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:7237:2:
7237 | call threetreesrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7238:2:
7238 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7239:2:
7239 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7240:2:
7240 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7241:2:
7241 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7242:2:
7242 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7243:2:
7243 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7244:2:
7244 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7245:2:
7245 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7246:2:
7246 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7247:2:
7247 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7248:2:
7248 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7249:2:
7249 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7250:2:
7250 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7251:2:
7251 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7252:2:
7252 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7253:2:
7253 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7254:2:
7254 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7255:2:
7255 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7256:6:
7256 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7257:2:
7257 | enddo
| 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 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7260:2:
7260 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7261:2:
7261 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7262:2:
7262 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7263:2:
7263 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7264:2:
7264 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7265:2:
7265 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7266:2:
7266 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7267:2:
7267 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7268:2:
7268 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7269:2:
7269 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7270:2:
7270 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7271:2:
7271 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7272:2:
7272 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7273:2:
7273 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7274:2:
7274 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7275:2:
7275 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7276:2:
7276 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7277:2:
7277 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7278:2:
7278 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7279:2:
7279 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7280:2:
7280 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7281:2:
7281 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7282:2:
7282 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7283:2:
7283 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7284:2:
7284 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7285:2:
7285 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7286:2:
7286 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7287:2:
7287 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7288:2:
7288 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7289:2:
7289 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7290:2:
7290 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7291:2:
7291 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7292:2:
7292 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7293:2:
7293 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7294:2:
7294 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7295:2:
7295 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7296:2:
7296 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7297:2:
7297 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7298:2:
7298 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7299:2:
7299 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7300:2:
7300 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7301:2:
7301 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7302:2:
7302 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7303:2:
7303 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7304:2:
7304 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7305:2:
7305 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7306:2:
7306 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7307:2:
7307 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7308:2:
7308 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7309:2:
7309 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7310:2:
7310 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7311:2:
7311 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7312:2:
7312 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7313:2:
7313 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7314:2:
7314 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7315:2:
7315 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7316:2:
7316 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7317:2:
7317 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7318:2:
7318 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7319:2:
7319 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7320:2:
7320 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7321:2:
7321 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7322:2:
7322 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7323:2:
7323 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7324:2:
7324 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7325:2:
7325 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7326:2:
7326 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7327:2:
7327 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7328:2:
7328 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7329:2:
7329 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7330:2:
7330 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7331:2:
7331 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7332:2:
7332 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7333:2:
7333 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7334:2:
7334 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7335:2:
7335 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7336:2:
7336 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7337:2:
7337 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7338:2:
7338 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7339:2:
7339 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7340:2:
7340 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7341:2:
7341 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7342:2:
7342 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7343:2:
7343 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7344:2:
7344 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7345:2:
7345 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7346:2:
7346 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7347:2:
7347 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7348:2:
7348 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7349:2:
7349 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7350:2:
7350 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7351:2:
7351 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7352:2:
7352 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7353:2:
7353 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7354:2:
7354 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7355:2:
7355 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7356:2:
7356 | if(splitmcp > alphamcp) 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 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7361:2:
7361 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7362:2:
7362 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7363:2:
7363 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7364:2:
7364 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7365:2:
7365 | if(splitgroupsum <= dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7366:2:
7366 | (dble(nodesize(nodeloop)) - splitgroupsum) <= dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7367:2:
7367 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7368:2:
7368 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7369:2:
7369 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7370:2:
7370 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7371:2:
7371 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7372:2:
7372 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7373:2:
7373 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7374:2:
7374 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7375:2:
7375 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7376:2:
7376 | call threetreesnodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7377:2:
7377 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7378:2:
7378 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7379:2:
7379 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7380:2:
7380 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7381:2:
7381 | Rsplitmat(nodenum,1) =dble(nodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7382:2:
7382 | Rsplitmat(nodenum,2) = splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7383:2:
7383 | Rsplitmat(nodenum,3) = 1d0-splitweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7384:2:
7384 | Rsplitmat(nodenum,4) = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7385:2:
7385 | Rsplitmat(nodenum,5) = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7386:2:
7386 | Rsplitmat(nodenum,6) = splitfval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7387:2:
7387 | Rsplitmat(nodenum,7) = splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7388:2:
7388 | Rsplitmat(nodenum,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7389:2:
7389 | Rsplitmat(nodenum,9) = splitpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7390:2:
7390 | Rsplitmat(nodenum,10) = splitmcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7391:6:
7391 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7392:2:
7392 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7393:2:
7393 | deallocate(anovadata,xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7394:2:
7394 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7395:2:
7395 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7396:2:
7396 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7397:2:
7397 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7398:2:
7398 | deallocate(nodesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7399:2:
7399 | allocate(nodesize(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7400:2:
7400 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7401:2:
7401 | deallocate(nodesizesub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7402:2:
7402 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7404:2:
7404 | deallocate(nodesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7408:2:
7408 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7409:2:
7409 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7410:2:
7410 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7411:2:
7411 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7412:2:
7412 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7413:2:
7413 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7414:2:
7414 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7415:2:
7415 | call threetreesdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7416:2:
7416 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7417:2:
7417 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7418:2:
7418 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7419:2:
7419 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7420:2:
7420 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7421:2:
7421 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7422:2:
7422 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7425:2:
7425 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7426:2:
7426 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7427:2:
7427 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7428:2:
7428 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7429:2:
7429 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7430:2:
7430 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7431:2:
7431 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7432:2:
7432 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7433:2:
7433 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7434:2:
7434 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7435:2:
7435 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7436:2:
7436 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7437:2:
7437 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7438:2:
7438 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7439:2:
7439 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7440:2:
7440 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7441:2:
7441 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7442:2:
7442 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7443:2:
7443 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7444:2:
7444 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7445:2:
7445 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7446:2:
7446 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7447:2:
7447 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7448:2:
7448 | call threetreesdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7449:2:
7449 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7450:2:
7450 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7451:2:
7451 | call threetreesdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7452:2:
7452 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7453:2:
7453 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7456:2:
7456 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7457:2:
7457 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7458:2:
7458 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7459:2:
7459 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7460:2:
7460 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7461:2:
7461 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7462:2:
7462 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7463:2:
7463 | call threetreesdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7464:2:
7464 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7465:2:
7465 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7466:2:
7466 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7467:2:
7467 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7468:2:
7468 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7469:2:
7469 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7470:2:
7470 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7471:2:
7471 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7474:2:
7474 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7475:2:
7475 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7476:2:
7476 | double precision, intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7477:2:
7477 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7478:2:
7478 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7479:2:
7479 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7480:2:
7480 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7481:2:
7481 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7482:2:
7482 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7483:2:
7483 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7484:2:
7484 | call threetreesdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7485:2:
7485 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7486:2:
7486 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7487:2:
7487 | call threetreesdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7488:2:
7488 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7489:2:
7489 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7490:2:
7490 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7491:2:
7491 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7494:2:
7494 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7495:2:
7495 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7496:2:
7496 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7497:2:
7497 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7498:2:
7498 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7499:2:
7499 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7500:2:
7500 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7501:2:
7501 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7502:2:
7502 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7503:2:
7503 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7504:2:
7504 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7505:2:
7505 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7506:2:
7506 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7507:2:
7507 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7508:2:
7508 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7509:2:
7509 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7510:2:
7510 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7511:2:
7511 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7512:2:
7512 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7513:2:
7513 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7514:2:
7514 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7515:2:
7515 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7516:2:
7516 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7517:2:
7517 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7518:2:
7518 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7519:2:
7519 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7520:2:
7520 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7521:2:
7521 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7522:2:
7522 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7523:2:
7523 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7524:2:
7524 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7525:2:
7525 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7526:2:
7526 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7527:2:
7527 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7528:2:
7528 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7531:2:
7531 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7532:2:
7532 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7533:2:
7533 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7534:2:
7534 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7535:2:
7535 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7536:2:
7536 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7537:2:
7537 | double precision facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7538:2:
7538 | call threetreesdataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7539:2:
7539 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7540:2:
7540 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7541:2:
7541 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7542:2:
7542 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7543:2:
7543 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7544:2:
7544 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7545:2:
7545 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7546:2:
7546 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7547:2:
7547 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7550:2:
7550 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7551:2:
7551 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7552:2:
7552 | double precision, intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7553:2:
7553 | double precision, intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7554:2:
7554 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7555:2:
7555 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7556:2:
7556 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7557:2:
7557 | double precision ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7558:2:
7558 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7559:2:
7559 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7560:2:
7560 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7561:2:
7561 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7562:2:
7562 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7563:2:
7563 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7564:2:
7564 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7565:2:
7565 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7566:2:
7566 | subj_map(nint(anovadata(i,2))) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7567:2:
7567 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7568:2:
7568 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7569:2:
7569 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7570:2:
7570 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7571:2:
7571 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7572:2:
7572 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7573:2:
7573 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7574:2:
7574 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7575:2:
7575 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7576:2:
7576 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7577:2:
7577 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7578:2:
7578 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7579:2:
7579 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7580:2:
7580 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7581:2:
7581 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7582:2:
7582 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7583:2:
7583 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7584:2:
7584 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7585:2:
7585 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7586:2:
7586 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7587:2:
7587 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7588:2:
7588 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7589:2:
7589 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7590:2:
7590 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7591:2:
7591 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7592:2:
7592 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7593:2:
7593 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7594:2:
7594 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7595:2:
7595 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7596:2:
7596 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7597:2:
7597 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7598:2:
7598 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7599:2:
7599 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7600:2:
7600 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7601:2:
7601 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7602:2:
7602 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7603:2:
7603 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7604:2:
7604 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7605:2:
7605 | ssgrouptime = 0d0; sssubject = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7606:2:
7606 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7607:2:
7607 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7608:2:
7608 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7609:2:
7609 | si = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7610:2:
7610 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7611:2:
7611 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7612:2:
7612 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7613:2:
7613 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7614:2:
7614 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7615:2:
7615 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7616:2:
7616 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7617:2:
7617 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7618:2:
7618 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7619:2:
7619 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7620:2:
7620 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7621:2:
7621 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7622:2:
7622 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7623:2:
7623 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7624:2:
7624 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7625:2:
7625 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7626:2:
7626 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7629:2:
7629 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7630:2:
7630 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7631:2:
7631 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7632:2:
7632 | double precision, intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7633:2:
7633 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7634:2:
7634 | double precision xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7635:2:
7635 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7636:2:
7636 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7637:2:
7637 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7638:2:
7638 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7639:2:
7639 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7640:2:
7640 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7641:2:
7641 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7642:2:
7642 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7643:2:
7643 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7644:2:
7644 | call threetreespfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7645:2:
7645 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7646:2:
7646 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7647:2:
7647 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7648:2:
7648 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7649:2:
7649 | call threetreespfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7650:2:
7650 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7651:2:
7651 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7652:2:
7652 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7653:2:
7653 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7654:2:
7654 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7655:2:
7655 | 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:7656:2:
7656 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7658:2:
7658 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7661:2:
7661 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7662:2:
7662 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7663:2:
7663 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7664:2:
7664 | double precision,intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7665:2:
7665 | double precision,intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7666:2:
7666 | double precision res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7667:2:
7667 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7669:2:
7669 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7670:2:
7670 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7671:2:
7671 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7672:2:
7672 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7673:2:
7673 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7674:2:
7674 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7675:2:
7675 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7680:2:
7680 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7681:2:
7681 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7682:2:
7682 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7687:2:
7687 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7688:2:
7688 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7689:2:
7689 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7690:2:
7690 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7691:2:
7691 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7692:2:
7692 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7693:2:
7693 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7694:2:
7694 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7695:2:
7695 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7696:2:
7696 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7697:2:
7697 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7698:2:
7698 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7699:2:
7699 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7700:2:
7700 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7701:2:
7701 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7702:2:
7702 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7703:2:
7703 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7704:2:
7704 | s0=s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7705:2:
7705 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7708:2:
7708 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7709:2:
7709 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7711:2:
7711 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7712:2:
7712 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7739:2:
7739 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7748:2:
7748 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7749:2:
7749 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7755:2:
7755 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7789:2:
7789 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7800:2:
7800 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7801:2:
7801 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7802:2:
7802 | double precision,intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7803:2:
7803 | 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:7804:2:
7804 | eps=1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7805:2:
7805 | s1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7806:2:
7806 | s2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7807:2:
7807 | zval = (z-((1d0-weight)*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7808:2:
7808 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7809:2:
7809 | form2 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7810:2:
7810 | form3 = (df11/df12)**(df11/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7811:2:
7811 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7812:2:
7812 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7813:2:
7813 | form6 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7814:2:
7814 | form7 = (df21/df22)**(df21/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7815:2:
7815 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7816:2:
7816 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7817:2:
7817 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7821:2:
7821 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7822:2:
7822 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7823:2:
7823 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7824:2:
7824 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7825:2:
7825 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7826:2:
7826 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7827:2:
7827 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7828:2:
7828 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7829:2:
7829 | nodenummatsub(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7830:2:
7830 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7831:2:
7831 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7832:2:
7832 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7833:2:
7833 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7834:2:
7834 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7835:2:
7835 | nodenummatsub(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7836:2:
7836 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7837:2:
7837 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7838:2:
7838 | nodenummatsub(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7839:2:
7839 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7840:2:
7840 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7841:2:
7841 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7842:2:
7842 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7843:2:
7843 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7844:2:
7844 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7847:2:
7847 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7848:2:
7848 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7849:2:
7849 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7850:2:
7850 | integer, intent(in) :: nodenummat(msize,11)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7851:2:
7851 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7852:2:
7852 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7853:2:
7853 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7854:2:
7854 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7855:2:
7855 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7856:2:
7856 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7857:2:
7857 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7858:2:
7858 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7859:2:
7859 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7862:2:
7862 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7863:2:
7863 | integer,intent(in) :: prunind,msize,cv,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7864:2:
7864 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7865:2:
7865 | double precision,intent(in) :: alpha,gamma,allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7866:2:
7866 | double precision,intent(out) :: allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7867:2:
7867 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7868:2:
7868 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7869:2:
7869 | double precision minghval,allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7870:2:
7870 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7871:2:
7871 | allgammaval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7872:2:
7872 | if(prunind == 1 .or. alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7873:2:
7873 | goto 3001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7874:2:
7874 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7875:2:
7875 | call threetreescvterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7876:2:
7876 | call threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7877:2:
7877 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7878:2:
7878 | call threetreescvpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7879:2:
7879 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7880:2:
7880 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7881:2:
7881 | allgammaval(2) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7882:2:
7882 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7883:2:
7883 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7884:2:
7884 | call threetreescvterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7885:2:
7885 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7886:2:
7886 | exit
| 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 threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7889:2:
7889 | allocate(nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7890:2:
7890 | call threetreescvpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7891:2:
7891 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7892:2:
7892 | allfvalnew(:) = allfvalnewsub(:)
| 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(prunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7895:2:
7895 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7899:2:
7899 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7900:2:
7900 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7901:2:
7901 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7902:2:
7902 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7903:2:
7903 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7904:2:
7904 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7905:2:
7905 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7906:2:
7906 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7907:2:
7907 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7908:2:
7908 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7909:2:
7909 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7910:2:
7910 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7911:2:
7911 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7912:2:
7912 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7913:2:
7913 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7914:2:
7914 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7915:2:
7915 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7916:2:
7916 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7917:2:
7917 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7918:2:
7918 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7919:2:
7919 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7920:2:
7920 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7921:2:
7921 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7922:2:
7922 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7923:2:
7923 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7924:2:
7924 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7925:2:
7925 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7926:2:
7926 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7927:2:
7927 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7930:2:
7930 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7931:2:
7931 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7932:2:
7932 | 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:7933:2:
7933 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7934:2:
7934 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7935:2:
7935 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7936:2:
7936 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7937:2:
7937 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7938:2:
7938 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7939:2:
7939 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7940:2:
7940 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7941:2:
7941 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7942:2:
7942 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7943:2:
7943 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7944:2:
7944 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7945:2:
7945 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7946:2:
7946 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7947:2:
7947 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7948:2:
7948 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7949:2:
7949 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7950:2:
7950 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7951:2:
7951 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7952:2:
7952 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7953:2:
7953 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7954:2:
7954 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7955:2:
7955 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7956:2:
7956 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7957:2:
7957 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7958:2:
7958 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7959:2:
7959 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7960:2:
7960 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7961:2:
7961 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7962:2:
7962 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7963:2:
7963 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7964:2:
7964 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7965:2:
7965 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7966:2:
7966 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7967:2:
7967 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7968:2:
7968 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7969:2:
7969 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7970:2:
7970 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7971:2:
7971 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7972:2:
7972 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7975:2:
7975 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7976:2:
7976 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7977:2:
7977 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7978:2:
7978 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7979:2:
7979 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7980:2:
7980 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7981:2:
7981 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7982:2:
7982 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7983:2:
7983 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7984:2:
7984 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7985:2:
7985 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7986:2:
7986 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7987:2:
7987 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7988:2:
7988 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7989:2:
7989 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7990:2:
7990 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7991:2:
7991 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7992:2:
7992 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7993:2:
7993 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7994:2:
7994 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7995:2:
7995 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7996:2:
7996 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7997:2:
7997 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7998:2:
7998 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:7999:2:
7999 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8000:2:
8000 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8001:2:
8001 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8002:2:
8002 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8007:2:
8007 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8008:2:
8008 | integer,intent(in) :: cv,msize,colnum,Ksplit,maxdepth,levelcount,beta1len,beta2len,minbucket,minsplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8009:2:
8009 | integer,intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8010:2:
8010 | integer,intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8011:2:
8011 | double precision,intent(in) :: alpha,gamma,fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8012:2:
8012 | double precision,intent(in) :: beta1(beta1len),beta2(beta2len),allgammaval1((2**(maxdepth-1))-1),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8013:2:
8013 | allgammaval2((2**(maxdepth-1))-1),allgammaval3((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8014:2:
8014 | integer,intent(in) :: cvindin1(msize),cvindin2(msize),cvindin3(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8015:2:
8015 | double precision,intent(in) :: bootdata1(msize,colnum),bootdata2(msize,colnum),bootdata3(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8016:2:
8016 | double precision,intent(out) :: bestgammaval1,bestgammaval2,bestgammaval3,r2cvval1,r2cvval2,r2cvval3,r2cvvalthree
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8017:2:
8017 | integer, allocatable :: cvind1(:),cvind2(:),cvind3(:),cvsize1(:),cvsize2(:),cvsize3(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8018:2:
8018 | integer, allocatable :: nodenummat1(:,:),nodenummat2(:,:),nodenummat3(:,:), &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8019:2:
8019 | prunenodenummat1(:,:), prunenodenummat2(:,:), prunenodenummat3(:,:),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8020:2:
8020 | nodenummattest1(:,:),nodenummattest2(:,:),nodenummattest3(:,:),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8021:2:
8021 | nodenummattestcv1(:,:),nodenummattestcv2(:,:),nodenummattestcv3(:,:),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8022:2:
8022 | prunenodenummattest1(:,:),prunenodenummattest2(:,:),prunenodenummattest3(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8023:2:
8023 | double precision, allocatable :: meangammacv1(:),meangammacv2(:),meangammacv3(:),meangammar2cv(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8024:2:
8024 | double precision, allocatable :: gammacvmat1(:,:),gammacvmat2(:,:),gammacvmat3(:,:),traindata1(:,:),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8025:2:
8025 | traindata2(:,:),traindata3(:,:),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8026:2:
8026 | testdata1(:,:),testdata2(:,:),testdata3(:,:),testdataall(:,:),gammar2cvmat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8027:2:
8027 | integer cvloop,traindatasize1,traindatasize2,traindatasize3,testdatasize1,testdatasize2,testdatasize3,prunind1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8028:2:
8028 | prunind2,prunind3,i,testdataallsize,bfsize,afsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8029:2:
8029 | 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:8030:2:
8030 | 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:8031:2:
8031 | r2cvvalvec1(ksplit),r2cvvalvec2(ksplit),r2cvvalvec3(ksplit),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8032:2:
8032 | r2cvvalvecthree(ksplit),gammar2cv((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8033:2:
8033 | double precision maxgammasub,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8034:2:
8034 | allocate(cvind1(msize),cvind2(msize),cvind3(msize),cvsize1(Ksplit),cvsize2(Ksplit),cvsize3(Ksplit),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8035:2:
8035 | 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:8036:2:
8036 | allocate(gammar2cvmat(ksplit,(2**(maxdepth-1))-1),meangammacv1((2**(maxdepth-1))-1),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8037:2:
8037 | meangammacv2((2**(maxdepth-1))-1),meangammacv3((2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8038:2:
8038 | allocate(meangammar2cv((2**(maxdepth-1))-1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8039:2:
8039 | call getrngstate()
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8040:2:
8040 | call threetreesttcvdata(bootdata1,msize,colnum,Ksplit,levelcount,cvindin1,cvind1,cvsize1,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8041:2:
8041 | call threetreesttcvdata(bootdata2,msize,colnum,Ksplit,levelcount,cvindin2,cvind2,cvsize2,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8042:2:
8042 | call threetreesttcvdata(bootdata3,msize,colnum,Ksplit,levelcount,cvindin3,cvind3,cvsize3,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8043:2:
8043 | call putrngstate()
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8044:2:
8044 | do cvloop = 1,Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8045:2:
8045 | traindatasize1 = ((sum(cvsize1)-cvsize1(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8046:2:
8046 | testdatasize1 = (cvsize1(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8047:2:
8047 | traindatasize2 = ((sum(cvsize2)-cvsize2(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8048:2:
8048 | testdatasize2 = (cvsize2(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8049:2:
8049 | traindatasize3 = ((sum(cvsize3)-cvsize3(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8050:2:
8050 | testdatasize3 = (cvsize3(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8051:2:
8051 | testdataallsize = testdatasize1+testdatasize2+testdatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8052:2:
8052 | allocate(traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),traindata3(traindatasize3,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8053:2:
8053 | allocate(testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),testdata3(testdatasize3,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8054:2:
8054 | allocate(testdataall(testdataallsize,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8055:2:
8055 | allocate(nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),nodenummat3(traindatasize3,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8056:2:
8056 | allocate(nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8057:2:
8057 | nodenummattest3(testdataallsize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8058:2:
8058 | allocate(nodenummattestcv1(testdatasize1,maxdepth),nodenummattestcv2(testdatasize2,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8059:2:
8059 | nodenummattestcv3(testdatasize3,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8060:2:
8060 | call threetreesttcvdatachoice(bootdata1,msize,colnum,Ksplit,levelcount,cvloop,cvind1,cvsize1,traindata1,testdata1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8061:2:
8061 | call threetreesttcvdatachoice(bootdata2,msize,colnum,Ksplit,levelcount,cvloop,cvind2,cvsize2,traindata2,testdata2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8062:2:
8062 | call threetreesttcvdatachoice(bootdata3,msize,colnum,Ksplit,levelcount,cvloop,cvind3,cvsize3,traindata3,testdata3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8063:2:
8063 | testdataall(1:testdatasize1,:) = testdata1(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8064:2:
8064 | testdataall((testdatasize1+1):(testdatasize1+testdatasize2),:) = testdata2(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8065:2:
8065 | testdataall((testdatasize1+testdatasize2+1):testdataallsize,:) = testdata3(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8066:2:
8066 | call threetreesttcvtreegrowth(traindatasize1,testdataallsize,traindata1,testdataall,nodenummattest1,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8067:2:
8067 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata1,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8068:2:
8068 | beta2len,nodenummat1,allfval1,prunind1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8069:2:
8069 | call threetreesttcvtreegrowth(traindatasize2,testdataallsize,traindata2,testdataall,nodenummattest2,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8070:2:
8070 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata2,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8071:2:
8071 | beta2len,nodenummat2,allfval2,prunind2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8072:2:
8072 | call threetreesttcvtreegrowth(traindatasize3,testdataallsize,traindata3,testdataall,nodenummattest3,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8073:2:
8073 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata3,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8074:2:
8074 | beta2len,nodenummat3,allfval3,prunind3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8075:2:
8075 | if(alpha < 1d0 .and. gamma < 0d0 .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8076:2:
8076 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8077:2:
8077 | nodenummat1,nodenummat2,nodenummat3,testdata1,testdata2,testdata3,testdataall,testdatasize1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8078:2:
8078 | testdatasize2,testdatasize3,testdataallsize,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8079:2:
8079 | colnum,levelcount,nodenummattest1,nodenummattest2,nodenummattest3,maxdepth,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8080:2:
8080 | r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8081:2:
8081 | r2cvvalvec1(cvloop) = r2cvval1sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8082:2:
8082 | r2cvvalvec2(cvloop) = r2cvval2sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8083:2:
8083 | r2cvvalvec3(cvloop) = r2cvval3sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8084:2:
8084 | r2cvvalvecthree(cvloop) = r2cvvalthreesub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8085:2:
8085 | bestgammaval1 = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8086:2:
8086 | bestgammaval2 = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8087:2:
8087 | bestgammaval3 = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8088:2:
8088 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8089:2:
8089 | if(alpha == 1d0 .and. gamma >= 0d0 .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8090:2:
8090 | allocate(prunenodenummattest1(testdataallsize,maxdepth),prunenodenummattest2(testdataallsize,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8091:2:
8091 | prunenodenummattest3(testdataallsize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8092:2:
8092 | allocate(prunenodenummat1(traindatasize1,maxdepth),prunenodenummat2(traindatasize2,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8093:2:
8093 | prunenodenummat3(traindatasize3,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8094:2:
8094 | call threetreesttcvgammatreepruning(prunind1,traindatasize1,testdataallsize,gamma,maxdepth,nodenummat1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8095:2:
8095 | nodenummattest1,allfval1,prunenodenummat1,prunenodenummattest1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8096:2:
8096 | call threetreesttcvgammatreepruning(prunind2,traindatasize2,testdataallsize,gamma,maxdepth,nodenummat2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8097:2:
8097 | nodenummattest2,allfval2,prunenodenummat2,prunenodenummattest2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8098:2:
8098 | call threetreesttcvgammatreepruning(prunind3,traindatasize3,testdataallsize,gamma,maxdepth,nodenummat3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8099:2:
8099 | nodenummattest3,allfval3,prunenodenummat3,prunenodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8100:2:
8100 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8101:2:
8101 | prunenodenummat1,prunenodenummat2,prunenodenummat3,testdata1,testdata2,testdata3,testdataall,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8102:2:
8102 | testdatasize1,testdatasize2,testdatasize3,testdataallsize,colnum,levelcount,prunenodenummattest1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8103:2:
8103 | prunenodenummattest2,prunenodenummattest3,maxdepth,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8104:2:
8104 | r2cvvalvec1(cvloop) = r2cvval1sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8105:2:
8105 | r2cvvalvec2(cvloop) = r2cvval2sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8106:2:
8106 | r2cvvalvec3(cvloop) = r2cvval3sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8107:2:
8107 | r2cvvalvecthree(cvloop) = r2cvvalthreesub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8108:2:
8108 | bestgammaval1 = gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8109:2:
8109 | bestgammaval2 = gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8110:2:
8110 | bestgammaval3 = gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8111:2:
8111 | deallocate(prunenodenummattest1,prunenodenummattest2,prunenodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8112:2:
8112 | deallocate(prunenodenummat1,prunenodenummat2,prunenodenummat3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8113:2:
8113 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8114:2:
8114 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8115:2:
8115 | nodenummattestcv1(:,:) = nodenummattest1(1:testdatasize1,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8116:2:
8116 | nodenummattestcv2(:,:) = nodenummattest2((testdatasize1+1):(testdatasize1+testdatasize2),:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8117:2:
8117 | nodenummattestcv3(:,:) = nodenummattest3((testdatasize1+testdatasize2+1):testdataallsize,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8118:2:
8118 | call threetreesttcvbesttreepruning(traindatasize1,testdatasize1,maxdepth,nodenummat1,nodenummattestcv1,allfval1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8119:2:
8119 | levelcount,colnum,traindata1,testdata1,allgammaval1,gammacv1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8120:2:
8120 | call threetreesttcvbesttreepruning(traindatasize2,testdatasize2,maxdepth,nodenummat2,nodenummattestcv2,allfval2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8121:2:
8121 | levelcount,colnum,traindata2,testdata2,allgammaval2,gammacv2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8122:2:
8122 | call threetreesttcvbesttreepruning(traindatasize3,testdatasize3,maxdepth,nodenummat3,nodenummattestcv3,allfval3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8123:2:
8123 | levelcount,colnum,traindata3,testdata3,allgammaval3,gammacv3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8124:2:
8124 | gammacvmat1(cvloop,:) = gammacv1(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8125:2:
8125 | gammacvmat2(cvloop,:) = gammacv2(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8126:2:
8126 | gammacvmat3(cvloop,:) = gammacv3(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8127:2:
8127 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8128:2:
8128 | deallocate(traindata1,traindata2,traindata3,testdata1,testdata2,testdata3,testdataall)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8129:2:
8129 | deallocate(nodenummat1,nodenummat2,nodenummat3,nodenummattest1,nodenummattest2,nodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8130:2:
8130 | deallocate(nodenummattestcv1,nodenummattestcv2,nodenummattestcv3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8131:2:
8131 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8132:2:
8132 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8133:2:
8133 | do i = 1,size(allgammaval1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8134:2:
8134 | meangammacv1(i) = sum(gammacvmat1(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8135:2:
8135 | if(meangammacv1(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8136:2:
8136 | meangammacv1(i) = meangammacv1(i) / dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8137:2:
8137 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8138:2:
8138 | meangammacv1(i) = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8139:2:
8139 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8140:2:
8140 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8141:2:
8141 | maxgammasub = maxval(meangammacv1) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8142:2:
8142 | do i = 1,size(meangammacv1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8143:2:
8143 | if(meangammacv1(i) < maxgammasub .and. meangammacv1(i) >= 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8144:2:
8144 | bestgammaval1 = allgammaval1(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8145:2:
8145 | maxgammasub = meangammacv1(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8146:2:
8146 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8147:2:
8147 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8148:2:
8148 | do i = 1,size(allgammaval2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8149:2:
8149 | meangammacv2(i) = sum(gammacvmat2(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8150:2:
8150 | if(meangammacv2(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8151:2:
8151 | meangammacv2(i) = meangammacv2(i) / dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8152:2:
8152 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8153:2:
8153 | meangammacv2(i) = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8154:2:
8154 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8155:2:
8155 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8156:2:
8156 | maxgammasub = maxval(meangammacv2) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8157:2:
8157 | do i = 1,size(meangammacv2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8158:2:
8158 | if(meangammacv2(i) < maxgammasub .and. meangammacv2(i) >= 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8159:2:
8159 | bestgammaval2 = allgammaval2(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8160:2:
8160 | maxgammasub = meangammacv2(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8161:2:
8161 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8162:2:
8162 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8163:2:
8163 | do i = 1,size(allgammaval3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8164:2:
8164 | meangammacv3(i) = sum(gammacvmat3(:,i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8165:2:
8165 | if(meangammacv3(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8166:2:
8166 | meangammacv3(i) = meangammacv3(i) / dble(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8167:2:
8167 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8168:2:
8168 | meangammacv3(i) = -1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8169:2:
8169 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8170:2:
8170 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8171:2:
8171 | maxgammasub = maxval(meangammacv3) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8172:2:
8172 | do i = 1,size(meangammacv3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8173:2:
8173 | if(meangammacv3(i) < maxgammasub .and. meangammacv3(i) >= 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8174:2:
8174 | bestgammaval3 = allgammaval3(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8175:2:
8175 | maxgammasub = meangammacv3(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8176:2:
8176 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8177:2:
8177 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8178:2:
8178 | deallocate(cvind1,cvind2,cvind3,cvsize1,cvsize2,cvsize3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8179:2:
8179 | allocate(cvind1(msize),cvind2(msize),cvind3(msize),cvsize1(Ksplit),cvsize2(Ksplit),cvsize3(Ksplit))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8180:2:
8180 | call threetreesttcvdata(bootdata1,msize,colnum,Ksplit,levelcount,cvindin1,cvind1,cvsize1,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8181:2:
8181 | call threetreesttcvdata(bootdata2,msize,colnum,Ksplit,levelcount,cvindin2,cvind2,cvsize2,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8182:2:
8182 | call threetreesttcvdata(bootdata3,msize,colnum,Ksplit,levelcount,cvindin3,cvind3,cvsize3,cv,iseed)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8183:2:
8183 | do cvloop = 1,Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8184:2:
8184 | traindatasize1 = ((sum(cvsize1)-cvsize1(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8185:2:
8185 | testdatasize1 = (cvsize1(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8186:2:
8186 | traindatasize2 = ((sum(cvsize2)-cvsize2(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8187:2:
8187 | testdatasize2 = (cvsize2(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8188:2:
8188 | traindatasize3 = ((sum(cvsize3)-cvsize3(cvloop))*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8189:2:
8189 | testdatasize3 = (cvsize3(cvloop)*levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8190:2:
8190 | testdataallsize = testdatasize1+testdatasize2+testdatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8191:2:
8191 | allocate(traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),traindata3(traindatasize3,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8192:2:
8192 | allocate(testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),testdata3(testdatasize3,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8193:2:
8193 | allocate(testdataall(testdataallsize,colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8194:2:
8194 | allocate(nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),nodenummat3(traindatasize3,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8195:2:
8195 | allocate(nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8196:2:
8196 | nodenummattest3(testdataallsize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8197:2:
8197 | call threetreesttcvdatachoice(bootdata1,msize,colnum,Ksplit,levelcount,cvloop,cvind1,cvsize1,traindata1,testdata1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8198:2:
8198 | call threetreesttcvdatachoice(bootdata2,msize,colnum,Ksplit,levelcount,cvloop,cvind2,cvsize2,traindata2,testdata2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8199:2:
8199 | call threetreesttcvdatachoice(bootdata3,msize,colnum,Ksplit,levelcount,cvloop,cvind3,cvsize3,traindata3,testdata3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8200:2:
8200 | testdataall(1:testdatasize1,:) = testdata1(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8201:2:
8201 | testdataall((testdatasize1+1):(testdatasize1+testdatasize2),:) = testdata2(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8202:2:
8202 | testdataall((testdatasize1+testdatasize2+1):testdataallsize,:) = testdata3(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8203:2:
8203 | call threetreesttcvtreegrowth(traindatasize1,testdataallsize,traindata1,testdataall,nodenummattest1,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8204:2:
8204 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata1,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8205:2:
8205 | beta2len,nodenummat1,allfval1,prunind1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8206:2:
8206 | call threetreesttcvtreegrowth(traindatasize2,testdataallsize,traindata2,testdataall,nodenummattest2,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8207:2:
8207 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata2,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8208:2:
8208 | beta2len,nodenummat2,allfval2,prunind2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8209:2:
8209 | call threetreesttcvtreegrowth(traindatasize3,testdataallsize,traindata3,testdataall,nodenummattest3,fixweight,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8210:2:
8210 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata3,datatype,beta1,beta2,beta1len,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8211:2:
8211 | beta2len,nodenummat3,allfval3,prunind3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8212:2:
8212 | allocate(prunenodenummattest1(testdataallsize,maxdepth),prunenodenummattest2(testdataallsize,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8213:2:
8213 | prunenodenummattest3(testdataallsize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8214:2:
8214 | allocate(prunenodenummat1(traindatasize1,maxdepth),prunenodenummat2(traindatasize2,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8215:2:
8215 | prunenodenummat3(traindatasize3,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8216:2:
8216 | call threetreesttcvgammatreepruning(prunind1,traindatasize1,testdataallsize,bestgammaval1,maxdepth,nodenummat1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8217:2:
8217 | nodenummattest1,allfval1,prunenodenummat1,prunenodenummattest1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8218:2:
8218 | call threetreesttcvgammatreepruning(prunind2,traindatasize2,testdataallsize,bestgammaval2,maxdepth,nodenummat2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8219:2:
8219 | nodenummattest2,allfval2,prunenodenummat2,prunenodenummattest2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8220:2:
8220 | call threetreesttcvgammatreepruning(prunind3,traindatasize3,testdataallsize,bestgammaval3,maxdepth,nodenummat3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8221:2:
8221 | nodenummattest3,allfval3,prunenodenummat3,prunenodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8222:2:
8222 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8223:2:
8223 | prunenodenummat1,prunenodenummat2,prunenodenummat3,testdata1,testdata2,testdata3,testdataall,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8224:2:
8224 | testdatasize1,testdatasize2,testdatasize3,testdataallsize,colnum,levelcount,prunenodenummattest1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8225:2:
8225 | prunenodenummattest2,prunenodenummattest3,maxdepth,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8226:2:
8226 | r2cvvalvec1(cvloop) = r2cvval1sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8227:2:
8227 | r2cvvalvec2(cvloop) = r2cvval2sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8228:2:
8228 | r2cvvalvec3(cvloop) = r2cvval3sub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8229:2:
8229 | r2cvvalvecthree(cvloop) = r2cvvalthreesub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8230:2:
8230 | deallocate(prunenodenummattest1,prunenodenummattest2,prunenodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8231:2:
8231 | deallocate(prunenodenummat1,prunenodenummat2,prunenodenummat3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8232:2:
8232 | deallocate(traindata1,traindata2,traindata3,testdata1,testdata2,testdata3,testdataall)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8233:2:
8233 | deallocate(nodenummat1,nodenummat2,nodenummat3,nodenummattest1,nodenummattest2,nodenummattest3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8234:2:
8234 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8235:2:
8235 | r2cvval1=sum(r2cvvalvec1)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8236:2:
8236 | r2cvval2=sum(r2cvvalvec2)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8237:2:
8237 | r2cvval3=sum(r2cvvalvec3)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8238:2:
8238 | r2cvvalthree=sum(r2cvvalvecthree)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8239:2:
8239 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8240:2:
8240 | r2cvval1=sum(r2cvvalvec1)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8241:2:
8241 | r2cvval2=sum(r2cvvalvec2)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8242:2:
8242 | r2cvval3=sum(r2cvvalvec3)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8243:2:
8243 | r2cvvalthree=sum(r2cvvalvecthree)/dble(ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8244:2:
8244 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8247:2:
8247 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8248:2:
8248 | integer, intent(in) :: msize,colnum,Ksplit,levelcount,cv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8249:2:
8249 | integer, intent(in) :: iseed
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8250:2:
8250 | integer, intent(in) :: cvindin(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8251:2:
8251 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8252:2:
8252 | integer, intent(out) :: cvind(msize), cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8253:2:
8253 | integer i,subnum, randval, cvsizecou(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8254:2:
8254 | integer, allocatable :: cvindsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8255:2:
8255 | double precision randvalsub,ii
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8256:2:
8256 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8257:2:
8257 | cvsize(:) = subnum/Ksplit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8258:2:
8258 | do i = 1,(subnum - sum(cvsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8259:2:
8259 | cvsize(i) = cvsize(i) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8260:2:
8260 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8261:2:
8261 | if(cv==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8262:2:
8262 | cvind(:) = cvindin(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8263:2:
8263 | goto 9000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8264:2:
8264 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8265:2:
8265 | allocate(cvindsub(subnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8266:2:
8266 | cvsizecou(:) = cvsize(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8267:2:
8267 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8268:2:
8268 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8269:2:
8269 | call unifrand(randvalsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8270:2:
8270 | randval = int(randvalsub * dble(Ksplit)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8271:2:
8271 | if(cvsizecou(randval) > 0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8272:2:
8272 | cvsizecou(randval) = cvsizecou(randval) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8273:2:
8273 | cvindsub(i) = randval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8274:2:
8274 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8275:2:
8275 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8276:2:
8276 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8277:2:
8277 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8278:2:
8278 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8279:2:
8279 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i)
| 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:8284:2:
8284 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8285:2:
8285 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8286:2:
8286 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8287:2:
8287 | integer, intent(in) :: cvind(msize),cvsize(Ksplit)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8288:2:
8288 | double precision, intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8289:2:
8289 | testdata((cvsize(testind)*levelcount),colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8290:2:
8290 | integer i,jtrain,jtest,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8291:2:
8291 | subnum = msize/levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8292:2:
8292 | jtest = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8293:2:
8293 | jtrain = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8294:2:
8294 | do i = 1,subnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8295:2:
8295 | if(cvind(((i-1)*levelcount)+1) == testind) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8296:2:
8296 | 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:8297:2:
8297 | jtest = jtest + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8298:2:
8298 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8299:2:
8299 | 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:8300:2:
8300 | jtrain = jtrain + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8301:2:
8301 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8302:2:
8302 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8307:2:
8307 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8308:2:
8308 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8309:2:
8309 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8310:2:
8310 | double precision, intent(in) :: fixweight,alpha
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8311:2:
8311 | double precision, intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8312:2:
8312 | double precision, intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8313:2:
8313 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8314:2:
8314 | integer,intent(out) :: prunind
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8315:2:
8315 | double precision,intent(out) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8316:2:
8316 | integer nodenummatsub(traindatasize,maxdepth),nodenummatsubtest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8317:2:
8317 | 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:8318:2:
8318 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8319:2:
8319 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8320:2:
8320 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8321:2:
8321 | double precision fval(2),splitfval(2),splitmcppval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8322:2:
8322 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8323:2:
8323 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8324:2:
8324 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8325:2:
8325 | double precision, allocatable :: xynodedata(:,:),xynodedatatest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8326:2:
8326 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8327:2:
8327 | integer, allocatable :: flat_idx_vec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8328:2:
8328 | integer :: dfvec_const(5), flat_idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8329:2:
8329 | double precision :: splitgroupsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8330:2:
8330 | logical :: dfvec_set
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8331:2:
8331 | nodenummat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8332:2:
8332 | nodenummat(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8333:2:
8333 | nodenummattest(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8334:2:
8334 | nodenummattest(:,1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8335:2:
8335 | nodenum = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8336:2:
8336 | hierarchy = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8337:2:
8337 | allfval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8338:2:
8338 | splitmcp = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8339:2:
8339 | allocate(nodesize(2),nodesizetest(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8340:2:
8340 | prunind=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8341:2:
8341 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8342:2:
8342 | call threetreesttcvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8343:2:
8343 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8344:2:
8344 | 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:8345:2:
8345 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8346:2:
8346 | 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:8347:2:
8347 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8348:2:
8348 | allocate(anovadata(traindatasize,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8349:2:
8349 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8350:2:
8350 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8351:2:
8351 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8352:2:
8352 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8353:2:
8353 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8354:2:
8354 | 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:8355:2:
8355 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8356:2:
8356 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8357:2:
8357 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8358:2:
8358 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8359:2:
8359 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8360:2:
8360 | call threetreesttcvrepANOVA(traindatasize,colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8361:2:
8361 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8362:2:
8362 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8363:2:
8363 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8364:2:
8364 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8365:2:
8365 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8366:2:
8366 | dfvec_set = .true.
| 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 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8369:2:
8369 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8370:2:
8370 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8371:2:
8371 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8372:2:
8372 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8373:2:
8373 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8374:2:
8374 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8375:2:
8375 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8376:2:
8376 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8377:2:
8377 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8378:2:
8378 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8379:2:
8379 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8380:2:
8380 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8381:2:
8381 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8382:2:
8382 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8383:2:
8383 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8384:2:
8384 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8385:2:
8385 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8386:2:
8386 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8387:2:
8387 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8388:2:
8388 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8389:2:
8389 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8390:2:
8390 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8391:2:
8391 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8392:2:
8392 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8393:2:
8393 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8394:2:
8394 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8395:2:
8395 | flat_idx_vec(1) = j
| 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 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8398:2:
8398 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8399:2:
8399 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8400:2:
8400 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8401:2:
8401 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8402:2:
8402 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8403:2:
8403 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8404:2:
8404 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8405:2:
8405 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8406:2:
8406 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8407:2:
8407 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8408:2:
8408 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8409:2:
8409 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8410:2:
8410 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8411:2:
8411 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8412:2:
8412 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8413:2:
8413 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8414:2:
8414 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8415:2:
8415 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8416:2:
8416 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8417:2:
8417 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8418:2:
8418 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8419:2:
8419 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8420:2:
8420 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8421:2:
8421 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8422:2:
8422 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8423:2:
8423 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8424:2:
8424 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8425:2:
8425 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8426:2:
8426 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8427:2:
8427 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8428:2:
8428 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8429:2:
8429 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8430:2:
8430 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8431:2:
8431 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8432:2:
8432 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8433:2:
8433 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8434:2:
8434 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8435:2:
8435 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8436:2:
8436 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8437:2:
8437 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8438:2:
8438 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8439:2:
8439 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8440:2:
8440 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8441:2:
8441 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8442:2:
8442 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8443:2:
8443 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8444:2:
8444 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8445:2:
8445 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8446:2:
8446 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8447:2:
8447 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8448:2:
8448 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8449:2:
8449 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8450:2:
8450 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8451:2:
8451 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8452:2:
8452 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8453:2:
8453 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8454:2:
8454 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8455:2:
8455 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8456:2:
8456 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8457:2:
8457 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8458:2:
8458 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8459:2:
8459 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8460:2:
8460 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8461:2:
8461 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8462:2:
8462 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8463:2:
8463 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8464:2:
8464 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8465:2:
8465 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8466:2:
8466 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8467:2:
8467 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8468:2:
8468 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8469:2:
8469 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8470:2:
8470 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8471:2:
8471 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8472:2:
8472 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8473:2:
8473 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8474:2:
8474 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8475:2:
8475 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8476:2:
8476 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8477:2:
8477 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8478:2:
8478 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8479:2:
8479 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8480:2:
8480 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8481:2:
8481 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8482:2:
8482 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8483:2:
8483 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8484:2:
8484 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8485:2:
8485 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8486:2:
8486 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8487:2:
8487 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8488:2:
8488 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8489:2:
8489 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8490:2:
8490 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8491:2:
8491 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8492:2:
8492 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8493:2:
8493 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8494:2:
8494 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8495:2:
8495 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8496:2:
8496 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8497:2:
8497 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8498:2:
8498 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8499:2:
8499 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8500:2:
8500 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8501:2:
8501 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8502:2:
8502 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8503:2:
8503 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8504:2:
8504 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8505:2:
8505 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8506:2:
8506 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8507:2:
8507 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8508:2:
8508 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8509:2:
8509 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8510:2:
8510 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8511:2:
8511 | goto 2002
| 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 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8514:2:
8514 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8515:2:
8515 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8516:2:
8516 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8517:2:
8517 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8518:2:
8518 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8519:2:
8519 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8520:2:
8520 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8521:2:
8521 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8522:2:
8522 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8523:2:
8523 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8524:2:
8524 | goto 2002
| 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 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8527:2:
8527 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8528:2:
8528 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8529:2:
8529 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8530:2:
8530 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8531:2:
8531 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8532:2:
8532 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8533:2:
8533 | prunind = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8534:2:
8534 | goto 2002
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8535:2:
8535 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8536:2:
8536 | deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8537:2:
8537 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8538:2:
8538 | call threetreesttcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8539:2:
8539 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8540:2:
8540 | call threetreesttcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8541:2:
8541 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8542:2:
8542 | nodesize(1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8543:2:
8543 | nodesize(2) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8544:2:
8544 | nodesizetest(1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8545:2:
8545 | nodesizetest(2) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8546:2:
8546 | deallocate(anovadata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8547:2:
8547 | allfval(1) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8548:2:
8548 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8549:2:
8549 | nodenummattest(:,:) = nodenummatsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8550:2:
8550 | do treeloop = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8551:2:
8551 | stopcount = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8552:2:
8552 | hierarchy = hierarchy + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8553:2:
8553 | do nodeloop = 1,(2**treeloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8554:2:
8554 | 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:8555:2:
8555 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8556:2:
8556 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8557:2:
8557 | nodenum = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8558:2:
8558 | splitpval = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8559:2:
8559 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8560:2:
8560 | if(nodesize(nodeloop) < (levelcount*minsplit)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8561:2:
8561 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8562:2:
8562 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8563:2:
8563 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8564:2:
8564 | call threetreesttcvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8565:2:
8565 | call threetreesttcvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,nodenummattest,nodesizetest(nodeloop),xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8566:2:
8566 | call threetreesttcvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8567:2:
8567 | if(sum(splitnum) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8568:2:
8568 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8569:2:
8569 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8570:2:
8570 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8571:2:
8571 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8572:2:
8572 | 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:8573:2:
8573 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8574:2:
8574 | 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:8575:2:
8575 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8576:2:
8576 | wfmat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8577:2:
8577 | indmat(:,:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8578:2:
8578 | indcou = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8579:2:
8579 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8580:2:
8580 | dfvec_set = .false.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8581:2:
8581 | do ind1=4,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8582:2:
8582 | if(splitnum(ind1-3) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8583:2:
8583 | goto 2000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8584:2:
8584 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8585:2:
8585 | if(allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8586:2:
8586 | deallocate(splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8587:2:
8587 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8588:2:
8588 | if(.not. allocated(splitindmat)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8589:2:
8589 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)))
| 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(allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8592:2:
8592 | deallocate(facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8593:2:
8593 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8594:2:
8594 | if(.not. allocated(facvalout)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8595:2:
8595 | allocate(facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8596:2:
8596 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8597:2:
8597 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8598:2:
8598 | countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8599:2:
8599 | do ind2 = 1,splitnum(ind1-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8600:2:
8600 | indcou = indcou + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8601:2:
8601 | indmat(indcou,1) = ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8602:2:
8602 | indmat(indcou,2) = ind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8603:2:
8603 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8604:2:
8604 | colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8605:2:
8605 | call threetreesttcvrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8606:2:
8606 | fval_cache(indcou,1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8607:2:
8607 | fval_cache(indcou,2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8608:2:
8608 | groupsum_cache(indcou) = sum(anovadata(:,4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8609:2:
8609 | if (.not. dfvec_set) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8610:2:
8610 | dfvec_const = dfvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8611:2:
8611 | dfvec_set = .true.
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8612:2:
8612 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8613:2:
8613 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8614:2:
8614 | do wcou = 0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8615:2:
8615 | weightval = 0.1d0 * dble(wcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8616:2:
8616 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8617:2:
8617 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8618:2:
8618 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8619:2:
8619 | weightval = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8620:2:
8620 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8621:2:
8621 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8622:2:
8622 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8623:2:
8623 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8624:6:
8624 | 2000 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8625:2:
8625 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8626:2:
8626 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8627:2:
8627 | allocate(flat_idx_vec(11))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8628:2:
8628 | do i = 1,11
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8629:2:
8629 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8630:2:
8630 | wfvec(i) = wfmat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8631:2:
8631 | ind1vec(i) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8632:2:
8632 | ind2vec(i) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8633:2:
8633 | flat_idx_vec(i) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8634:2:
8634 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8635:2:
8635 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8636:2:
8636 | allocate(flat_idx_vec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8637:2:
8637 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8638:2:
8638 | wfvec(1) = wfmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8639:2:
8639 | ind1vec(1) = indmat(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8640:2:
8640 | ind2vec(1) = indmat(j,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8641:2:
8641 | flat_idx_vec(1) = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8642:2:
8642 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8643:2:
8643 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8644:2:
8644 | do weightind=0,10
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8645:2:
8645 | flat_idx = flat_idx_vec(weightind+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8646:2:
8646 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8647:2:
8647 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8648:2:
8648 | weight = 0.1d0 * dble(weightind)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8649:2:
8649 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8650:2:
8650 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8651:2:
8651 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8652:2:
8652 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8653:2:
8653 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8654:2:
8654 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8655:2:
8655 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8656:2:
8656 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8657:2:
8657 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8658:2:
8658 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8659:2:
8659 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8660:2:
8660 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8661:2:
8661 | if(splitpval==0d0)then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8662:2:
8662 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8663:2:
8663 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8664:2:
8664 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8665:2:
8665 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8666:2:
8666 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8667:2:
8667 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8668:2:
8668 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8669:2:
8669 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8670:2:
8670 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8671:2:
8671 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8672:2:
8672 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8673:2:
8673 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8674:2:
8674 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8675:2:
8675 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8676:2:
8676 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8677:2:
8677 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8678:2:
8678 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8679:2:
8679 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8680:2:
8680 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8681:2:
8681 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8682:2:
8682 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8683:2:
8683 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8684:2:
8684 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8685:2:
8685 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8686:2:
8686 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8687:2:
8687 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8688:2:
8688 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8689:2:
8689 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8690:2:
8690 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8691:2:
8691 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8692:2:
8692 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8693:2:
8693 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8694:2:
8694 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8695:2:
8695 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8696:2:
8696 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8697:2:
8697 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8698:2:
8698 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8699:2:
8699 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8700:2:
8700 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8701:2:
8701 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8702:2:
8702 | flat_idx = flat_idx_vec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8703:2:
8703 | fval(1) = fval_cache(flat_idx, 1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8704:2:
8704 | fval(2) = fval_cache(flat_idx, 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8705:2:
8705 | weight = fixweight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8706:2:
8706 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8707:2:
8707 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8708:2:
8708 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8709:2:
8709 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8710:2:
8710 | splitfval(1) = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8711:2:
8711 | splitfval(2) = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8712:2:
8712 | splitpval = weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8713:2:
8713 | splitind1 = indmat(flat_idx,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8714:2:
8714 | splitind2 = indmat(flat_idx,2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8715:2:
8715 | splitweight = weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8716:2:
8716 | splitgroupsum = groupsum_cache(flat_idx)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8717:2:
8717 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8718:2:
8718 | if (splitpval < 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8719:2:
8719 | ind1 = splitind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8720:2:
8720 | ind2 = splitind2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8721:2:
8721 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8722:2:
8722 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8723:2:
8723 | splitnum(ind1-3),countvec(ind1-3),splitindmat)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8724:2:
8724 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8725:2:
8725 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8726:2:
8726 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8727:2:
8727 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8728:2:
8728 | splitfacval = facvalout
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8729:2:
8729 | splitindvec = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8730:2:
8730 | if(datatype(splitind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8731:2:
8731 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8732:2:
8732 | allocate(separateval(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8733:2:
8733 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8734:2:
8734 | do separateint = 1,(size(splitindvec)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8735:2:
8735 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8736:2:
8736 | separatesp = splitfacval(separateint+1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8737:2:
8737 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8738:2:
8738 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8739:2:
8739 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8740:2:
8740 | deallocate(splitfacval,splitindvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8741:2:
8741 | allocate(splitfacval(separatecou),splitindvec(separatecou))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8742:2:
8742 | splitfacval(:) = separateval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8743:2:
8743 | do separateint = 1,separatecou
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8744:2:
8744 | if(splitfacval(separateint) < separatesp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8745:2:
8745 | splitindvec(separateint) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8746:2:
8746 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8747:2:
8747 | splitindvec(separateint) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8748:2:
8748 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8749:2:
8749 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8750:2:
8750 | deallocate(separateval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8751:2:
8751 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8752:2:
8752 | deallocate(splitindmat,facvalout)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8753:2:
8753 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8754:2:
8754 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8755:2:
8755 | if (splitpval >= 1d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8756:2:
8756 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8757:2:
8757 | goto 2001
| 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 | if(fixweight == -1.0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8760:2:
8760 | weight = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8761:2:
8761 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8762:2:
8762 | splitmcppval(1) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8763:2:
8763 | weight = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8764:2:
8764 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8765:2:
8765 | splitmcppval(2) = 1d0 - weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8766:2:
8766 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8767:2:
8767 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8768:2:
8768 | if(splitmcp > alphamcp) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8769:2:
8769 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8770:2:
8770 | goto 2001
| 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 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8773:2:
8773 | if(splitpval > alpha) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8774:2:
8774 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8775:2:
8775 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8776:2:
8776 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8777:2:
8777 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8778:2:
8778 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8779:2:
8779 | stopcount = stopcount + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8780:2:
8780 | goto 2001
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8781:2:
8781 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8782:2:
8782 | allfval(nodenum) = splitwfval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8783:2:
8783 | if(.not. allocated(nodesizesub)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8784:2:
8784 | allocate(nodesizesub(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8785:2:
8785 | nodesizesub(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8786:2:
8786 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8787:2:
8787 | if(.not. allocated(nodesizesubtest)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8788:2:
8788 | allocate(nodesizesubtest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8789:2:
8789 | nodesizesubtest(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8790:2:
8790 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8791:2:
8791 | sizenum = size(splitfacval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8792:2:
8792 | call threetreesttcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8793:2:
8793 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8794:2:
8794 | call threetreesttcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8795:2:
8795 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8796:2:
8796 | nodenummat(:,:) = nodenummatsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8797:2:
8797 | nodenummattest(:,:) = nodenummatsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8798:2:
8798 | nodesizesub(2*nodeloop-1) = sizel
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8799:2:
8799 | nodesizesub(2*nodeloop) = sizer
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8800:2:
8800 | nodesizesubtest(2*nodeloop-1) = sizeltest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8801:2:
8801 | nodesizesubtest(2*nodeloop) = sizertest
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8802:6:
8802 | 2001 continue
| 1~~~~~~~
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8803:2:
8803 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8804:2:
8804 | deallocate(anovadata,xynodedata,xynodedatatest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8805:2:
8805 | if(stopcount == 2**treeloop) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8806:2:
8806 | goto 2003
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8807:2:
8807 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8808:2:
8808 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8809:2:
8809 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8810:2:
8810 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8811:2:
8811 | nodesize(:) = nodesizesub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8812:2:
8812 | nodesizetest(:) = nodesizesubtest(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8813:2:
8813 | deallocate(nodesizesub,nodesizesubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8814:2:
8814 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8816:2:
8816 | deallocate(nodesize,nodesizetest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8820:2:
8820 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8821:2:
8821 | integer, intent(in) :: samplesize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8822:2:
8822 | double precision, intent(in) :: sampledata(samplesize,pp+3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8823:2:
8823 | integer, intent(in) :: datatype(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8824:2:
8824 | integer, intent(out) :: splitnum(pp), countvec(pp)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8825:2:
8825 | double precision datasample(samplesize), sortsample(samplesize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8826:2:
8826 | integer i, j, count, facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8827:2:
8827 | do i = 4,pp+3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8828:2:
8828 | datasample = sampledata(:,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8829:2:
8829 | if(datatype(i-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8830:2:
8830 | call threetreesttcvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8831:2:
8831 | splitnum(i-3) = facsum - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8832:2:
8832 | elseif(datatype(i-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8833:2:
8833 | call threetreesttcvdatasum(sampledata(:,i),samplesize,facsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8834:2:
8834 | splitnum(i-3) = (2 ** (facsum-1)) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8835:2:
8835 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8836:2:
8836 | countvec(i-3) = facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8837:2:
8837 | enddo
| 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) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8842:2:
8842 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8843:2:
8843 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8844:2:
8844 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8845:2:
8845 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8846:2:
8846 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8847:2:
8847 | call threetreesttcvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8848:2:
8848 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8849:2:
8849 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8850:2:
8850 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8851:2:
8851 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8852:2:
8852 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8853:2:
8853 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8854:2:
8854 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8857:2:
8857 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8858:2:
8858 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8859:2:
8859 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8860:2:
8860 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8861:2:
8861 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8862:2:
8862 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8863:2:
8863 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8864:2:
8864 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8865:2:
8865 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8866:2:
8866 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8867:2:
8867 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8868:2:
8868 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8869:2:
8869 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8870:2:
8870 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8871:2:
8871 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8872:2:
8872 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8873:2:
8873 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8874:2:
8874 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8875:2:
8875 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8876:2:
8876 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8877:2:
8877 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8878:2:
8878 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8879:2:
8879 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8880:2:
8880 | call threetreesttcvdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8881:2:
8881 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8882:2:
8882 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8883:2:
8883 | call threetreesttcvdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8884:2:
8884 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8885:2:
8885 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8888:2:
8888 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8889:2:
8889 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8890:2:
8890 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8891:2:
8891 | integer, intent(out) :: splitindmat(splitnum,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8892:2:
8892 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8893:2:
8893 | if(datatype == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8894:2:
8894 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8895:2:
8895 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8896:2:
8896 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8897:2:
8897 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8898:2:
8898 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8899:2:
8899 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8900:2:
8900 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8901:2:
8901 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8902:2:
8902 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8903:2:
8903 | elseif(datatype == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8904:2:
8904 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8905:2:
8905 | do i = 0, 2**(countvec-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8906:2:
8906 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8907:2:
8907 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8908:2:
8908 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8909:2:
8909 | do j = 0, countvec - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8910:2:
8910 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8911:2:
8911 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8912:2:
8912 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8913:2:
8913 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8914:2:
8914 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8915:2:
8915 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8916:2:
8916 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8917:2:
8917 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8918:2:
8918 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8919:2:
8919 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8920:2:
8920 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8921:2:
8921 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8922:2:
8922 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8925:2:
8925 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8926:2:
8926 | integer, intent(in) :: countvec,msize,colnum,ind1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8927:2:
8927 | integer, intent(in) :: splitindmat(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8928:2:
8928 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8929:2:
8929 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8930:2:
8930 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8931:2:
8931 | double precision facval(countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8932:2:
8932 | call threetreesttcvdataval(xydata(:,ind1),msize,facval,countvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8933:2:
8933 | facvalout = facval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8934:2:
8934 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8935:2:
8935 | do j = 1,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8936:2:
8936 | if(xydata(i,ind1) == facval(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8937:2:
8937 | anovadata(i,1:3) = xydata(i,1:3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8938:2:
8938 | anovadata(i,4) = splitindmat(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8939:2:
8939 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8940:2:
8940 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8941:2:
8941 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8944:2:
8944 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8945:2:
8945 | integer,intent(in) :: msize, pp
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8946:2:
8946 | double precision, intent(in) :: anovadata(msize,4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8947:2:
8947 | double precision, intent(OUT) :: fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8948:2:
8948 | integer, intent(OUT) :: dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8949:2:
8949 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8950:2:
8950 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8951:2:
8951 | double precision ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8952:2:
8952 | integer, allocatable :: subj_map(:), si_arr(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8953:2:
8953 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8954:2:
8954 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8955:2:
8955 | timecount = nint(maxval(anovadata(:,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8956:2:
8956 | max_subj_id = nint(maxval(anovadata(:,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8957:2:
8957 | allocate(subj_map(max_subj_id))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8958:2:
8958 | subj_map(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8959:2:
8959 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8960:2:
8960 | subj_map(nint(anovadata(i,2))) = 1
| 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:8962:2:
8962 | nsubjects = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8963:2:
8963 | do i = 1, max_subj_id
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8964:2:
8964 | if (subj_map(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8965:2:
8965 | nsubjects = nsubjects + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8966:2:
8966 | subj_map(i) = nsubjects
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8967:2:
8967 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8968:2:
8968 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8969:2:
8969 | dfvec(1) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8970:2:
8970 | dfvec(2) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8971:2:
8971 | dfvec(3) = timecount - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8972:2:
8972 | dfvec(4) = nsubjects - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8973:2:
8973 | dfvec(5) = (timecount - 1) * (nsubjects - 2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8974:2:
8974 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8975:2:
8975 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8976:2:
8976 | allocate(si_arr(msize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8977:2:
8977 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8978:2:
8978 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8979:2:
8979 | ymean = sum(anovadata(:,1)) / msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8980:2:
8980 | do i = 1, msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8981:2:
8981 | gi = nint(anovadata(i,4)) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8982:2:
8982 | ti = nint(anovadata(i,3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8983:2:
8983 | si = subj_map(nint(anovadata(i,2)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8984:2:
8984 | si_arr(i) = si
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8985:2:
8985 | ygroup(gi) = ygroup(gi) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8986:2:
8986 | ygroupcount(gi) = ygroupcount(gi) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8987:2:
8987 | ytime(ti) = ytime(ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8988:2:
8988 | ytimecount(ti) = ytimecount(ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8989:2:
8989 | ysubject(si) = ysubject(si) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8990:2:
8990 | ysubjectcount(si) = ysubjectcount(si) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8991:2:
8991 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8992:2:
8992 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8993:2:
8993 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8994:2:
8994 | ygroup = ygroup / ygroupcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8995:2:
8995 | ytime = ytime / ytimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8996:2:
8996 | ysubject = ysubject / ysubjectcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8997:2:
8997 | ygrouptime = ygrouptime / ygrouptimecount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8998:2:
8998 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:8999:2:
8999 | ssgrouptime = 0d0; sssubject = 0d0
| 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 = si_arr(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9004:2:
9004 | sstotal = sstotal + (anovadata(i,1) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9005:2:
9005 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9006:2:
9006 | sstime = sstime + (ytime(ti) - ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9007:2:
9007 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9008:2:
9008 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9009:2:
9009 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9010:2:
9010 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9011:2:
9011 | ms(1) = ssgroup / dfvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9012:2:
9012 | ms(2) = sstime / dfvec(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9013:2:
9013 | ms(3) = ssgrouptime / dfvec(3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9014:2:
9014 | ms(4) = sssubject / dfvec(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9015:2:
9015 | ms(5) = sserr / dfvec(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9016:2:
9016 | fval(1) = ms(1) / ms(4)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9017:2:
9017 | fval(2) = ms(3) / ms(5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9018:2:
9018 | deallocate(subj_map, si_arr)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9019:2:
9019 | deallocate(ygroup, ytime, ysubject, ygrouptime)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9020:2:
9020 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9023:2:
9023 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9024:2:
9024 | integer, intent(in) :: dfvec(5),beta1len,beta2len
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9025:2:
9025 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9026:2:
9026 | double precision, intent(out) :: weightpval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9027:2:
9027 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9028:2:
9028 | double precision xb,eps,s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9029:2:
9029 | eps = 1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9030:2:
9030 | DFD1 = dble(dfvec(1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9031:2:
9031 | DFN1 = dble(dfvec(4))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9032:2:
9032 | DFD2 = dble(dfvec(3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9033:2:
9033 | DFN2 = dble(dfvec(5))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9034:2:
9034 | TESTVAL1 = fval(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9035:2:
9035 | TESTVAL2 = fval(2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9036:2:
9036 | if(abs(weight - 1d0) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9037:2:
9037 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9038:2:
9038 | call threetreesttcvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9039:2:
9039 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9040:2:
9040 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9041:2:
9041 | elseif(abs(weight) < 1d-15) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9042:2:
9042 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9043:2:
9043 | call threetreesttcvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9044:2:
9044 | weightpval = 1.0d0 - s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9045:2:
9045 | goto 10000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9046:2:
9046 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9047:2:
9047 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9048:2:
9048 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9049:2:
9049 | 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:9050:2:
9050 | weightpval = 1d0-s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9052:2:
9052 | weightpval = max(0d0, min(1d0, weightpval))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9055:2:
9055 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9056:2:
9056 | integer,parameter::kmin=3,kmax=14
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9057:2:
9057 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9058:2:
9058 | double precision,intent(in)::a,b,eps,df1,df2,beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9059:2:
9059 | double precision,intent(out)::s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9060:2:
9060 | double precision res,zval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9061:2:
9061 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9063:2:
9063 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9064:2:
9064 | inv_beta = 1d0 / beta
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9065:2:
9065 | df_ratio = df1/df2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9066:2:
9066 | df1_half = df1/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9067:2:
9067 | df12_half = (df1+df2)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9068:2:
9068 | form3 = df_ratio**df1_half
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9069:2:
9069 | df1m2_half = (df1-2d0)/2d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9074:2:
9074 | zval = pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9075:2:
9075 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9076:2:
9076 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9081:2:
9081 | s=0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9082:2:
9082 | nc=2*nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9083:2:
9083 | h=h*0.5d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9084:2:
9084 | do j=1,nc
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9085:2:
9085 | t=dble(2*j-nc-1)*h
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9086:2:
9086 | shk=pi2*sinh(t)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9087:2:
9087 | xt=tanh(shk)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9088:2:
9088 | wt=pi2*cosh(t)*(1d0 - xt*xt)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9089:2:
9089 | zval = mba*xt+pba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9090:2:
9090 | res = inv_beta * form3 * (zval**df1m2_half) / &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9091:2:
9091 | ((1d0+(df_ratio*zval))**df12_half)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9092:2:
9092 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9093:2:
9093 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9094:2:
9094 | s=s0*0.5d0+s*h*mba
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9095:2:
9095 | as=abs(s); err=abs(s-s0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9096:2:
9096 | if(as.ge.1d0)err=err/as
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9097:2:
9097 | if(err.le.seps.and.l.ge.kmin)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9098:2:
9098 | s0=s
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9099:2:
9099 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9102:2:
9102 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9103:2:
9103 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9105:2:
9105 | integer,parameter::kmin=3, kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9106:2:
9106 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9133:2:
9133 | if(err.le.0.000001d0 .and. l>6)exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9142:2:
9142 | integer,parameter::kmin=3,kmax=8
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9143:2:
9143 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9149:2:
9149 | inv_weight = 1d0-weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9183:2:
9183 | s=s+res*wt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9194:2:
9194 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9195:2:
9195 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9196:2:
9196 | double precision,intent(out) :: res
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9197:2:
9197 | 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:9198:2:
9198 | eps=1d-12
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9199:2:
9199 | s1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9200:2:
9200 | s2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9201:2:
9201 | zval = (z-((1d0-weight)*v))/weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9202:2:
9202 | form1 = 1d0 / weight
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9203:2:
9203 | form2 = 1d0 / beta1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9204:2:
9204 | form3 = (df11/df12)**(df11/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9205:2:
9205 | form4 = zval**((df11-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9206:2:
9206 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9207:2:
9207 | form6 = 1d0 / beta2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9208:2:
9208 | form7 = (df21/df22)**(df21/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9209:2:
9209 | form8 = v**((df21-2d0)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9210:2:
9210 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9211:2:
9211 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9)
| 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 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9216:2:
9216 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9217:2:
9217 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9218:2:
9218 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9219:2:
9219 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9220:2:
9220 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9221:2:
9221 | call threetreesttcvdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9222:2:
9222 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9223:2:
9223 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9224:2:
9224 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9225:2:
9225 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9226:2:
9226 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9227:2:
9227 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9228:2:
9228 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9229:2:
9229 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9233:2:
9233 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9234:2:
9234 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9235:2:
9235 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9236:2:
9236 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9237:2:
9237 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9238:2:
9238 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9239:2:
9239 | sizel=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9240:2:
9240 | sizer=0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9241:2:
9241 | nodenummatsub(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9242:2:
9242 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9243:2:
9243 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9244:2:
9244 | do j = 1,sizenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9245:2:
9245 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9246:2:
9246 | if(splitindvec(j) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9247:2:
9247 | nodenummatsub(i,hierarchy) = nodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9248:2:
9248 | sizel=sizel+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9249:2:
9249 | elseif(splitindvec(j) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9250:2:
9250 | nodenummatsub(i,hierarchy) = nodenum + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9251:2:
9251 | sizer=sizer+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9252:2:
9252 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9253:2:
9253 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9254:2:
9254 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9255:2:
9255 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9256:2:
9256 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9259:2:
9259 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9260:2:
9260 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9261:2:
9261 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9262:2:
9262 | integer, intent(in) :: nodenummat(msize,11)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9263:2:
9263 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9264:2:
9264 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9265:2:
9265 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9266:2:
9266 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9267:2:
9267 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9268:2:
9268 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9269:2:
9269 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9270:2:
9270 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9271:2:
9271 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9275:2:
9275 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9276:2:
9276 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9277:2:
9277 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9278:2:
9278 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9279:2:
9279 | double precision, intent(out) :: r2cvval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9280:2:
9280 | double precision, allocatable :: timepred(:,:),r2cvnumsub(:,:), timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9281:2:
9281 | double precision r2cvnum,r2cvden,ymean
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9282:2:
9282 | integer i,j,k,l
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9283:2:
9283 | allocate(timepred(((2**maxdepth)-1),levelcount),r2cvnumsub(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9284:2:
9284 | allocate(timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9285:2:
9285 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9286:2:
9286 | r2cvnumsub(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9287:2:
9287 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9288:2:
9288 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9289:2:
9289 | do j = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9290:2:
9290 | if(sum(nodenummat(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9291:2:
9291 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9292:2:
9292 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9293:2:
9293 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9294:2:
9294 | if(nodenummat(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9295:2:
9295 | 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:9296:2:
9296 | 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:9297:2:
9297 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9298:2:
9298 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9299:2:
9299 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9300:2:
9300 | if(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9301:2:
9301 | 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:9302:2:
9302 | 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:9303:2:
9303 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9304:2:
9304 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9305:2:
9305 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9307:2:
9307 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9308:2:
9308 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9309:2:
9309 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9310:2:
9310 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9311:2:
9311 | enddo
| 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 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9314:2:
9314 | ymean = sum(testdata(:,1))/dble(testdatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9315:2:
9315 | r2cvnum = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9316:2:
9316 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9317:2:
9317 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9318:2:
9318 | do j=1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9319:2:
9319 | if(2**(j-1) <= i .and. i < 2**j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9320:2:
9320 | k = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9321:2:
9321 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9322:2:
9322 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9323:2:
9323 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9324:2:
9324 | do l = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9325:2:
9325 | if(nodenummattest(l,k) == i) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9326:2:
9326 | 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:9327:2:
9327 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9328:2:
9328 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9329:2:
9329 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9330:2:
9330 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9331:2:
9331 | r2cvnum = sum(r2cvnumsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9332:2:
9332 | r2cvden = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9333:2:
9333 | do i = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9334:2:
9334 | r2cvden = r2cvden + ((testdata(i,1) - ymean) * (testdata(i,1) - ymean))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9335:2:
9335 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9336:2:
9336 | r2cvval = 1d0-(r2cvnum/r2cvden)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9337:2:
9337 | deallocate(timepred,r2cvnumsub,timepredcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9341:2:
9341 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9342:2:
9342 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9343:2:
9343 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9344:2:
9344 | double precision,intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9345:2:
9345 | double precision,intent(in) :: gamma
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9346:2:
9346 | integer,intent(out) :: prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9347:2:
9347 | 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:9348:2:
9348 | double precision minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9349:2:
9349 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9350:2:
9350 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9351:2:
9351 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9352:2:
9352 | if(prunind==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9353:2:
9353 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9354:2:
9354 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9355:2:
9355 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9356:2:
9356 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9357:2:
9357 | gammavec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9358:2:
9358 | call threetreesttcvgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9359:2:
9359 | call threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9360:2:
9360 | gammavec(1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9361:2:
9361 | if(gammavec(1) > gamma) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9362:2:
9362 | prunenodenummattest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9363:2:
9363 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9364:2:
9364 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9365:2:
9365 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9366:2:
9366 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9367:2:
9367 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9368:2:
9368 | call threetreesttcvgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9369:2:
9369 | call threetreesttcvgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9370:2:
9370 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9371:2:
9371 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9372:2:
9372 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9373:2:
9373 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9374:2:
9374 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9375:2:
9375 | call threetreesttcvgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9376:2:
9376 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9377:2:
9377 | prunenodenummattest(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9378:2:
9378 | prunenodenummattest(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9379:2:
9379 | prunenodenummat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9380:2:
9380 | prunenodenummat(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9381:2:
9381 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9382:2:
9382 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9383:2:
9383 | call threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9384:2:
9384 | gammavec(prunloop) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9385:2:
9385 | if(gammavec(prunloop-1) < gamma .and. gammavec(prunloop) > gamma) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9386:2:
9386 | prunenodenummattest(:,:) = nodenummatnewtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9387:2:
9387 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9388:2:
9388 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9389:2:
9389 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9390:2:
9390 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9391:2:
9391 | call threetreesttcvgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9392:2:
9392 | call threetreesttcvgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9393:2:
9393 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9394:2:
9394 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9395:2:
9395 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9396:2:
9396 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9397:2:
9397 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9401:2:
9401 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9402:2:
9402 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9403:2:
9403 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9404:2:
9404 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9405:2:
9405 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9406:2:
9406 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9407:2:
9407 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9408:2:
9408 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9409:2:
9409 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9410:2:
9410 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9411:2:
9411 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9412:2:
9412 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9413:2:
9413 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9414:2:
9414 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9415:2:
9415 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9416:2:
9416 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9417:2:
9417 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9418:2:
9418 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9419:2:
9419 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9420:2:
9420 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9421:2:
9421 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9422:2:
9422 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9423:2:
9423 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9424:2:
9424 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9425:2:
9425 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9426:2:
9426 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9427:2:
9427 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9428:2:
9428 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9429:2:
9429 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9432:2:
9432 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9433:2:
9433 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9434:2:
9434 | 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:9435:2:
9435 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9436:2:
9436 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9437:2:
9437 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9438:2:
9438 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9439:2:
9439 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9440:2:
9440 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9441:2:
9441 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9442:2:
9442 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9443:2:
9443 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9444:2:
9444 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9445:2:
9445 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9446:2:
9446 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9447:2:
9447 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9448:2:
9448 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9449:2:
9449 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9450:2:
9450 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9451:2:
9451 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9452:2:
9452 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9453:2:
9453 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9454:2:
9454 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9455:2:
9455 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9456:2:
9456 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9457:2:
9457 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9458:2:
9458 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9459:2:
9459 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9460:2:
9460 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9461:2:
9461 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9462:2:
9462 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9463:2:
9463 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9464:2:
9464 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9465:2:
9465 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9466:2:
9466 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9467:2:
9467 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9468:2:
9468 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9469:2:
9469 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9470:2:
9470 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9471:2:
9471 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9472:2:
9472 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9473:2:
9473 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9474:2:
9474 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9477:2:
9477 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9478:2:
9478 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9479:2:
9479 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9480:2:
9480 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9481:2:
9481 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9482:2:
9482 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9483:2:
9483 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9484:2:
9484 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9485:2:
9485 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9486:2:
9486 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9487:2:
9487 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9488:2:
9488 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9489:2:
9489 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9490:2:
9490 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9491:2:
9491 | exit
| 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 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9494:2:
9494 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9495:2:
9495 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9496:2:
9496 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9497:2:
9497 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9498:2:
9498 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9499:2:
9499 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9500:2:
9500 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9501:2:
9501 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9502:2:
9502 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9503:2:
9503 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9504:2:
9504 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9507:2:
9507 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9508:2:
9508 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9509:2:
9509 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9510:2:
9510 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9511:2:
9511 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9512:2:
9512 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9513:2:
9513 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9514:2:
9514 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9515:2:
9515 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9516:2:
9516 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9517:2:
9517 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9518:2:
9518 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9519:2:
9519 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9520:2:
9520 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9521:2:
9521 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9522:2:
9522 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9523:2:
9523 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9524:2:
9524 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9525:2:
9525 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9529:2:
9529 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9530:2:
9530 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9531:2:
9531 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9532:2:
9532 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9533:2:
9533 | double precision, intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9534:2:
9534 | double precision, intent(out) :: gammacv((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9535:2:
9535 | double precision allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9536:2:
9536 | double precision allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9537:2:
9537 | double precision losspredsum,minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9538:2:
9538 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9539:2:
9539 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9540:2:
9540 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9541:2:
9541 | allgammavaltrain(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9542:2:
9542 | gammacv(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9543:2:
9543 | losspredsumvec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9544:2:
9544 | call threetreesttcvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9545:2:
9545 | nodenummattest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9546:2:
9546 | losspredsumvec(1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9547:2:
9547 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9548:2:
9548 | allfvalnew(:) = allfval(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9549:2:
9549 | nodenummatnew(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9550:2:
9550 | nodenummatnewtest(:,:) = nodenummattest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9551:2:
9551 | do cvprunloop = 1,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9552:2:
9552 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9553:2:
9553 | call threetreesttcvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9554:2:
9554 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9555:2:
9555 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9556:2:
9556 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9557:2:
9557 | call threetreesttcvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9558:2:
9558 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9559:2:
9559 | call threetreesttcvbestpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9560:2:
9560 | call threetreesttcvbestpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9561:2:
9561 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9562:2:
9562 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9563:2:
9563 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9564:2:
9564 | deallocate(nodenummatnewsub,nodenummatnewsubtest)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9565:2:
9565 | allgammavaltrain(cvprunloop+1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9566:2:
9566 | call threetreesttcvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9567:2:
9567 | nodenummatnewtest,testdatasize,maxdepth,losspredsum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9568:2:
9568 | losspredsumvec(cvprunloop+1) = losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9569:2:
9569 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9570:2:
9570 | gammacv(1) = losspredsumvec(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9571:2:
9571 | j = 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9572:2:
9572 | do i = 2,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9573:2:
9573 | if(allgammaval(i) == 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9574:2:
9574 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9575:2:
9575 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9576:2:
9576 | if(allgammaval(i) <= allgammavaltrain(j)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9577:2:
9577 | gammacv(i) = losspredsumvec(j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9578:2:
9578 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9579:2:
9579 | do k = 1,size(allgammaval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9580:2:
9580 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9581:2:
9581 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9582:2:
9582 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9583:2:
9583 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9584:2:
9584 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9585:2:
9585 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9586:2:
9586 | gammacv(i) = losspredsumvec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9587:2:
9587 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9588:2:
9588 | endif
| 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:9593:2:
9593 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9594:2:
9594 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9595:2:
9595 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9596:2:
9596 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9597:2:
9597 | double precision, intent(out) :: losspredsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9598:2:
9598 | double precision, allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9599:2:
9599 | integer i,j,k,l
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9600:2:
9600 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9601:2:
9601 | allocate(timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9602:2:
9602 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9603:2:
9603 | losspred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9604:2:
9604 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9605:2:
9605 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9606:2:
9606 | do j = 1,traindatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9607:2:
9607 | if(sum(nodenummat(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9608:2:
9608 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9609:2:
9609 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9610:2:
9610 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9611:2:
9611 | if(nodenummat(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9612:2:
9612 | 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:9613:2:
9613 | 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:9614:2:
9614 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9615:2:
9615 | elseif(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9616:2:
9616 | 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:9617:2:
9617 | 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:9618:2:
9618 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9619:2:
9619 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9620:2:
9620 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9622:2:
9622 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9623:2:
9623 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9624:2:
9624 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9625:2:
9625 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9626:2:
9626 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9627:2:
9627 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9628:2:
9628 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9629:2:
9629 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9630:2:
9630 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9631:2:
9631 | do j=1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9632:2:
9632 | if(2**(j-1) <= i .and. i < 2**j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9633:2:
9633 | k = j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9634:2:
9634 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9635:2:
9635 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9636:2:
9636 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9637:2:
9637 | do l = 1,testdatasize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9638:2:
9638 | if(nodenummattest(l,k) == i) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9639:2:
9639 | 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:9640:2:
9640 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9641:2:
9641 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9642:2:
9642 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9643:2:
9643 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9644:2:
9644 | losspredsum = sum(losspred)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9645:2:
9645 | deallocate(timepred,losspred,timepredcou)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9648:2:
9648 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9649:2:
9649 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9650:2:
9650 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9651:2:
9651 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9652:2:
9652 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9653:2:
9653 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9654:2:
9654 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9655:2:
9655 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9656:2:
9656 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9657:2:
9657 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9658:2:
9658 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9659:2:
9659 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9660:2:
9660 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9661:2:
9661 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9662:2:
9662 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9663:2:
9663 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9664:2:
9664 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9665:2:
9665 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9666:2:
9666 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9667:2:
9667 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9668:2:
9668 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9669:2:
9669 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9670:2:
9670 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9671:2:
9671 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9672:2:
9672 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9673:2:
9673 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9674:2:
9674 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9675:2:
9675 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9676:2:
9676 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9679:2:
9679 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9680:2:
9680 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9681:2:
9681 | 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:9682:2:
9682 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9683:2:
9683 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9684:2:
9684 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9685:2:
9685 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9686:2:
9686 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9687:2:
9687 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9688:2:
9688 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9689:2:
9689 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9690:2:
9690 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9691:2:
9691 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9692:2:
9692 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9693:2:
9693 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9694:2:
9694 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9695:2:
9695 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9696:2:
9696 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9697:2:
9697 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9698:2:
9698 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9699:2:
9699 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9700:2:
9700 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9701:2:
9701 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9702:2:
9702 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9703:2:
9703 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9704:2:
9704 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9705:2:
9705 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9706:2:
9706 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9707:2:
9707 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9708:2:
9708 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9709:2:
9709 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9710:2:
9710 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9711:2:
9711 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9712:2:
9712 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9713:2:
9713 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9714:2:
9714 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9715:2:
9715 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9716:2:
9716 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9717:2:
9717 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9718:2:
9718 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9719:2:
9719 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9720:2:
9720 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9721:2:
9721 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9724:2:
9724 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9725:2:
9725 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9726:2:
9726 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9727:2:
9727 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9728:2:
9728 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9729:2:
9729 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9730:2:
9730 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9731:2:
9731 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9732:2:
9732 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9733:2:
9733 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9734:2:
9734 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9735:2:
9735 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9736:2:
9736 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9737:2:
9737 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9738:2:
9738 | exit
| 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 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9741:2:
9741 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9742:2:
9742 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9743:2:
9743 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9744:2:
9744 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9745:2:
9745 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9746:2:
9746 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9747:2:
9747 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9748:2:
9748 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9749:2:
9749 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9750:2:
9750 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9751:2:
9751 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9754:2:
9754 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9755:2:
9755 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9756:2:
9756 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9757:2:
9757 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9758:2:
9758 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9759:2:
9759 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9760:2:
9760 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9761:2:
9761 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9762:2:
9762 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9763:2:
9763 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9764:2:
9764 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9765:2:
9765 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9766:2:
9766 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9767:2:
9767 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9768:2:
9768 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9769:2:
9769 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9770:2:
9770 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9771:2:
9771 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9772:2:
9772 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9779:2:
9779 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9780:2:
9780 | integer,intent(in) :: colnum,levelcount,maxdepth,cvloop,traindatasize1,traindatasize2,traindatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9781:2:
9781 | integer,intent(in) :: testdatasize1,testdatasize2,testdatasize3,testdataallsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9782:2:
9782 | integer,intent(in) :: nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9783:2:
9783 | nodenummat3(traindatasize3,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9784:2:
9784 | integer,intent(in) :: nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9785:2:
9785 | nodenummattest3(testdataallsize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9786:2:
9786 | double precision,intent(in) :: traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9787:2:
9787 | traindata3(traindatasize3,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9788:2:
9788 | double precision,intent(in) :: testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),&
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9789:2:
9789 | testdata3(testdatasize3,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9790:2:
9790 | double precision,intent(in) :: testdataall(testdataallsize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9791:2:
9791 | double precision,intent(out) :: r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9792:2:
9792 | double precision bootpredictsub1(testdatasize1,5),bootpredictsub2(testdatasize2,5),bootpredictsub3(testdatasize3,5)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9793:2:
9793 | double precision, allocatable :: timepred(:,:),timepredcou(:,:),predictvec(:),r2cvks0(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9794:2:
9794 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9795:2:
9795 | double precision ymean,r2cvbunsi,r2cvbunbo,r2cvks1,r2cvks2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9796:2:
9796 | bootpredictsub1(:,1) = dble(cvloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9797:2:
9797 | bootpredictsub1(:,2) = testdata1(:,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9798:2:
9798 | bootpredictsub2(:,1) = dble(cvloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9799:2:
9799 | bootpredictsub2(:,2) = testdata2(:,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9800:2:
9800 | bootpredictsub3(:,1) = dble(cvloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9801:2:
9801 | bootpredictsub3(:,2) = testdata3(:,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9802:2:
9802 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9803:2:
9803 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9804:2:
9804 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9805:2:
9805 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9806:2:
9806 | do j = 1,traindatasize1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9807:2:
9807 | if(sum(nodenummat1(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9808:2:
9808 | goto 3010
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9809:2:
9809 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9810:2:
9810 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9811:2:
9811 | if(nodenummat1(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9812:2:
9812 | timepred(nodenummat1(j,maxdepth),int(traindata1(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9813:2:
9813 | timepred(nodenummat1(j,maxdepth),int(traindata1(j,3))) + traindata1(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9814:2:
9814 | timepredcou(nodenummat1(j,maxdepth),int(traindata1(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9815:2:
9815 | timepredcou(nodenummat1(j,maxdepth),int(traindata1(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9816:2:
9816 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9817:2:
9817 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9818:2:
9818 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9819:2:
9819 | if(nodenummat1(j,i) > 0 .and. nodenummat1(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9820:2:
9820 | timepred(nodenummat1(j,i),int(traindata1(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9821:2:
9821 | timepred(nodenummat1(j,i),int(traindata1(j,3))) + traindata1(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9822:2:
9822 | timepredcou(nodenummat1(j,i),int(traindata1(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9823:2:
9823 | timepredcou(nodenummat1(j,i),int(traindata1(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9824:2:
9824 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9825:2:
9825 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9826:2:
9826 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9828:2:
9828 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9829:2:
9829 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9830:2:
9830 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9831:2:
9831 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9832:2:
9832 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9833:2:
9833 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9834:2:
9834 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9835:2:
9835 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9836:2:
9836 | do j = 1,testdataallsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9837:2:
9837 | if(sum(nodenummattest1(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9838:2:
9838 | goto 3020
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9839:2:
9839 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9840:2:
9840 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9841:2:
9841 | if(nodenummattest1(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9842:2:
9842 | predictvec(j) = timepred(nodenummattest1(j,maxdepth),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9843:2:
9843 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9844:2:
9844 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9845:2:
9845 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9846:2:
9846 | if(nodenummattest1(j,i) > 0 .and. nodenummattest1(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9847:2:
9847 | predictvec(j) = timepred(nodenummattest1(j,i),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9848:2:
9848 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9849:2:
9849 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9850:2:
9850 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9852:2:
9852 | bootpredictsub1(:,3) = predictvec(1:testdatasize1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9853:2:
9853 | bootpredictsub2(:,3) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9854:2:
9854 | bootpredictsub3(:,3) = predictvec((testdatasize1+testdatasize2+1):testdataallsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9855:2:
9855 | deallocate(timepred,timepredcou,predictvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9856:2:
9856 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9857:2:
9857 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9858:2:
9858 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9859:2:
9859 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9860:2:
9860 | do j = 1,traindatasize2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9861:2:
9861 | if(sum(nodenummat2(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9862:2:
9862 | goto 3030
| 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 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9865:2:
9865 | if(nodenummat2(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9866:2:
9866 | timepred(nodenummat2(j,maxdepth),int(traindata2(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9867:2:
9867 | timepred(nodenummat2(j,maxdepth),int(traindata2(j,3))) + traindata2(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9868:2:
9868 | timepredcou(nodenummat2(j,maxdepth),int(traindata2(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9869:2:
9869 | timepredcou(nodenummat2(j,maxdepth),int(traindata2(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9870:2:
9870 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9871:2:
9871 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9872:2:
9872 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9873:2:
9873 | if(nodenummat2(j,i) > 0 .and. nodenummat2(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9874:2:
9874 | timepred(nodenummat2(j,i),int(traindata2(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9875:2:
9875 | timepred(nodenummat2(j,i),int(traindata2(j,3))) + traindata2(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9876:2:
9876 | timepredcou(nodenummat2(j,i),int(traindata2(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9877:2:
9877 | timepredcou(nodenummat2(j,i),int(traindata2(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9878:2:
9878 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9879:2:
9879 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9880:2:
9880 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9882:2:
9882 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9883:2:
9883 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9884:2:
9884 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9885:2:
9885 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9886:2:
9886 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9887:2:
9887 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9888:2:
9888 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9889:2:
9889 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9890:2:
9890 | do j = 1,testdataallsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9891:2:
9891 | if(sum(nodenummattest2(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9892:2:
9892 | goto 3040
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9893:2:
9893 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9894:2:
9894 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9895:2:
9895 | if(nodenummattest2(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9896:2:
9896 | predictvec(j) = timepred(nodenummattest2(j,maxdepth),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9897:2:
9897 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9898:2:
9898 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9899:2:
9899 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9900:2:
9900 | if(nodenummattest2(j,i) > 0 .and. nodenummattest2(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9901:2:
9901 | predictvec(j) = timepred(nodenummattest2(j,i),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9902:2:
9902 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9903:2:
9903 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9904:2:
9904 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9906:2:
9906 | bootpredictsub1(:,4) = predictvec(1:testdatasize1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9907:2:
9907 | bootpredictsub2(:,4) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9908:2:
9908 | bootpredictsub3(:,4) = predictvec((testdatasize1+testdatasize2+1):testdataallsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9909:2:
9909 | deallocate(timepred,timepredcou,predictvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9910:2:
9910 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9911:2:
9911 | timepred(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9912:2:
9912 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9913:2:
9913 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9914:2:
9914 | do j = 1,traindatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9915:2:
9915 | if(sum(nodenummat3(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9916:2:
9916 | goto 3050
| 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 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9919:2:
9919 | if(nodenummat3(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9920:2:
9920 | timepred(nodenummat3(j,maxdepth),int(traindata3(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9921:2:
9921 | timepred(nodenummat3(j,maxdepth),int(traindata3(j,3))) + traindata3(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9922:2:
9922 | timepredcou(nodenummat3(j,maxdepth),int(traindata3(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9923:2:
9923 | timepredcou(nodenummat3(j,maxdepth),int(traindata3(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9924:2:
9924 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9925:2:
9925 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9926:2:
9926 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9927:2:
9927 | if(nodenummat3(j,i) > 0 .and. nodenummat3(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9928:2:
9928 | timepred(nodenummat3(j,i),int(traindata3(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9929:2:
9929 | timepred(nodenummat3(j,i),int(traindata3(j,3))) + traindata3(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9930:2:
9930 | timepredcou(nodenummat3(j,i),int(traindata3(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9931:2:
9931 | timepredcou(nodenummat3(j,i),int(traindata3(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9932:2:
9932 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9933:2:
9933 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9934:2:
9934 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9936:2:
9936 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9937:2:
9937 | if(abs(sum(timepred(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9938:2:
9938 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9939:2:
9939 | timepred(i,j) = timepred(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9940:2:
9940 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9941:2:
9941 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9942:2:
9942 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9943:2:
9943 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9944:2:
9944 | do j = 1,testdataallsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9945:2:
9945 | if(sum(nodenummattest3(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9946:2:
9946 | goto 3060
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9947:2:
9947 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9948:2:
9948 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9949:2:
9949 | if(nodenummattest3(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9950:2:
9950 | predictvec(j) = timepred(nodenummattest3(j,maxdepth),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9951:2:
9951 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9952:2:
9952 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9953:2:
9953 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9954:2:
9954 | if(nodenummattest3(j,i) > 0 .and. nodenummattest3(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9955:2:
9955 | predictvec(j) = timepred(nodenummattest3(j,i),int(testdataall(j,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9956:2:
9956 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9957:2:
9957 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9958:2:
9958 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9960:2:
9960 | bootpredictsub1(:,5) = predictvec(1:testdatasize1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9961:2:
9961 | bootpredictsub2(:,5) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9962:2:
9962 | bootpredictsub3(:,5) = predictvec((testdatasize1+testdatasize2+1):testdataallsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9963:2:
9963 | r2cvks1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9964:2:
9964 | r2cvks2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9965:2:
9965 | ymean = sum(bootpredictsub1(:,2))/testdatasize1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9966:2:
9966 | do i = 1,testdatasize1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9967:2:
9967 | 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:9968:2:
9968 | r2cvks2 = r2cvks2 + (bootpredictsub1(i,2)-ymean) * (bootpredictsub1(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9969:2:
9969 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9970:2:
9970 | r2cvbunsi = r2cvks1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9971:2:
9971 | r2cvbunbo = r2cvks2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9972:2:
9972 | r2cvval1sub = 1d0-(r2cvbunsi/r2cvbunbo)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9973:2:
9973 | r2cvks1 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9974:2:
9974 | r2cvks2 = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9975:2:
9975 | ymean = sum(bootpredictsub2(:,2))/testdatasize2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9976:2:
9976 | do i = 1,testdatasize2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9977:2:
9977 | 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:9978:2:
9978 | r2cvks2 = r2cvks2 + (bootpredictsub2(i,2)-ymean) * (bootpredictsub2(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9979:2:
9979 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9980:2:
9980 | r2cvbunsi = r2cvks1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9981:2:
9981 | r2cvbunbo = r2cvks2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9982:2:
9982 | r2cvval2sub = 1d0-(r2cvbunsi/r2cvbunbo)
| 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(bootpredictsub3(:,2))/testdatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9986:2:
9986 | do i = 1,testdatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9987:2:
9987 | 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:9988:2:
9988 | r2cvks2 = r2cvks2 + (bootpredictsub3(i,2)-ymean) * (bootpredictsub3(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 | r2cvval3sub = 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(bootpredictsub1(:,2))+sum(bootpredictsub2(:,2))+sum(bootpredictsub3(:,2)))/testdataallsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9996:2:
9996 | allocate(r2cvks0(testdatasize1))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9997:2:
9997 | r2cvks0(:) = (bootpredictsub1(:,3)+bootpredictsub1(:,4)+bootpredictsub1(:,5))/3d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9998:2:
9998 | do i = 1,testdatasize1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:9999:2:
9999 | r2cvks1 = r2cvks1 + (bootpredictsub1(i,2)-r2cvks0(i)) * (bootpredictsub1(i,2)-r2cvks0(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10000:2:
10000 | r2cvks2 = r2cvks2 + (bootpredictsub1(i,2)-ymean) * (bootpredictsub1(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10001:2:
10001 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10002:2:
10002 | deallocate(r2cvks0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10003:2:
10003 | allocate(r2cvks0(testdatasize2))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10004:2:
10004 | r2cvks0(:) = (bootpredictsub2(:,3)+bootpredictsub2(:,4)+bootpredictsub2(:,5))/3d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10005:2:
10005 | do i = 1,testdatasize2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10006:2:
10006 | r2cvks1 = r2cvks1 + (bootpredictsub2(i,2)-r2cvks0(i)) * (bootpredictsub2(i,2)-r2cvks0(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10007:2:
10007 | r2cvks2 = r2cvks2 + (bootpredictsub2(i,2)-ymean) * (bootpredictsub2(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10008:2:
10008 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10009:2:
10009 | deallocate(r2cvks0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10010:2:
10010 | allocate(r2cvks0(testdatasize3))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10011:2:
10011 | r2cvks0(:) = (bootpredictsub3(:,3)+bootpredictsub3(:,4)+bootpredictsub3(:,5))/3d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10012:2:
10012 | do i = 1,testdatasize3
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10013:2:
10013 | r2cvks1 = r2cvks1 + (bootpredictsub3(i,2)-r2cvks0(i)) * (bootpredictsub3(i,2)-r2cvks0(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10014:2:
10014 | r2cvks2 = r2cvks2 + (bootpredictsub3(i,2)-ymean) * (bootpredictsub3(i,2)-ymean)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10015:2:
10015 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10016:2:
10016 | deallocate(r2cvks0)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10017:2:
10017 | r2cvbunsi = r2cvks1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10018:2:
10018 | r2cvbunbo = r2cvks2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10019:2:
10019 | r2cvvalthreesub = 1d0-(r2cvbunsi/r2cvbunbo)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10020:2:
10020 | deallocate(timepred,timepredcou,predictvec)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10023:2:
10023 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10024:2:
10024 | integer,intent(in) :: msize,maxdepth,prunind,cv
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10025:2:
10025 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10026:2:
10026 | double precision,intent(in) :: bestgammaval,allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10027:2:
10027 | integer,intent(out) :: prunenodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10028:2:
10028 | double precision minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10029:2:
10029 | 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:10030:2:
10030 | integer nottnodeval,allnodenum,minghnum,prunloop
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10031:2:
10031 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10032:2:
10032 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10033:2:
10033 | if(bestgammaval <= 0d0 .or. prunind==1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10034:2:
10034 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10035:2:
10035 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10036:2:
10036 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10037:2:
10037 | gammavec(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10038:2:
10038 | call threetreesgterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10039:2:
10039 | call threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10040:2:
10040 | gammavec(1) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10041:2:
10041 | if(gammavec(1) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10042:2:
10042 | prunenodenummat(:,:) = nodenummat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10043:2:
10043 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10044:2:
10044 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10045:2:
10045 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10046:2:
10046 | call threetreesgpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10047:2:
10047 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10048:2:
10048 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10049:2:
10049 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10050:2:
10050 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10051:2:
10051 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10052:2:
10052 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10053:2:
10053 | do prunloop = 2,((2**(maxdepth-1))-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10054:2:
10054 | allfvalnewsub(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10055:2:
10055 | call threetreesgterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10056:2:
10056 | if(allnodenum == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10057:2:
10057 | prunenodenummat(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10058:2:
10058 | prunenodenummat(:,1) = 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10059:2:
10059 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10060:2:
10060 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10061:2:
10061 | call threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10062:2:
10062 | gammavec(prunloop) = minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10063:2:
10063 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10064:2:
10064 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10065:2:
10065 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10066:2:
10066 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10067:2:
10067 | allocate(nodenummatnewsub(msize,maxdepth))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10068:2:
10068 | call threetreesgpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10069:2:
10069 | nodenummatnew(:,:) = nodenummatnewsub(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10070:2:
10070 | allfvalnew(:) = allfvalnewsub(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10071:2:
10071 | deallocate(nodenummatnewsub)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10072:2:
10072 | if(bestgammaval == minghval .and. cv == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10073:2:
10073 | prunenodenummat(:,:) = nodenummatnew(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10074:2:
10074 | goto 5000
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10075:2:
10075 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10076:2:
10076 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10080:2:
10080 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10081:2:
10081 | integer, intent(in) :: msize,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10082:2:
10082 | integer,intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10083:2:
10083 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10084:2:
10084 | integer tncountval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10085:2:
10085 | integer i,j,tnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10086:2:
10086 | tncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10087:2:
10087 | ncountval(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10088:2:
10088 | nottnodevec(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10089:2:
10089 | allnodenum = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10090:2:
10090 | do i =1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10091:2:
10091 | do j = 1,maxdepth-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10092:2:
10092 | if(nodenummat(i,j+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10093:2:
10093 | tncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10094:2:
10094 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10095:2:
10095 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10096:2:
10096 | ncountval(nodenummat(i,j)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10097:2:
10097 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10098:2:
10098 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10099:2:
10099 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10100:2:
10100 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10101:2:
10101 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10102:2:
10102 | if(nodenummat(i,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10103:2:
10103 | tncountval(nodenummat(i,maxdepth)) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10104:2:
10104 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10105:2:
10105 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10106:2:
10106 | tnodeval = sum(tncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10107:2:
10107 | nottnodeval = sum(ncountval)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10108:2:
10108 | allnodenum = tnodeval+nottnodeval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10111:2:
10111 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10112:2:
10112 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10113:2:
10113 | 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:10114:2:
10114 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10115:2:
10115 | integer, intent(out) :: minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10116:2:
10116 | double precision, intent(out) :: minghval
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10117:2:
10117 | ghval(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10118:2:
10118 | testsumall(:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10119:2:
10119 | ntcount(:) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10120:2:
10120 | do prunloop = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10121:2:
10121 | if(nottnodevec(prunloop) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10122:2:
10122 | rootnodenum = nottnodevec(prunloop)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10123:2:
10123 | ntcount(rootnodenum) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10124:2:
10124 | testsum = allfval(rootnodenum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10125:2:
10125 | do i = 1,(maxdepth-2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10126:2:
10126 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10127:2:
10127 | exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10128:2:
10128 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10129:2:
10129 | do j = 1,(2**i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10130:2:
10130 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10131:2:
10131 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10132:2:
10132 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10133:2:
10133 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10134:2:
10134 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10135:2:
10135 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10136:2:
10136 | testsumall(rootnodenum) = testsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10137:2:
10137 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10138:2:
10138 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10139:2:
10139 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10140:2:
10140 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10141:2:
10141 | if(ntcount(i) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10142:2:
10142 | ghval(i) = testsumall(i) / dble(ntcount(i))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10143:2:
10143 | if(j == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10144:2:
10144 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10145:2:
10145 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10146:2:
10146 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10147:2:
10147 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10148:2:
10148 | if(minghval > ghval(i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10149:2:
10149 | minghval = ghval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10150:2:
10150 | minghnum = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10151:2:
10151 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10152:2:
10152 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10153:2:
10153 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10156:2:
10156 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10157:2:
10157 | integer, intent(in) :: maxdepth,msize,minghnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10158:2:
10158 | integer, intent(in) :: nodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10159:2:
10159 | double precision, intent(in) :: allfval((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10160:2:
10160 | integer, intent(out) :: nodenummatnew(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10161:2:
10161 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10162:2:
10162 | integer i,j,indcol
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10163:2:
10163 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10164:2:
10164 | allfvalnew(i) = allfval(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10165:2:
10165 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10166:2:
10166 | allfvalnew(minghnum) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10167:2:
10167 | do i = 1,(maxdepth-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10168:2:
10168 | if(minghnum < (2**i)) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10169:2:
10169 | indcol = i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10170:2:
10170 | exit
| 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 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10173:2:
10173 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10174:2:
10174 | nodenummatnew(i,:) = nodenummat(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10175:2:
10175 | if(nodenummatnew(i,indcol) == minghnum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10176:2:
10176 | do j = (indcol+1),maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10177:2:
10177 | if(nodenummatnew(i,j) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10178:2:
10178 | allfvalnew(nodenummatnew(i,j)) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10179:2:
10179 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10180:2:
10180 | nodenummatnew(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10181:2:
10181 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10182:2:
10182 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10183:2:
10183 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10186:2:
10186 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10187:2:
10187 | integer, intent(in) :: msize,levelcount,maxdepth,colnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10188:2:
10188 | integer, intent(in) :: prunenodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10189:2:
10189 | double precision, intent(in) :: XYDATA(Msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10190:2:
10190 | integer, intent(out) :: datatnnodenum(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10191:2:
10191 | double precision, intent(out) :: predvec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10192:2:
10192 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10193:2:
10193 | double precision tnodepredmat((2**maxdepth)-1,levelcount)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10194:2:
10194 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10195:2:
10195 | allocate(timepredsum(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10196:2:
10196 | timepredsum(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10197:2:
10197 | timepredcou(:,:) = 0d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10198:2:
10198 | do i = 1,maxdepth
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10199:2:
10199 | do j = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10200:2:
10200 | if(sum(prunenodenummat(:,i)) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10201:2:
10201 | goto 3010
| 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 | if(i == maxdepth) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10204:2:
10204 | if(prunenodenummat(j,maxdepth) > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10205:2:
10205 | timepredsum(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10206:2:
10206 | timepredsum(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) + XYDATA(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10207:2:
10207 | timepredcou(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10208:2:
10208 | timepredcou(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10209:2:
10209 | datatnnodenum(j) = prunenodenummat(j,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10210:2:
10210 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10211:2:
10211 | cycle
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10212:2:
10212 | elseif(prunenodenummat(j,i) > 0 .and. prunenodenummat(j,i+1) == 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10213:2:
10213 | timepredsum(prunenodenummat(j,i),int(XYDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10214:2:
10214 | timepredsum(prunenodenummat(j,i),int(XYDATA(j,3))) + XYDATA(j,1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10215:2:
10215 | timepredcou(prunenodenummat(j,i),int(XYDATA(j,3))) = &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10216:2:
10216 | timepredcou(prunenodenummat(j,i),int(XYDATA(j,3))) + 1d0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10217:2:
10217 | datatnnodenum(j) = prunenodenummat(j,i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10218:2:
10218 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10219:2:
10219 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10220:2:
10220 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10222:2:
10222 | do i = 1,((2**maxdepth)-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10223:2:
10223 | if(abs(sum(timepredsum(i,:))) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10224:2:
10224 | do j = 1,levelcount
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10225:2:
10225 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10226:2:
10226 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10227:2:
10227 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10228:2:
10228 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10229:2:
10229 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10230:2:
10230 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3)))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10231:2:
10231 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10234:2:
10234 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10235:2:
10235 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10236:2:
10236 | double precision, intent(in) :: xydata(msize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10237:2:
10237 | integer, intent(in) :: nodenummat(msize,11)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10238:2:
10238 | double precision, intent(out) :: xynodedata(nodesize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10239:2:
10239 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10240:2:
10240 | j = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10241:2:
10241 | do i = 1,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10242:2:
10242 | if(nodenummat(i,hierarchy) == nodenum) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10243:2:
10243 | xynodedata(j,:) = xydata(i,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10244:2:
10244 | j = j + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10245:2:
10245 | endif
| 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:10250:2:
10250 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10251:2:
10251 | integer, intent(in) :: nodedatasize,colnum,maxdepth,ind1,ind2,splitvecsize,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10252:2:
10252 | integer, intent(in) :: datatype(colnum-3)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10253:2:
10253 | double precision, intent(in) :: nodedatanum(nodedatasize,colnum)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10254:2:
10254 | integer, intent(in) :: prunnodenummat(msize,maxdepth)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10255:2:
10255 | integer, intent(out) :: splitvector(splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10256:2:
10256 | double precision, intent(out) :: splitnumber(splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10257:2:
10257 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10258:2:
10258 | double precision datasample(nodedatasize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10259:2:
10259 | integer, allocatable :: splitindmat(:,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10260:2:
10260 | datasample = nodedatanum(:,ind1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10261:2:
10261 | if(datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10262:2:
10262 | splitnum = splitvecsize - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10263:2:
10263 | elseif(datatype(ind1-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10264:2:
10264 | splitnum = (2 ** (splitvecsize-1)) - 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 | call threetreesspdataval(nodedatanum(:,ind1),nodedatasize,splitnumber,splitvecsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10267:2:
10267 | allocate(splitindmat(splitnum,splitvecsize))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10268:2:
10268 | if(datatype(ind1-3) == 1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10269:2:
10269 | do i = 1,splitnum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10270:2:
10270 | do j = 1,splitvecsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10271:2:
10271 | if(i >= j) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10272:2:
10272 | splitindmat(i,j) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10273:2:
10273 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10274:2:
10274 | splitindmat(i,j) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10275:2:
10275 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10276:2:
10276 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10277:2:
10277 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10278:2:
10278 | elseif(datatype(ind1-3) == 2) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10279:2:
10279 | idx = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10280:2:
10280 | do i = 0, 2**(splitvecsize-1) - 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10281:2:
10281 | count_0 = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10282:2:
10282 | count_1 = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10283:2:
10283 | splitindmat(idx, 1) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10284:2:
10284 | do j = 0, splitvecsize - 2
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10285:2:
10285 | if (iand(i, 2**j) /= 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10286:2:
10286 | splitindmat(idx, j+2) = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10287:2:
10287 | count_1 = count_1 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10288:2:
10288 | else
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10289:2:
10289 | splitindmat(idx, j+2) = 0
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10290:2:
10290 | count_0 = count_0 + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10291:2:
10291 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10292:2:
10292 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10293:2:
10293 | if (count_0 > 0 .and. count_1 > 0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10294:2:
10294 | idx = idx + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10295:2:
10295 | end if
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10296:2:
10296 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10297:2:
10297 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10298:2:
10298 | splitvector = splitindmat(ind2,:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10301:2:
10301 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10302:2:
10302 | integer,intent(in) :: msize, facsize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10303:2:
10303 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10304:2:
10304 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10305:2:
10305 | double precision, intent(out) :: facval(facsize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10306:2:
10306 | integer count, i, j, k
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10307:2:
10307 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10308:2:
10308 | call threetreesspdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10309:2:
10309 | facval(1) = datavecsub(1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10310:2:
10310 | k = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10311:2:
10311 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10312:2:
10312 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10313:2:
10313 | k = k + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10314:2:
10314 | facval(k) = datavecsub(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10315:2:
10315 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10316:2:
10316 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10319:2:
10319 | IMPLICIT NONE
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10320:2:
10320 | integer,intent(in) :: msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10321:2:
10321 | double precision,intent(in) :: datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10322:2:
10322 | double precision datavecsub(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10323:2:
10323 | integer, intent(out) :: facsum
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10324:2:
10324 | integer count, j, i
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10325:2:
10325 | datavecsub(:) = datavec(:)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10326:2:
10326 | call threetreesspdatasort(datavecsub,1,msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10327:2:
10327 | count = 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10328:2:
10328 | do j = 2,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10329:2:
10329 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10330:2:
10330 | count = count + 1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10331:2:
10331 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10332:2:
10332 | enddo
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10333:2:
10333 | facsum = count
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10336:2:
10336 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10337:2:
10337 | integer,intent(in)::start,msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10338:2:
10338 | double precision,intent(inout)::datavec(msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10339:2:
10339 | double precision x,t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10340:2:
10340 | integer i,j
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10341:2:
10341 | x = datavec((start+msize)/2)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10342:2:
10342 | i = start
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10343:2:
10343 | j = msize
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10344:2:
10344 | do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10345:2:
10345 | do while (datavec(i) < x)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10346:2:
10346 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10347:2:
10347 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10348:2:
10348 | do while (x < datavec(j))
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10349:2:
10349 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10350:2:
10350 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10351:2:
10351 | if (i >= j) exit
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10352:2:
10352 | t = datavec(i)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10353:2:
10353 | datavec(i) = datavec(j)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10354:2:
10354 | datavec(j) = t
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10355:2:
10355 | i=i+1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10356:2:
10356 | j=j-1
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10357:2:
10357 | end do
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10358:2:
10358 | if (start < i-1) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10359:2:
10359 | call threetreesspdatasort(datavec, start, i-1)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10360:2:
10360 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10361:2:
10361 | if (j+1 < msize) then
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10362:2:
10362 | call threetreesspdatasort(datavec, j+1, msize)
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10363:2:
10363 | endif
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10364:2:
10364 | return
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
longitree_program.f90:10306:10:
10306 | integer count, i, j, k
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:10306:17:
10306 | integer count, i, j, k
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:10110:53:
10110 | subroutine threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:10110:41:
10110 | subroutine threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:8305:59:
8305 | 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:8255:30:
8255 | double precision randvalsub,ii
| 1~
Warning: Unused variable ‘ii’ declared at (1) [-Wunused-variable]
longitree_program.f90:8246:93:
8246 | subroutine threetreesttcvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvindin,cvind,cvsize,cv,iseed)
| 1~~~~
Warning: Unused dummy argument ‘iseed’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:8246:31:
8246 | 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:9678:60:
9678 | subroutine threetreesttcvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:9678:48:
9678 | subroutine threetreesttcvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:9431:57:
9431 | subroutine threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:9431:45:
9431 | subroutine threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:9219:10:
9219 | integer count, i, j, k
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:9219:17:
9219 | integer count, i, j, k
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:8845:20:
8845 | integer count, j, i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:8892:14:
8892 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1~~~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘splitindmat1’ declared at (1) [-Wunused-variable]
longitree_program.f90:8887:35:
8887 | subroutine threetreesttcvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1~~~~~
Warning: Unused dummy argument ‘varnum’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:8887:51:
8887 | subroutine threetreesttcvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1~~~~~
Warning: Unused dummy argument ‘xydata’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:8943:42:
8943 | subroutine threetreesttcvrepANOVA(msize, pp, anovadata, fval, dfvec)
| 1~
Warning: Unused dummy argument ‘pp’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:8826:16:
8826 | integer i, j, count, facsum
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:8826:13:
8826 | integer i, j, count, facsum
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
longitree_program.f90:8825:43:
8825 | double precision datasample(samplesize), sortsample(samplesize)
| 1~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘sortsample’ declared at (1) [-Wunused-variable]
longitree_program.f90:9108:25:
9108 | 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:9108:22:
9108 | 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:7929:54:
7929 | subroutine threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:7929:42:
7929 | subroutine threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:7498:14:
7498 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1~~~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘splitindmat1’ declared at (1) [-Wunused-variable]
longitree_program.f90:7493:31:
7493 | subroutine threetreessplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1~~~~~
Warning: Unused dummy argument ‘varnum’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:7493:47:
7493 | subroutine threetreessplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1~~~~~
Warning: Unused dummy argument ‘xydata’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:7549:38:
7549 | subroutine threetreesrepANOVA(msize, pp, anovadata, fval, dfvec)
| 1~
Warning: Unused dummy argument ‘pp’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:7480:16:
7480 | integer i, j, count, facsum
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:7480:13:
7480 | integer i, j, count, facsum
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
longitree_program.f90:7479:43:
7479 | double precision datasample(samplesize), sortsample(samplesize)
| 1~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘sortsample’ declared at (1) [-Wunused-variable]
longitree_program.f90:7714:25:
7714 | 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:7714:22:
7714 | 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:7461:10:
7461 | integer count, i, j, k
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:7461:17:
7461 | integer count, i, j, k
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:7413:20:
7413 | integer count, j, i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:6971:10:
6971 | integer count, i, j, k
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:6971:17:
6971 | integer count, i, j, k
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:6923:20:
6923 | integer count, j, i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:6561:57:
6561 | subroutine threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:6561:45:
6561 | subroutine threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:6363:62:
6363 | subroutine threetreesbootcvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:6363:50:
6363 | subroutine threetreesbootcvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:5116:59:
5116 | 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:6031:10:
6031 | integer count, i, j, k
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:6031:17:
6031 | integer count, i, j, k
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:5657:20:
5657 | integer count, j, i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:5704:14:
5704 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1~~~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘splitindmat1’ declared at (1) [-Wunused-variable]
longitree_program.f90:5699:37:
5699 | subroutine threetreesbootcvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1~~~~~
Warning: Unused dummy argument ‘varnum’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:5699:53:
5699 | subroutine threetreesbootcvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1~~~~~
Warning: Unused dummy argument ‘xydata’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:5755:44:
5755 | subroutine threetreesbootcvrepANOVA(msize, pp, anovadata, fval, dfvec)
| 1~
Warning: Unused dummy argument ‘pp’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:5638:16:
5638 | integer i, j, count, facsum
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:5638:13:
5638 | integer i, j, count, facsum
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
longitree_program.f90:5637:43:
5637 | double precision datasample(samplesize), sortsample(samplesize)
| 1~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘sortsample’ declared at (1) [-Wunused-variable]
longitree_program.f90:5920:25:
5920 | 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:5920:22:
5920 | 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:5071:30:
5071 | double precision randvalsub,ii
| 1~
Warning: Unused variable ‘ii’ declared at (1) [-Wunused-variable]
longitree_program.f90:5063:84:
5063 | subroutine threetreesbootcvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed)
| 1~~~~
Warning: Unused dummy argument ‘iseed’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:5063:33:
5063 | subroutine threetreesbootcvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed)
| 1~~~~~
Warning: Unused dummy argument ‘xydata’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:4921:58:
4921 | subroutine threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:4921:46:
4921 | subroutine threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:4799:10:
4799 | integer count, i, j, k
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:4799:17:
4799 | integer count, i, j, k
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:4425:20:
4425 | integer count, j, i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:4472:14:
4472 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1~~~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘splitindmat1’ declared at (1) [-Wunused-variable]
longitree_program.f90:4467:35:
4467 | subroutine threetreesbootsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1~~~~~
Warning: Unused dummy argument ‘varnum’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:4467:51:
4467 | subroutine threetreesbootsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1~~~~~
Warning: Unused dummy argument ‘xydata’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:4523:42:
4523 | subroutine threetreesbootrepANOVA(msize, pp, anovadata, fval, dfvec)
| 1~
Warning: Unused dummy argument ‘pp’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:4406:16:
4406 | integer i, j, count, facsum
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:4406:13:
4406 | integer i, j, count, facsum
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
longitree_program.f90:4405:43:
4405 | double precision datasample(samplesize), sortsample(samplesize)
| 1~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘sortsample’ declared at (1) [-Wunused-variable]
longitree_program.f90:4688:25:
4688 | 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:4688:22:
4688 | 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:3843:20:
3843 | integer count, j, i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:3745:10:
3745 | integer count, i, j, k
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:3745:17:
3745 | integer count, i, j, k
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:3553:43:
3553 | subroutine gweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:3553:31:
3553 | subroutine gweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:3369:48:
3369 | subroutine cvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:3369:36:
3369 | subroutine cvbestweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:3094:45:
3094 | subroutine cvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:3094:33:
3094 | subroutine cvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:1544:48:
1544 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5)
| 1~~~~~~~
Warning: Unused variable ‘dfvec’ declared at (1) [-Wunused-variable]
longitree_program.f90:2884:10:
2884 | integer count, i, j, k
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:2884:17:
2884 | integer count, i, j, k
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:2418:20:
2418 | integer count, j, i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:2485:14:
2485 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx
| 1~~~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘splitindmat1’ declared at (1) [-Wunused-variable]
longitree_program.f90:2480:23:
2480 | subroutine cvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1~~~~~
Warning: Unused dummy argument ‘varnum’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:2480:39:
2480 | subroutine cvsplitmat(varnum,datatype,xydata,msize,colnum,splitnum,countvec,splitindmat)
| 1~~~~~
Warning: Unused dummy argument ‘xydata’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:2399:16:
2399 | integer i, j, count, facsum
| 1~~~~
Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable]
longitree_program.f90:2399:13:
2399 | integer i, j, count, facsum
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
longitree_program.f90:2398:34:
2398 | real(8) datasample(samplesize), sortsample(samplesize)
| 1~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘sortsample’ declared at (1) [-Wunused-variable]
longitree_program.f90:2764:16:
2764 | 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:2764:13:
2764 | 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:1487:21:
1487 | real(8) randvalsub,ii
| 1~
Warning: Unused variable ‘ii’ declared at (1) [-Wunused-variable]
longitree_program.f90:1479:70:
1479 | subroutine cvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed)
| 1~~~~
Warning: Unused dummy argument ‘iseed’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:1479:19:
1479 | 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:44:
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:32:
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:14:
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:21:
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:37:
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:10:
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:16:
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:43:
857 | double precision datasample(samplesize), sortsample(samplesize)
| 1~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘sortsample’ declared at (1) [-Wunused-variable]
longitree_program.f90:1093:25:
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:22:
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:28:
928 | subroutine repANOVA(msize, pp, anovadata, fval, dfvec)
| 1~
Warning: Unused dummy argument ‘pp’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:2537:30:
2537 | subroutine cvrepANOVA(msize, pp, anovadata, fval, dfvec)
| 1~
Warning: Unused dummy argument ‘pp’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:3696:69:
3696 | 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:3696:33:
3696 | 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:3696:14:
3696 | 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:3696:24:
3696 | 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:3687:74:
3687 | subroutine splitvec(nodedata,nodedatasize,colnum,msize,maxdepth,DATATYPE,prunnodenummat,&
| 1~~~~~~~~~~~~~
Warning: Unused dummy argument ‘prunnodenummat’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:3763:20:
3763 | integer count, j, i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:5009:64:
5009 | integer, allocatable :: nodenummat(:,:), nodenummattest(:,:),prunenodenummattest(:,:)
| 1~~~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘prunenodenummattest’ declared at (1) [-Wunused-variable]
longitree_program.f90:6116:59:
6116 | subroutine threetreesbootcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~
Warning: Unused dummy argument ‘ncountval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:6116:47:
6116 | subroutine threetreesbootcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval)
| 1~~~~~~~~~~
Warning: Unused dummy argument ‘nottnodeval’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:6665:10:
6665 | integer tndatacount((2**maxdepth)-1)
| 1~~~~~~~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘tndatacount’ declared at (1) [-Wunused-variable]
longitree_program.f90:8028:45:
8028 | prunind2,prunind3,i,testdataallsize,bfsize,afsize
| 1~~~~~
Warning: Unused variable ‘afsize’ declared at (1) [-Wunused-variable]
longitree_program.f90:8028:38:
8028 | prunind2,prunind3,i,testdataallsize,bfsize,afsize
| 1~~~~~
Warning: Unused variable ‘bfsize’ declared at (1) [-Wunused-variable]
longitree_program.f90:8032:26:
8032 | r2cvvalvecthree(ksplit),gammar2cv((2**(maxdepth-1))-1)
| 1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Warning: Unused variable ‘gammar2cv’ declared at (1) [-Wunused-variable]
longitree_program.f90:10257:69:
10257 | 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:10257:33:
10257 | 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:10257:14:
10257 | 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:10257:24:
10257 | 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:10248:87:
10248 | subroutine threetreessplitvec(nodedatanum,nodedatasize,colnum,msize,maxdepth,DATATYPE,prunnodenummat,&
| 1~~~~~~~~~~~~~
Warning: Unused dummy argument ‘prunnodenummat’ at (1) [-Wunused-dummy-argument]
longitree_program.f90:10324:20:
10324 | integer count, j, i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
longitree_program.f90:10175:5:
10175 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:10162:14:
10162 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:9638:7:
9638 | if(nodenummattest(l,k) == i) then
| ^
Warning: ‘k’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:9599:14:
9599 | integer i,j,k,l
| ^
note: ‘k’ was declared here
longitree_program.f90:9767:5:
9767 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:9758:14:
9758 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:9743:5:
9743 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:9730:14:
9730 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:9520:5:
9520 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:9511:14:
9511 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:9496:5:
9496 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:9483:14:
9483 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:8498:8:
8498 | if(splitfacval(separateint) < separatesp) then
| ^
Warning: ‘separatesp’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8320:89:
8320 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^~~~~~~~~~
note: ‘separatesp’ was declared here
longitree_program.f90:8426:59:
8426 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| ^
Warning: ‘splitind2’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8317:74:
8317 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| ^~~~~~~~~
note: ‘splitind2’ was declared here
longitree_program.f90:8537:28:
8537 | sizenum = size(splitfacval)
| ^
Warning: ‘splitfacval.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8324:83:
8324 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| ^~~~~~~~~~~~~~
note: ‘splitfacval.dim[0].ubound’ was declared here
longitree_program.f90:8531:51:
8531 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| ^
Warning: ‘splitgroupsum’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8329:22:
8329 | double precision :: splitgroupsum
| ^~~~~~~~~~~~~
note: ‘splitgroupsum’ was declared here
longitree_program.f90:8547:24:
8547 | allfval(1) = splitwfval
| ^
Warning: ‘splitwfval’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8320:78:
8320 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^~~~~~~~~~
note: ‘splitwfval’ was declared here
longitree_program.f90:8812:38:
8812 | nodesizetest(:) = nodesizesubtest(:)
| ^
Warning: ‘nodesizesubtest.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8323:40:
8323 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^~~~~~~~~~~~~~~~~~
note: ‘nodesizesubtest.dim[0].ubound’ was declared here
longitree_program.f90:8811:30:
8811 | nodesize(:) = nodesizesub(:)
| ^
Warning: ‘nodesizesub.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:8323:25:
8323 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^~~~~~~~~~~~~~
note: ‘nodesizesub.dim[0].ubound’ was declared here
longitree_program.f90:7994:5:
7994 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:7981:14:
7981 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:6650:5:
6650 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6641:14:
6641 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:6626:5:
6626 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6613:14:
6613 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:6323:7:
6323 | if(nodenummattest(l,k) == i) then
| ^
Warning: ‘k’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6284:14:
6284 | integer i,j,k,l
| ^
note: ‘k’ was declared here
longitree_program.f90:6452:5:
6452 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6443:14:
6443 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:6428:5:
6428 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6415:14:
6415 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:5309:8:
5309 | if(splitfacval(separateint) < separatesp) then
| ^
Warning: ‘separatesp’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5131:89:
5131 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^~~~~~~~~~
note: ‘separatesp’ was declared here
longitree_program.f90:5237:59:
5237 | traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| ^
Warning: ‘splitind2’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5128:74:
5128 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| ^~~~~~~~~
note: ‘splitind2’ was declared here
longitree_program.f90:5348:28:
5348 | sizenum = size(splitfacval)
| ^
Warning: ‘splitfacval.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5135:83:
5135 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| ^~~~~~~~~~~~~~
note: ‘splitfacval.dim[0].ubound’ was declared here
longitree_program.f90:5342:51:
5342 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| ^
Warning: ‘splitgroupsum’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5140:22:
5140 | double precision :: splitgroupsum
| ^~~~~~~~~~~~~
note: ‘splitgroupsum’ was declared here
longitree_program.f90:5358:24:
5358 | allfval(1) = splitwfval
| ^
Warning: ‘splitwfval’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5131:78:
5131 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^~~~~~~~~~
note: ‘splitwfval’ was declared here
longitree_program.f90:5624:38:
5624 | nodesizetest(:) = nodesizesubtest(:)
| ^
Warning: ‘nodesizesubtest.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5134:40:
5134 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^~~~~~~~~~~~~~~~~~
note: ‘nodesizesubtest.dim[0].ubound’ was declared here
longitree_program.f90:5623:30:
5623 | nodesize(:) = nodesizesub(:)
| ^
Warning: ‘nodesizesub.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:5134:25:
5134 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^~~~~~~~~~~~~~
note: ‘nodesizesub.dim[0].ubound’ was declared here
longitree_program.f90:4987:5:
4987 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:4974:14:
4974 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:3618:5:
3618 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3605:14:
3605 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:2988:7:
2988 | if(nodenummattest(l,k) == i) then
| ^
Warning: ‘k’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:2946:14:
2946 | integer i,j,k,l,maxactive_depth,nidx,tidx
| ^
note: ‘k’ was declared here
longitree_program.f90:3329:7:
3329 | if(nodenummattest(l,k) == i) then
| ^
Warning: ‘k’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3289:14:
3289 | integer i,j,k,l,maxactive_depth,nidx,tidx
| ^
note: ‘k’ was declared here
longitree_program.f90:3204:13:
3204 | integer :: indcol
| ^~~~~~
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3183:5:
3183 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3174:14:
3174 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:3159:5:
3159 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3146:14:
3146 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:1900:8:
1900 | if(splitfacval(separateint) < separatesp) then
| ^
Warning: ‘separatesp’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1545:80:
1545 | real(8) splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^~~~~~~~~~
note: ‘separatesp’ was declared here
longitree_program.f90:1933:51:
1933 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| ^
Warning: ‘splitgroupsum’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1554:13:
1554 | real(8) :: splitgroupsum
| ^~~~~~~~~~~~~
note: ‘splitgroupsum’ was declared here
longitree_program.f90:1832:113:
1832 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout)
| ^
Warning: ‘splitind2’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1542:74:
1542 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| ^~~~~~~~~
note: ‘splitind2’ was declared here
longitree_program.f90:1949:24:
1949 | allfval(1) = splitwfval
| ^
Warning: ‘splitwfval’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1545:69:
1545 | real(8) splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^~~~~~~~~~
note: ‘splitwfval’ was declared here
longitree_program.f90:2385:38:
2385 | nodesizetest(:) = nodesizesubtest(:)
| ^
Warning: ‘nodesizesubtest.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1548:40:
1548 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^~~~~~~~~~~~~~~~~~
note: ‘nodesizesubtest.dim[0].ubound’ was declared here
longitree_program.f90:2384:30:
2384 | nodesize(:) = nodesizesub(:)
| ^
Warning: ‘nodesizesub.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1548:25:
1548 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:)
| ^~~~~~~~~~~~~~
note: ‘nodesizesub.dim[0].ubound’ was declared here
longitree_program.f90:1381:5:
1381 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:1368:14:
1368 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ 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:75:
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:22:
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:68:
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:57:
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:104:
16 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:), splitindvec(:),nodesizesub(:)
| ^~~~~~~~~~~~~~
note: ‘nodesizesub.dim[0].ubound’ was declared here
longitree_program.f90:3434:5:
3434 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3421:14:
3421 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:3458:5:
3458 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3449:14:
3449 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:3706:45:
3706 | allocate(splitindmat(splitnum,splitvecsize))
| ^
Warning: ‘splitnum’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3696:60:
3696 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| ^~~~~~~~
note: ‘splitnum’ was declared here
longitree_program.f90:4078:8:
4078 | if(splitfacval(separateint) < separatesp) then
| ^
Warning: ‘separatesp’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3900:89:
3900 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^~~~~~~~~~
note: ‘separatesp’ was declared here
longitree_program.f90:4006:57:
4006 | bootdata,bootdatasize,colnum,ind1,anovadata,facvalout)
| ^
Warning: ‘splitind2’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3897:74:
3897 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum
| ^~~~~~~~~
note: ‘splitind2’ was declared here
longitree_program.f90:4117:28:
4117 | sizenum = size(splitfacval)
| ^
Warning: ‘splitfacval.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3904:83:
3904 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:)
| ^~~~~~~~~~~~~~
note: ‘splitfacval.dim[0].ubound’ was declared here
longitree_program.f90:4111:51:
4111 | if(splitgroupsum < dble(levelcount*minbucket) .or. &
| ^
Warning: ‘splitgroupsum’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3909:22:
3909 | double precision :: splitgroupsum
| ^~~~~~~~~~~~~
note: ‘splitgroupsum’ was declared here
longitree_program.f90:4127:24:
4127 | allfval(1) = splitwfval
| ^
Warning: ‘splitwfval’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3900:78:
3900 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp
| ^~~~~~~~~~
note: ‘splitwfval’ was declared here
longitree_program.f90:4392:36:
4392 | nodesizeori(:) = nodesizesubori(:)
| ^
Warning: ‘nodesizesubori.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3903:40:
3903 | integer,allocatable :: nodesizesub(:),nodesizesubori(:)
| ^~~~~~~~~~~~~~~~~
note: ‘nodesizesubori.dim[0].ubound’ was declared here
longitree_program.f90:4391:30:
4391 | nodesize(:) = nodesizesub(:)
| ^
Warning: ‘nodesizesub.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:3903:25:
3903 | integer,allocatable :: nodesizesub(:),nodesizesubori(:)
| ^~~~~~~~~~~~~~
note: ‘nodesizesub.dim[0].ubound’ was declared here
longitree_program.f90:6181:5:
6181 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6168:14:
6168 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:6205:5:
6205 | if(nodenummatnew(i,indcol) == minghnum) then
| ^
Warning: ‘indcol’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6196:14:
6196 | integer i,j,indcol
| ^~~~~~
note: ‘indcol’ was declared here
longitree_program.f90:7099:48:
7099 | xydata,msize,colnum,ind1,anovadata,facvalout)
| ^
Warning: ‘splitind2’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6996:75:
6996 | 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:7160:52:
7160 | if(splitgroupsum <= dble(levelcount*minbucket) .or. &
| ^
Warning: ‘splitgroupsum’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:7003:22:
7003 | double precision :: splitgroupsum
| ^~~~~~~~~~~~~
note: ‘splitgroupsum’ was declared here
longitree_program.f90:7173:73:
7173 | Rsplitmat(1,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2)
| ^
Warning: ‘splitweight’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6994:68:
6994 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp
| ^~~~~~~~~~~
note: ‘splitweight’ was declared here
longitree_program.f90:7182:24:
7182 | allfval(1) = splitwfval
| ^
Warning: ‘splitwfval’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6994:57:
6994 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp
| ^~~~~~~~~~
note: ‘splitwfval’ was declared here
longitree_program.f90:7176:28:
7176 | sizenum = size(splitfacval)
| ^
Warning: ‘splitfacval.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6999:82:
6999 | double precision,allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),xynodedata(:,:)
| ^~~~~~~~~~~~~~
note: ‘splitfacval.dim[0].ubound’ was declared here
longitree_program.f90:7400:30:
7400 | nodesize(:) = nodesizesub(:)
| ^
Warning: ‘nodesizesub.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:6998:104:
6998 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:), splitindvec(:),nodesizesub(:)
| ^~~~~~~~~~~~~~
note: ‘nodesizesub.dim[0].ubound’ was declared here
longitree_program.f90:9325:7:
9325 | if(nodenummattest(l,k) == i) then
| ^
Warning: ‘k’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:9282:14:
9282 | integer i,j,k,l
| ^
note: ‘k’ was declared here
longitree_program.f90:10267:45:
10267 | allocate(splitindmat(splitnum,splitvecsize))
| ^
Warning: ‘splitnum’ may be used uninitialized [-Wmaybe-uninitialized]
longitree_program.f90:10257:60:
10257 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec
| ^~~~~~~~
note: ‘splitnum’ was declared here
gcc-16 -I"/home/hornik/tmp/R.check/r-devel-gcc/Work/build/include" -DNDEBUG -I/usr/local/include -D_FORTIFY_SOURCE=3 -fpic -g -O2 -Wall -Wstrict-prototypes -pedantic -mtune=native -c rng.c -o rng.o
gcc-16 -shared -L/home/hornik/tmp/R.check/r-devel-gcc/Work/build/lib -Wl,-O1 -o longitree.so init.o longitree_program.o rng.o -lgfortran -lm -latomic_asneeded -lquadmath -lgfortran -lm -latomic_asneeded -lquadmath -L/home/hornik/tmp/R.check/r-devel-gcc/Work/build/lib -lR
make[1]: Leaving directory '/home/hornik/tmp/scratch/RtmpOk4cl6/R.INSTALL1a37f77c2f25bc/longitree/src'
make[1]: Entering directory '/home/hornik/tmp/scratch/RtmpOk4cl6/R.INSTALL1a37f77c2f25bc/longitree/src'
make[1]: Leaving directory '/home/hornik/tmp/scratch/RtmpOk4cl6/R.INSTALL1a37f77c2f25bc/longitree/src'
installing to /home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/00LOCK-longitree/00new/longitree/libs
** 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)