* installing *source* package 'longitree' ... ** this is package 'longitree' version '1.0.0' ** using staged installation ** libs using C compiler: 'gcc.exe (GCC) 14.3.0' using Fortran compiler: 'GNU Fortran (GCC) 14.3.0' gcc -I"D:/RCompile/recent/R/include" -DNDEBUG -I"d:/rtools45/x86_64-w64-mingw32.static.posix/include" -pedantic -Wstrict-prototypes -O2 -Wall -std=gnu2x -mfpmath=sse -msse2 -mstackrealign -c init.c -o init.o gfortran -pedantic -O2 -mfpmath=sse -msse2 -mstackrealign -c longitree_program.f90 -o longitree_program.o longitree_program.f90:2:2: 2 | beta1len,beta2len,nodenummat,allfval,prunind,Rsplitmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3:2: 3 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4:2: 4 | integer,intent(in) :: msize,colnum,levelcount,beta1len,beta2len,maxdepth,minsplit,minbucket | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5:2: 5 | integer,intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6:2: 6 | double precision,intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7:2: 7 | double precision,intent(in) :: xydata(msize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8:2: 8 | double precision, intent(out) :: Rsplitmat((2**maxdepth)-1,10) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9:2: 9 | double precision,intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10:2: 10 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:11:2: 11 | integer,intent(out) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:12:2: 12 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:13:2: 13 | double precision fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:14:2: 14 | integer nodenum, hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,sizenum,sizer,sizel,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:15:2: 15 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:16:2: 16 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:), splitindvec(:),nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:17:2: 17 | integer,allocatable :: factor_idx_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:18:2: 18 | double precision,allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:19:2: 19 | integer,allocatable :: flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:20:2: 20 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:21:2: 21 | double precision :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:22:2: 22 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:23:2: 23 | double precision,allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),xynodedata(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:24:2: 24 | integer, allocatable :: w_subj_map(:), w_si_arr(:), ti_arr(:), w_subj_group(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:25:2: 25 | real(8), allocatable :: w_ygroup(:), w_ytime(:), w_ysubject(:), w_ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:26:2: 26 | real(8), allocatable :: w_ygroupcount(:), w_ytimecount(:), w_ysubjectcount(:), w_ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:27:2: 27 | real(8), allocatable :: w_ytime_sum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:28:2: 28 | integer :: w_nsubjects, w_timecount, w_max_subj_id, gi, ti, si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:29:2: 29 | real(8) :: ymean_const, sstotal_const, sstime_const, total_y_sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:30:2: 30 | real(8) :: ssgroup, ssgrouptime, sssubject, sserr, ygroup_mean1, ygroup_mean2, gt_mean | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:31:2: 31 | integer, allocatable :: factor_count(:), factor_offset(:), factor_obs(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:32:2: 32 | integer :: obs_i, f, lo, hi, mid | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:33:2: 33 | Rsplitmat(:,:) = 0.0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:34:2: 34 | nodenummat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:35:2: 35 | nodenummat(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:36:2: 36 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:37:2: 37 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:38:2: 38 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:39:2: 39 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:40:2: 40 | allocate(nodesize(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:41:2: 41 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:42:2: 42 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:43:2: 43 | call splitcount(msize, colnum-3, xydata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:44:2: 44 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:45:2: 45 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:46:2: 46 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:47:2: 47 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:48:2: 48 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:49:2: 49 | allocate(anovadata(msize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:50:2: 50 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:51:2: 51 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:52:2: 52 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:53:2: 53 | w_timecount = nint(maxval(xydata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:54:2: 54 | w_max_subj_id = nint(maxval(xydata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:55:2: 55 | allocate(w_subj_map(w_max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:56:2: 56 | w_subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:57:2: 57 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:58:2: 58 | w_subj_map(nint(xydata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:59:2: 59 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:60:2: 60 | w_nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:61:2: 61 | do i = 1, w_max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:62:2: 62 | if (w_subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:63:2: 63 | w_nsubjects = w_nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:64:2: 64 | w_subj_map(i) = w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:65:2: 65 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:66:2: 66 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:67:2: 67 | allocate(w_si_arr(msize), ti_arr(msize), w_subj_group(w_nsubjects)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:68:2: 68 | allocate(w_ygroup(2), w_ytime(w_timecount), w_ytime_sum(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:69:2: 69 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:70:2: 70 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:71:2: 71 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:72:2: 72 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:73:2: 73 | dfvec(2) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:74:2: 74 | dfvec(3) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:75:2: 75 | dfvec(4) = w_nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:76:2: 76 | dfvec(5) = (w_timecount - 1) * (w_nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:77:2: 77 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:78:2: 78 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:79:2: 79 | ymean_const = sum(xydata(:,1)) / dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:80:2: 80 | sstotal_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:81:2: 81 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:82:2: 82 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:83:2: 83 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:84:2: 84 | ti = nint(xydata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:85:2: 85 | si = w_subj_map(nint(xydata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:86:2: 86 | w_si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:87:2: 87 | ti_arr(i) = ti | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:88:2: 88 | sstotal_const = sstotal_const + (xydata(i,1) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:89:2: 89 | w_ytime(ti) = w_ytime(ti) + xydata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:90:2: 90 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:91:2: 91 | w_ysubject(si) = w_ysubject(si) + xydata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:92:2: 92 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:93:2: 93 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:94:2: 94 | w_ytime_sum = w_ytime | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:95:2: 95 | total_y_sum = ymean_const * dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:96:2: 96 | w_ytime = w_ytime / w_ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:97:2: 97 | w_ysubject = w_ysubject / w_ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:98:2: 98 | sstime_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:99:2: 99 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:100:2: 100 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:101:2: 101 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:102:2: 102 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:103:2: 103 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:104:2: 104 | allocate(factor_idx_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:105:2: 105 | call splitmat(ind1,datatype(ind1-3),xydata,msize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:106:2: 106 | call dataval(xydata(:,ind1),msize,facvalout,countvec(ind1-3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:107:2: 107 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:108:2: 108 | lo = 1; hi = countvec(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:109:2: 109 | do while (lo <= hi) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:110:2: 110 | mid = (lo + hi) / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:111:2: 111 | if (facvalout(mid) == xydata(i,ind1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:112:2: 112 | factor_idx_arr(i) = mid | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:113:2: 113 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:114:2: 114 | elseif (xydata(i,ind1) < facvalout(mid)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:115:2: 115 | hi = mid - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:116:2: 116 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:117:2: 117 | lo = mid + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:118:2: 118 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:119:2: 119 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:120:2: 120 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:121:2: 121 | allocate(factor_count(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:122:2: 122 | allocate(factor_offset(countvec(ind1-3)+1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:123:2: 123 | allocate(factor_obs(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:124:2: 124 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:125:2: 125 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:126:2: 126 | f = factor_idx_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:127:2: 127 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:128:2: 128 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:129:2: 129 | factor_offset(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:130:2: 130 | do f = 2, countvec(ind1-3) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:131:2: 131 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:132:2: 132 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:133:2: 133 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:134:2: 134 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:135:2: 135 | f = factor_idx_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:136:2: 136 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:137:2: 137 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:138:2: 138 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:139:2: 139 | if (datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:140:2: 140 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:141:2: 141 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:142:2: 142 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:143:2: 143 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:144:2: 144 | w_subj_group(:) = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:145:2: 145 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:146:2: 146 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:147:2: 147 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:148:2: 148 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:149:2: 149 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:150:2: 150 | obs_i = factor_obs(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:151:2: 151 | w_ygroup(2) = w_ygroup(2) - xydata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:152:2: 152 | w_ygroup(1) = w_ygroup(1) + xydata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:153:2: 153 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:154:2: 154 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:155:2: 155 | ti = ti_arr(obs_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:156:2: 156 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - xydata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:157:2: 157 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + xydata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:158:2: 158 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:159:2: 159 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:160:2: 160 | w_subj_group(w_si_arr(obs_i)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:161:2: 161 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:162:2: 162 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:163:2: 163 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:164:2: 164 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:165:2: 165 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:166:2: 166 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:167:2: 167 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:168:2: 168 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:169:2: 169 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:170:2: 170 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:171:2: 171 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:172:2: 172 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:173:2: 173 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:174:2: 174 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:175:2: 175 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:176:2: 176 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:177:2: 177 | if (w_subj_group(si) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:178:2: 178 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:179:2: 179 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:180:2: 180 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:181:2: 181 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:182:2: 182 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:183:2: 183 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:184:2: 184 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:185:2: 185 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:186:2: 186 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:187:2: 187 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:188:2: 188 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:189:2: 189 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:190:2: 190 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:191:2: 191 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:192:2: 192 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:193:2: 193 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:194:2: 194 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:195:2: 195 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:196:2: 196 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:197:2: 197 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:198:2: 198 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:199:2: 199 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:200:2: 200 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:201:2: 201 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:202:2: 202 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:203:2: 203 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:204:2: 204 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:205:2: 205 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:206:2: 206 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:207:2: 207 | gi = splitindmat(ind2, factor_idx_arr(i)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:208:2: 208 | w_ygroup(gi) = w_ygroup(gi) + xydata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:209:2: 209 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:210:2: 210 | ti = ti_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:211:2: 211 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + xydata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:212:2: 212 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:213:2: 213 | w_subj_group(w_si_arr(i)) = gi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:214:2: 214 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:215:2: 215 | w_ygroup = w_ygroup / w_ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:216:2: 216 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:217:2: 217 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:218:2: 218 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:219:2: 219 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:220:2: 220 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:221:2: 221 | do gi = 1, 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:222:2: 222 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:223:2: 223 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:224:2: 224 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:225:2: 225 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:226:2: 226 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:227:2: 227 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:228:2: 228 | sssubject = sssubject + w_ysubjectcount(si) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:229:2: 229 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:230:2: 230 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:231:2: 231 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:232:2: 232 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:233:2: 233 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:234:2: 234 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:235:2: 235 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:236:2: 236 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:237:2: 237 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:238:2: 238 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:239:2: 239 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:240:2: 240 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:241:2: 241 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:242:2: 242 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:243:2: 243 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:244:2: 244 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:245:2: 245 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:246:2: 246 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:247:2: 247 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:248:2: 248 | deallocate(splitindmat,facvalout,factor_idx_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:249:2: 249 | deallocate(factor_count, factor_offset, factor_obs) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:250:2: 250 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:251:2: 251 | deallocate(w_subj_map, w_si_arr, ti_arr, w_subj_group) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:252:2: 252 | deallocate(w_ygroup, w_ytime, w_ytime_sum, w_ysubject, w_ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:253:2: 253 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:254:2: 254 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:255:2: 255 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:256:2: 256 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:257:2: 257 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:258:2: 258 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:259:2: 259 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:260:2: 260 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:261:2: 261 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:262:2: 262 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:263:2: 263 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:264:2: 264 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:265:2: 265 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:266:2: 266 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:267:2: 267 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:268:2: 268 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:269:2: 269 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:270:2: 270 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:271:2: 271 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:272:2: 272 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:273:2: 273 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:274:2: 274 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:275:2: 275 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:276:2: 276 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:277:2: 277 | call weightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:278:2: 278 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:279:2: 279 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:280:2: 280 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:281:2: 281 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:282:2: 282 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:283:2: 283 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:284:2: 284 | splitind1 = ind1vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:285:2: 285 | splitind2 = ind2vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:286:2: 286 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:287:2: 287 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:288:2: 288 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:289:2: 289 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:290:2: 290 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:291:2: 291 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:292:2: 292 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:293:2: 293 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:294:2: 294 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:295:2: 295 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:296:2: 296 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:297:2: 297 | call splitmat(ind1,datatype(ind1-3),xydata,msize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:298:2: 298 | call splitdata(splitindmat(ind2,:),countvec(ind1-3),xydata,msize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:299:2: 299 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:300:2: 300 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:301:2: 301 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:302:2: 302 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:303:2: 303 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:304:2: 304 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:305:2: 305 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:306:2: 306 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:307:2: 307 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:308:2: 308 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:309:2: 309 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:310:2: 310 | call weightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:311:2: 311 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:312:2: 312 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:313:2: 313 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:314:2: 314 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:315:2: 315 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:316:2: 316 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:317:2: 317 | splitind1 = ind1vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:318:2: 318 | splitind2 = ind2vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:319:2: 319 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:320:2: 320 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:321:2: 321 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:322:2: 322 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:323:2: 323 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:324:2: 324 | call splitmat(ind1,datatype(ind1-3),xydata,msize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:325:2: 325 | call splitdata(splitindmat(ind2,:),countvec(ind1-3),xydata,msize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:326:2: 326 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:327:2: 327 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:328:2: 328 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:329:2: 329 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:330:2: 330 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:331:2: 331 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:332:2: 332 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:333:2: 333 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:334:2: 334 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:335:2: 335 | call weightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:336:2: 336 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:337:2: 337 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:338:2: 338 | call weightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:339:2: 339 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:340:2: 340 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:341:2: 341 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:342:2: 342 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:343:2: 343 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:344:2: 344 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:345:2: 345 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:346:2: 346 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:347:2: 347 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:348:2: 348 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:349:2: 349 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:350:2: 350 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:351:2: 351 | if(.not. allocated(splitfacval)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:352:2: 352 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:353:2: 353 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:354:2: 354 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:355:2: 355 | if(splitgroupsum <= dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:356:2: 356 | (dble(msize) - splitgroupsum) <= dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:357:2: 357 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:358:2: 358 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:359:2: 359 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:360:2: 360 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:361:2: 361 | Rsplitmat(1,1) =dble(nodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:362:2: 362 | Rsplitmat(1,2) = splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:363:2: 363 | Rsplitmat(1,3) = 1d0-splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:364:2: 364 | Rsplitmat(1,4) = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:365:2: 365 | Rsplitmat(1,5) = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:366:2: 366 | Rsplitmat(1,6) = splitfval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:367:2: 367 | Rsplitmat(1,7) = splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:368:2: 368 | Rsplitmat(1,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:369:2: 369 | Rsplitmat(1,9) = splitpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:370:2: 370 | Rsplitmat(1,10) = splitmcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:371:2: 371 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:372:2: 372 | call nodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:373:2: 373 | hierarchy+1,nodenummat,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:374:2: 374 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:375:2: 375 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:376:2: 376 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:377:2: 377 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:378:2: 378 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:379:2: 379 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:380:2: 380 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:381:2: 381 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:382:2: 382 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:383:2: 383 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:384:2: 384 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:385:2: 385 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:386:2: 386 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:387:2: 387 | if(allocated(splitfacval)) deallocate(splitfacval, splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:388:2: 388 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:389:2: 389 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:390:2: 390 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:391:2: 391 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:392:2: 392 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:393:2: 393 | call nodedatanumber(xydata,msize,colnum,nodenum,hierarchy,maxdepth,nodenummat,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:394:2: 394 | call splitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:395:2: 395 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:396:2: 396 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:397:2: 397 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:398:2: 398 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:399:2: 399 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:400:2: 400 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:401:2: 401 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:402:2: 402 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:403:2: 403 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:404:2: 404 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:405:2: 405 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:406:2: 406 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:407:2: 407 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:408:2: 408 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:409:2: 409 | w_timecount = nint(maxval(xynodedata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:410:2: 410 | w_max_subj_id = nint(maxval(xynodedata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:411:2: 411 | allocate(w_subj_map(w_max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:412:2: 412 | w_subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:413:2: 413 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:414:2: 414 | w_subj_map(nint(xynodedata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:415:2: 415 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:416:2: 416 | w_nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:417:2: 417 | do i = 1, w_max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:418:2: 418 | if (w_subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:419:2: 419 | w_nsubjects = w_nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:420:2: 420 | w_subj_map(i) = w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:421:2: 421 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:422:2: 422 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:423:2: 423 | allocate(w_si_arr(nodesize(nodeloop)), ti_arr(nodesize(nodeloop)), w_subj_group(w_nsubjects)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:424:2: 424 | allocate(w_ygroup(2), w_ytime(w_timecount), w_ytime_sum(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:425:2: 425 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:426:2: 426 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:427:2: 427 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:428:2: 428 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:429:2: 429 | dfvec(2) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:430:2: 430 | dfvec(3) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:431:2: 431 | dfvec(4) = w_nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:432:2: 432 | dfvec(5) = (w_timecount - 1) * (w_nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:433:2: 433 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:434:2: 434 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:435:2: 435 | ymean_const = sum(xynodedata(:,1)) / dble(nodesize(nodeloop)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:436:2: 436 | sstotal_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:437:2: 437 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:438:2: 438 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:439:2: 439 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:440:2: 440 | ti = nint(xynodedata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:441:2: 441 | si = w_subj_map(nint(xynodedata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:442:2: 442 | w_si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:443:2: 443 | ti_arr(i) = ti | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:444:2: 444 | sstotal_const = sstotal_const + (xynodedata(i,1) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:445:2: 445 | w_ytime(ti) = w_ytime(ti) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:446:2: 446 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:447:2: 447 | w_ysubject(si) = w_ysubject(si) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:448:2: 448 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:449:2: 449 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:450:2: 450 | w_ytime_sum = w_ytime | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:451:2: 451 | total_y_sum = ymean_const * dble(nodesize(nodeloop)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:452:2: 452 | w_ytime = w_ytime / w_ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:453:2: 453 | w_ysubject = w_ysubject / w_ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:454:2: 454 | sstime_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:455:2: 455 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:456:2: 456 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:457:2: 457 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:458:2: 458 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:459:2: 459 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:460:2: 460 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:461:2: 461 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:462:2: 462 | if(allocated(splitindmat)) deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:463:2: 463 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:464:2: 464 | if(allocated(facvalout)) deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:465:2: 465 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:466:2: 466 | allocate(factor_idx_arr(nodesize(nodeloop))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:467:2: 467 | call splitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:468:2: 468 | call dataval(xynodedata(:,ind1),nodesize(nodeloop),facvalout,countvec(ind1-3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:469:2: 469 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:470:2: 470 | lo = 1; hi = countvec(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:471:2: 471 | do while (lo <= hi) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:472:2: 472 | mid = (lo + hi) / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:473:2: 473 | if (facvalout(mid) == xynodedata(i,ind1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:474:2: 474 | factor_idx_arr(i) = mid | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:475:2: 475 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:476:2: 476 | elseif (xynodedata(i,ind1) < facvalout(mid)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:477:2: 477 | hi = mid - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:478:2: 478 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:479:2: 479 | lo = mid + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:480:2: 480 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:481:2: 481 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:482:2: 482 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:483:2: 483 | allocate(factor_count(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:484:2: 484 | allocate(factor_offset(countvec(ind1-3)+1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:485:2: 485 | allocate(factor_obs(nodesize(nodeloop))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:486:2: 486 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:487:2: 487 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:488:2: 488 | f = factor_idx_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:489:2: 489 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:490:2: 490 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:491:2: 491 | factor_offset(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:492:2: 492 | do f = 2, countvec(ind1-3) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:493:2: 493 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:494:2: 494 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:495:2: 495 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:496:2: 496 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:497:2: 497 | f = factor_idx_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:498:2: 498 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:499:2: 499 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:500:2: 500 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:501:2: 501 | if (datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:502:2: 502 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:503:2: 503 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(nodesize(nodeloop)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:504:2: 504 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:505:2: 505 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:506:2: 506 | w_subj_group(:) = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:507:2: 507 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:508:2: 508 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:509:2: 509 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:510:2: 510 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:511:2: 511 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:512:2: 512 | obs_i = factor_obs(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:513:2: 513 | w_ygroup(2) = w_ygroup(2) - xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:514:2: 514 | w_ygroup(1) = w_ygroup(1) + xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:515:2: 515 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:516:2: 516 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:517:2: 517 | ti = ti_arr(obs_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:518:2: 518 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:519:2: 519 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:520:2: 520 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:521:2: 521 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:522:2: 522 | w_subj_group(w_si_arr(obs_i)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:523:2: 523 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:524:2: 524 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:525:2: 525 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:526:2: 526 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:527:2: 527 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:528:2: 528 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:529:2: 529 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:530:2: 530 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:531:2: 531 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:532:2: 532 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:533:2: 533 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:534:2: 534 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:535:2: 535 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:536:2: 536 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:537:2: 537 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:538:2: 538 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:539:2: 539 | if (w_subj_group(si) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:540:2: 540 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:541:2: 541 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:542:2: 542 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:543:2: 543 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:544:2: 544 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:545:2: 545 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:546:2: 546 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:547:2: 547 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:548:2: 548 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:549:2: 549 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:550:2: 550 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:551:2: 551 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:552:2: 552 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:553:2: 553 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:554:2: 554 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:555:2: 555 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:556:2: 556 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:557:2: 557 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:558:2: 558 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:559:2: 559 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:560:2: 560 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:561:2: 561 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:562:2: 562 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:563:2: 563 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:564:2: 564 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:565:2: 565 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:566:2: 566 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:567:2: 567 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:568:2: 568 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:569:2: 569 | gi = splitindmat(ind2, factor_idx_arr(i)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:570:2: 570 | w_ygroup(gi) = w_ygroup(gi) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:571:2: 571 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:572:2: 572 | ti = ti_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:573:2: 573 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:574:2: 574 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:575:2: 575 | w_subj_group(w_si_arr(i)) = gi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:576:2: 576 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:577:2: 577 | w_ygroup = w_ygroup / w_ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:578:2: 578 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:579:2: 579 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:580:2: 580 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:581:2: 581 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:582:2: 582 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:583:2: 583 | do gi = 1, 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:584:2: 584 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:585:2: 585 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:586:2: 586 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:587:2: 587 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:588:2: 588 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:589:2: 589 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:590:2: 590 | sssubject = sssubject + w_ysubjectcount(si) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:591:2: 591 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:592:2: 592 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:593:2: 593 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:594:2: 594 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:595:2: 595 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:596:2: 596 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:597:2: 597 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:598:2: 598 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:599:2: 599 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:600:2: 600 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:601:2: 601 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:602:2: 602 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:603:2: 603 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:604:2: 604 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:605:2: 605 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:606:2: 606 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:607:2: 607 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:608:2: 608 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:609:2: 609 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:610:2: 610 | deallocate(splitindmat,facvalout,factor_idx_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:611:2: 611 | deallocate(factor_count, factor_offset, factor_obs) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:612:6: 612 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:613:2: 613 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:614:2: 614 | deallocate(w_subj_map, w_si_arr, ti_arr, w_subj_group) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:615:2: 615 | deallocate(w_ygroup, w_ytime, w_ytime_sum, w_ysubject, w_ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:616:2: 616 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:617:2: 617 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:618:2: 618 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:619:2: 619 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:620:2: 620 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:621:2: 621 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:622:2: 622 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:623:2: 623 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:624:2: 624 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:625:2: 625 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:626:2: 626 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:627:2: 627 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:628:2: 628 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:629:2: 629 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:630:2: 630 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:631:2: 631 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:632:2: 632 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:633:2: 633 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:634:2: 634 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:635:2: 635 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:636:2: 636 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:637:2: 637 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:638:2: 638 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:639:2: 639 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:640:2: 640 | call weightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:641:2: 641 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:642:2: 642 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:643:2: 643 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:644:2: 644 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:645:2: 645 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:646:2: 646 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:647:2: 647 | splitind1 = ind1vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:648:2: 648 | splitind2 = ind2vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:649:2: 649 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:650:2: 650 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:651:2: 651 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:652:2: 652 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:653:2: 653 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:654:2: 654 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:655:2: 655 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:656:2: 656 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:657:2: 657 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:658:2: 658 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:659:2: 659 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:660:2: 660 | call splitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:661:2: 661 | call splitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:662:2: 662 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:663:2: 663 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:664:2: 664 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:665:2: 665 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:666:2: 666 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:667:2: 667 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:668:2: 668 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:669:2: 669 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:670:2: 670 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:671:2: 671 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:672:2: 672 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:673:2: 673 | call weightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:674:2: 674 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:675:2: 675 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:676:2: 676 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:677:2: 677 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:678:2: 678 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:679:2: 679 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:680:2: 680 | splitind1 = ind1vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:681:2: 681 | splitind2 = ind2vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:682:2: 682 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:683:2: 683 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:684:2: 684 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:685:2: 685 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:686:2: 686 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:687:2: 687 | call splitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:688:2: 688 | call splitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:689:2: 689 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:690:2: 690 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:691:2: 691 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:692:2: 692 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:693:2: 693 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:694:2: 694 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:695:2: 695 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:696:2: 696 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:697:2: 697 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:698:2: 698 | call weightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:699:2: 699 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:700:2: 700 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:701:2: 701 | call weightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:702:2: 702 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:703:2: 703 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:704:2: 704 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:705:2: 705 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:706:2: 706 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:707:2: 707 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:708:2: 708 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:709:2: 709 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:710:2: 710 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:711:2: 711 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:712:2: 712 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:713:2: 713 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:714:2: 714 | if(.not. allocated(splitfacval)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:715:2: 715 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:716:2: 716 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:717:2: 717 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:718:2: 718 | if(splitgroupsum <= dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:719:2: 719 | (dble(nodesize(nodeloop)) - splitgroupsum) <= dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:720:2: 720 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:721:2: 721 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:722:2: 722 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:723:2: 723 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:724:2: 724 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:725:2: 725 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:726:2: 726 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:727:2: 727 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:728:2: 728 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:729:2: 729 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:730:2: 730 | call nodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:731:2: 731 | hierarchy+1,nodenummat,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:732:2: 732 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:733:2: 733 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:734:2: 734 | Rsplitmat(nodenum,1) =dble(nodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:735:2: 735 | Rsplitmat(nodenum,2) = splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:736:2: 736 | Rsplitmat(nodenum,3) = 1d0-splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:737:2: 737 | Rsplitmat(nodenum,4) = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:738:2: 738 | Rsplitmat(nodenum,5) = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:739:2: 739 | Rsplitmat(nodenum,6) = splitfval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:740:2: 740 | Rsplitmat(nodenum,7) = splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:741:2: 741 | Rsplitmat(nodenum,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:742:2: 742 | Rsplitmat(nodenum,9) = splitpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:743:2: 743 | Rsplitmat(nodenum,10) = splitmcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:744:6: 744 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:745:2: 745 | if(allocated(fval_cache)) deallocate(fval_cache) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:746:2: 746 | if(allocated(groupsum_cache)) deallocate(groupsum_cache) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:747:2: 747 | if(allocated(flat_idx_vec)) deallocate(flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:748:2: 748 | deallocate(anovadata,xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:749:2: 749 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:750:2: 750 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:751:2: 751 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:752:2: 752 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:753:2: 753 | deallocate(nodesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:754:2: 754 | allocate(nodesize(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:755:2: 755 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:756:2: 756 | deallocate(nodesizesub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:757:2: 757 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:759:2: 759 | deallocate(nodesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:761:2: 761 | if(allocated(fval_cache)) deallocate(fval_cache) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:762:2: 762 | if(allocated(groupsum_cache)) deallocate(groupsum_cache) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:763:2: 763 | if(allocated(flat_idx_vec)) deallocate(flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:766:2: 766 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:767:2: 767 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:768:2: 768 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:769:2: 769 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:770:2: 770 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:771:2: 771 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:772:2: 772 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:773:2: 773 | call datasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:774:2: 774 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:775:2: 775 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:776:2: 776 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:777:2: 777 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:778:2: 778 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:779:2: 779 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:780:2: 780 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:783:2: 783 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:784:2: 784 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:785:2: 785 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:786:2: 786 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:787:2: 787 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:788:2: 788 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:789:2: 789 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:790:2: 790 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:791:2: 791 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:792:2: 792 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:793:2: 793 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:794:2: 794 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:795:2: 795 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:796:2: 796 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:797:2: 797 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:798:2: 798 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:799:2: 799 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:800:2: 800 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:801:2: 801 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:802:2: 802 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:803:2: 803 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:804:2: 804 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:805:2: 805 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:806:2: 806 | call datasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:807:2: 807 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:808:2: 808 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:809:2: 809 | call datasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:810:2: 810 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:811:2: 811 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:814:2: 814 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:815:2: 815 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:816:2: 816 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:817:2: 817 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:818:2: 818 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:819:2: 819 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:820:2: 820 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:821:2: 821 | call datasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:822:2: 822 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:823:2: 823 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:824:2: 824 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:825:2: 825 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:826:2: 826 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:827:2: 827 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:828:2: 828 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:829:2: 829 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:832:2: 832 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:833:2: 833 | integer, intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:834:2: 834 | double precision, intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:835:2: 835 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:836:2: 836 | double precision, intent(out) :: facval(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:837:2: 837 | double precision :: datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:838:2: 838 | integer :: j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:839:2: 839 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:840:2: 840 | call datasort(datavecsub, 1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:841:2: 841 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:842:2: 842 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:843:2: 843 | do j = 2, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:844:2: 844 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:845:2: 845 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:846:2: 846 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:847:2: 847 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:848:2: 848 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:849:2: 849 | facsum = k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:852:2: 852 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:853:2: 853 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:854:2: 854 | double precision, intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:855:2: 855 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:856:2: 856 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:857:2: 857 | double precision datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:858:2: 858 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:859:2: 859 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:860:2: 860 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:861:2: 861 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:862:2: 862 | call datasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:863:2: 863 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:864:2: 864 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:865:2: 865 | call datasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:866:2: 866 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:867:2: 867 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:868:2: 868 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:869:2: 869 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:872:2: 872 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:873:2: 873 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:874:2: 874 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:875:2: 875 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:876:2: 876 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:877:2: 877 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:878:2: 878 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:879:2: 879 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:880:2: 880 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:881:2: 881 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:882:2: 882 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:883:2: 883 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:884:2: 884 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:885:2: 885 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:886:2: 886 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:887:2: 887 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:888:2: 888 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:889:2: 889 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:890:2: 890 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:891:2: 891 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:892:2: 892 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:893:2: 893 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:894:2: 894 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:895:2: 895 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:896:2: 896 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:897:2: 897 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:898:2: 898 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:899:2: 899 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:900:2: 900 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:901:2: 901 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:902:2: 902 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:903:2: 903 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:904:2: 904 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:905:2: 905 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:906:2: 906 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:907:2: 907 | end subroutine splitmat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:909:2: 909 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:910:2: 910 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:911:2: 911 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:912:2: 912 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:913:2: 913 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:914:2: 914 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:915:2: 915 | double precision facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:916:2: 916 | call dataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:917:2: 917 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:918:2: 918 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:919:2: 919 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:920:2: 920 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:921:2: 921 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:922:2: 922 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:923:2: 923 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:924:2: 924 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:925:2: 925 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:926:2: 926 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:929:2: 929 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:930:2: 930 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:931:2: 931 | double precision, intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:932:2: 932 | double precision, intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:933:2: 933 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:934:2: 934 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:935:2: 935 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:936:2: 936 | double precision ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:937:2: 937 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:938:2: 938 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:939:2: 939 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:940:2: 940 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:941:2: 941 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:942:2: 942 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:943:2: 943 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:944:2: 944 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:945:2: 945 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:946:2: 946 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:947:2: 947 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:948:2: 948 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:949:2: 949 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:950:2: 950 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:951:2: 951 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:952:2: 952 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:953:2: 953 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:954:2: 954 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:955:2: 955 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:956:2: 956 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:957:2: 957 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:958:2: 958 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:959:2: 959 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:960:2: 960 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:961:2: 961 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:962:2: 962 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:963:2: 963 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:964:2: 964 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:965:2: 965 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:966:2: 966 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:967:2: 967 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:968:2: 968 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:969:2: 969 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:970:2: 970 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:971:2: 971 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:972:2: 972 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:973:2: 973 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:974:2: 974 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:975:2: 975 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:976:2: 976 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:977:2: 977 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:978:2: 978 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:979:2: 979 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:980:2: 980 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:981:2: 981 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:982:2: 982 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:983:2: 983 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:984:2: 984 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:985:2: 985 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:986:2: 986 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:987:2: 987 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:988:2: 988 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:989:2: 989 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:990:2: 990 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:991:2: 991 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:992:2: 992 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:993:2: 993 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:994:2: 994 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:995:2: 995 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:996:2: 996 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:997:2: 997 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:998:2: 998 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:999:2: 999 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1000:2: 1000 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1001:2: 1001 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1002:2: 1002 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1003:2: 1003 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1004:2: 1004 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1005:2: 1005 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1008:2: 1008 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1009:2: 1009 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1010:2: 1010 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1011:2: 1011 | double precision, intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1012:2: 1012 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1013:2: 1013 | double precision xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1014:2: 1014 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1015:2: 1015 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1016:2: 1016 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1017:2: 1017 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1018:2: 1018 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1019:2: 1019 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1020:2: 1020 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1021:2: 1021 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1022:2: 1022 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1023:2: 1023 | call pfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1024:2: 1024 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1025:2: 1025 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1026:2: 1026 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1027:2: 1027 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1028:2: 1028 | call pfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1029:2: 1029 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1030:2: 1030 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1031:2: 1031 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1032:2: 1032 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1033:2: 1033 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1034:2: 1034 | call demethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1035:2: 1035 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1037:2: 1037 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1040:2: 1040 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1041:2: 1041 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1042:2: 1042 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1043:2: 1043 | double precision,intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1044:2: 1044 | double precision,intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1045:2: 1045 | double precision res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1046:2: 1046 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1048:2: 1048 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1049:2: 1049 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1050:2: 1050 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1051:2: 1051 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1052:2: 1052 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1053:2: 1053 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1054:2: 1054 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1059:2: 1059 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1060:2: 1060 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1061:2: 1061 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1066:2: 1066 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1067:2: 1067 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1068:2: 1068 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1069:2: 1069 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1070:2: 1070 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1071:2: 1071 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1072:2: 1072 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1073:2: 1073 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1074:2: 1074 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1075:2: 1075 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1076:2: 1076 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1077:2: 1077 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1078:2: 1078 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1079:2: 1079 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1080:2: 1080 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1081:2: 1081 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1082:2: 1082 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1083:2: 1083 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1084:2: 1084 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1087:2: 1087 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1088:2: 1088 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1090:2: 1090 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1091:2: 1091 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1118:2: 1118 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1127:2: 1127 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1128:2: 1128 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1134:2: 1134 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1168:2: 1168 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1179:2: 1179 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1180:2: 1180 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1181:2: 1181 | double precision,intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1182:2: 1182 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1183:2: 1183 | double precision inv_weight, inv_beta1, inv_beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1184:2: 1184 | double precision df_ratio1, df_ratio2, df11_half, df21_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1185:2: 1185 | double precision df12_sum_half, df22_sum_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1186:2: 1186 | inv_weight = 1d0 - weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1187:2: 1187 | inv_beta1 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1188:2: 1188 | inv_beta2 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1189:2: 1189 | df_ratio1 = df11/df12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1190:2: 1190 | df_ratio2 = df21/df22 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1191:2: 1191 | df11_half = df11/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1192:2: 1192 | df21_half = df21/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1193:2: 1193 | df12_sum_half = (df11+df12)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1194:2: 1194 | df22_sum_half = (df21+df22)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1195:2: 1195 | zval = (z-(inv_weight*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1196:2: 1196 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1197:2: 1197 | form2 = inv_beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1198:2: 1198 | form3 = df_ratio1**df11_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1199:2: 1199 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1200:2: 1200 | form5 = (1d0+(df_ratio1*zval))**df12_sum_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1201:2: 1201 | form6 = inv_beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1202:2: 1202 | form7 = df_ratio2**df21_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1203:2: 1203 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1204:2: 1204 | form9 = (1d0+(df_ratio2*v))**df22_sum_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1205:2: 1205 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1209:2: 1209 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1210:2: 1210 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1211:2: 1211 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1212:2: 1212 | integer, intent(inout) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1213:2: 1213 | integer, intent(out) :: sizel,sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1214:2: 1214 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1215:2: 1215 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1216:2: 1216 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1217:2: 1217 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1218:2: 1218 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1219:2: 1219 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1220:2: 1220 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1221:2: 1221 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1222:2: 1222 | nodenummat(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1223:2: 1223 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1224:2: 1224 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1225:2: 1225 | nodenummat(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1226:2: 1226 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1227:2: 1227 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1228:2: 1228 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1229:2: 1229 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1230:2: 1230 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1231:2: 1231 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1234:2: 1234 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1235:2: 1235 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1236:2: 1236 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1237:2: 1237 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1238:2: 1238 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1239:2: 1239 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1240:2: 1240 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1241:2: 1241 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1242:2: 1242 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1243:2: 1243 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1244:2: 1244 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1245:2: 1245 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1246:2: 1246 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1249:2: 1249 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1250:2: 1250 | integer,intent(in) :: prunind,msize,cv,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1251:2: 1251 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1252:2: 1252 | double precision,intent(in) :: alpha,gamma,allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1253:2: 1253 | double precision,intent(out) :: allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1254:2: 1254 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1255:2: 1255 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1256:2: 1256 | double precision minghval,allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1257:2: 1257 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1258:2: 1258 | allgammaval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1259:2: 1259 | if(prunind == 1 .or. alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1260:2: 1260 | goto 3001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1261:2: 1261 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1262:2: 1262 | call cvterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1263:2: 1263 | call cvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1264:2: 1264 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1265:2: 1265 | call cvpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1266:2: 1266 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1267:2: 1267 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1268:2: 1268 | allgammaval(2) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1269:2: 1269 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1270:2: 1270 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1271:2: 1271 | call cvterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1272:2: 1272 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1273:2: 1273 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1274:2: 1274 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1275:2: 1275 | call cvweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1276:2: 1276 | allocate(nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1277:2: 1277 | call cvpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1278:2: 1278 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1279:2: 1279 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1280:2: 1280 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1281:2: 1281 | allgammaval(prunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1282:2: 1282 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1286:2: 1286 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1287:2: 1287 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1288:2: 1288 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1289:2: 1289 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1290:2: 1290 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1291:2: 1291 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1292:2: 1292 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1293:2: 1293 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1294:2: 1294 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1295:2: 1295 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1296:2: 1296 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1297:2: 1297 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1298:2: 1298 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1299:2: 1299 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1300:2: 1300 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1301:2: 1301 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1302:2: 1302 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1303:2: 1303 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1304:2: 1304 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1305:2: 1305 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1306:2: 1306 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1307:2: 1307 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1308:2: 1308 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1309:2: 1309 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1310:2: 1310 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1311:2: 1311 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1312:2: 1312 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1313:2: 1313 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1314:2: 1314 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1317:2: 1317 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1318:2: 1318 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1319:2: 1319 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1320:2: 1320 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1321:2: 1321 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1322:2: 1322 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1323:2: 1323 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1324:2: 1324 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1325:2: 1325 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1326:2: 1326 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1327:2: 1327 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1328:2: 1328 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1329:2: 1329 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1330:2: 1330 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1331:2: 1331 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1332:2: 1332 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1333:2: 1333 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1334:2: 1334 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1335:2: 1335 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1336:2: 1336 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1337:2: 1337 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1338:2: 1338 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1339:2: 1339 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1340:2: 1340 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1341:2: 1341 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1342:2: 1342 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1343:2: 1343 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1344:2: 1344 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1345:2: 1345 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1346:2: 1346 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1347:2: 1347 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1348:2: 1348 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1349:2: 1349 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1350:2: 1350 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1351:2: 1351 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1352:2: 1352 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1353:2: 1353 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1354:2: 1354 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1355:2: 1355 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1356:2: 1356 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1357:2: 1357 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1358:2: 1358 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1359:2: 1359 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1362:2: 1362 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1363:2: 1363 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1364:2: 1364 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1365:2: 1365 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1366:2: 1366 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1367:2: 1367 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1368:2: 1368 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1369:2: 1369 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1370:2: 1370 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1371:2: 1371 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1372:2: 1372 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1373:2: 1373 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1374:2: 1374 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1375:2: 1375 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1376:2: 1376 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1377:2: 1377 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1378:2: 1378 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1379:2: 1379 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1380:2: 1380 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1381:2: 1381 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1382:2: 1382 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1383:2: 1383 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1384:2: 1384 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1385:2: 1385 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1386:2: 1386 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1387:2: 1387 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1388:2: 1388 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1389:2: 1389 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1393:2: 1393 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1394:2: 1394 | integer,intent(in) :: cv,msize,colnum,Ksplit,maxdepth,levelcount,beta1len,beta2len,minbucket,minsplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1395:2: 1395 | integer,intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1396:2: 1396 | integer,intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1397:2: 1397 | real(8),intent(in) :: alpha,gamma,fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1398:2: 1398 | real(8),intent(in) :: beta1(beta1len),beta2(beta2len),allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1399:2: 1399 | real(8),intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1400:2: 1400 | real(8),intent(out) :: bestgammaval,r2cvvalmean | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1401:2: 1401 | integer, allocatable :: cvind(:),cvsize(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1402:2: 1402 | integer, allocatable :: nodenummat(:,:), prunenodenummat(:,:),nodenummattest(:,:),prunenodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1403:2: 1403 | real(8), allocatable :: meangammacv(:),meangammar2cv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1404:2: 1404 | real(8), allocatable :: gammacvmat(:,:),traindata(:,:),testdata(:,:),gammar2cvmat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1405:2: 1405 | integer cvloop,traindatasize,testdatasize,prunind,i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1406:2: 1406 | real(8) allfval((2**maxdepth)-1),gammacv((2**(maxdepth-1))-1),r2cvvalvec(ksplit),gammar2cv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1407:2: 1407 | real(8) r2cvval,maxgammasub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1408:2: 1408 | allocate(cvind(msize),cvsize(Ksplit),gammacvmat(ksplit,(2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1409:2: 1409 | allocate(gammar2cvmat(ksplit,(2**(maxdepth-1))-1),meangammacv((2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1410:2: 1410 | allocate(meangammar2cv((2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1411:2: 1411 | call cvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1412:2: 1412 | meangammacv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1413:2: 1413 | meangammar2cv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1414:2: 1414 | gammacvmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1415:2: 1415 | gammar2cvmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1416:2: 1416 | r2cvvalvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1417:2: 1417 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1418:2: 1418 | gammacv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1419:2: 1419 | r2cvvalvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1420:2: 1420 | gammar2cv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1421:2: 1421 | do cvloop = 1,Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1422:2: 1422 | traindatasize = ((sum(cvsize)-cvsize(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1423:2: 1423 | testdatasize = (cvsize(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1424:2: 1424 | allocate(traindata(traindatasize,colnum),testdata(testdatasize,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1425:2: 1425 | allocate(nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1426:2: 1426 | call cvdatachoice(XYDATA,msize,colnum,Ksplit,levelcount,cvloop,cvind,cvsize,traindata,testdata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1427:2: 1427 | call cvtreegrowth(traindatasize,testdatasize,traindata,testdata,nodenummattest,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1428:2: 1428 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,xydata,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1429:2: 1429 | beta2len,nodenummat,allfval,prunind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1430:2: 1430 | if(alpha < 1d0 .and. gamma < 0d0 .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1431:2: 1431 | call R2CV(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1432:2: 1432 | nodenummattest,testdatasize,maxdepth,r2cvval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1433:2: 1433 | r2cvvalvec(cvloop) = r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1434:2: 1434 | bestgammaval = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1435:2: 1435 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1436:2: 1436 | if(alpha == 1d0 .and. gamma >= 0d0 .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1437:2: 1437 | allocate(prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1438:2: 1438 | call cvgammatreepruning(prunind,traindatasize,testdatasize,gamma,maxdepth,nodenummat,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1439:2: 1439 | nodenummattest,allfval,prunenodenummat,prunenodenummattest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1440:2: 1440 | call R2CV(traindata,traindatasize,prunenodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1441:2: 1441 | prunenodenummattest,testdatasize,maxdepth,r2cvval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1442:2: 1442 | r2cvvalvec(cvloop) = r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1443:2: 1443 | deallocate(prunenodenummattest,prunenodenummat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1444:2: 1444 | bestgammaval = gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1445:2: 1445 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1446:2: 1446 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1447:2: 1447 | call cvbesttreepruning(traindatasize,testdatasize,maxdepth,nodenummat,nodenummattest,allfval,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1448:2: 1448 | levelcount,colnum,traindata,testdata,allgammaval,gammacv,gammar2cv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1449:2: 1449 | gammacvmat(cvloop,:) = gammacv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1450:2: 1450 | gammar2cvmat(cvloop,:) = gammar2cv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1451:2: 1451 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1452:2: 1452 | deallocate(traindata,testdata,nodenummat,nodenummattest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1453:2: 1453 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1454:2: 1454 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1455:2: 1455 | do i = 1,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1456:2: 1456 | meangammacv(i) = sum(gammacvmat(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1457:2: 1457 | meangammar2cv(i) = sum(gammar2cvmat(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1458:2: 1458 | if(meangammacv(i) > 0 .and. meangammar2cv(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1459:2: 1459 | meangammacv(i) = meangammacv(i) / dble(msize/levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1460:2: 1460 | meangammar2cv(i) = meangammar2cv(i) / dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1461:2: 1461 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1462:2: 1462 | meangammacv(i) = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1463:2: 1463 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1464:2: 1464 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1465:2: 1465 | maxgammasub = maxval(meangammacv) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1466:2: 1466 | do i = 1,size(meangammacv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1467:2: 1467 | if(meangammacv(i) < maxgammasub .and. meangammacv(i) >= 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1468:2: 1468 | bestgammaval = allgammaval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1469:2: 1469 | maxgammasub = meangammacv(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1470:2: 1470 | r2cvvalmean = meangammar2cv(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1471:2: 1471 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1472:2: 1472 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1473:2: 1473 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1474:2: 1474 | r2cvvalmean=sum(r2cvvalvec)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1475:2: 1475 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1478:2: 1478 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1479:2: 1479 | integer, intent(in) :: msize,colnum,Ksplit,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1480:2: 1480 | integer, intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1481:2: 1481 | real(8), intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1482:2: 1482 | integer, intent(out) :: cvind(msize), cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1483:2: 1483 | integer i,subnum, randval, cvsizecou(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1484:2: 1484 | integer, allocatable :: cvindsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1485:2: 1485 | real(8) randvalsub,ii | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1486:2: 1486 | integer :: seed_size, seed_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1487:2: 1487 | integer, allocatable :: seed_array(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1488:2: 1488 | call random_seed(size=seed_size) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1489:2: 1489 | allocate(seed_array(seed_size)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1490:2: 1490 | do seed_i = 1, seed_size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1491:2: 1491 | seed_array(seed_i) = iseed + (seed_i - 1) * 37 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1492:2: 1492 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1493:2: 1493 | call random_seed(put=seed_array) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1494:2: 1494 | deallocate(seed_array) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1495:2: 1495 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1496:2: 1496 | cvsize(:) = subnum/Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1497:2: 1497 | do i = 1,(subnum - sum(cvsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1498:2: 1498 | cvsize(i) = cvsize(i) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1499:2: 1499 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1500:2: 1500 | allocate(cvindsub(subnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1501:2: 1501 | cvsizecou(:) = cvsize(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1502:2: 1502 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1503:2: 1503 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1504:2: 1504 | call random_number(randvalsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1505:2: 1505 | randval = int(randvalsub * dble(Ksplit)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1506:2: 1506 | if(cvsizecou(randval) > 0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1507:2: 1507 | cvsizecou(randval) = cvsizecou(randval) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1508:2: 1508 | cvindsub(i) = randval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1509:2: 1509 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1510:2: 1510 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1511:2: 1511 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1512:2: 1512 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1513:2: 1513 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1514:2: 1514 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1515:2: 1515 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1518:2: 1518 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1519:2: 1519 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1520:2: 1520 | real(8), intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1521:2: 1521 | integer, intent(in) :: cvind(msize),cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1522:2: 1522 | real(8), intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),testdata((cvsize(testind)*levelcount),colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1523:2: 1523 | integer i,jtrain,jtest,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1524:2: 1524 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1525:2: 1525 | jtest = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1526:2: 1526 | jtrain = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1527:2: 1527 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1528:2: 1528 | if(cvind(((i-1)*levelcount)+1) == testind) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1529:2: 1529 | testdata((levelcount*(jtest-1)+1):(levelcount*jtest),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1530:2: 1530 | jtest = jtest + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1531:2: 1531 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1532:2: 1532 | traindata((levelcount*(jtrain-1)+1):(levelcount*jtrain),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1533:2: 1533 | jtrain = jtrain + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1534:2: 1534 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1535:2: 1535 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1540:2: 1540 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1541:2: 1541 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1542:2: 1542 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1543:2: 1543 | real(8), intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1544:2: 1544 | real(8), intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1545:2: 1545 | real(8), intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1546:2: 1546 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1547:2: 1547 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1548:2: 1548 | real(8),intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1549:2: 1549 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1550:2: 1550 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1551:2: 1551 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1552:2: 1552 | real(8) splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1553:2: 1553 | real(8) fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1554:2: 1554 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1555:2: 1555 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1556:2: 1556 | real(8), allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1557:2: 1557 | real(8), allocatable :: xynodedata(:,:),xynodedatatest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1558:2: 1558 | real(8), allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1559:2: 1559 | integer, allocatable :: factor_idx(:), flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1560:2: 1560 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1561:2: 1561 | real(8) :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1562:2: 1562 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1563:2: 1563 | integer, allocatable :: w_subj_map(:), w_si_arr(:), w_subj_group(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1564:2: 1564 | real(8), allocatable :: w_ygroup(:), w_ytime(:), w_ysubject(:), w_ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1565:2: 1565 | real(8), allocatable :: w_ygroupcount(:), w_ytimecount(:), w_ysubjectcount(:), w_ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1566:2: 1566 | integer :: w_nsubjects, w_timecount, w_max_subj_id, gi, ti, si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1567:2: 1567 | real(8) :: ymean_const, sstotal_const, sstime_const | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1568:2: 1568 | real(8) :: ssgroup, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1569:2: 1569 | integer, allocatable :: ti_arr(:), factor_count(:), factor_offset(:), factor_obs(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1570:2: 1570 | real(8) :: total_y_sum, ygroup_mean1, ygroup_mean2, gt_mean | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1571:2: 1571 | real(8), allocatable :: w_ytime_sum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1572:2: 1572 | integer :: obs_i, f, lo, hi, mid | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1573:2: 1573 | nodenummat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1574:2: 1574 | nodenummat(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1575:2: 1575 | nodenummattest(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1576:2: 1576 | nodenummattest(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1577:2: 1577 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1578:2: 1578 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1579:2: 1579 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1580:2: 1580 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1581:2: 1581 | allocate(nodesize(2),nodesizetest(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1582:2: 1582 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1583:2: 1583 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1584:2: 1584 | call cvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1585:2: 1585 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1586:2: 1586 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1587:2: 1587 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1588:2: 1588 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1589:2: 1589 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1590:2: 1590 | allocate(anovadata(traindatasize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1591:2: 1591 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1592:2: 1592 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1593:2: 1593 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1594:2: 1594 | w_timecount = nint(maxval(traindata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1595:2: 1595 | w_max_subj_id = nint(maxval(traindata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1596:2: 1596 | allocate(w_subj_map(w_max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1597:2: 1597 | w_subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1598:2: 1598 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1599:2: 1599 | w_subj_map(nint(traindata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1600:2: 1600 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1601:2: 1601 | w_nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1602:2: 1602 | do i = 1, w_max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1603:2: 1603 | if (w_subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1604:2: 1604 | w_nsubjects = w_nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1605:2: 1605 | w_subj_map(i) = w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1606:2: 1606 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1607:2: 1607 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1608:2: 1608 | allocate(w_si_arr(traindatasize), w_ygroup(2), w_ytime(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1609:2: 1609 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1610:2: 1610 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1611:2: 1611 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1612:2: 1612 | allocate(w_subj_group(w_nsubjects)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1613:2: 1613 | allocate(ti_arr(traindatasize), w_ytime_sum(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1614:2: 1614 | dfvec_const(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1615:2: 1615 | dfvec_const(2) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1616:2: 1616 | dfvec_const(3) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1617:2: 1617 | dfvec_const(4) = w_nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1618:2: 1618 | dfvec_const(5) = (w_timecount - 1) * (w_nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1619:2: 1619 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1620:2: 1620 | ymean_const = sum(traindata(:,1)) / dble(traindatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1621:2: 1621 | sstotal_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1622:2: 1622 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1623:2: 1623 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1624:2: 1624 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1625:2: 1625 | ti = nint(traindata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1626:2: 1626 | si = w_subj_map(nint(traindata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1627:2: 1627 | w_si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1628:2: 1628 | ti_arr(i) = ti | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1629:2: 1629 | sstotal_const = sstotal_const + (traindata(i,1) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1630:2: 1630 | w_ytime(ti) = w_ytime(ti) + traindata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1631:2: 1631 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1632:2: 1632 | w_ysubject(si) = w_ysubject(si) + traindata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1633:2: 1633 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1634:2: 1634 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1635:2: 1635 | w_ytime_sum = w_ytime | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1636:2: 1636 | total_y_sum = ymean_const * dble(traindatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1637:2: 1637 | w_ytime = w_ytime / w_ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1638:2: 1638 | w_ysubject = w_ysubject / w_ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1639:2: 1639 | sstime_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1640:2: 1640 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1641:2: 1641 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1642:2: 1642 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1643:2: 1643 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1644:2: 1644 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1645:2: 1645 | allocate(factor_idx(traindatasize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1646:2: 1646 | call cvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1647:2: 1647 | call cvdataval(traindata(:,ind1),traindatasize,facvalout,countvec(ind1-3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1648:2: 1648 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1649:2: 1649 | lo = 1; hi = countvec(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1650:2: 1650 | do while (lo <= hi) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1651:2: 1651 | mid = (lo + hi) / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1652:2: 1652 | if (facvalout(mid) == traindata(i,ind1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1653:2: 1653 | factor_idx(i) = mid | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1654:2: 1654 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1655:2: 1655 | elseif (traindata(i,ind1) < facvalout(mid)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1656:2: 1656 | hi = mid - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1657:2: 1657 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1658:2: 1658 | lo = mid + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1659:2: 1659 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1660:2: 1660 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1661:2: 1661 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1662:2: 1662 | allocate(factor_count(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1663:2: 1663 | allocate(factor_offset(countvec(ind1-3)+1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1664:2: 1664 | allocate(factor_obs(traindatasize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1665:2: 1665 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1666:2: 1666 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1667:2: 1667 | f = factor_idx(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1668:2: 1668 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1669:2: 1669 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1670:2: 1670 | factor_offset(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1671:2: 1671 | do f = 2, countvec(ind1-3) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1672:2: 1672 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1673:2: 1673 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1674:2: 1674 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1675:2: 1675 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1676:2: 1676 | f = factor_idx(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1677:2: 1677 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1678:2: 1678 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1679:2: 1679 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1680:2: 1680 | if (datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1681:2: 1681 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1682:2: 1682 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(traindatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1683:2: 1683 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1684:2: 1684 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1685:2: 1685 | w_subj_group(:) = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1686:2: 1686 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1687:2: 1687 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1688:2: 1688 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1689:2: 1689 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1690:2: 1690 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1691:2: 1691 | obs_i = factor_obs(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1692:2: 1692 | w_ygroup(2) = w_ygroup(2) - traindata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1693:2: 1693 | w_ygroup(1) = w_ygroup(1) + traindata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1694:2: 1694 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1695:2: 1695 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1696:2: 1696 | ti = ti_arr(obs_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1697:2: 1697 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - traindata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1698:2: 1698 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + traindata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1699:2: 1699 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1700:2: 1700 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1701:2: 1701 | w_subj_group(w_si_arr(obs_i)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1702:2: 1702 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1703:2: 1703 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1704:2: 1704 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1705:2: 1705 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1706:2: 1706 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1707:2: 1707 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1708:2: 1708 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1709:2: 1709 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1710:2: 1710 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1711:2: 1711 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1712:2: 1712 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1713:2: 1713 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1714:2: 1714 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1715:2: 1715 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1716:2: 1716 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1717:2: 1717 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1718:2: 1718 | if (w_subj_group(si) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1719:2: 1719 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1720:2: 1720 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1721:2: 1721 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1722:2: 1722 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1723:2: 1723 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1724:2: 1724 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1725:2: 1725 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1726:2: 1726 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1727:2: 1727 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1728:2: 1728 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1729:2: 1729 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1730:2: 1730 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1731:2: 1731 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1732:2: 1732 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1733:2: 1733 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1734:2: 1734 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1735:2: 1735 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1736:2: 1736 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1737:2: 1737 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1738:2: 1738 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1739:2: 1739 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1740:2: 1740 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1741:2: 1741 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1742:2: 1742 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1743:2: 1743 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1744:2: 1744 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1745:2: 1745 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1746:2: 1746 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1747:2: 1747 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1748:2: 1748 | gi = splitindmat(ind2, factor_idx(i)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1749:2: 1749 | w_ygroup(gi) = w_ygroup(gi) + traindata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1750:2: 1750 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1751:2: 1751 | ti = ti_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1752:2: 1752 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + traindata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1753:2: 1753 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1754:2: 1754 | w_subj_group(w_si_arr(i)) = gi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1755:2: 1755 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1756:2: 1756 | w_ygroup = w_ygroup / w_ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1757:2: 1757 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1758:2: 1758 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1759:2: 1759 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1760:2: 1760 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1761:2: 1761 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1762:2: 1762 | do gi = 1, 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1763:2: 1763 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1764:2: 1764 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1765:2: 1765 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1766:2: 1766 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1767:2: 1767 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1768:2: 1768 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1769:2: 1769 | sssubject = sssubject + w_ysubjectcount(si) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1770:2: 1770 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1771:2: 1771 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1772:2: 1772 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1773:2: 1773 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1774:2: 1774 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1775:2: 1775 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1776:2: 1776 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1777:2: 1777 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1778:2: 1778 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1779:2: 1779 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1780:2: 1780 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1781:2: 1781 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1782:2: 1782 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1783:2: 1783 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1784:2: 1784 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1785:2: 1785 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1786:2: 1786 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1787:2: 1787 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1788:2: 1788 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1789:2: 1789 | deallocate(splitindmat,facvalout,factor_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1790:2: 1790 | deallocate(factor_count, factor_offset, factor_obs) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1791:2: 1791 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1792:2: 1792 | deallocate(w_subj_map, w_si_arr, w_ygroup, w_ytime, w_ysubject, w_ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1793:2: 1793 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount, w_subj_group) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1794:2: 1794 | deallocate(ti_arr, w_ytime_sum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1795:2: 1795 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1796:2: 1796 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1797:2: 1797 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1798:2: 1798 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1799:2: 1799 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1800:2: 1800 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1801:2: 1801 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1802:2: 1802 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1803:2: 1803 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1804:2: 1804 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1805:2: 1805 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1806:2: 1806 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1807:2: 1807 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1808:2: 1808 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1809:2: 1809 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1810:2: 1810 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1811:2: 1811 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1812:2: 1812 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1813:2: 1813 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1814:2: 1814 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1815:2: 1815 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1816:2: 1816 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1817:2: 1817 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1818:2: 1818 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1819:2: 1819 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1820:2: 1820 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1821:2: 1821 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1822:2: 1822 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1823:2: 1823 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1824:2: 1824 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1825:2: 1825 | splitind1 = ind1vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1826:2: 1826 | splitind2 = ind2vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1827:2: 1827 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1828:2: 1828 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1829:2: 1829 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1830:2: 1830 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1831:2: 1831 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1832:2: 1832 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1833:2: 1833 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1834:2: 1834 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1835:2: 1835 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1836:2: 1836 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1837:2: 1837 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1838:2: 1838 | call cvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1839:2: 1839 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1840:2: 1840 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1841:2: 1841 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1842:2: 1842 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1843:2: 1843 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1844:2: 1844 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1845:2: 1845 | call cvdatasum(xydata(:,splitind1),msize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1846:2: 1846 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1847:2: 1847 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1848:2: 1848 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1849:2: 1849 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1850:2: 1850 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1851:2: 1851 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1852:2: 1852 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1853:2: 1853 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1854:2: 1854 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1855:2: 1855 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1856:2: 1856 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1857:2: 1857 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1858:2: 1858 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1859:2: 1859 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1860:2: 1860 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1861:2: 1861 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1862:2: 1862 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1863:2: 1863 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1864:2: 1864 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1865:2: 1865 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1866:2: 1866 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1867:2: 1867 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1868:2: 1868 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1869:2: 1869 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1870:2: 1870 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1871:2: 1871 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1872:2: 1872 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1873:2: 1873 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1874:2: 1874 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1875:2: 1875 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1876:2: 1876 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1877:2: 1877 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1878:2: 1878 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1879:2: 1879 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1880:2: 1880 | splitind1 = ind1vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1881:2: 1881 | splitind2 = ind2vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1882:2: 1882 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1883:2: 1883 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1884:2: 1884 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1885:2: 1885 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1886:2: 1886 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1887:2: 1887 | call cvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1888:2: 1888 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1889:2: 1889 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1890:2: 1890 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1891:2: 1891 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1892:2: 1892 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1893:2: 1893 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1894:2: 1894 | call cvdatasum(xydata(:,splitind1),msize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1895:2: 1895 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1896:2: 1896 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1897:2: 1897 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1898:2: 1898 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1899:2: 1899 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1900:2: 1900 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1901:2: 1901 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1902:2: 1902 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1903:2: 1903 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1904:2: 1904 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1905:2: 1905 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1906:2: 1906 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1907:2: 1907 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1908:2: 1908 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1909:2: 1909 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1910:2: 1910 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1911:2: 1911 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1912:2: 1912 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1913:2: 1913 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1914:2: 1914 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1915:2: 1915 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1916:2: 1916 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1917:2: 1917 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1918:2: 1918 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1919:2: 1919 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1920:2: 1920 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1921:2: 1921 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1922:2: 1922 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1923:2: 1923 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1924:2: 1924 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1925:2: 1925 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1926:2: 1926 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1927:2: 1927 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1928:2: 1928 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1929:2: 1929 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1930:2: 1930 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1931:2: 1931 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1932:2: 1932 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1933:2: 1933 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1934:2: 1934 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1935:2: 1935 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1936:2: 1936 | if(.not. allocated(splitfacval)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1937:2: 1937 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1938:2: 1938 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1939:2: 1939 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1940:2: 1940 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1941:2: 1941 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1942:2: 1942 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1943:2: 1943 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1944:2: 1944 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1945:2: 1945 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1946:2: 1946 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1947:2: 1947 | call cvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1948:2: 1948 | hierarchy+1,nodenummat,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1949:2: 1949 | call cvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1950:2: 1950 | hierarchy+1,nodenummattest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1951:2: 1951 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1952:2: 1952 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1953:2: 1953 | nodesizetest(1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1954:2: 1954 | nodesizetest(2) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1955:2: 1955 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1956:2: 1956 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1957:2: 1957 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1958:2: 1958 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1959:2: 1959 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1960:2: 1960 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1961:2: 1961 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1962:2: 1962 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1963:2: 1963 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1964:2: 1964 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1965:2: 1965 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1966:2: 1966 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1967:2: 1967 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1968:2: 1968 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1969:2: 1969 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1970:2: 1970 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1971:2: 1971 | call cvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,maxdepth,nodenummat,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1972:2: 1972 | call cvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,maxdepth,nodenummattest,nodesizetest(nodeloop),xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1973:2: 1973 | call cvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1974:2: 1974 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1975:2: 1975 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1976:2: 1976 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1977:2: 1977 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1978:2: 1978 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1979:2: 1979 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1980:2: 1980 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1981:2: 1981 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1982:2: 1982 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1983:2: 1983 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1984:2: 1984 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1985:2: 1985 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1986:2: 1986 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1987:2: 1987 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1988:2: 1988 | w_timecount = nint(maxval(xynodedata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1989:2: 1989 | w_max_subj_id = nint(maxval(xynodedata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1990:2: 1990 | allocate(w_subj_map(w_max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1991:2: 1991 | w_subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1992:2: 1992 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1993:2: 1993 | w_subj_map(nint(xynodedata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1994:2: 1994 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1995:2: 1995 | w_nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1996:2: 1996 | do i = 1, w_max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1997:2: 1997 | if (w_subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1998:2: 1998 | w_nsubjects = w_nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1999:2: 1999 | w_subj_map(i) = w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2000:2: 2000 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2001:2: 2001 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2002:2: 2002 | allocate(w_si_arr(nodesize(nodeloop)), w_ygroup(2), w_ytime(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2003:2: 2003 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2004:2: 2004 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2005:2: 2005 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2006:2: 2006 | allocate(w_subj_group(w_nsubjects)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2007:2: 2007 | allocate(ti_arr(nodesize(nodeloop)), w_ytime_sum(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2008:2: 2008 | dfvec_const(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2009:2: 2009 | dfvec_const(2) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2010:2: 2010 | dfvec_const(3) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2011:2: 2011 | dfvec_const(4) = w_nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2012:2: 2012 | dfvec_const(5) = (w_timecount - 1) * (w_nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2013:2: 2013 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2014:2: 2014 | ymean_const = sum(xynodedata(:,1)) / dble(nodesize(nodeloop)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2015:2: 2015 | sstotal_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2016:2: 2016 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2017:2: 2017 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2018:2: 2018 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2019:2: 2019 | ti = nint(xynodedata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2020:2: 2020 | si = w_subj_map(nint(xynodedata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2021:2: 2021 | w_si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2022:2: 2022 | ti_arr(i) = ti | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2023:2: 2023 | sstotal_const = sstotal_const + (xynodedata(i,1) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2024:2: 2024 | w_ytime(ti) = w_ytime(ti) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2025:2: 2025 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2026:2: 2026 | w_ysubject(si) = w_ysubject(si) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2027:2: 2027 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2028:2: 2028 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2029:2: 2029 | w_ytime_sum = w_ytime | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2030:2: 2030 | total_y_sum = ymean_const * dble(nodesize(nodeloop)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2031:2: 2031 | w_ytime = w_ytime / w_ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2032:2: 2032 | w_ysubject = w_ysubject / w_ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2033:2: 2033 | sstime_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2034:2: 2034 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2035:2: 2035 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2036:2: 2036 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2037:2: 2037 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2038:2: 2038 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2039:2: 2039 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2040:2: 2040 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2041:2: 2041 | if(allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2042:2: 2042 | deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2043:2: 2043 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2044:2: 2044 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2045:2: 2045 | if(allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2046:2: 2046 | deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2047:2: 2047 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2048:2: 2048 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2049:2: 2049 | allocate(factor_idx(nodesize(nodeloop))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2050:2: 2050 | call cvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2051:2: 2051 | call cvdataval(xynodedata(:,ind1),nodesize(nodeloop),facvalout,countvec(ind1-3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2052:2: 2052 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2053:2: 2053 | lo = 1; hi = countvec(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2054:2: 2054 | do while (lo <= hi) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2055:2: 2055 | mid = (lo + hi) / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2056:2: 2056 | if (facvalout(mid) == xynodedata(i,ind1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2057:2: 2057 | factor_idx(i) = mid | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2058:2: 2058 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2059:2: 2059 | elseif (xynodedata(i,ind1) < facvalout(mid)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2060:2: 2060 | hi = mid - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2061:2: 2061 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2062:2: 2062 | lo = mid + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2063:2: 2063 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2064:2: 2064 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2065:2: 2065 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2066:2: 2066 | allocate(factor_count(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2067:2: 2067 | allocate(factor_offset(countvec(ind1-3)+1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2068:2: 2068 | allocate(factor_obs(nodesize(nodeloop))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2069:2: 2069 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2070:2: 2070 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2071:2: 2071 | f = factor_idx(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2072:2: 2072 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2073:2: 2073 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2074:2: 2074 | factor_offset(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2075:2: 2075 | do f = 2, countvec(ind1-3) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2076:2: 2076 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2077:2: 2077 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2078:2: 2078 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2079:2: 2079 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2080:2: 2080 | f = factor_idx(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2081:2: 2081 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2082:2: 2082 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2083:2: 2083 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2084:2: 2084 | if (datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2085:2: 2085 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2086:2: 2086 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(nodesize(nodeloop)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2087:2: 2087 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2088:2: 2088 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2089:2: 2089 | w_subj_group(:) = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2090:2: 2090 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2091:2: 2091 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2092:2: 2092 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2093:2: 2093 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2094:2: 2094 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2095:2: 2095 | obs_i = factor_obs(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2096:2: 2096 | w_ygroup(2) = w_ygroup(2) - xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2097:2: 2097 | w_ygroup(1) = w_ygroup(1) + xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2098:2: 2098 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2099:2: 2099 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2100:2: 2100 | ti = ti_arr(obs_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2101:2: 2101 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2102:2: 2102 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2103:2: 2103 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2104:2: 2104 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2105:2: 2105 | w_subj_group(w_si_arr(obs_i)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2106:2: 2106 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2107:2: 2107 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2108:2: 2108 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2109:2: 2109 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2110:2: 2110 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2111:2: 2111 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2112:2: 2112 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2113:2: 2113 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2114:2: 2114 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2115:2: 2115 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2116:2: 2116 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2117:2: 2117 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2118:2: 2118 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2119:2: 2119 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2120:2: 2120 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2121:2: 2121 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2122:2: 2122 | if (w_subj_group(si) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2123:2: 2123 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2124:2: 2124 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2125:2: 2125 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2126:2: 2126 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2127:2: 2127 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2128:2: 2128 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2129:2: 2129 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2130:2: 2130 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2131:2: 2131 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2132:2: 2132 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2133:2: 2133 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2134:2: 2134 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2135:2: 2135 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2136:2: 2136 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2137:2: 2137 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2138:2: 2138 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2139:2: 2139 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2140:2: 2140 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2141:2: 2141 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2142:2: 2142 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2143:2: 2143 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2144:2: 2144 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2145:2: 2145 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2146:2: 2146 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2147:2: 2147 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2148:2: 2148 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2149:2: 2149 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2150:2: 2150 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2151:2: 2151 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2152:2: 2152 | gi = splitindmat(ind2, factor_idx(i)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2153:2: 2153 | w_ygroup(gi) = w_ygroup(gi) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2154:2: 2154 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2155:2: 2155 | ti = ti_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2156:2: 2156 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2157:2: 2157 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2158:2: 2158 | w_subj_group(w_si_arr(i)) = gi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2159:2: 2159 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2160:2: 2160 | w_ygroup = w_ygroup / w_ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2161:2: 2161 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2162:2: 2162 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2163:2: 2163 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2164:2: 2164 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2165:2: 2165 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2166:2: 2166 | do gi = 1, 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2167:2: 2167 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2168:2: 2168 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2169:2: 2169 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2170:2: 2170 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2171:2: 2171 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2172:2: 2172 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2173:2: 2173 | sssubject = sssubject + w_ysubjectcount(si) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2174:2: 2174 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2175:2: 2175 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2176:2: 2176 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2177:2: 2177 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2178:2: 2178 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2179:2: 2179 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2180:2: 2180 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2181:2: 2181 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2182:2: 2182 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2183:2: 2183 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2184:2: 2184 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2185:2: 2185 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2186:2: 2186 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2187:2: 2187 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2188:2: 2188 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2189:2: 2189 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2190:2: 2190 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2191:2: 2191 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2192:2: 2192 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2193:2: 2193 | deallocate(splitindmat,facvalout,factor_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2194:2: 2194 | deallocate(factor_count, factor_offset, factor_obs) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2195:6: 2195 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2196:2: 2196 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2197:2: 2197 | deallocate(w_subj_map, w_si_arr, w_subj_group, w_ygroup, w_ytime, w_ysubject, w_ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2198:2: 2198 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2199:2: 2199 | deallocate(ti_arr, w_ytime_sum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2200:2: 2200 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2201:2: 2201 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2202:2: 2202 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2203:2: 2203 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2204:2: 2204 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2205:2: 2205 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2206:2: 2206 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2207:2: 2207 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2208:2: 2208 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2209:2: 2209 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2210:2: 2210 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2211:2: 2211 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2212:2: 2212 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2213:2: 2213 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2214:2: 2214 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2215:2: 2215 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2216:2: 2216 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2217:2: 2217 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2218:2: 2218 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2219:2: 2219 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2220:2: 2220 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2221:2: 2221 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2222:2: 2222 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2223:2: 2223 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2224:2: 2224 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2225:2: 2225 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2226:2: 2226 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2227:2: 2227 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2228:2: 2228 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2229:2: 2229 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2230:2: 2230 | splitind1 = ind1vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2231:2: 2231 | splitind2 = ind2vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2232:2: 2232 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2233:2: 2233 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2234:2: 2234 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2235:2: 2235 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2236:2: 2236 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2237:2: 2237 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2238:2: 2238 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2239:2: 2239 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2240:2: 2240 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2241:2: 2241 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2242:2: 2242 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2243:2: 2243 | call cvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2244:2: 2244 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2245:2: 2245 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2246:2: 2246 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2247:2: 2247 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2248:2: 2248 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2249:2: 2249 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2250:2: 2250 | call cvdatasum(xydata(:,splitind1),msize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2251:2: 2251 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2252:2: 2252 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2253:2: 2253 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2254:2: 2254 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2255:2: 2255 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2256:2: 2256 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2257:2: 2257 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2258:2: 2258 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2259:2: 2259 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2260:2: 2260 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2261:2: 2261 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2262:2: 2262 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2263:2: 2263 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2264:2: 2264 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2265:2: 2265 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2266:2: 2266 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2267:2: 2267 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2268:2: 2268 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2269:2: 2269 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2270:2: 2270 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2271:2: 2271 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2272:2: 2272 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2273:2: 2273 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2274:2: 2274 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2275:2: 2275 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2276:2: 2276 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2277:2: 2277 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2278:2: 2278 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2279:2: 2279 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2280:2: 2280 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2281:2: 2281 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2282:2: 2282 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2283:2: 2283 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2284:2: 2284 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2285:2: 2285 | splitind1 = ind1vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2286:2: 2286 | splitind2 = ind2vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2287:2: 2287 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2288:2: 2288 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2289:2: 2289 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2290:2: 2290 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2291:2: 2291 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2292:2: 2292 | call cvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2293:2: 2293 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2294:2: 2294 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2295:2: 2295 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2296:2: 2296 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2297:2: 2297 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2298:2: 2298 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2299:2: 2299 | call cvdatasum(xydata(:,splitind1),msize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2300:2: 2300 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2301:2: 2301 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2302:2: 2302 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2303:2: 2303 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2304:2: 2304 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2305:2: 2305 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2306:2: 2306 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2307:2: 2307 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2308:2: 2308 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2309:2: 2309 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2310:2: 2310 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2311:2: 2311 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2312:2: 2312 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2313:2: 2313 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2314:2: 2314 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2315:2: 2315 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2316:2: 2316 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2317:2: 2317 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2318:2: 2318 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2319:2: 2319 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2320:2: 2320 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2321:2: 2321 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2322:2: 2322 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2323:2: 2323 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2324:2: 2324 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2325:2: 2325 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2326:2: 2326 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2327:2: 2327 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2328:2: 2328 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2329:2: 2329 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2330:2: 2330 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2331:2: 2331 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2332:2: 2332 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2333:2: 2333 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2334:2: 2334 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2335:2: 2335 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2336:2: 2336 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2337:2: 2337 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2338:2: 2338 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2339:2: 2339 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2340:2: 2340 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2341:2: 2341 | if(.not. allocated(splitfacval)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2342:2: 2342 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2343:2: 2343 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2344:2: 2344 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2345:2: 2345 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2346:2: 2346 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2347:2: 2347 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2348:2: 2348 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2349:2: 2349 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2350:2: 2350 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2351:2: 2351 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2352:2: 2352 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2353:2: 2353 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2354:2: 2354 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2355:2: 2355 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2356:2: 2356 | if(.not. allocated(nodesizesubtest)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2357:2: 2357 | allocate(nodesizesubtest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2358:2: 2358 | nodesizesubtest(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2359:2: 2359 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2360:2: 2360 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2361:2: 2361 | call cvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2362:2: 2362 | hierarchy+1,nodenummat,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2363:2: 2363 | call cvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2364:2: 2364 | hierarchy+1,nodenummattest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2365:2: 2365 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2366:2: 2366 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2367:2: 2367 | nodesizesubtest(2*nodeloop-1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2368:2: 2368 | nodesizesubtest(2*nodeloop) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2369:6: 2369 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2370:2: 2370 | if(allocated(fval_cache)) deallocate(fval_cache) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2371:2: 2371 | if(allocated(groupsum_cache)) deallocate(groupsum_cache) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2372:2: 2372 | if(allocated(flat_idx_vec)) deallocate(flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2373:2: 2373 | if(allocated(factor_idx)) deallocate(factor_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2374:2: 2374 | if(allocated(w_subj_map)) deallocate(w_subj_map) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2375:2: 2375 | if(allocated(w_si_arr)) deallocate(w_si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2376:2: 2376 | if(allocated(w_ygroup)) deallocate(w_ygroup) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2377:2: 2377 | if(allocated(w_ytime)) deallocate(w_ytime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2378:2: 2378 | if(allocated(w_ysubject)) deallocate(w_ysubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2379:2: 2379 | if(allocated(w_ygrouptime)) deallocate(w_ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2380:2: 2380 | if(allocated(w_ygroupcount)) deallocate(w_ygroupcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2381:2: 2381 | if(allocated(w_ytimecount)) deallocate(w_ytimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2382:2: 2382 | if(allocated(w_ysubjectcount)) deallocate(w_ysubjectcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2383:2: 2383 | if(allocated(w_ygrouptimecount)) deallocate(w_ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2384:2: 2384 | deallocate(anovadata,xynodedata,xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2385:2: 2385 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2386:2: 2386 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2387:2: 2387 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2388:2: 2388 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2389:2: 2389 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2390:2: 2390 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2391:2: 2391 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2392:2: 2392 | nodesizetest(:) = nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2393:2: 2393 | deallocate(nodesizesub,nodesizesubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2394:2: 2394 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2396:2: 2396 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2400:2: 2400 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2401:2: 2401 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2402:2: 2402 | real(8), intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2403:2: 2403 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2404:2: 2404 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2405:2: 2405 | real(8) datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2406:2: 2406 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2407:2: 2407 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2408:2: 2408 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2409:2: 2409 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2410:2: 2410 | call cvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2411:2: 2411 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2412:2: 2412 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2413:2: 2413 | call cvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2414:2: 2414 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2415:2: 2415 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2416:2: 2416 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2417:2: 2417 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2420:2: 2420 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2421:2: 2421 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2422:2: 2422 | real(8),intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2423:2: 2423 | real(8) datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2424:2: 2424 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2425:2: 2425 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2426:2: 2426 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2427:2: 2427 | call cvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2428:2: 2428 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2429:2: 2429 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2430:2: 2430 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2431:2: 2431 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2432:2: 2432 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2433:2: 2433 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2434:2: 2434 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2437:2: 2437 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2438:2: 2438 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2439:2: 2439 | real(8),intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2440:2: 2440 | real(8) x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2441:2: 2441 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2442:2: 2442 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2443:2: 2443 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2444:2: 2444 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2445:2: 2445 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2446:2: 2446 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2447:2: 2447 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2448:2: 2448 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2449:2: 2449 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2450:2: 2450 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2451:2: 2451 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2452:2: 2452 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2453:2: 2453 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2454:2: 2454 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2455:2: 2455 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2456:2: 2456 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2457:2: 2457 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2458:2: 2458 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2459:2: 2459 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2460:2: 2460 | call cvdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2461:2: 2461 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2462:2: 2462 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2463:2: 2463 | call cvdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2464:2: 2464 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2465:2: 2465 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2468:2: 2468 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2469:2: 2469 | integer, intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2470:2: 2470 | real(8), intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2471:2: 2471 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2472:2: 2472 | real(8), intent(out) :: facval(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2473:2: 2473 | real(8) :: datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2474:2: 2474 | integer :: j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2475:2: 2475 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2476:2: 2476 | call cvdatasort(datavecsub, 1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2477:2: 2477 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2478:2: 2478 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2479:2: 2479 | do j = 2, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2480:2: 2480 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2481:2: 2481 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2482:2: 2482 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2483:2: 2483 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2484:2: 2484 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2485:2: 2485 | facsum = k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2488:2: 2488 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2489:2: 2489 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2490:2: 2490 | real(8), intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2491:2: 2491 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2492:2: 2492 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2493:2: 2493 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2494:2: 2494 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2495:2: 2495 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2496:2: 2496 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2497:2: 2497 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2498:2: 2498 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2499:2: 2499 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2500:2: 2500 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2501:2: 2501 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2502:2: 2502 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2503:2: 2503 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2504:2: 2504 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2505:2: 2505 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2506:2: 2506 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2507:2: 2507 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2508:2: 2508 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2509:2: 2509 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2510:2: 2510 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2511:2: 2511 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2512:2: 2512 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2513:2: 2513 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2514:2: 2514 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2515:2: 2515 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2516:2: 2516 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2517:2: 2517 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2518:2: 2518 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2519:2: 2519 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2520:2: 2520 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2521:2: 2521 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2522:2: 2522 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2525:2: 2525 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2526:2: 2526 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2527:2: 2527 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2528:2: 2528 | real(8), intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2529:2: 2529 | real(8), intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2530:2: 2530 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2531:2: 2531 | real(8) facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2532:2: 2532 | call cvdataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2533:2: 2533 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2534:2: 2534 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2535:2: 2535 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2536:2: 2536 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2537:2: 2537 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2538:2: 2538 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2539:2: 2539 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2540:2: 2540 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2541:2: 2541 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2542:2: 2542 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2545:2: 2545 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2546:2: 2546 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2547:2: 2547 | real(8), intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2548:2: 2548 | real(8), intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2549:2: 2549 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2550:2: 2550 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2551:2: 2551 | real(8) ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2552:2: 2552 | real(8) ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2553:2: 2553 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2554:2: 2554 | real(8), allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2555:2: 2555 | real(8), allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2556:2: 2556 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2557:2: 2557 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2558:2: 2558 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2559:2: 2559 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2560:2: 2560 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2561:2: 2561 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2562:2: 2562 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2563:2: 2563 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2564:2: 2564 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2565:2: 2565 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2566:2: 2566 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2567:2: 2567 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2568:2: 2568 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2569:2: 2569 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2570:2: 2570 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2571:2: 2571 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2572:2: 2572 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2573:2: 2573 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2574:2: 2574 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2575:2: 2575 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2576:2: 2576 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2577:2: 2577 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2578:2: 2578 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2579:2: 2579 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2580:2: 2580 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2581:2: 2581 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2582:2: 2582 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2583:2: 2583 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2584:2: 2584 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2585:2: 2585 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2586:2: 2586 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2587:2: 2587 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2588:2: 2588 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2589:2: 2589 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2590:2: 2590 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2591:2: 2591 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2592:2: 2592 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2593:2: 2593 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2594:2: 2594 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2595:2: 2595 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2596:2: 2596 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2597:2: 2597 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2598:2: 2598 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2599:2: 2599 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2600:2: 2600 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2601:2: 2601 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2602:2: 2602 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2603:2: 2603 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2604:2: 2604 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2605:2: 2605 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2606:2: 2606 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2607:2: 2607 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2608:2: 2608 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2609:2: 2609 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2610:2: 2610 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2611:2: 2611 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2612:2: 2612 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2613:2: 2613 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2614:2: 2614 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2615:2: 2615 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2616:2: 2616 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2617:2: 2617 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2618:2: 2618 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2619:2: 2619 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2620:2: 2620 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2621:2: 2621 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2624:2: 2624 | subj_map, nsubjects, timecount, max_subj_id, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2625:2: 2625 | si_arr, ygroup, ytime, ysubject, ygrouptime, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2626:2: 2626 | ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2627:2: 2627 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2628:2: 2628 | integer, intent(in) :: msize, nsubjects, timecount, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2629:2: 2629 | real(8), intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2630:2: 2630 | real(8), intent(out) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2631:2: 2631 | integer, intent(out) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2632:2: 2632 | integer, intent(in) :: subj_map(max_subj_id) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2633:2: 2633 | integer, intent(inout) :: si_arr(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2634:2: 2634 | real(8), intent(inout) :: ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2,timecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2635:2: 2635 | real(8), intent(inout) :: ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2,timecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2636:2: 2636 | integer :: i, gi, ti, si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2637:2: 2637 | real(8) :: ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr, ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2638:2: 2638 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2639:2: 2639 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2640:2: 2640 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2641:2: 2641 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2642:2: 2642 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2643:2: 2643 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2644:2: 2644 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2645:2: 2645 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2646:2: 2646 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2647:2: 2647 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2648:2: 2648 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2649:2: 2649 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2650:2: 2650 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2651:2: 2651 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2652:2: 2652 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2653:2: 2653 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2654:2: 2654 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2655:2: 2655 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2656:2: 2656 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2657:2: 2657 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2658:2: 2658 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2659:2: 2659 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2660:2: 2660 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2661:2: 2661 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2662:2: 2662 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2663:2: 2663 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2664:2: 2664 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2665:2: 2665 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2666:2: 2666 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2667:2: 2667 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2668:2: 2668 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2669:2: 2669 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2670:2: 2670 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2671:2: 2671 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2672:2: 2672 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2673:2: 2673 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2674:2: 2674 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2675:2: 2675 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2676:2: 2676 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2677:2: 2677 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2678:2: 2678 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2679:2: 2679 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2680:2: 2680 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2681:2: 2681 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2682:2: 2682 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2683:2: 2683 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2686:2: 2686 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2687:2: 2687 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2688:2: 2688 | real(8), intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2689:2: 2689 | real(8), intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2690:2: 2690 | REAL(8) DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2691:2: 2691 | real(8) xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2692:2: 2692 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2693:2: 2693 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2694:2: 2694 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2695:2: 2695 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2696:2: 2696 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2697:2: 2697 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2698:2: 2698 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2699:2: 2699 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2700:2: 2700 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2701:2: 2701 | call cvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2702:2: 2702 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2703:2: 2703 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2704:2: 2704 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2705:2: 2705 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2706:2: 2706 | call cvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2707:2: 2707 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2708:2: 2708 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2709:2: 2709 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2710:2: 2710 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2711:2: 2711 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2712:2: 2712 | call cvdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2713:2: 2713 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2715:2: 2715 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2718:2: 2718 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2719:2: 2719 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2720:2: 2720 | real(8),parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2721:2: 2721 | real(8),intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2722:2: 2722 | real(8),intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2723:2: 2723 | real(8) res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2724:2: 2724 | real(8) inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2726:2: 2726 | real(8) h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2727:2: 2727 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2728:2: 2728 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2729:2: 2729 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2730:2: 2730 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2731:2: 2731 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2732:2: 2732 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2737:2: 2737 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2738:2: 2738 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2739:2: 2739 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2744:2: 2744 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2745:2: 2745 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2746:2: 2746 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2747:2: 2747 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2748:2: 2748 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2749:2: 2749 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2750:2: 2750 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2751:2: 2751 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2752:2: 2752 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2753:2: 2753 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2754:2: 2754 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2755:2: 2755 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2756:2: 2756 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2757:2: 2757 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2758:2: 2758 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2759:2: 2759 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2760:2: 2760 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2761:2: 2761 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2762:2: 2762 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2765:2: 2765 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2766:2: 2766 | real(8),intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2768:2: 2768 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2769:2: 2769 | real(8),parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2796:2: 2796 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2805:2: 2805 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2806:2: 2806 | real(8),parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2812:2: 2812 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2846:2: 2846 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2857:2: 2857 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2858:2: 2858 | real(8),intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2859:2: 2859 | real(8),intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2860:2: 2860 | real(8) zval,form1,form2,form3,form4,form5,form6,form7,form8,form9 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2861:2: 2861 | real(8) inv_weight, inv_beta1, inv_beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2862:2: 2862 | real(8) df_ratio1, df_ratio2, df11_half, df21_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2863:2: 2863 | real(8) df12_sum_half, df22_sum_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2864:2: 2864 | inv_weight = 1d0 - weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2865:2: 2865 | inv_beta1 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2866:2: 2866 | inv_beta2 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2867:2: 2867 | df_ratio1 = df11/df12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2868:2: 2868 | df_ratio2 = df21/df22 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2869:2: 2869 | df11_half = df11/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2870:2: 2870 | df21_half = df21/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2871:2: 2871 | df12_sum_half = (df11+df12)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2872:2: 2872 | df22_sum_half = (df21+df22)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2873:2: 2873 | zval = (z-(inv_weight*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2874:2: 2874 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2875:2: 2875 | form2 = inv_beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2876:2: 2876 | form3 = df_ratio1**df11_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2877:2: 2877 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2878:2: 2878 | form5 = (1d0+(df_ratio1*zval))**df12_sum_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2879:2: 2879 | form6 = inv_beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2880:2: 2880 | form7 = df_ratio2**df21_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2881:2: 2881 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2882:2: 2882 | form9 = (1d0+(df_ratio2*v))**df22_sum_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2883:2: 2883 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2886:2: 2886 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2887:2: 2887 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2888:2: 2888 | real(8),intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2889:2: 2889 | real(8) datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2890:2: 2890 | real(8), intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2891:2: 2891 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2892:2: 2892 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2893:2: 2893 | call cvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2894:2: 2894 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2895:2: 2895 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2896:2: 2896 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2897:2: 2897 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2898:2: 2898 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2899:2: 2899 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2900:2: 2900 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2901:2: 2901 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2905:2: 2905 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2906:2: 2906 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2907:2: 2907 | real(8), intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2908:2: 2908 | integer, intent(inout) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2909:2: 2909 | integer, intent(out) :: sizel,sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2910:2: 2910 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2911:2: 2911 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2912:2: 2912 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2913:2: 2913 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2914:2: 2914 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2915:2: 2915 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2916:2: 2916 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2917:2: 2917 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2918:2: 2918 | nodenummat(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2919:2: 2919 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2920:2: 2920 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2921:2: 2921 | nodenummat(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2922:2: 2922 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2923:2: 2923 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2924:2: 2924 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2925:2: 2925 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2926:2: 2926 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2927:2: 2927 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2930:2: 2930 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2931:2: 2931 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2932:2: 2932 | real(8), intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2933:2: 2933 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2934:2: 2934 | real(8), intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2935:2: 2935 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2936:2: 2936 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2937:2: 2937 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2938:2: 2938 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2939:2: 2939 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2940:2: 2940 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2941:2: 2941 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2942:2: 2942 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2946:2: 2946 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2947:2: 2947 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2948:2: 2948 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2949:2: 2949 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2950:2: 2950 | real(8), intent(out) :: r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2951:2: 2951 | real(8), allocatable :: timepred(:,:),r2cvnumsub(:,:), timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2952:2: 2952 | real(8) r2cvnum,r2cvden,ymean | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2953:2: 2953 | integer i,j,k,l,maxactive_depth,nidx,tidx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2954:2: 2954 | allocate(timepred(((2**maxdepth)-1),levelcount),r2cvnumsub(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2955:2: 2955 | allocate(timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2956:2: 2956 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2957:2: 2957 | r2cvnumsub(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2958:2: 2958 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2959:2: 2959 | maxactive_depth = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2960:2: 2960 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2961:2: 2961 | if(sum(nodenummat(:,i)) == 0) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2962:2: 2962 | maxactive_depth = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2963:2: 2963 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2964:2: 2964 | do j = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2965:2: 2965 | tidx = int(traindata(j,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2966:2: 2966 | do i = maxactive_depth, 1, -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2967:2: 2967 | nidx = nodenummat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2968:2: 2968 | if(nidx > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2969:2: 2969 | if(i == maxactive_depth .or. nodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2970:2: 2970 | timepred(nidx,tidx) = timepred(nidx,tidx) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2971:2: 2971 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2972:2: 2972 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2973:2: 2973 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2974:2: 2974 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2975:2: 2975 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2976:2: 2976 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2977:2: 2977 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2978:2: 2978 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2979:2: 2979 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2980:2: 2980 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2981:2: 2981 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2982:2: 2982 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2983:2: 2983 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2984:2: 2984 | ymean = sum(testdata(:,1))/dble(testdatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2985:2: 2985 | r2cvnum = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2986:2: 2986 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2987:2: 2987 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2988:2: 2988 | do j=1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2989:2: 2989 | if(2**(j-1) <= i .and. i < 2**j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2990:2: 2990 | k = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2991:2: 2991 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2992:2: 2992 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2993:2: 2993 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2994:2: 2994 | do l = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2995:2: 2995 | if(nodenummattest(l,k) == i) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2996:2: 2996 | r2cvnumsub(i,int(testdata(l,3))) = r2cvnumsub(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2997:2: 2997 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2998:2: 2998 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2999:2: 2999 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3000:2: 3000 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3001:2: 3001 | r2cvnum = sum(r2cvnumsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3002:2: 3002 | r2cvden = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3003:2: 3003 | do i = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3004:2: 3004 | r2cvden = r2cvden + ((testdata(i,1) - ymean) * (testdata(i,1) - ymean)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3005:2: 3005 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3006:2: 3006 | r2cvval = 1d0-(r2cvnum/r2cvden) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3007:2: 3007 | deallocate(timepred,r2cvnumsub,timepredcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3011:2: 3011 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3012:2: 3012 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3013:2: 3013 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3014:2: 3014 | real(8),intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3015:2: 3015 | real(8),intent(in) :: gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3016:2: 3016 | integer,intent(out) :: prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3017:2: 3017 | real(8) gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3018:2: 3018 | real(8) minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3019:2: 3019 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3020:2: 3020 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3021:2: 3021 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3022:2: 3022 | if(prunind==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3023:2: 3023 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3024:2: 3024 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3025:2: 3025 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3026:2: 3026 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3027:2: 3027 | gammavec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3028:2: 3028 | call cvgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3029:2: 3029 | call cvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3030:2: 3030 | gammavec(1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3031:2: 3031 | if(gammavec(1) > gamma) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3032:2: 3032 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3033:2: 3033 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3034:2: 3034 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3035:2: 3035 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3036:2: 3036 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3037:2: 3037 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3038:2: 3038 | call cvgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3039:2: 3039 | call cvgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3040:2: 3040 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3041:2: 3041 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3042:2: 3042 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3043:2: 3043 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3044:2: 3044 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3045:2: 3045 | call cvgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3046:2: 3046 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3047:2: 3047 | prunenodenummattest(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3048:2: 3048 | prunenodenummattest(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3049:2: 3049 | prunenodenummat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3050:2: 3050 | prunenodenummat(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3051:2: 3051 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3052:2: 3052 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3053:2: 3053 | call cvgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3054:2: 3054 | gammavec(prunloop) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3055:2: 3055 | if(gammavec(prunloop-1) < gamma .and. gammavec(prunloop) > gamma) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3056:2: 3056 | prunenodenummattest(:,:) = nodenummatnewtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3057:2: 3057 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3058:2: 3058 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3059:2: 3059 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3060:2: 3060 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3061:2: 3061 | call cvgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3062:2: 3062 | call cvgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3063:2: 3063 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3064:2: 3064 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3065:2: 3065 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3066:2: 3066 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3067:2: 3067 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3071:2: 3071 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3072:2: 3072 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3073:2: 3073 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3074:2: 3074 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3075:2: 3075 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3076:2: 3076 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3077:2: 3077 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3078:2: 3078 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3079:2: 3079 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3080:2: 3080 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3081:2: 3081 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3082:2: 3082 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3083:2: 3083 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3084:2: 3084 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3085:2: 3085 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3086:2: 3086 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3087:2: 3087 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3088:2: 3088 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3089:2: 3089 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3090:2: 3090 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3091:2: 3091 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3092:2: 3092 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3093:2: 3093 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3094:2: 3094 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3095:2: 3095 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3096:2: 3096 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3097:2: 3097 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3098:2: 3098 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3099:2: 3099 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3102:2: 3102 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3103:2: 3103 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3104:2: 3104 | real(8) allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3105:2: 3105 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3106:2: 3106 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3107:2: 3107 | real(8), intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3108:2: 3108 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3109:2: 3109 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3110:2: 3110 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3111:2: 3111 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3112:2: 3112 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3113:2: 3113 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3114:2: 3114 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3115:2: 3115 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3116:2: 3116 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3117:2: 3117 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3118:2: 3118 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3119:2: 3119 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3120:2: 3120 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3121:2: 3121 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3122:2: 3122 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3123:2: 3123 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3124:2: 3124 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3125:2: 3125 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3126:2: 3126 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3127:2: 3127 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3128:2: 3128 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3129:2: 3129 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3130:2: 3130 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3131:2: 3131 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3132:2: 3132 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3133:2: 3133 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3134:2: 3134 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3135:2: 3135 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3136:2: 3136 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3137:2: 3137 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3138:2: 3138 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3139:2: 3139 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3140:2: 3140 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3141:2: 3141 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3142:2: 3142 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3143:2: 3143 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3144:2: 3144 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3147:2: 3147 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3148:2: 3148 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3149:2: 3149 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3150:2: 3150 | real(8), intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3151:2: 3151 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3152:2: 3152 | real(8), intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3153:2: 3153 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3154:2: 3154 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3155:2: 3155 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3156:2: 3156 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3157:2: 3157 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3158:2: 3158 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3159:2: 3159 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3160:2: 3160 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3161:2: 3161 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3162:2: 3162 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3163:2: 3163 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3164:2: 3164 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3165:2: 3165 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3166:2: 3166 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3167:2: 3167 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3168:2: 3168 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3169:2: 3169 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3170:2: 3170 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3171:2: 3171 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3172:2: 3172 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3173:2: 3173 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3174:2: 3174 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3177:2: 3177 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3178:2: 3178 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3179:2: 3179 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3180:2: 3180 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3181:2: 3181 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3182:2: 3182 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3183:2: 3183 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3184:2: 3184 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3185:2: 3185 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3186:2: 3186 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3187:2: 3187 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3188:2: 3188 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3189:2: 3189 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3190:2: 3190 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3191:2: 3191 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3192:2: 3192 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3193:2: 3193 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3194:2: 3194 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3195:2: 3195 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3199:2: 3199 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3200:2: 3200 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3201:2: 3201 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3202:2: 3202 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3203:2: 3203 | real(8), intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3204:2: 3204 | real(8), intent(out) :: gammacv((2**(maxdepth-1))-1),gammar2cv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3205:2: 3205 | real(8) allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3206:2: 3206 | real(8) allfvalnew((2**maxdepth)-1),r2cvvec((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3207:2: 3207 | real(8) losspredsum,minghval,r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3208:2: 3208 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3209:2: 3209 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3210:2: 3210 | integer :: nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3211:2: 3211 | integer :: indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3212:2: 3212 | allgammavaltrain(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3213:2: 3213 | gammacv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3214:2: 3214 | losspredsumvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3215:2: 3215 | gammar2cv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3216:2: 3216 | r2cvvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3217:2: 3217 | call cvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3218:2: 3218 | nodenummattest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3219:2: 3219 | losspredsumvec(1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3220:2: 3220 | call R2CV(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3221:2: 3221 | nodenummattest,testdatasize,maxdepth,r2cvval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3222:2: 3222 | r2cvvec(1) = r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3223:2: 3223 | allfvalnew(:) = allfval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3224:2: 3224 | nodenummatnew(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3225:2: 3225 | nodenummatnewtest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3226:2: 3226 | do cvprunloop = 1,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3227:2: 3227 | call cvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3228:2: 3228 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3229:2: 3229 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3230:2: 3230 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3231:2: 3231 | call cvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3232:2: 3232 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3233:2: 3233 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3234:2: 3234 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3235:2: 3235 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3236:2: 3236 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3237:2: 3237 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3238:2: 3238 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3239:2: 3239 | do i = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3240:2: 3240 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3241:2: 3241 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3242:2: 3242 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3243:2: 3243 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3244:2: 3244 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3245:2: 3245 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3246:2: 3246 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3247:2: 3247 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3248:2: 3248 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3249:2: 3249 | do i = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3250:2: 3250 | if(nodenummatnewtest(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3251:2: 3251 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3252:2: 3252 | nodenummatnewtest(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3253:2: 3253 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3254:2: 3254 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3255:2: 3255 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3256:2: 3256 | allgammavaltrain(cvprunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3257:2: 3257 | call cvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3258:2: 3258 | nodenummatnewtest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3259:2: 3259 | losspredsumvec(cvprunloop+1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3260:2: 3260 | call R2CV(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3261:2: 3261 | nodenummatnewtest,testdatasize,maxdepth,r2cvval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3262:2: 3262 | r2cvvec(cvprunloop+1) = r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3263:2: 3263 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3264:2: 3264 | gammacv(1) = losspredsumvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3265:2: 3265 | gammar2cv(1) = r2cvvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3266:2: 3266 | j = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3267:2: 3267 | do i = 2,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3268:2: 3268 | if(allgammaval(i) == 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3269:2: 3269 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3270:2: 3270 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3271:2: 3271 | if(allgammaval(i) <= allgammavaltrain(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3272:2: 3272 | gammacv(i) = losspredsumvec(j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3273:2: 3273 | gammar2cv(i) = r2cvvec(j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3274:2: 3274 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3275:2: 3275 | do k = 1,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3276:2: 3276 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3277:2: 3277 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3278:2: 3278 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3279:2: 3279 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3280:2: 3280 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3281:2: 3281 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3282:2: 3282 | gammacv(i) = losspredsumvec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3283:2: 3283 | gammar2cv(i) = r2cvvec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3284:2: 3284 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3285:2: 3285 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3286:2: 3286 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3290:2: 3290 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3291:2: 3291 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3292:2: 3292 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3293:2: 3293 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3294:2: 3294 | real(8), intent(out) :: losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3295:2: 3295 | real(8), allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3296:2: 3296 | integer i,j,k,l,maxactive_depth,nidx,tidx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3297:2: 3297 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3298:2: 3298 | allocate(timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3299:2: 3299 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3300:2: 3300 | losspred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3301:2: 3301 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3302:2: 3302 | maxactive_depth = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3303:2: 3303 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3304:2: 3304 | if(sum(nodenummat(:,i)) == 0) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3305:2: 3305 | maxactive_depth = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3306:2: 3306 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3307:2: 3307 | do j = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3308:2: 3308 | tidx = int(traindata(j,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3309:2: 3309 | do i = maxactive_depth, 1, -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3310:2: 3310 | nidx = nodenummat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3311:2: 3311 | if(nidx > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3312:2: 3312 | if(i == maxactive_depth .or. nodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3313:2: 3313 | timepred(nidx,tidx) = timepred(nidx,tidx) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3314:2: 3314 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3315:2: 3315 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3316:2: 3316 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3317:2: 3317 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3318:2: 3318 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3319:2: 3319 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3320:2: 3320 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3321:2: 3321 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3322:2: 3322 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3323:2: 3323 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3324:2: 3324 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3325:2: 3325 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3326:2: 3326 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3327:2: 3327 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3328:2: 3328 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3329:2: 3329 | do j=1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3330:2: 3330 | if(2**(j-1) <= i .and. i < 2**j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3331:2: 3331 | k = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3332:2: 3332 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3333:2: 3333 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3334:2: 3334 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3335:2: 3335 | do l = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3336:2: 3336 | if(nodenummattest(l,k) == i) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3337:2: 3337 | losspred(i,int(testdata(l,3))) = losspred(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3338:2: 3338 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3339:2: 3339 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3340:2: 3340 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3341:2: 3341 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3342:2: 3342 | losspredsum = sum(losspred) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3343:2: 3343 | deallocate(timepred,losspred,timepredcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3346:2: 3346 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3347:2: 3347 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3348:2: 3348 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3349:2: 3349 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3350:2: 3350 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3351:2: 3351 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3352:2: 3352 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3353:2: 3353 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3354:2: 3354 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3355:2: 3355 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3356:2: 3356 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3357:2: 3357 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3358:2: 3358 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3359:2: 3359 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3360:2: 3360 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3361:2: 3361 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3362:2: 3362 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3363:2: 3363 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3364:2: 3364 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3365:2: 3365 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3366:2: 3366 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3367:2: 3367 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3368:2: 3368 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3369:2: 3369 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3370:2: 3370 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3371:2: 3371 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3372:2: 3372 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3373:2: 3373 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3374:2: 3374 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3377:2: 3377 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3378:2: 3378 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3379:2: 3379 | real(8) allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3380:2: 3380 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3381:2: 3381 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3382:2: 3382 | real(8), intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3383:2: 3383 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3384:2: 3384 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3385:2: 3385 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3386:2: 3386 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3387:2: 3387 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3388:2: 3388 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3389:2: 3389 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3390:2: 3390 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3391:2: 3391 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3392:2: 3392 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3393:2: 3393 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3394:2: 3394 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3395:2: 3395 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3396:2: 3396 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3397:2: 3397 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3398:2: 3398 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3399:2: 3399 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3400:2: 3400 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3401:2: 3401 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3402:2: 3402 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3403:2: 3403 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3404:2: 3404 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3405:2: 3405 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3406:2: 3406 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3407:2: 3407 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3408:2: 3408 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3409:2: 3409 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3410:2: 3410 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3411:2: 3411 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3412:2: 3412 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3413:2: 3413 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3414:2: 3414 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3415:2: 3415 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3416:2: 3416 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3417:2: 3417 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3418:2: 3418 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3419:2: 3419 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3422:2: 3422 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3423:2: 3423 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3424:2: 3424 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3425:2: 3425 | real(8), intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3426:2: 3426 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3427:2: 3427 | real(8), intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3428:2: 3428 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3429:2: 3429 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3430:2: 3430 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3431:2: 3431 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3432:2: 3432 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3433:2: 3433 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3434:2: 3434 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3435:2: 3435 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3436:2: 3436 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3437:2: 3437 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3438:2: 3438 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3439:2: 3439 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3440:2: 3440 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3441:2: 3441 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3442:2: 3442 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3443:2: 3443 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3444:2: 3444 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3445:2: 3445 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3446:2: 3446 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3447:2: 3447 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3448:2: 3448 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3449:2: 3449 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3452:2: 3452 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3453:2: 3453 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3454:2: 3454 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3455:2: 3455 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3456:2: 3456 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3457:2: 3457 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3458:2: 3458 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3459:2: 3459 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3460:2: 3460 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3461:2: 3461 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3462:2: 3462 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3463:2: 3463 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3464:2: 3464 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3465:2: 3465 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3466:2: 3466 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3467:2: 3467 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3468:2: 3468 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3469:2: 3469 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3470:2: 3470 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3473:2: 3473 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3474:2: 3474 | integer,intent(in) :: msize,maxdepth,prunind,cv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3475:2: 3475 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3476:2: 3476 | double precision,intent(in) :: bestgammaval,allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3477:2: 3477 | integer,intent(out) :: prunenodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3478:2: 3478 | double precision minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3479:2: 3479 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3480:2: 3480 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3481:2: 3481 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3482:2: 3482 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3483:2: 3483 | if(bestgammaval <= 0d0 .or. prunind==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3484:2: 3484 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3485:2: 3485 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3486:2: 3486 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3487:2: 3487 | gammavec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3488:2: 3488 | call gterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3489:2: 3489 | call gweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3490:2: 3490 | gammavec(1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3491:2: 3491 | if(gammavec(1) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3492:2: 3492 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3493:2: 3493 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3494:2: 3494 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3495:2: 3495 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3496:2: 3496 | call gpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3497:2: 3497 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3498:2: 3498 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3499:2: 3499 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3500:2: 3500 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3501:2: 3501 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3502:2: 3502 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3503:2: 3503 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3504:2: 3504 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3505:2: 3505 | call gterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3506:2: 3506 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3507:2: 3507 | prunenodenummat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3508:2: 3508 | prunenodenummat(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3509:2: 3509 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3510:2: 3510 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3511:2: 3511 | call gweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3512:2: 3512 | gammavec(prunloop) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3513:2: 3513 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3514:2: 3514 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3515:2: 3515 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3516:2: 3516 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3517:2: 3517 | allocate(nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3518:2: 3518 | call gpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3519:2: 3519 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3520:2: 3520 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3521:2: 3521 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3522:2: 3522 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3523:2: 3523 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3524:2: 3524 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3525:2: 3525 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3526:2: 3526 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3530:2: 3530 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3531:2: 3531 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3532:2: 3532 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3533:2: 3533 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3534:2: 3534 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3535:2: 3535 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3536:2: 3536 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3537:2: 3537 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3538:2: 3538 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3539:2: 3539 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3540:2: 3540 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3541:2: 3541 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3542:2: 3542 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3543:2: 3543 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3544:2: 3544 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3545:2: 3545 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3546:2: 3546 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3547:2: 3547 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3548:2: 3548 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3549:2: 3549 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3550:2: 3550 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3551:2: 3551 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3552:2: 3552 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3553:2: 3553 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3554:2: 3554 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3555:2: 3555 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3556:2: 3556 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3557:2: 3557 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3558:2: 3558 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3561:2: 3561 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3562:2: 3562 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3563:2: 3563 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3564:2: 3564 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3565:2: 3565 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3566:2: 3566 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3567:2: 3567 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3568:2: 3568 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3569:2: 3569 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3570:2: 3570 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3571:2: 3571 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3572:2: 3572 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3573:2: 3573 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3574:2: 3574 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3575:2: 3575 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3576:2: 3576 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3577:2: 3577 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3578:2: 3578 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3579:2: 3579 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3580:2: 3580 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3581:2: 3581 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3582:2: 3582 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3583:2: 3583 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3584:2: 3584 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3585:2: 3585 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3586:2: 3586 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3587:2: 3587 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3588:2: 3588 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3589:2: 3589 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3590:2: 3590 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3591:2: 3591 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3592:2: 3592 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3593:2: 3593 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3594:2: 3594 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3595:2: 3595 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3596:2: 3596 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3597:2: 3597 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3598:2: 3598 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3599:2: 3599 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3600:2: 3600 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3601:2: 3601 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3602:2: 3602 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3603:2: 3603 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3606:2: 3606 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3607:2: 3607 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3608:2: 3608 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3609:2: 3609 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3610:2: 3610 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3611:2: 3611 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3612:2: 3612 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3613:2: 3613 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3614:2: 3614 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3615:2: 3615 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3616:2: 3616 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3617:2: 3617 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3618:2: 3618 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3619:2: 3619 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3620:2: 3620 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3621:2: 3621 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3622:2: 3622 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3623:2: 3623 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3624:2: 3624 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3625:2: 3625 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3626:2: 3626 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3627:2: 3627 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3628:2: 3628 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3629:2: 3629 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3630:2: 3630 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3631:2: 3631 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3632:2: 3632 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3633:2: 3633 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3636:2: 3636 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3637:2: 3637 | integer, intent(in) :: msize,levelcount,maxdepth,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3638:2: 3638 | integer, intent(in) :: prunenodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3639:2: 3639 | double precision, intent(in) :: XYDATA(Msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3640:2: 3640 | integer, intent(out) :: datatnnodenum(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3641:2: 3641 | double precision, intent(out) :: predvec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3642:2: 3642 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3643:2: 3643 | double precision tnodepredmat((2**maxdepth)-1,levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3644:2: 3644 | integer i,j,maxactive_depth,nidx,tidx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3645:2: 3645 | allocate(timepredsum(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3646:2: 3646 | timepredsum(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3647:2: 3647 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3648:2: 3648 | datatnnodenum(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3649:2: 3649 | maxactive_depth = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3650:2: 3650 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3651:2: 3651 | if(sum(prunenodenummat(:,i)) == 0) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3652:2: 3652 | maxactive_depth = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3653:2: 3653 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3654:2: 3654 | do j = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3655:2: 3655 | tidx = int(XYDATA(j,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3656:2: 3656 | do i = maxactive_depth, 1, -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3657:2: 3657 | nidx = prunenodenummat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3658:2: 3658 | if(nidx > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3659:2: 3659 | if(i == maxactive_depth .or. prunenodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3660:2: 3660 | timepredsum(nidx,tidx) = timepredsum(nidx,tidx) + XYDATA(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3661:2: 3661 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3662:2: 3662 | datatnnodenum(j) = nidx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3663:2: 3663 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3664:2: 3664 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3665:2: 3665 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3666:2: 3666 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3667:2: 3667 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3668:2: 3668 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3669:2: 3669 | if(abs(sum(timepredsum(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3670:2: 3670 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3671:2: 3671 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3672:2: 3672 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3673:2: 3673 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3674:2: 3674 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3675:2: 3675 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3676:2: 3676 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3677:2: 3677 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3680:2: 3680 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3681:2: 3681 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3682:2: 3682 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3683:2: 3683 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3684:2: 3684 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3685:2: 3685 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3686:2: 3686 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3687:2: 3687 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3688:2: 3688 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3689:2: 3689 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3690:2: 3690 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3691:2: 3691 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3692:2: 3692 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3696:2: 3696 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3697:2: 3697 | integer, intent(in) :: nodedatasize,colnum,maxdepth,ind1,ind2,splitvecsize,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3698:2: 3698 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3699:2: 3699 | double precision, intent(in) :: nodedata(nodedatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3700:2: 3700 | integer, intent(in) :: prunnodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3701:2: 3701 | integer, intent(out) :: splitvector(splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3702:2: 3702 | double precision, intent(out) :: splitnumber(splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3703:2: 3703 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3704:2: 3704 | double precision datasample(nodedatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3705:2: 3705 | integer, allocatable :: splitindmat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3706:2: 3706 | datasample = nodedata(:,ind1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3707:2: 3707 | if(datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3708:2: 3708 | splitnum = splitvecsize - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3709:2: 3709 | elseif(datatype(ind1-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3710:2: 3710 | splitnum = (2 ** (splitvecsize-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3711:2: 3711 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3712:2: 3712 | call spdataval(nodedata(:,ind1),nodedatasize,splitnumber,splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3713:2: 3713 | allocate(splitindmat(splitnum,splitvecsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3714:2: 3714 | if(datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3715:2: 3715 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3716:2: 3716 | do j = 1,splitvecsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3717:2: 3717 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3718:2: 3718 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3719:2: 3719 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3720:2: 3720 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3721:2: 3721 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3722:2: 3722 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3723:2: 3723 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3724:2: 3724 | elseif(datatype(ind1-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3725:2: 3725 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3726:2: 3726 | do i = 0, 2**(splitvecsize-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3727:2: 3727 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3728:2: 3728 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3729:2: 3729 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3730:2: 3730 | do j = 0, splitvecsize - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3731:2: 3731 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3732:2: 3732 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3733:2: 3733 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3734:2: 3734 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3735:2: 3735 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3736:2: 3736 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3737:2: 3737 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3738:2: 3738 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3739:2: 3739 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3740:2: 3740 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3741:2: 3741 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3742:2: 3742 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3743:2: 3743 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3744:2: 3744 | splitvector = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3747:2: 3747 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3748:2: 3748 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3749:2: 3749 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3750:2: 3750 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3751:2: 3751 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3752:2: 3752 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3753:2: 3753 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3754:2: 3754 | call spdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3755:2: 3755 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3756:2: 3756 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3757:2: 3757 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3758:2: 3758 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3759:2: 3759 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3760:2: 3760 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3761:2: 3761 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3762:2: 3762 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3765:2: 3765 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3766:2: 3766 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3767:2: 3767 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3768:2: 3768 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3769:2: 3769 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3770:2: 3770 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3771:2: 3771 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3772:2: 3772 | call spdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3773:2: 3773 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3774:2: 3774 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3775:2: 3775 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3776:2: 3776 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3777:2: 3777 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3778:2: 3778 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3779:2: 3779 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3782:2: 3782 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3783:2: 3783 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3784:2: 3784 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3785:2: 3785 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3786:2: 3786 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3787:2: 3787 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3788:2: 3788 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3789:2: 3789 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3790:2: 3790 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3791:2: 3791 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3792:2: 3792 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3793:2: 3793 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3794:2: 3794 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3795:2: 3795 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3796:2: 3796 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3797:2: 3797 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3798:2: 3798 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3799:2: 3799 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3800:2: 3800 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3801:2: 3801 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3802:2: 3802 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3803:2: 3803 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3804:2: 3804 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3805:2: 3805 | call spdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3806:2: 3806 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3807:2: 3807 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3808:2: 3808 | call spdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3809:2: 3809 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3810:2: 3810 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3813:2: 3813 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3814:2: 3814 | integer, intent(in) :: msize,bootsize,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3815:2: 3815 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3816:2: 3816 | integer, intent(out) :: oridata(bootsize*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3817:2: 3817 | double precision, intent(out) :: bootdata(bootsize*levelcount,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3818:2: 3818 | integer idsum,randval,i,j,k,l,m | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3819:2: 3819 | integer oriind(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3820:2: 3820 | double precision randvalsub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3821:2: 3821 | double precision idnum(levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3822:2: 3822 | call random_seed() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3823:2: 3823 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3824:2: 3824 | oriind(i) = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3825:2: 3825 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3826:2: 3826 | call threetreesbsdatasum(xydata(:,2),msize,idsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3827:2: 3827 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3828:2: 3828 | k = levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3829:2: 3829 | do i=1,bootsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3830:2: 3830 | call random_number(randvalsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3831:2: 3831 | randval = int(randvalsub * dble(idsum)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3832:2: 3832 | l = (randval-1)*levelcount+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3833:2: 3833 | m = randval*levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3834:2: 3834 | idnum(:) = dble(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3835:2: 3835 | oridata(j:k)=oriind(l:m) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3836:2: 3836 | bootdata(j:k,1) = xydata(l:m,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3837:2: 3837 | bootdata(j:k,2) = idnum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3838:2: 3838 | bootdata(j:k,3:colnum) = xydata(l:m,3:colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3839:2: 3839 | j = j + levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3840:2: 3840 | k = k + levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3841:2: 3841 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3844:2: 3844 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3845:2: 3845 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3846:2: 3846 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3847:2: 3847 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3848:2: 3848 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3849:2: 3849 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3850:2: 3850 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3851:2: 3851 | call threetreesbsdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3852:2: 3852 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3853:2: 3853 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3854:2: 3854 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3855:2: 3855 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3856:2: 3856 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3857:2: 3857 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3858:2: 3858 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3861:2: 3861 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3862:2: 3862 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3863:2: 3863 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3864:2: 3864 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3865:2: 3865 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3866:2: 3866 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3867:2: 3867 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3868:2: 3868 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3869:2: 3869 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3870:2: 3870 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3871:2: 3871 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3872:2: 3872 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3873:2: 3873 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3874:2: 3874 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3875:2: 3875 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3876:2: 3876 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3877:2: 3877 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3878:2: 3878 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3879:2: 3879 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3880:2: 3880 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3881:2: 3881 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3882:2: 3882 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3883:2: 3883 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3884:2: 3884 | call threetreesbsdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3885:2: 3885 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3886:2: 3886 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3887:2: 3887 | call threetreesbsdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3888:2: 3888 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3889:2: 3889 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3893:2: 3893 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3894:2: 3894 | integer, intent(in) :: bootdatasize,oridatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3895:2: 3895 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3896:2: 3896 | double precision, intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3897:2: 3897 | double precision, intent(in) :: bootdata(bootdatasize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3898:2: 3898 | double precision, intent(in) :: oridata(oridatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3899:2: 3899 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3900:2: 3900 | integer, intent(out) :: nodenummatboot(bootdatasize,maxdepth),nodenummatori(oridatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3901:2: 3901 | double precision,intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3902:2: 3902 | integer nodenummatsub(bootdatasize,maxdepth),nodenummatsubori(oridatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3903:2: 3903 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3904:2: 3904 | integer sizel,sizer,sizelori,sizerori,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3905:2: 3905 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3906:2: 3906 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3907:2: 3907 | double precision fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3908:2: 3908 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizeori(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3909:2: 3909 | integer,allocatable :: nodesizesub(:),nodesizesubori(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3910:2: 3910 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3911:2: 3911 | double precision, allocatable :: xynodedata(:,:),xynodedataori(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3912:2: 3912 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3913:2: 3913 | integer, allocatable :: flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3914:2: 3914 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3915:2: 3915 | double precision :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3916:2: 3916 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3917:2: 3917 | nodenummatboot(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3918:2: 3918 | nodenummatboot(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3919:2: 3919 | nodenummatori(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3920:2: 3920 | nodenummatori(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3921:2: 3921 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3922:2: 3922 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3923:2: 3923 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3924:2: 3924 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3925:2: 3925 | allocate(nodesize(2),nodesizeori(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3926:2: 3926 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3927:2: 3927 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3928:2: 3928 | call threetreesbootsplitcount(bootdatasize, colnum-3, bootdata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3929:2: 3929 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3930:2: 3930 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3931:2: 3931 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3932:2: 3932 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3933:2: 3933 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3934:2: 3934 | allocate(anovadata(bootdatasize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3935:2: 3935 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3936:2: 3936 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3937:2: 3937 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3938:2: 3938 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3939:2: 3939 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3940:2: 3940 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3941:2: 3941 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3942:2: 3942 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3943:2: 3943 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3944:2: 3944 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3945:2: 3945 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),bootdata,bootdatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3946:2: 3946 | call threetreesbootrepANOVA(bootdatasize,colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3947:2: 3947 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3948:2: 3948 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3949:2: 3949 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3950:2: 3950 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3951:2: 3951 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3952:2: 3952 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3953:2: 3953 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3954:2: 3954 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3955:2: 3955 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3956:2: 3956 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3957:2: 3957 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3958:2: 3958 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3959:2: 3959 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3960:2: 3960 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3961:2: 3961 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3962:2: 3962 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3963:2: 3963 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3964:2: 3964 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3965:2: 3965 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3966:2: 3966 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3967:2: 3967 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3968:2: 3968 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3969:2: 3969 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3970:2: 3970 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3971:2: 3971 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3972:2: 3972 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3973:2: 3973 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3974:2: 3974 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3975:2: 3975 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3976:2: 3976 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3977:2: 3977 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3978:2: 3978 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3979:2: 3979 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3980:2: 3980 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3981:2: 3981 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3982:2: 3982 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3983:2: 3983 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3984:2: 3984 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3985:2: 3985 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3986:2: 3986 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3987:2: 3987 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3988:2: 3988 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3989:2: 3989 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3990:2: 3990 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3991:2: 3991 | (dble(bootdatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3992:2: 3992 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3993:2: 3993 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3994:2: 3994 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3995:2: 3995 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3996:2: 3996 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3997:2: 3997 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3998:2: 3998 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3999:2: 3999 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4000:2: 4000 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4001:2: 4001 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4002:2: 4002 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4003:2: 4003 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4004:2: 4004 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4005:2: 4005 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4006:2: 4006 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4007:2: 4007 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4008:2: 4008 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4009:2: 4009 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4010:2: 4010 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4011:2: 4011 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4012:2: 4012 | bootdata,bootdatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4013:2: 4013 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4014:2: 4014 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4015:2: 4015 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4016:2: 4016 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4017:2: 4017 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4018:2: 4018 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4019:2: 4019 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4020:2: 4020 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4021:2: 4021 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4022:2: 4022 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4023:2: 4023 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4024:2: 4024 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4025:2: 4025 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4026:2: 4026 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4027:2: 4027 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4028:2: 4028 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4029:2: 4029 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4030:2: 4030 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4031:2: 4031 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4032:2: 4032 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4033:2: 4033 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4034:2: 4034 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4035:2: 4035 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4036:2: 4036 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4037:2: 4037 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4038:2: 4038 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4039:2: 4039 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4040:2: 4040 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4041:2: 4041 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4042:2: 4042 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4043:2: 4043 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4044:2: 4044 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4045:2: 4045 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4046:2: 4046 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4047:2: 4047 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4048:2: 4048 | (dble(bootdatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4049:2: 4049 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4050:2: 4050 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4051:2: 4051 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4052:2: 4052 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4053:2: 4053 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4054:2: 4054 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4055:2: 4055 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4056:2: 4056 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4057:2: 4057 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4058:2: 4058 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4059:2: 4059 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4060:2: 4060 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4061:2: 4061 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4062:2: 4062 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4063:2: 4063 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4064:2: 4064 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4065:2: 4065 | bootdata,bootdatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4066:2: 4066 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4067:2: 4067 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4068:2: 4068 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4069:2: 4069 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4070:2: 4070 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4071:2: 4071 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4072:2: 4072 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4073:2: 4073 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4074:2: 4074 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4075:2: 4075 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4076:2: 4076 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4077:2: 4077 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4078:2: 4078 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4079:2: 4079 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4080:2: 4080 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4081:2: 4081 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4082:2: 4082 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4083:2: 4083 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4084:2: 4084 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4085:2: 4085 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4086:2: 4086 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4087:2: 4087 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4088:2: 4088 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4089:2: 4089 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4090:2: 4090 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4091:2: 4091 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4092:2: 4092 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4093:2: 4093 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4094:2: 4094 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4095:2: 4095 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4096:2: 4096 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4097:2: 4097 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4098:2: 4098 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4099:2: 4099 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4100:2: 4100 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4101:2: 4101 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4102:2: 4102 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4103:2: 4103 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4104:2: 4104 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4105:2: 4105 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4106:2: 4106 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4107:2: 4107 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4108:2: 4108 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4109:2: 4109 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4110:2: 4110 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4111:2: 4111 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4112:2: 4112 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4113:2: 4113 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4114:2: 4114 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4115:2: 4115 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4116:2: 4116 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4117:2: 4117 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4118:2: 4118 | (dble(bootdatasize) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4119:2: 4119 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4120:2: 4120 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4121:2: 4121 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4122:2: 4122 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4123:2: 4123 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4124:2: 4124 | call threetreesbootnodenumber(bootdata,maxdepth,bootdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4125:2: 4125 | hierarchy+1,nodenummatboot,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4126:2: 4126 | call threetreesbootnodenumber(oridata,maxdepth,oridatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4127:2: 4127 | hierarchy+1,nodenummatori,nodenummatsubori,sizelori,sizerori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4128:2: 4128 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4129:2: 4129 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4130:2: 4130 | nodesizeori(1) = sizelori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4131:2: 4131 | nodesizeori(2) = sizerori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4132:2: 4132 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4133:2: 4133 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4134:2: 4134 | nodenummatboot(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4135:2: 4135 | nodenummatori(:,:) = nodenummatsubori(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4136:2: 4136 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4137:2: 4137 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4138:2: 4138 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4139:2: 4139 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4140:2: 4140 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4141:2: 4141 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4142:2: 4142 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4143:2: 4143 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4144:2: 4144 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4145:2: 4145 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedataori(nodesizeori(nodeloop),colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4146:2: 4146 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4147:2: 4147 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4148:2: 4148 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4149:2: 4149 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4150:2: 4150 | call threetreesbootnodedata(bootdata,bootdatasize,colnum,nodenum,hierarchy,nodenummatboot,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4151:2: 4151 | call threetreesbootnodedata(oridata,oridatasize,colnum,nodenum,hierarchy,nodenummatori,nodesizeori(nodeloop),xynodedataori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4152:2: 4152 | call threetreesbootsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4153:2: 4153 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4154:2: 4154 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4155:2: 4155 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4156:2: 4156 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4157:2: 4157 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4158:2: 4158 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4159:2: 4159 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4160:2: 4160 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4161:2: 4161 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4162:2: 4162 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4163:2: 4163 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4164:2: 4164 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4165:2: 4165 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4166:2: 4166 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4167:2: 4167 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4168:2: 4168 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4169:2: 4169 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4170:2: 4170 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4171:2: 4171 | if(allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4172:2: 4172 | deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4173:2: 4173 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4174:2: 4174 | if(.not. allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4175:2: 4175 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4176:2: 4176 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4177:2: 4177 | if(allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4178:2: 4178 | deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4179:2: 4179 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4180:2: 4180 | if(.not. allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4181:2: 4181 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4182:2: 4182 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4183:2: 4183 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4184:2: 4184 | countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4185:2: 4185 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4186:2: 4186 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4187:2: 4187 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4188:2: 4188 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4189:2: 4189 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4190:2: 4190 | colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4191:2: 4191 | call threetreesbootrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4192:2: 4192 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4193:2: 4193 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4194:2: 4194 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4195:2: 4195 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4196:2: 4196 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4197:2: 4197 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4198:2: 4198 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4199:2: 4199 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4200:2: 4200 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4201:2: 4201 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4202:2: 4202 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4203:2: 4203 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4204:2: 4204 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4205:2: 4205 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4206:2: 4206 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4207:2: 4207 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4208:2: 4208 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4209:2: 4209 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4210:6: 4210 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4211:2: 4211 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4212:2: 4212 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4213:2: 4213 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4214:2: 4214 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4215:2: 4215 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4216:2: 4216 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4217:2: 4217 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4218:2: 4218 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4219:2: 4219 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4220:2: 4220 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4221:2: 4221 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4222:2: 4222 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4223:2: 4223 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4224:2: 4224 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4225:2: 4225 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4226:2: 4226 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4227:2: 4227 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4228:2: 4228 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4229:2: 4229 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4230:2: 4230 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4231:2: 4231 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4232:2: 4232 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4233:2: 4233 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4234:2: 4234 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4235:2: 4235 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4236:2: 4236 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4237:2: 4237 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4238:2: 4238 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4239:2: 4239 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4240:2: 4240 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4241:2: 4241 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4242:2: 4242 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4243:2: 4243 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4244:2: 4244 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4245:2: 4245 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4246:2: 4246 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4247:2: 4247 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4248:2: 4248 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4249:2: 4249 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4250:2: 4250 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4251:2: 4251 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4252:2: 4252 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4253:2: 4253 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4254:2: 4254 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4255:2: 4255 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4256:2: 4256 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4257:2: 4257 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4258:2: 4258 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4259:2: 4259 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4260:2: 4260 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4261:2: 4261 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4262:2: 4262 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4263:2: 4263 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4264:2: 4264 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4265:2: 4265 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4266:2: 4266 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4267:2: 4267 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4268:2: 4268 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4269:2: 4269 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4270:2: 4270 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4271:2: 4271 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4272:2: 4272 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4273:2: 4273 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4274:2: 4274 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4275:2: 4275 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4276:2: 4276 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4277:2: 4277 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4278:2: 4278 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4279:2: 4279 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4280:2: 4280 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4281:2: 4281 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4282:2: 4282 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4283:2: 4283 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4284:2: 4284 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4285:2: 4285 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4286:2: 4286 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4287:2: 4287 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4288:2: 4288 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4289:2: 4289 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4290:2: 4290 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4291:2: 4291 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4292:2: 4292 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4293:2: 4293 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4294:2: 4294 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4295:2: 4295 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4296:2: 4296 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4297:2: 4297 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4298:2: 4298 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4299:2: 4299 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4300:2: 4300 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4301:2: 4301 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4302:2: 4302 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4303:2: 4303 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4304:2: 4304 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4305:2: 4305 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4306:2: 4306 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4307:2: 4307 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4308:2: 4308 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4309:2: 4309 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4310:2: 4310 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4311:2: 4311 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4312:2: 4312 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4313:2: 4313 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4314:2: 4314 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4315:2: 4315 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4316:2: 4316 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4317:2: 4317 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4318:2: 4318 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4319:2: 4319 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4320:2: 4320 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4321:2: 4321 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4322:2: 4322 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4323:2: 4323 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4324:2: 4324 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4325:2: 4325 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4326:2: 4326 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4327:2: 4327 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4328:2: 4328 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4329:2: 4329 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4330:2: 4330 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4331:2: 4331 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4332:2: 4332 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4333:2: 4333 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4334:2: 4334 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4335:2: 4335 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4336:2: 4336 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4337:2: 4337 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4338:2: 4338 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4339:2: 4339 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4340:2: 4340 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4341:2: 4341 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4342:2: 4342 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4343:2: 4343 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4344:2: 4344 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4345:2: 4345 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4346:2: 4346 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4347:2: 4347 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4348:2: 4348 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4349:2: 4349 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4350:2: 4350 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4351:2: 4351 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4352:2: 4352 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4353:2: 4353 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4354:2: 4354 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4355:2: 4355 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4356:2: 4356 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4357:2: 4357 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4358:2: 4358 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4359:2: 4359 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4360:2: 4360 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4361:2: 4361 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4362:2: 4362 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4363:2: 4363 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4364:2: 4364 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4365:2: 4365 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4366:2: 4366 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4367:2: 4367 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4368:2: 4368 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4369:2: 4369 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4370:2: 4370 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4371:2: 4371 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4372:2: 4372 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4373:2: 4373 | if(.not. allocated(nodesizesubori)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4374:2: 4374 | allocate(nodesizesubori(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4375:2: 4375 | nodesizesubori(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4376:2: 4376 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4377:2: 4377 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4378:2: 4378 | call threetreesbootnodenumber(bootdata,maxdepth,bootdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4379:2: 4379 | hierarchy+1,nodenummatboot,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4380:2: 4380 | call threetreesbootnodenumber(oridata,maxdepth,oridatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4381:2: 4381 | hierarchy+1,nodenummatori,nodenummatsubori,sizelori,sizerori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4382:2: 4382 | nodenummatboot(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4383:2: 4383 | nodenummatori(:,:) = nodenummatsubori(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4384:2: 4384 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4385:2: 4385 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4386:2: 4386 | nodesizesubori(2*nodeloop-1) = sizelori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4387:2: 4387 | nodesizesubori(2*nodeloop) = sizerori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4388:6: 4388 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4389:2: 4389 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4390:2: 4390 | deallocate(anovadata,xynodedata,xynodedataori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4391:2: 4391 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4392:2: 4392 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4393:2: 4393 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4394:2: 4394 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4395:2: 4395 | deallocate(nodesize,nodesizeori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4396:2: 4396 | allocate(nodesize(2**hierarchy),nodesizeori(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4397:2: 4397 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4398:2: 4398 | nodesizeori(:) = nodesizesubori(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4399:2: 4399 | deallocate(nodesizesub,nodesizesubori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4400:2: 4400 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4402:2: 4402 | deallocate(nodesize,nodesizeori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4406:2: 4406 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4407:2: 4407 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4408:2: 4408 | double precision, intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4409:2: 4409 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4410:2: 4410 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4411:2: 4411 | double precision datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4412:2: 4412 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4413:2: 4413 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4414:2: 4414 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4415:2: 4415 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4416:2: 4416 | call threetreesbootdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4417:2: 4417 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4418:2: 4418 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4419:2: 4419 | call threetreesbootdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4420:2: 4420 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4421:2: 4421 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4422:2: 4422 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4423:2: 4423 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4426:2: 4426 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4427:2: 4427 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4428:2: 4428 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4429:2: 4429 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4430:2: 4430 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4431:2: 4431 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4432:2: 4432 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4433:2: 4433 | call threetreesbootdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4434:2: 4434 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4435:2: 4435 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4436:2: 4436 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4437:2: 4437 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4438:2: 4438 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4439:2: 4439 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4440:2: 4440 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4443:2: 4443 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4444:2: 4444 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4445:2: 4445 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4446:2: 4446 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4447:2: 4447 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4448:2: 4448 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4449:2: 4449 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4450:2: 4450 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4451:2: 4451 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4452:2: 4452 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4453:2: 4453 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4454:2: 4454 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4455:2: 4455 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4456:2: 4456 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4457:2: 4457 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4458:2: 4458 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4459:2: 4459 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4460:2: 4460 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4461:2: 4461 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4462:2: 4462 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4463:2: 4463 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4464:2: 4464 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4465:2: 4465 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4466:2: 4466 | call threetreesbootdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4467:2: 4467 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4468:2: 4468 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4469:2: 4469 | call threetreesbootdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4470:2: 4470 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4471:2: 4471 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4474:2: 4474 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4475:2: 4475 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4476:2: 4476 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4477:2: 4477 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4478:2: 4478 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4479:2: 4479 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4480:2: 4480 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4481:2: 4481 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4482:2: 4482 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4483:2: 4483 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4484:2: 4484 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4485:2: 4485 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4486:2: 4486 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4487:2: 4487 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4488:2: 4488 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4489:2: 4489 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4490:2: 4490 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4491:2: 4491 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4492:2: 4492 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4493:2: 4493 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4494:2: 4494 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4495:2: 4495 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4496:2: 4496 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4497:2: 4497 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4498:2: 4498 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4499:2: 4499 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4500:2: 4500 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4501:2: 4501 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4502:2: 4502 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4503:2: 4503 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4504:2: 4504 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4505:2: 4505 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4506:2: 4506 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4507:2: 4507 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4508:2: 4508 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4511:2: 4511 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4512:2: 4512 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4513:2: 4513 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4514:2: 4514 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4515:2: 4515 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4516:2: 4516 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4517:2: 4517 | double precision facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4518:2: 4518 | call threetreesbootdataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4519:2: 4519 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4520:2: 4520 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4521:2: 4521 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4522:2: 4522 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4523:2: 4523 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4524:2: 4524 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4525:2: 4525 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4526:2: 4526 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4527:2: 4527 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4530:2: 4530 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4531:2: 4531 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4532:2: 4532 | double precision, intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4533:2: 4533 | double precision, intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4534:2: 4534 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4535:2: 4535 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4536:2: 4536 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4537:2: 4537 | double precision ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4538:2: 4538 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4539:2: 4539 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4540:2: 4540 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4541:2: 4541 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4542:2: 4542 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4543:2: 4543 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4544:2: 4544 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4545:2: 4545 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4546:2: 4546 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4547:2: 4547 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4548:2: 4548 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4549:2: 4549 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4550:2: 4550 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4551:2: 4551 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4552:2: 4552 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4553:2: 4553 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4554:2: 4554 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4555:2: 4555 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4556:2: 4556 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4557:2: 4557 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4558:2: 4558 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4559:2: 4559 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4560:2: 4560 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4561:2: 4561 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4562:2: 4562 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4563:2: 4563 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4564:2: 4564 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4565:2: 4565 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4566:2: 4566 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4567:2: 4567 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4568:2: 4568 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4569:2: 4569 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4570:2: 4570 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4571:2: 4571 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4572:2: 4572 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4573:2: 4573 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4574:2: 4574 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4575:2: 4575 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4576:2: 4576 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4577:2: 4577 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4578:2: 4578 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4579:2: 4579 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4580:2: 4580 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4581:2: 4581 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4582:2: 4582 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4583:2: 4583 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4584:2: 4584 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4585:2: 4585 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4586:2: 4586 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4587:2: 4587 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4588:2: 4588 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4589:2: 4589 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4590:2: 4590 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4591:2: 4591 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4592:2: 4592 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4593:2: 4593 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4594:2: 4594 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4595:2: 4595 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4596:2: 4596 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4597:2: 4597 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4598:2: 4598 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4599:2: 4599 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4600:2: 4600 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4601:2: 4601 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4602:2: 4602 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4603:2: 4603 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4604:2: 4604 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4605:2: 4605 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4606:2: 4606 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4609:2: 4609 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4610:2: 4610 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4611:2: 4611 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4612:2: 4612 | double precision, intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4613:2: 4613 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4614:2: 4614 | double precision xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4615:2: 4615 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4616:2: 4616 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4617:2: 4617 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4618:2: 4618 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4619:2: 4619 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4620:2: 4620 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4621:2: 4621 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4622:2: 4622 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4623:2: 4623 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4624:2: 4624 | call threetreesbootpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4625:2: 4625 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4626:2: 4626 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4627:2: 4627 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4628:2: 4628 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4629:2: 4629 | call threetreesbootpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4630:2: 4630 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4631:2: 4631 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4632:2: 4632 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4633:2: 4633 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4634:2: 4634 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4635:2: 4635 | call threetreesbootdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4636:2: 4636 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4638:2: 4638 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4641:2: 4641 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4642:2: 4642 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4643:2: 4643 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4644:2: 4644 | double precision,intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4645:2: 4645 | double precision,intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4646:2: 4646 | double precision res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4647:2: 4647 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4649:2: 4649 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4650:2: 4650 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4651:2: 4651 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4652:2: 4652 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4653:2: 4653 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4654:2: 4654 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4655:2: 4655 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4660:2: 4660 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4661:2: 4661 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4662:2: 4662 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4667:2: 4667 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4668:2: 4668 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4669:2: 4669 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4670:2: 4670 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4671:2: 4671 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4672:2: 4672 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4673:2: 4673 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4674:2: 4674 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4675:2: 4675 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4676:2: 4676 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4677:2: 4677 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4678:2: 4678 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4679:2: 4679 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4680:2: 4680 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4681:2: 4681 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4682:2: 4682 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4683:2: 4683 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4684:2: 4684 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4685:2: 4685 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4688:2: 4688 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4689:2: 4689 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4691:2: 4691 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4692:2: 4692 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4719:2: 4719 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4728:2: 4728 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4729:2: 4729 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4735:2: 4735 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4769:2: 4769 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4780:2: 4780 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4781:2: 4781 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4782:2: 4782 | double precision,intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4783:2: 4783 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4784:2: 4784 | eps=1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4785:2: 4785 | s1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4786:2: 4786 | s2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4787:2: 4787 | zval = (z-((1d0-weight)*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4788:2: 4788 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4789:2: 4789 | form2 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4790:2: 4790 | form3 = (df11/df12)**(df11/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4791:2: 4791 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4792:2: 4792 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4793:2: 4793 | form6 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4794:2: 4794 | form7 = (df21/df22)**(df21/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4795:2: 4795 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4796:2: 4796 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4797:2: 4797 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4800:2: 4800 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4801:2: 4801 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4802:2: 4802 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4803:2: 4803 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4804:2: 4804 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4805:2: 4805 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4806:2: 4806 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4807:2: 4807 | call threetreesbootdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4808:2: 4808 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4809:2: 4809 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4810:2: 4810 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4811:2: 4811 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4812:2: 4812 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4813:2: 4813 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4814:2: 4814 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4815:2: 4815 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4819:2: 4819 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4820:2: 4820 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4821:2: 4821 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4822:2: 4822 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4823:2: 4823 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4824:2: 4824 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4825:2: 4825 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4826:2: 4826 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4827:2: 4827 | nodenummatsub(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4828:2: 4828 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4829:2: 4829 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4830:2: 4830 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4831:2: 4831 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4832:2: 4832 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4833:2: 4833 | nodenummatsub(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4834:2: 4834 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4835:2: 4835 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4836:2: 4836 | nodenummatsub(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4837:2: 4837 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4838:2: 4838 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4839:2: 4839 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4840:2: 4840 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4841:2: 4841 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4842:2: 4842 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4845:2: 4845 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4846:2: 4846 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4847:2: 4847 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4848:2: 4848 | integer, intent(in) :: nodenummat(msize,11) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4849:2: 4849 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4850:2: 4850 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4851:2: 4851 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4852:2: 4852 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4853:2: 4853 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4854:2: 4854 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4855:2: 4855 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4856:2: 4856 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4857:2: 4857 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4860:2: 4860 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4861:2: 4861 | integer,intent(in) :: prunind,msize,cv,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4862:2: 4862 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4863:2: 4863 | double precision,intent(in) :: alpha,gamma,allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4864:2: 4864 | double precision,intent(out) :: allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4865:2: 4865 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4866:2: 4866 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4867:2: 4867 | double precision minghval,allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4868:2: 4868 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4869:2: 4869 | allgammaval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4870:2: 4870 | if(prunind == 1 .or. alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4871:2: 4871 | goto 3001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4872:2: 4872 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4873:2: 4873 | call threetreesbootcvterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4874:2: 4874 | call threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4875:2: 4875 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4876:2: 4876 | call threetreesbootcvpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4877:2: 4877 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4878:2: 4878 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4879:2: 4879 | allgammaval(2) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4880:2: 4880 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4881:2: 4881 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4882:2: 4882 | call threetreesbootcvterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4883:2: 4883 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4884:2: 4884 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4885:2: 4885 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4886:2: 4886 | call threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4887:2: 4887 | allocate(nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4888:2: 4888 | call threetreesbootcvpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4889:2: 4889 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4890:2: 4890 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4891:2: 4891 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4892:2: 4892 | allgammaval(prunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4893:2: 4893 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4897:2: 4897 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4898:2: 4898 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4899:2: 4899 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4900:2: 4900 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4901:2: 4901 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4902:2: 4902 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4903:2: 4903 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4904:2: 4904 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4905:2: 4905 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4906:2: 4906 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4907:2: 4907 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4908:2: 4908 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4909:2: 4909 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4910:2: 4910 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4911:2: 4911 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4912:2: 4912 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4913:2: 4913 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4914:2: 4914 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4915:2: 4915 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4916:2: 4916 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4917:2: 4917 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4918:2: 4918 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4919:2: 4919 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4920:2: 4920 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4921:2: 4921 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4922:2: 4922 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4923:2: 4923 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4924:2: 4924 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4925:2: 4925 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4928:2: 4928 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4929:2: 4929 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4930:2: 4930 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4931:2: 4931 | double precision testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4932:2: 4932 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4933:2: 4933 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4934:2: 4934 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4935:2: 4935 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4936:2: 4936 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4937:2: 4937 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4938:2: 4938 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4939:2: 4939 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4940:2: 4940 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4941:2: 4941 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4942:2: 4942 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4943:2: 4943 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4944:2: 4944 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4945:2: 4945 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4946:2: 4946 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4947:2: 4947 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4948:2: 4948 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4949:2: 4949 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4950:2: 4950 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4951:2: 4951 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4952:2: 4952 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4953:2: 4953 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4954:2: 4954 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4955:2: 4955 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4956:2: 4956 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4957:2: 4957 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4958:2: 4958 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4959:2: 4959 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4960:2: 4960 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4961:2: 4961 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4962:2: 4962 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4963:2: 4963 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4964:2: 4964 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4965:2: 4965 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4966:2: 4966 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4967:2: 4967 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4968:2: 4968 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4969:2: 4969 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4970:2: 4970 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4971:2: 4971 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4974:2: 4974 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4975:2: 4975 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4976:2: 4976 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4977:2: 4977 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4978:2: 4978 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4979:2: 4979 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4980:2: 4980 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4981:2: 4981 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4982:2: 4982 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4983:2: 4983 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4984:2: 4984 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4985:2: 4985 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4986:2: 4986 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4987:2: 4987 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4988:2: 4988 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4989:2: 4989 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4990:2: 4990 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4991:2: 4991 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4992:2: 4992 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4993:2: 4993 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4994:2: 4994 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4995:2: 4995 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4996:2: 4996 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4997:2: 4997 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4998:2: 4998 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4999:2: 4999 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5000:2: 5000 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5001:2: 5001 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5005:2: 5005 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5006:2: 5006 | integer,intent(in) :: cv,msize,colnum,Ksplit,maxdepth,levelcount,beta1len,beta2len,minbucket,minsplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5007:2: 5007 | integer,intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5008:2: 5008 | integer,intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5009:2: 5009 | double precision,intent(in) :: alpha,gamma,fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5010:2: 5010 | double precision,intent(in) :: beta1(beta1len),beta2(beta2len),allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5011:2: 5011 | double precision,intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5012:2: 5012 | double precision,intent(out) :: bestgammaval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5013:2: 5013 | integer,intent(out) :: cvsplitind(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5014:2: 5014 | integer, allocatable :: cvind(:),cvsize(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5015:2: 5015 | integer, allocatable :: nodenummat(:,:), nodenummattest(:,:),prunenodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5016:2: 5016 | double precision, allocatable :: meangammacv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5017:2: 5017 | double precision, allocatable :: gammacvmat(:,:),traindata(:,:),testdata(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5018:2: 5018 | integer cvloop,traindatasize,testdatasize,prunind,i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5019:2: 5019 | double precision allfval((2**maxdepth)-1),gammacv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5020:2: 5020 | double precision maxgammasub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5021:2: 5021 | if(alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5022:2: 5022 | bestgammaval = gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5023:2: 5023 | allocate(cvind(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5024:2: 5024 | cvind(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5025:2: 5025 | cvsplitind(:) = cvind(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5026:2: 5026 | goto 7001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5027:2: 5027 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5028:2: 5028 | allocate(cvind(msize),cvsize(Ksplit),gammacvmat(ksplit,(2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5029:2: 5029 | allocate(meangammacv((2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5030:2: 5030 | call threetreesbootcvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5031:2: 5031 | cvsplitind(:) = cvind(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5032:2: 5032 | do cvloop = 1,Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5033:2: 5033 | traindatasize = ((sum(cvsize)-cvsize(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5034:2: 5034 | testdatasize = (cvsize(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5035:2: 5035 | allocate(traindata(traindatasize,colnum),testdata(testdatasize,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5036:2: 5036 | allocate(nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5037:2: 5037 | call threetreesbootcvdatachoice(XYDATA,msize,colnum,Ksplit,levelcount,cvloop,cvind,cvsize,traindata,testdata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5038:2: 5038 | call threetreesbootcvtreegrowth(traindatasize,testdatasize,traindata,testdata,nodenummattest,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5039:2: 5039 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,xydata,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5040:2: 5040 | beta2len,nodenummat,allfval,prunind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5041:2: 5041 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5042:2: 5042 | call threetreesbootcvbesttreepruning(traindatasize,testdatasize,maxdepth,nodenummat,nodenummattest,allfval,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5043:2: 5043 | levelcount,colnum,traindata,testdata,allgammaval,gammacv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5044:2: 5044 | gammacvmat(cvloop,:) = gammacv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5045:2: 5045 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5046:2: 5046 | deallocate(traindata,testdata,nodenummat,nodenummattest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5047:2: 5047 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5048:2: 5048 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5049:2: 5049 | do i = 1,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5050:2: 5050 | meangammacv(i) = sum(gammacvmat(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5051:2: 5051 | if(meangammacv(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5052:2: 5052 | meangammacv(i) = meangammacv(i) / dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5053:2: 5053 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5054:2: 5054 | meangammacv(i) = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5055:2: 5055 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5056:2: 5056 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5057:2: 5057 | maxgammasub = maxval(meangammacv) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5058:2: 5058 | do i = 1,size(meangammacv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5059:2: 5059 | if(meangammacv(i) < maxgammasub .and. meangammacv(i) >= 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5060:2: 5060 | bestgammaval = allgammaval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5061:2: 5061 | maxgammasub = meangammacv(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5062:2: 5062 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5063:2: 5063 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5064:2: 5064 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5068:2: 5068 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5069:2: 5069 | integer, intent(in) :: msize,colnum,Ksplit,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5070:2: 5070 | integer, intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5071:2: 5071 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5072:2: 5072 | integer, intent(out) :: cvind(msize), cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5073:2: 5073 | integer i,subnum, randval, cvsizecou(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5074:2: 5074 | integer, allocatable :: cvindsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5075:2: 5075 | double precision randvalsub,ii | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5076:2: 5076 | integer :: seed_size, seed_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5077:2: 5077 | integer, allocatable :: seed_array(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5078:2: 5078 | call random_seed(size=seed_size) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5079:2: 5079 | allocate(seed_array(seed_size)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5080:2: 5080 | do seed_i = 1, seed_size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5081:2: 5081 | seed_array(seed_i) = iseed + (seed_i - 1) * 37 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5082:2: 5082 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5083:2: 5083 | call random_seed(put=seed_array) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5084:2: 5084 | deallocate(seed_array) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5085:2: 5085 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5086:2: 5086 | cvsize(:) = subnum/Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5087:2: 5087 | do i = 1,(subnum - sum(cvsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5088:2: 5088 | cvsize(i) = cvsize(i) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5089:2: 5089 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5090:2: 5090 | allocate(cvindsub(subnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5091:2: 5091 | cvsizecou(:) = cvsize(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5092:2: 5092 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5093:2: 5093 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5094:2: 5094 | call random_number(randvalsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5095:2: 5095 | randval = int(randvalsub * dble(Ksplit)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5096:2: 5096 | if(cvsizecou(randval) > 0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5097:2: 5097 | cvsizecou(randval) = cvsizecou(randval) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5098:2: 5098 | cvindsub(i) = randval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5099:2: 5099 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5100:2: 5100 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5101:2: 5101 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5102:2: 5102 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5103:2: 5103 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5104:2: 5104 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5105:2: 5105 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5108:2: 5108 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5109:2: 5109 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5110:2: 5110 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5111:2: 5111 | integer, intent(in) :: cvind(msize),cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5112:2: 5112 | double precision, intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5113:2: 5113 | testdata((cvsize(testind)*levelcount),colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5114:2: 5114 | integer i,jtrain,jtest,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5115:2: 5115 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5116:2: 5116 | jtest = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5117:2: 5117 | jtrain = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5118:2: 5118 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5119:2: 5119 | if(cvind(((i-1)*levelcount)+1) == testind) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5120:2: 5120 | testdata((levelcount*(jtest-1)+1):(levelcount*jtest),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5121:2: 5121 | jtest = jtest + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5122:2: 5122 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5123:2: 5123 | traindata((levelcount*(jtrain-1)+1):(levelcount*jtrain),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5124:2: 5124 | jtrain = jtrain + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5125:2: 5125 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5126:2: 5126 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5131:2: 5131 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5132:2: 5132 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5133:2: 5133 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5134:2: 5134 | double precision, intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5135:2: 5135 | double precision, intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5136:2: 5136 | double precision, intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5137:2: 5137 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5138:2: 5138 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5139:2: 5139 | double precision,intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5140:2: 5140 | integer nodenummatsub(traindatasize,maxdepth),nodenummatsubtest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5141:2: 5141 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5142:2: 5142 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5143:2: 5143 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5144:2: 5144 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5145:2: 5145 | double precision fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5146:2: 5146 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5147:2: 5147 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5148:2: 5148 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5149:2: 5149 | double precision, allocatable :: xynodedata(:,:),xynodedatatest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5150:2: 5150 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5151:2: 5151 | integer, allocatable :: flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5152:2: 5152 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5153:2: 5153 | double precision :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5154:2: 5154 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5155:2: 5155 | nodenummat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5156:2: 5156 | nodenummat(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5157:2: 5157 | nodenummattest(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5158:2: 5158 | nodenummattest(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5159:2: 5159 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5160:2: 5160 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5161:2: 5161 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5162:2: 5162 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5163:2: 5163 | allocate(nodesize(2),nodesizetest(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5164:2: 5164 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5165:2: 5165 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5166:2: 5166 | call threetreesbootcvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5167:2: 5167 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5168:2: 5168 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5169:2: 5169 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5170:2: 5170 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5171:2: 5171 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5172:2: 5172 | allocate(anovadata(traindatasize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5173:2: 5173 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5174:2: 5174 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5175:2: 5175 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5176:2: 5176 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5177:2: 5177 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5178:2: 5178 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5179:2: 5179 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5180:2: 5180 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5181:2: 5181 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5182:2: 5182 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5183:2: 5183 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5184:2: 5184 | call threetreesbootcvrepANOVA(traindatasize,colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5185:2: 5185 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5186:2: 5186 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5187:2: 5187 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5188:2: 5188 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5189:2: 5189 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5190:2: 5190 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5191:2: 5191 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5192:2: 5192 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5193:2: 5193 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5194:2: 5194 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5195:2: 5195 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5196:2: 5196 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5197:2: 5197 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5198:2: 5198 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5199:2: 5199 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5200:2: 5200 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5201:2: 5201 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5202:2: 5202 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5203:2: 5203 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5204:2: 5204 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5205:2: 5205 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5206:2: 5206 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5207:2: 5207 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5208:2: 5208 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5209:2: 5209 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5210:2: 5210 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5211:2: 5211 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5212:2: 5212 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5213:2: 5213 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5214:2: 5214 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5215:2: 5215 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5216:2: 5216 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5217:2: 5217 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5218:2: 5218 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5219:2: 5219 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5220:2: 5220 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5221:2: 5221 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5222:2: 5222 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5223:2: 5223 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5224:2: 5224 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5225:2: 5225 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5226:2: 5226 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5227:2: 5227 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5228:2: 5228 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5229:2: 5229 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5230:2: 5230 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5231:2: 5231 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5232:2: 5232 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5233:2: 5233 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5234:2: 5234 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5235:2: 5235 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5236:2: 5236 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5237:2: 5237 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5238:2: 5238 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5239:2: 5239 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5240:2: 5240 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5241:2: 5241 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5242:2: 5242 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5243:2: 5243 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5244:2: 5244 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5245:2: 5245 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5246:2: 5246 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5247:2: 5247 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5248:2: 5248 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5249:2: 5249 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5250:2: 5250 | traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5251:2: 5251 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5252:2: 5252 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5253:2: 5253 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5254:2: 5254 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5255:2: 5255 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5256:2: 5256 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5257:2: 5257 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5258:2: 5258 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5259:2: 5259 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5260:2: 5260 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5261:2: 5261 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5262:2: 5262 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5263:2: 5263 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5264:2: 5264 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5265:2: 5265 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5266:2: 5266 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5267:2: 5267 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5268:2: 5268 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5269:2: 5269 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5270:2: 5270 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5271:2: 5271 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5272:2: 5272 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5273:2: 5273 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5274:2: 5274 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5275:2: 5275 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5276:2: 5276 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5277:2: 5277 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5278:2: 5278 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5279:2: 5279 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5280:2: 5280 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5281:2: 5281 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5282:2: 5282 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5283:2: 5283 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5284:2: 5284 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5285:2: 5285 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5286:2: 5286 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5287:2: 5287 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5288:2: 5288 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5289:2: 5289 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5290:2: 5290 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5291:2: 5291 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5292:2: 5292 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5293:2: 5293 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5294:2: 5294 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5295:2: 5295 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5296:2: 5296 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5297:2: 5297 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5298:2: 5298 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5299:2: 5299 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5300:2: 5300 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5301:2: 5301 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5302:2: 5302 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5303:2: 5303 | traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5304:2: 5304 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5305:2: 5305 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5306:2: 5306 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5307:2: 5307 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5308:2: 5308 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5309:2: 5309 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5310:2: 5310 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5311:2: 5311 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5312:2: 5312 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5313:2: 5313 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5314:2: 5314 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5315:2: 5315 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5316:2: 5316 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5317:2: 5317 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5318:2: 5318 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5319:2: 5319 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5320:2: 5320 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5321:2: 5321 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5322:2: 5322 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5323:2: 5323 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5324:2: 5324 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5325:2: 5325 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5326:2: 5326 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5327:2: 5327 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5328:2: 5328 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5329:2: 5329 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5330:2: 5330 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5331:2: 5331 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5332:2: 5332 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5333:2: 5333 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5334:2: 5334 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5335:2: 5335 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5336:2: 5336 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5337:2: 5337 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5338:2: 5338 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5339:2: 5339 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5340:2: 5340 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5341:2: 5341 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5342:2: 5342 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5343:2: 5343 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5344:2: 5344 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5345:2: 5345 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5346:2: 5346 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5347:2: 5347 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5348:2: 5348 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5349:2: 5349 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5350:2: 5350 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5351:2: 5351 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5352:2: 5352 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5353:2: 5353 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5354:2: 5354 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5355:2: 5355 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5356:2: 5356 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5357:2: 5357 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5358:2: 5358 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5359:2: 5359 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5360:2: 5360 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5361:2: 5361 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5362:2: 5362 | call threetreesbootcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5363:2: 5363 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5364:2: 5364 | call threetreesbootcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5365:2: 5365 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5366:2: 5366 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5367:2: 5367 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5368:2: 5368 | nodesizetest(1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5369:2: 5369 | nodesizetest(2) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5370:2: 5370 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5371:2: 5371 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5372:2: 5372 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5373:2: 5373 | nodenummattest(:,:) = nodenummatsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5374:2: 5374 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5375:2: 5375 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5376:2: 5376 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5377:2: 5377 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5378:2: 5378 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5379:2: 5379 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5380:2: 5380 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5381:2: 5381 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5382:2: 5382 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5383:2: 5383 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5384:2: 5384 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5385:2: 5385 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5386:2: 5386 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5387:2: 5387 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5388:2: 5388 | call threetreesbootcvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5389:2: 5389 | call threetreesbootcvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,nodenummattest,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5390:2: 5390 | nodesizetest(nodeloop),xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5391:2: 5391 | call threetreesbootcvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5392:2: 5392 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5393:2: 5393 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5394:2: 5394 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5395:2: 5395 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5396:2: 5396 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5397:2: 5397 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5398:2: 5398 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5399:2: 5399 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5400:2: 5400 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5401:2: 5401 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5402:2: 5402 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5403:2: 5403 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5404:2: 5404 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5405:2: 5405 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5406:2: 5406 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5407:2: 5407 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5408:2: 5408 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5409:2: 5409 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5410:2: 5410 | if(allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5411:2: 5411 | deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5412:2: 5412 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5413:2: 5413 | if(.not. allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5414:2: 5414 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5415:2: 5415 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5416:2: 5416 | if(allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5417:2: 5417 | deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5418:2: 5418 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5419:2: 5419 | if(.not. allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5420:2: 5420 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5421:2: 5421 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5422:2: 5422 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5423:2: 5423 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5424:2: 5424 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5425:2: 5425 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5426:2: 5426 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5427:2: 5427 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5428:2: 5428 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5429:2: 5429 | colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5430:2: 5430 | call threetreesbootcvrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5431:2: 5431 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5432:2: 5432 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5433:2: 5433 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5434:2: 5434 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5435:2: 5435 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5436:2: 5436 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5437:2: 5437 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5438:2: 5438 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5439:2: 5439 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5440:2: 5440 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5441:2: 5441 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5442:2: 5442 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5443:2: 5443 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5444:2: 5444 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5445:2: 5445 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5446:2: 5446 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5447:2: 5447 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5448:2: 5448 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5449:6: 5449 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5450:2: 5450 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5451:2: 5451 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5452:2: 5452 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5453:2: 5453 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5454:2: 5454 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5455:2: 5455 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5456:2: 5456 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5457:2: 5457 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5458:2: 5458 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5459:2: 5459 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5460:2: 5460 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5461:2: 5461 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5462:2: 5462 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5463:2: 5463 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5464:2: 5464 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5465:2: 5465 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5466:2: 5466 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5467:2: 5467 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5468:2: 5468 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5469:2: 5469 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5470:2: 5470 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5471:2: 5471 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5472:2: 5472 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5473:2: 5473 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5474:2: 5474 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5475:2: 5475 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5476:2: 5476 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5477:2: 5477 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5478:2: 5478 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5479:2: 5479 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5480:2: 5480 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5481:2: 5481 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5482:2: 5482 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5483:2: 5483 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5484:2: 5484 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5485:2: 5485 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5486:2: 5486 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5487:2: 5487 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5488:2: 5488 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5489:2: 5489 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5490:2: 5490 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5491:2: 5491 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5492:2: 5492 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5493:2: 5493 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5494:2: 5494 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5495:2: 5495 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5496:2: 5496 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5497:2: 5497 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5498:2: 5498 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5499:2: 5499 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5500:2: 5500 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5501:2: 5501 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5502:2: 5502 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5503:2: 5503 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5504:2: 5504 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5505:2: 5505 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5506:2: 5506 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5507:2: 5507 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5508:2: 5508 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5509:2: 5509 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5510:2: 5510 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5511:2: 5511 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5512:2: 5512 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5513:2: 5513 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5514:2: 5514 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5515:2: 5515 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5516:2: 5516 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5517:2: 5517 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5518:2: 5518 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5519:2: 5519 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5520:2: 5520 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5521:2: 5521 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5522:2: 5522 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5523:2: 5523 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5524:2: 5524 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5525:2: 5525 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5526:2: 5526 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5527:2: 5527 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5528:2: 5528 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5529:2: 5529 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5530:2: 5530 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5531:2: 5531 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5532:2: 5532 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5533:2: 5533 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5534:2: 5534 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5535:2: 5535 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5536:2: 5536 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5537:2: 5537 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5538:2: 5538 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5539:2: 5539 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5540:2: 5540 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5541:2: 5541 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5542:2: 5542 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5543:2: 5543 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5544:2: 5544 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5545:2: 5545 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5546:2: 5546 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5547:2: 5547 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5548:2: 5548 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5549:2: 5549 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5550:2: 5550 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5551:2: 5551 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5552:2: 5552 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5553:2: 5553 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5554:2: 5554 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5555:2: 5555 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5556:2: 5556 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5557:2: 5557 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5558:2: 5558 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5559:2: 5559 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5560:2: 5560 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5561:2: 5561 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5562:2: 5562 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5563:2: 5563 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5564:2: 5564 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5565:2: 5565 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5566:2: 5566 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5567:2: 5567 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5568:2: 5568 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5569:2: 5569 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5570:2: 5570 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5571:2: 5571 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5572:2: 5572 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5573:2: 5573 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5574:2: 5574 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5575:2: 5575 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5576:2: 5576 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5577:2: 5577 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5578:2: 5578 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5579:2: 5579 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5580:2: 5580 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5581:2: 5581 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5582:2: 5582 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5583:2: 5583 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5584:2: 5584 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5585:2: 5585 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5586:2: 5586 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5587:2: 5587 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5588:2: 5588 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5589:2: 5589 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5590:2: 5590 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5591:2: 5591 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5592:2: 5592 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5593:2: 5593 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5594:2: 5594 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5595:2: 5595 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5596:2: 5596 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5597:2: 5597 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5598:2: 5598 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5599:2: 5599 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5600:2: 5600 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5601:2: 5601 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5602:2: 5602 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5603:2: 5603 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5604:2: 5604 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5605:2: 5605 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5606:2: 5606 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5607:2: 5607 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5608:2: 5608 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5609:2: 5609 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5610:2: 5610 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5611:2: 5611 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5612:2: 5612 | if(.not. allocated(nodesizesubtest)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5613:2: 5613 | allocate(nodesizesubtest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5614:2: 5614 | nodesizesubtest(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5615:2: 5615 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5616:2: 5616 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5617:2: 5617 | call threetreesbootcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5618:2: 5618 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5619:2: 5619 | call threetreesbootcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5620:2: 5620 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5621:2: 5621 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5622:2: 5622 | nodenummattest(:,:) = nodenummatsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5623:2: 5623 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5624:2: 5624 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5625:2: 5625 | nodesizesubtest(2*nodeloop-1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5626:2: 5626 | nodesizesubtest(2*nodeloop) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5627:6: 5627 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5628:2: 5628 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5629:2: 5629 | deallocate(anovadata,xynodedata,xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5630:2: 5630 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5631:2: 5631 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5632:2: 5632 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5633:2: 5633 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5634:2: 5634 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5635:2: 5635 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5636:2: 5636 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5637:2: 5637 | nodesizetest(:) = nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5638:2: 5638 | deallocate(nodesizesub,nodesizesubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5639:2: 5639 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5641:2: 5641 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5645:2: 5645 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5646:2: 5646 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5647:2: 5647 | double precision, intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5648:2: 5648 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5649:2: 5649 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5650:2: 5650 | double precision datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5651:2: 5651 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5652:2: 5652 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5653:2: 5653 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5654:2: 5654 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5655:2: 5655 | call threetreesbootcvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5656:2: 5656 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5657:2: 5657 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5658:2: 5658 | call threetreesbootcvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5659:2: 5659 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5660:2: 5660 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5661:2: 5661 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5662:2: 5662 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5665:2: 5665 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5666:2: 5666 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5667:2: 5667 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5668:2: 5668 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5669:2: 5669 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5670:2: 5670 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5671:2: 5671 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5672:2: 5672 | call threetreesbootcvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5673:2: 5673 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5674:2: 5674 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5675:2: 5675 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5676:2: 5676 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5677:2: 5677 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5678:2: 5678 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5679:2: 5679 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5682:2: 5682 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5683:2: 5683 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5684:2: 5684 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5685:2: 5685 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5686:2: 5686 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5687:2: 5687 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5688:2: 5688 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5689:2: 5689 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5690:2: 5690 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5691:2: 5691 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5692:2: 5692 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5693:2: 5693 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5694:2: 5694 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5695:2: 5695 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5696:2: 5696 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5697:2: 5697 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5698:2: 5698 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5699:2: 5699 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5700:2: 5700 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5701:2: 5701 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5702:2: 5702 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5703:2: 5703 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5704:2: 5704 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5705:2: 5705 | call threetreesbootcvdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5706:2: 5706 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5707:2: 5707 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5708:2: 5708 | call threetreesbootcvdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5709:2: 5709 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5710:2: 5710 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5713:2: 5713 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5714:2: 5714 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5715:2: 5715 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5716:2: 5716 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5717:2: 5717 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5718:2: 5718 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5719:2: 5719 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5720:2: 5720 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5721:2: 5721 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5722:2: 5722 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5723:2: 5723 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5724:2: 5724 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5725:2: 5725 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5726:2: 5726 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5727:2: 5727 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5728:2: 5728 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5729:2: 5729 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5730:2: 5730 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5731:2: 5731 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5732:2: 5732 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5733:2: 5733 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5734:2: 5734 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5735:2: 5735 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5736:2: 5736 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5737:2: 5737 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5738:2: 5738 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5739:2: 5739 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5740:2: 5740 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5741:2: 5741 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5742:2: 5742 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5743:2: 5743 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5744:2: 5744 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5745:2: 5745 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5746:2: 5746 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5747:2: 5747 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5750:2: 5750 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5751:2: 5751 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5752:2: 5752 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5753:2: 5753 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5754:2: 5754 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5755:2: 5755 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5756:2: 5756 | double precision facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5757:2: 5757 | call threetreesbootcvdataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5758:2: 5758 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5759:2: 5759 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5760:2: 5760 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5761:2: 5761 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5762:2: 5762 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5763:2: 5763 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5764:2: 5764 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5765:2: 5765 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5766:2: 5766 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5769:2: 5769 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5770:2: 5770 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5771:2: 5771 | double precision, intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5772:2: 5772 | double precision, intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5773:2: 5773 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5774:2: 5774 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5775:2: 5775 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5776:2: 5776 | double precision ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5777:2: 5777 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5778:2: 5778 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5779:2: 5779 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5780:2: 5780 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5781:2: 5781 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5782:2: 5782 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5783:2: 5783 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5784:2: 5784 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5785:2: 5785 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5786:2: 5786 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5787:2: 5787 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5788:2: 5788 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5789:2: 5789 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5790:2: 5790 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5791:2: 5791 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5792:2: 5792 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5793:2: 5793 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5794:2: 5794 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5795:2: 5795 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5796:2: 5796 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5797:2: 5797 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5798:2: 5798 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5799:2: 5799 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5800:2: 5800 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5801:2: 5801 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5802:2: 5802 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5803:2: 5803 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5804:2: 5804 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5805:2: 5805 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5806:2: 5806 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5807:2: 5807 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5808:2: 5808 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5809:2: 5809 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5810:2: 5810 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5811:2: 5811 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5812:2: 5812 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5813:2: 5813 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5814:2: 5814 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5815:2: 5815 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5816:2: 5816 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5817:2: 5817 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5818:2: 5818 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5819:2: 5819 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5820:2: 5820 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5821:2: 5821 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5822:2: 5822 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5823:2: 5823 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5824:2: 5824 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5825:2: 5825 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5826:2: 5826 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5827:2: 5827 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5828:2: 5828 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5829:2: 5829 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5830:2: 5830 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5831:2: 5831 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5832:2: 5832 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5833:2: 5833 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5834:2: 5834 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5835:2: 5835 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5836:2: 5836 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5837:2: 5837 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5838:2: 5838 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5839:2: 5839 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5840:2: 5840 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5841:2: 5841 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5842:2: 5842 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5843:2: 5843 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5844:2: 5844 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5845:2: 5845 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5848:2: 5848 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5849:2: 5849 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5850:2: 5850 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5851:2: 5851 | double precision, intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5852:2: 5852 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5853:2: 5853 | double precision xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5854:2: 5854 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5855:2: 5855 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5856:2: 5856 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5857:2: 5857 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5858:2: 5858 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5859:2: 5859 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5860:2: 5860 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5861:2: 5861 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5862:2: 5862 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5863:2: 5863 | call threetreesbootcvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5864:2: 5864 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5865:2: 5865 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5866:2: 5866 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5867:2: 5867 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5868:2: 5868 | call threetreesbootcvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5869:2: 5869 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5870:2: 5870 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5871:2: 5871 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5872:2: 5872 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5873:2: 5873 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5874:2: 5874 | call threetreesbootcvdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5875:2: 5875 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5877:2: 5877 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5880:2: 5880 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5881:2: 5881 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5882:2: 5882 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5883:2: 5883 | double precision,intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5884:2: 5884 | double precision,intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5885:2: 5885 | double precision res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5886:2: 5886 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5888:2: 5888 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5889:2: 5889 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5890:2: 5890 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5891:2: 5891 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5892:2: 5892 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5893:2: 5893 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5894:2: 5894 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5899:2: 5899 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5900:2: 5900 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5901:2: 5901 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5906:2: 5906 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5907:2: 5907 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5908:2: 5908 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5909:2: 5909 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5910:2: 5910 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5911:2: 5911 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5912:2: 5912 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5913:2: 5913 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5914:2: 5914 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5915:2: 5915 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5916:2: 5916 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5917:2: 5917 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5918:2: 5918 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5919:2: 5919 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5920:2: 5920 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5921:2: 5921 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5922:2: 5922 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5923:2: 5923 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5924:2: 5924 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5927:2: 5927 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5928:2: 5928 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5930:2: 5930 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5931:2: 5931 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5958:2: 5958 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5967:2: 5967 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5968:2: 5968 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5974:2: 5974 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6008:2: 6008 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6019:2: 6019 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6020:2: 6020 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6021:2: 6021 | double precision,intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6022:2: 6022 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6023:2: 6023 | eps=1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6024:2: 6024 | s1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6025:2: 6025 | s2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6026:2: 6026 | zval = (z-((1d0-weight)*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6027:2: 6027 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6028:2: 6028 | form2 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6029:2: 6029 | form3 = (df11/df12)**(df11/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6030:2: 6030 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6031:2: 6031 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6032:2: 6032 | form6 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6033:2: 6033 | form7 = (df21/df22)**(df21/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6034:2: 6034 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6035:2: 6035 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6036:2: 6036 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6039:2: 6039 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6040:2: 6040 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6041:2: 6041 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6042:2: 6042 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6043:2: 6043 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6044:2: 6044 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6045:2: 6045 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6046:2: 6046 | call threetreesbootcvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6047:2: 6047 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6048:2: 6048 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6049:2: 6049 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6050:2: 6050 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6051:2: 6051 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6052:2: 6052 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6053:2: 6053 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6054:2: 6054 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6058:2: 6058 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6059:2: 6059 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6060:2: 6060 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6061:2: 6061 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6062:2: 6062 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6063:2: 6063 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6064:2: 6064 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6065:2: 6065 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6066:2: 6066 | nodenummatsub(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6067:2: 6067 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6068:2: 6068 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6069:2: 6069 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6070:2: 6070 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6071:2: 6071 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6072:2: 6072 | nodenummatsub(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6073:2: 6073 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6074:2: 6074 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6075:2: 6075 | nodenummatsub(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6076:2: 6076 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6077:2: 6077 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6078:2: 6078 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6079:2: 6079 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6080:2: 6080 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6081:2: 6081 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6084:2: 6084 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6085:2: 6085 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6086:2: 6086 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6087:2: 6087 | integer, intent(in) :: nodenummat(msize,11) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6088:2: 6088 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6089:2: 6089 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6090:2: 6090 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6091:2: 6091 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6092:2: 6092 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6093:2: 6093 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6094:2: 6094 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6095:2: 6095 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6096:2: 6096 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6099:2: 6099 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6100:2: 6100 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6101:2: 6101 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6102:2: 6102 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6103:2: 6103 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6104:2: 6104 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6105:2: 6105 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6106:2: 6106 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6107:2: 6107 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6108:2: 6108 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6109:2: 6109 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6110:2: 6110 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6111:2: 6111 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6112:2: 6112 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6113:2: 6113 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6114:2: 6114 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6115:2: 6115 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6116:2: 6116 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6117:2: 6117 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6118:2: 6118 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6119:2: 6119 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6120:2: 6120 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6121:2: 6121 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6122:2: 6122 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6123:2: 6123 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6124:2: 6124 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6125:2: 6125 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6126:2: 6126 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6127:2: 6127 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6130:2: 6130 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6131:2: 6131 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6132:2: 6132 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6133:2: 6133 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6134:2: 6134 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6135:2: 6135 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6136:2: 6136 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6137:2: 6137 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6138:2: 6138 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6139:2: 6139 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6140:2: 6140 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6141:2: 6141 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6142:2: 6142 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6143:2: 6143 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6144:2: 6144 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6145:2: 6145 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6146:2: 6146 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6147:2: 6147 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6148:2: 6148 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6149:2: 6149 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6150:2: 6150 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6151:2: 6151 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6152:2: 6152 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6153:2: 6153 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6154:2: 6154 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6155:2: 6155 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6156:2: 6156 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6157:2: 6157 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6158:2: 6158 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6159:2: 6159 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6160:2: 6160 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6161:2: 6161 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6162:2: 6162 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6163:2: 6163 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6164:2: 6164 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6165:2: 6165 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6166:2: 6166 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6167:2: 6167 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6168:2: 6168 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6169:2: 6169 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6170:2: 6170 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6171:2: 6171 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6172:2: 6172 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6175:2: 6175 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6176:2: 6176 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6177:2: 6177 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6178:2: 6178 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6179:2: 6179 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6180:2: 6180 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6181:2: 6181 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6182:2: 6182 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6183:2: 6183 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6184:2: 6184 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6185:2: 6185 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6186:2: 6186 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6187:2: 6187 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6188:2: 6188 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6189:2: 6189 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6190:2: 6190 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6191:2: 6191 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6192:2: 6192 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6193:2: 6193 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6194:2: 6194 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6195:2: 6195 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6196:2: 6196 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6197:2: 6197 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6198:2: 6198 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6199:2: 6199 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6200:2: 6200 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6201:2: 6201 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6202:2: 6202 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6205:2: 6205 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6206:2: 6206 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6207:2: 6207 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6208:2: 6208 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6209:2: 6209 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6210:2: 6210 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6211:2: 6211 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6212:2: 6212 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6213:2: 6213 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6214:2: 6214 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6215:2: 6215 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6216:2: 6216 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6217:2: 6217 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6218:2: 6218 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6219:2: 6219 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6220:2: 6220 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6221:2: 6221 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6222:2: 6222 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6223:2: 6223 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6227:2: 6227 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6228:2: 6228 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6229:2: 6229 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6230:2: 6230 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6231:2: 6231 | double precision, intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6232:2: 6232 | double precision, intent(out) :: gammacv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6233:2: 6233 | double precision allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6234:2: 6234 | double precision allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6235:2: 6235 | double precision losspredsum,minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6236:2: 6236 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6237:2: 6237 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6238:2: 6238 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6239:2: 6239 | allgammavaltrain(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6240:2: 6240 | gammacv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6241:2: 6241 | losspredsumvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6242:2: 6242 | call threetreesbootcvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6243:2: 6243 | nodenummattest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6244:2: 6244 | losspredsumvec(1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6245:2: 6245 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6246:2: 6246 | allfvalnew(:) = allfval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6247:2: 6247 | nodenummatnew(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6248:2: 6248 | nodenummatnewtest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6249:2: 6249 | do cvprunloop = 1,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6250:2: 6250 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6251:2: 6251 | call threetreesbootcvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6252:2: 6252 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6253:2: 6253 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6254:2: 6254 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6255:2: 6255 | call threetreesbootcvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6256:2: 6256 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6257:2: 6257 | call threetreesbootcvbestpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6258:2: 6258 | call threetreesbootcvbestpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6259:2: 6259 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6260:2: 6260 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6261:2: 6261 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6262:2: 6262 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6263:2: 6263 | allgammavaltrain(cvprunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6264:2: 6264 | call threetreesbootcvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6265:2: 6265 | nodenummatnewtest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6266:2: 6266 | losspredsumvec(cvprunloop+1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6267:2: 6267 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6268:2: 6268 | gammacv(1) = losspredsumvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6269:2: 6269 | j = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6270:2: 6270 | do i = 2,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6271:2: 6271 | if(allgammaval(i) == 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6272:2: 6272 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6273:2: 6273 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6274:2: 6274 | if(allgammaval(i) <= allgammavaltrain(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6275:2: 6275 | gammacv(i) = losspredsumvec(j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6276:2: 6276 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6277:2: 6277 | do k = 1,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6278:2: 6278 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6279:2: 6279 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6280:2: 6280 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6281:2: 6281 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6282:2: 6282 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6283:2: 6283 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6284:2: 6284 | gammacv(i) = losspredsumvec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6285:2: 6285 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6286:2: 6286 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6287:2: 6287 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6291:2: 6291 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6292:2: 6292 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6293:2: 6293 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6294:2: 6294 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6295:2: 6295 | double precision, intent(out) :: losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6296:2: 6296 | double precision, allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6297:2: 6297 | integer i,j,k,l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6298:2: 6298 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6299:2: 6299 | allocate(timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6300:2: 6300 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6301:2: 6301 | losspred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6302:2: 6302 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6303:2: 6303 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6304:2: 6304 | do j = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6305:2: 6305 | if(sum(nodenummat(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6306:2: 6306 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6307:2: 6307 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6308:2: 6308 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6309:2: 6309 | if(nodenummat(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6310:2: 6310 | timepred(nodenummat(j,maxdepth),int(traindata(j,3))) = timepred(nodenummat(j,maxdepth),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6311:2: 6311 | timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) = timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6312:2: 6312 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6313:2: 6313 | elseif(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6314:2: 6314 | timepred(nodenummat(j,i),int(traindata(j,3))) = timepred(nodenummat(j,i),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6315:2: 6315 | timepredcou(nodenummat(j,i),int(traindata(j,3))) = timepredcou(nodenummat(j,i),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6316:2: 6316 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6317:2: 6317 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6318:2: 6318 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6320:2: 6320 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6321:2: 6321 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6322:2: 6322 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6323:2: 6323 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6324:2: 6324 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6325:2: 6325 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6326:2: 6326 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6327:2: 6327 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6328:2: 6328 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6329:2: 6329 | do j=1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6330:2: 6330 | if(2**(j-1) <= i .and. i < 2**j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6331:2: 6331 | k = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6332:2: 6332 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6333:2: 6333 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6334:2: 6334 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6335:2: 6335 | do l = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6336:2: 6336 | if(nodenummattest(l,k) == i) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6337:2: 6337 | losspred(i,int(testdata(l,3))) = losspred(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6338:2: 6338 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6339:2: 6339 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6340:2: 6340 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6341:2: 6341 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6342:2: 6342 | losspredsum = sum(losspred) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6343:2: 6343 | deallocate(timepred,losspred,timepredcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6346:2: 6346 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6347:2: 6347 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6348:2: 6348 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6349:2: 6349 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6350:2: 6350 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6351:2: 6351 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6352:2: 6352 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6353:2: 6353 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6354:2: 6354 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6355:2: 6355 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6356:2: 6356 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6357:2: 6357 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6358:2: 6358 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6359:2: 6359 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6360:2: 6360 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6361:2: 6361 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6362:2: 6362 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6363:2: 6363 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6364:2: 6364 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6365:2: 6365 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6366:2: 6366 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6367:2: 6367 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6368:2: 6368 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6369:2: 6369 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6370:2: 6370 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6371:2: 6371 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6372:2: 6372 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6373:2: 6373 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6374:2: 6374 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6377:2: 6377 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6378:2: 6378 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6379:2: 6379 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6380:2: 6380 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6381:2: 6381 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6382:2: 6382 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6383:2: 6383 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6384:2: 6384 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6385:2: 6385 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6386:2: 6386 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6387:2: 6387 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6388:2: 6388 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6389:2: 6389 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6390:2: 6390 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6391:2: 6391 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6392:2: 6392 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6393:2: 6393 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6394:2: 6394 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6395:2: 6395 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6396:2: 6396 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6397:2: 6397 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6398:2: 6398 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6399:2: 6399 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6400:2: 6400 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6401:2: 6401 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6402:2: 6402 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6403:2: 6403 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6404:2: 6404 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6405:2: 6405 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6406:2: 6406 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6407:2: 6407 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6408:2: 6408 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6409:2: 6409 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6410:2: 6410 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6411:2: 6411 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6412:2: 6412 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6413:2: 6413 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6414:2: 6414 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6415:2: 6415 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6416:2: 6416 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6417:2: 6417 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6418:2: 6418 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6419:2: 6419 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6422:2: 6422 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6423:2: 6423 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6424:2: 6424 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6425:2: 6425 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6426:2: 6426 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6427:2: 6427 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6428:2: 6428 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6429:2: 6429 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6430:2: 6430 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6431:2: 6431 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6432:2: 6432 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6433:2: 6433 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6434:2: 6434 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6435:2: 6435 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6436:2: 6436 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6437:2: 6437 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6438:2: 6438 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6439:2: 6439 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6440:2: 6440 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6441:2: 6441 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6442:2: 6442 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6443:2: 6443 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6444:2: 6444 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6445:2: 6445 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6446:2: 6446 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6447:2: 6447 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6448:2: 6448 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6449:2: 6449 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6452:2: 6452 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6453:2: 6453 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6454:2: 6454 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6455:2: 6455 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6456:2: 6456 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6457:2: 6457 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6458:2: 6458 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6459:2: 6459 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6460:2: 6460 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6461:2: 6461 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6462:2: 6462 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6463:2: 6463 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6464:2: 6464 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6465:2: 6465 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6466:2: 6466 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6467:2: 6467 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6468:2: 6468 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6469:2: 6469 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6470:2: 6470 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6474:2: 6474 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6475:2: 6475 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize,cv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6476:2: 6476 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6477:2: 6477 | double precision,intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6478:2: 6478 | double precision,intent(in) :: bestgammaval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6479:2: 6479 | integer,intent(out) :: prunenodenummattest(testdatasize,maxdepth),prunenodenummat(traindatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6480:2: 6480 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6481:2: 6481 | double precision minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6482:2: 6482 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6483:2: 6483 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6484:2: 6484 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6485:2: 6485 | if(bestgammaval <= 0d0 .or. prunind==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6486:2: 6486 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6487:2: 6487 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6488:2: 6488 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6489:2: 6489 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6490:2: 6490 | gammavec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6491:2: 6491 | call threetreesbootgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6492:2: 6492 | call threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6493:2: 6493 | gammavec(1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6494:2: 6494 | if(gammavec(1) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6495:2: 6495 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6496:2: 6496 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6497:2: 6497 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6498:2: 6498 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6499:2: 6499 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6500:2: 6500 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6501:2: 6501 | call threetreesbootgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6502:2: 6502 | call threetreesbootgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6503:2: 6503 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6504:2: 6504 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6505:2: 6505 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6506:2: 6506 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6507:2: 6507 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6508:2: 6508 | prunenodenummattest(:,:) = nodenummatnewtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6509:2: 6509 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6510:2: 6510 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6511:2: 6511 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6512:2: 6512 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6513:2: 6513 | call threetreesbootgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6514:2: 6514 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6515:2: 6515 | prunenodenummattest(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6516:2: 6516 | prunenodenummattest(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6517:2: 6517 | prunenodenummat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6518:2: 6518 | prunenodenummat(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6519:2: 6519 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6520:2: 6520 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6521:2: 6521 | call threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6522:2: 6522 | gammavec(prunloop) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6523:2: 6523 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6524:2: 6524 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6525:2: 6525 | prunenodenummattest(:,:) = nodenummatnewtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6526:2: 6526 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6527:2: 6527 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6528:2: 6528 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6529:2: 6529 | call threetreesbootgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6530:2: 6530 | call threetreesbootgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6531:2: 6531 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6532:2: 6532 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6533:2: 6533 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6534:2: 6534 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6535:2: 6535 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6536:2: 6536 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6537:2: 6537 | prunenodenummattest(:,:) = nodenummatnewtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6538:2: 6538 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6539:2: 6539 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6540:2: 6540 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6544:2: 6544 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6545:2: 6545 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6546:2: 6546 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6547:2: 6547 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6548:2: 6548 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6549:2: 6549 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6550:2: 6550 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6551:2: 6551 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6552:2: 6552 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6553:2: 6553 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6554:2: 6554 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6555:2: 6555 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6556:2: 6556 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6557:2: 6557 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6558:2: 6558 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6559:2: 6559 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6560:2: 6560 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6561:2: 6561 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6562:2: 6562 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6563:2: 6563 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6564:2: 6564 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6565:2: 6565 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6566:2: 6566 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6567:2: 6567 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6568:2: 6568 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6569:2: 6569 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6570:2: 6570 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6571:2: 6571 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6572:2: 6572 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6575:2: 6575 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6576:2: 6576 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6577:2: 6577 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6578:2: 6578 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6579:2: 6579 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6580:2: 6580 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6581:2: 6581 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6582:2: 6582 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6583:2: 6583 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6584:2: 6584 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6585:2: 6585 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6586:2: 6586 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6587:2: 6587 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6588:2: 6588 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6589:2: 6589 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6590:2: 6590 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6591:2: 6591 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6592:2: 6592 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6593:2: 6593 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6594:2: 6594 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6595:2: 6595 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6596:2: 6596 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6597:2: 6597 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6598:2: 6598 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6599:2: 6599 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6600:2: 6600 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6601:2: 6601 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6602:2: 6602 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6603:2: 6603 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6604:2: 6604 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6605:2: 6605 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6606:2: 6606 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6607:2: 6607 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6608:2: 6608 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6609:2: 6609 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6610:2: 6610 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6611:2: 6611 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6612:2: 6612 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6613:2: 6613 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6614:2: 6614 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6615:2: 6615 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6616:2: 6616 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6617:2: 6617 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6620:2: 6620 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6621:2: 6621 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6622:2: 6622 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6623:2: 6623 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6624:2: 6624 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6625:2: 6625 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6626:2: 6626 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6627:2: 6627 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6628:2: 6628 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6629:2: 6629 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6630:2: 6630 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6631:2: 6631 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6632:2: 6632 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6633:2: 6633 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6634:2: 6634 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6635:2: 6635 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6636:2: 6636 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6637:2: 6637 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6638:2: 6638 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6639:2: 6639 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6640:2: 6640 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6641:2: 6641 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6642:2: 6642 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6643:2: 6643 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6644:2: 6644 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6645:2: 6645 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6646:2: 6646 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6647:2: 6647 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6650:2: 6650 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6651:2: 6651 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6652:2: 6652 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6653:2: 6653 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6654:2: 6654 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6655:2: 6655 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6656:2: 6656 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6657:2: 6657 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6658:2: 6658 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6659:2: 6659 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6660:2: 6660 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6661:2: 6661 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6662:2: 6662 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6663:2: 6663 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6664:2: 6664 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6665:2: 6665 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6666:2: 6666 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6667:2: 6667 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6668:2: 6668 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6672:2: 6672 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6673:2: 6673 | integer, intent(in) :: datasizeori,datasizeboot,levelcount,colnum,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6674:2: 6674 | integer, intent(in) :: prunenodenummatboot(datasizeboot,maxdepth),prunenodenummatori(datasizeori,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6675:2: 6675 | double precision, intent(in) :: bootDATA(datasizeboot,colnum),XYDATA(datasizeori,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6676:2: 6676 | integer, intent(out) :: datatnnodenum(datasizeori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6677:2: 6677 | double precision, intent(out) :: predvec(datasizeori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6678:2: 6678 | integer tndatacount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6679:2: 6679 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6680:2: 6680 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6681:2: 6681 | double precision tnodepredmat((2**maxdepth)-1,levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6682:2: 6682 | allocate(timepredsum((2**maxdepth)-1,levelcount),timepredcou((2**maxdepth)-1,levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6683:2: 6683 | timepredsum(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6684:2: 6684 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6685:2: 6685 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6686:2: 6686 | do j = 1,datasizeboot | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6687:2: 6687 | if(sum(prunenodenummatboot(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6688:2: 6688 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6689:2: 6689 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6690:2: 6690 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6691:2: 6691 | if(prunenodenummatboot(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6692:2: 6692 | timepredsum(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6693:2: 6693 | timepredsum(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) + bootDATA(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6694:2: 6694 | timepredcou(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6695:2: 6695 | timepredcou(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6696:2: 6696 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6697:2: 6697 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6698:2: 6698 | elseif(prunenodenummatboot(j,i) > 0 .and. prunenodenummatboot(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6699:2: 6699 | timepredsum(prunenodenummatboot(j,i),int(bootDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6700:2: 6700 | timepredsum(prunenodenummatboot(j,i),int(bootDATA(j,3))) + bootDATA(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6701:2: 6701 | timepredcou(prunenodenummatboot(j,i),int(bootDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6702:2: 6702 | timepredcou(prunenodenummatboot(j,i),int(bootDATA(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6703:2: 6703 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6704:2: 6704 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6705:2: 6705 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6707:2: 6707 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6708:2: 6708 | if(sum(prunenodenummatori(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6709:2: 6709 | goto 3020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6710:2: 6710 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6711:2: 6711 | do j = 1,datasizeori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6712:2: 6712 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6713:2: 6713 | if(prunenodenummatori(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6714:2: 6714 | datatnnodenum(j) = prunenodenummatori(j,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6715:2: 6715 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6716:2: 6716 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6717:2: 6717 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6718:2: 6718 | if(prunenodenummatori(j,i) > 0 .and. prunenodenummatori(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6719:2: 6719 | datatnnodenum(j) = prunenodenummatori(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6720:2: 6720 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6721:2: 6721 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6722:2: 6722 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6724:2: 6724 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6725:2: 6725 | if(abs(sum(timepredsum(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6726:2: 6726 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6727:2: 6727 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6728:2: 6728 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6729:2: 6729 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6730:2: 6730 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6731:2: 6731 | do i = 1,datasizeori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6732:2: 6732 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6733:2: 6733 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6737:2: 6737 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6738:2: 6738 | integer, intent(in) :: msize,loops,levelcount,mins,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6739:2: 6739 | double precision, intent(in) :: predvecmat(msize,loops),xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6740:2: 6740 | integer, intent(in) :: datatnnodenummat(msize,loops) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6741:2: 6741 | double precision, intent(out) :: bettertreelossval(mins,5),bettertreemaxval(mins,5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6742:2: 6742 | integer, intent(out) :: bettertreenum(mins,6) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6743:2: 6743 | double precision, allocatable :: randmat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6744:2: 6744 | integer ind1,ind2,ind3,samplesize,i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6745:2: 6745 | integer combinations(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6746:2: 6746 | integer losscomb(mins,3),randmaxcomb(mins,3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6747:2: 6747 | double precision lossvec(mins,5),randmaxvec(mins,5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6748:2: 6748 | double precision predmean(msize),randindexval,randval(3),lossval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6749:2: 6749 | double precision worst_loss, worst_randmax | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6750:2: 6750 | integer worst_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6751:2: 6751 | logical, allocatable :: has_split(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6752:2: 6752 | allocate(randmat(loops,loops)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6753:2: 6753 | allocate(has_split(loops)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6754:2: 6754 | samplesize = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6755:2: 6755 | do i = 1,loops | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6756:2: 6756 | has_split(i) = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6757:2: 6757 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6758:2: 6758 | if(datatnnodenummat(j,i) /= datatnnodenummat(1,i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6759:2: 6759 | has_split(i) = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6760:2: 6760 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6761:2: 6761 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6762:2: 6762 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6763:2: 6763 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6764:2: 6764 | randmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6765:2: 6765 | do i = 1,loops | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6766:2: 6766 | if(.not. has_split(i)) cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6767:2: 6767 | do j = (i+1),loops | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6768:2: 6768 | if(.not. has_split(j)) cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6769:2: 6769 | call threetreesrandindex(samplesize,levelcount,datatnnodenummat(:,i),datatnnodenummat(:,j),msize,randindexval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6770:2: 6770 | if(isnan(randindexval)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6771:2: 6771 | randmat(i,j) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6772:2: 6772 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6773:2: 6773 | randmat(i,j) = randindexval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6774:2: 6774 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6775:2: 6775 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6776:2: 6776 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6777:2: 6777 | lossvec(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6778:2: 6778 | randmaxvec(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6779:2: 6779 | losscomb(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6780:2: 6780 | randmaxcomb(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6781:2: 6781 | do i = 1,mins | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6782:2: 6782 | lossvec(i,1) = huge(1d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6783:2: 6783 | randmaxvec(i,1) = huge(1d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6784:2: 6784 | randmaxvec(i,3:5) = 2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6785:2: 6785 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6786:2: 6786 | do ind1 = 1, (loops-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6787:2: 6787 | if(.not. has_split(ind1)) cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6788:2: 6788 | do ind2 = (ind1 + 1), (loops-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6789:2: 6789 | if(.not. has_split(ind2)) cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6790:2: 6790 | do ind3 = (ind2 + 1), loops | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6791:2: 6791 | if(.not. has_split(ind3)) cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6792:2: 6792 | combinations(1) = ind1 ; combinations(2) = ind2 ; combinations(3) = ind3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6793:2: 6793 | predmean(:) = (predvecmat(:,ind1) + predvecmat(:,ind2) + predvecmat(:,ind3)) / 3d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6794:2: 6794 | lossval = sum((xydata(:,1) - predmean(:))*(xydata(:,1) - predmean(:))) / dble(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6795:2: 6795 | randval(1) = randmat(ind1,ind2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6796:2: 6796 | randval(2) = randmat(ind1,ind3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6797:2: 6797 | randval(3) = randmat(ind2,ind3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6798:2: 6798 | worst_loss = lossvec(1,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6799:2: 6799 | worst_idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6800:2: 6800 | do i = 2,mins | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6801:2: 6801 | if(lossvec(i,1) > worst_loss) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6802:2: 6802 | worst_loss = lossvec(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6803:2: 6803 | worst_idx = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6804:2: 6804 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6805:2: 6805 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6806:2: 6806 | if(lossval < worst_loss) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6807:2: 6807 | lossvec(worst_idx,1) = lossval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6808:2: 6808 | losscomb(worst_idx,:) = combinations(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6809:2: 6809 | lossvec(worst_idx,2) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6810:2: 6810 | lossvec(worst_idx,3:5) = randval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6811:2: 6811 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6812:2: 6812 | worst_randmax = maxval(randmaxvec(1,3:5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6813:2: 6813 | worst_idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6814:2: 6814 | do i = 2,mins | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6815:2: 6815 | if(maxval(randmaxvec(i,3:5)) > worst_randmax) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6816:2: 6816 | worst_randmax = maxval(randmaxvec(i,3:5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6817:2: 6817 | worst_idx = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6818:2: 6818 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6819:2: 6819 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6820:2: 6820 | if(maxval(randval(:)) < worst_randmax) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6821:2: 6821 | randmaxvec(worst_idx,1) = lossval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6822:2: 6822 | randmaxcomb(worst_idx,:) = combinations(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6823:2: 6823 | randmaxvec(worst_idx,2) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6824:2: 6824 | randmaxvec(worst_idx,3:5) = randval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6825:2: 6825 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6826:2: 6826 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6827:2: 6827 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6828:2: 6828 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6829:2: 6829 | deallocate(randmat, has_split) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6830:2: 6830 | do i = 1,mins | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6831:2: 6831 | bettertreenum(i,1:3) = losscomb(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6832:2: 6832 | bettertreenum(i,4:6) = randmaxcomb(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6833:2: 6833 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6834:2: 6834 | bettertreelossval(:,:) = lossvec(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6835:2: 6835 | bettertreemaxval(:,:) = randmaxvec(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6838:2: 6838 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6839:2: 6839 | integer, intent(in) :: msize,samplesize,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6840:2: 6840 | integer, intent(in) :: datatnnodenum(msize),datatnnodenumtrue(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6841:2: 6841 | double precision, intent(out) :: randindexval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6842:2: 6842 | integer tncount,tncounttrue,i,j,k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6843:2: 6843 | integer datatnnodenumnorm(msize),datatnnodenumtruenorm(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6844:2: 6844 | integer subtnnodenumnorm(samplesize),subtnnodenumtruenorm(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6845:2: 6845 | double precision form1,form2,form3,form4,formval,rowsum,colsum,denom,num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6846:2: 6846 | integer nz,r,c | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6847:2: 6847 | logical same | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6848:2: 6848 | double precision, allocatable :: tnval(:),tntrueval(:),conttable(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6849:2: 6849 | call threetreestcdatasum(dble(datatnnodenum(:)),msize,tncount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6850:2: 6850 | call threetreestcdatasum(dble(datatnnodenumtrue(:)),msize,tncounttrue) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6851:2: 6851 | allocate(tnval(tncount),tntrueval(tncounttrue)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6852:2: 6852 | call threetreestcdataval(dble(datatnnodenum(:)),msize,tnval,tncount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6853:2: 6853 | call threetreestcdataval(dble(datatnnodenumtrue(:)),msize,tntrueval,tncounttrue) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6854:2: 6854 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6855:2: 6855 | do j = 1,tncount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6856:2: 6856 | if(datatnnodenum(i) == int(tnval(j))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6857:2: 6857 | datatnnodenumnorm(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6858:2: 6858 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6859:2: 6859 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6860:2: 6860 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6861:2: 6861 | do k = 1,tncounttrue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6862:2: 6862 | if(datatnnodenumtrue(i) == int(tntrueval(k))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6863:2: 6863 | datatnnodenumtruenorm(i) = k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6864:2: 6864 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6865:2: 6865 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6866:2: 6866 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6867:2: 6867 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6868:2: 6868 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6869:2: 6869 | do i = 1,samplesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6870:2: 6870 | subtnnodenumnorm(i) = datatnnodenumnorm(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6871:2: 6871 | subtnnodenumtruenorm(i) = datatnnodenumtruenorm(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6872:2: 6872 | j = j + levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6873:2: 6873 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6874:2: 6874 | allocate(conttable(tncount,tncounttrue)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6875:2: 6875 | conttable(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6876:2: 6876 | do i = 1,samplesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6877:2: 6877 | conttable(subtnnodenumnorm(i),subtnnodenumtruenorm(i)) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6878:2: 6878 | conttable(subtnnodenumnorm(i),subtnnodenumtruenorm(i)) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6879:2: 6879 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6880:2: 6880 | form1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6881:2: 6881 | do i = 1,tncount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6882:2: 6882 | do j = 1,tncounttrue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6883:2: 6883 | formval = conttable(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6884:2: 6884 | if(formval > 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6885:2: 6885 | form1 = form1 + formval * (formval - 1d0) / 2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6886:2: 6886 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6887:2: 6887 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6888:2: 6888 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6889:2: 6889 | form2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6890:2: 6890 | do i = 1,tncount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6891:2: 6891 | rowsum = sum(conttable(i,:)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6892:2: 6892 | if(rowsum > 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6893:2: 6893 | form2 = form2 + rowsum * (rowsum - 1d0) / 2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6894:2: 6894 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6895:2: 6895 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6896:2: 6896 | form3 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6897:2: 6897 | do j = 1,tncounttrue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6898:2: 6898 | colsum = sum(conttable(:,j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6899:2: 6899 | if(colsum > 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6900:2: 6900 | form3 = form3 + colsum * (colsum - 1d0) / 2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6901:2: 6901 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6902:2: 6902 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6903:2: 6903 | form4 = dble(samplesize) * dble(samplesize - 1) / 2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6904:2: 6904 | denom = 0.5d0 * (form2 + form3) - (form2 * form3) / form4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6905:2: 6905 | num = form1 - (form2 * form3) / form4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6906:2: 6906 | if(abs(denom) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6907:2: 6907 | if(abs(num) > 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6908:2: 6908 | randindexval = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6909:2: 6909 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6910:2: 6910 | same = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6911:2: 6911 | do r = 1, tncount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6912:2: 6912 | nz = count(conttable(r,:) > 0d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6913:2: 6913 | if(nz > 1) same = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6914:2: 6914 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6915:2: 6915 | do c = 1, tncounttrue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6916:2: 6916 | nz = count(conttable(:,c) > 0d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6917:2: 6917 | if(nz > 1) same = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6918:2: 6918 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6919:2: 6919 | if(same) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6920:2: 6920 | randindexval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6921:2: 6921 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6922:2: 6922 | randindexval = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6923:2: 6923 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6924:2: 6924 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6925:2: 6925 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6926:2: 6926 | randindexval = num / denom | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6927:2: 6927 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6928:2: 6928 | deallocate(conttable,tnval,tntrueval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6931:2: 6931 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6932:2: 6932 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6933:2: 6933 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6934:2: 6934 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6935:2: 6935 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6936:2: 6936 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6937:2: 6937 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6938:2: 6938 | call threetreestcdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6939:2: 6939 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6940:2: 6940 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6941:2: 6941 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6942:2: 6942 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6943:2: 6943 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6944:2: 6944 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6945:2: 6945 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6948:2: 6948 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6949:2: 6949 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6950:2: 6950 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6951:2: 6951 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6952:2: 6952 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6953:2: 6953 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6954:2: 6954 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6955:2: 6955 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6956:2: 6956 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6957:2: 6957 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6958:2: 6958 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6959:2: 6959 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6960:2: 6960 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6961:2: 6961 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6962:2: 6962 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6963:2: 6963 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6964:2: 6964 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6965:2: 6965 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6966:2: 6966 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6967:2: 6967 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6968:2: 6968 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6969:2: 6969 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6970:2: 6970 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6971:2: 6971 | call threetreestcdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6972:2: 6972 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6973:2: 6973 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6974:2: 6974 | call threetreestcdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6975:2: 6975 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6976:2: 6976 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6979:2: 6979 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6980:2: 6980 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6981:2: 6981 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6982:2: 6982 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6983:2: 6983 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6984:2: 6984 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6985:2: 6985 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6986:2: 6986 | call threetreestcdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6987:2: 6987 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6988:2: 6988 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6989:2: 6989 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6990:2: 6990 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6991:2: 6991 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6992:2: 6992 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6993:2: 6993 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6994:2: 6994 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6997:2: 6997 | beta1len,beta2len,nodenummat,allfval,prunind,Rsplitmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6998:2: 6998 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6999:2: 6999 | integer,intent(in) :: msize,colnum,levelcount,beta1len,beta2len,maxdepth,minsplit,minbucket | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7000:2: 7000 | integer,intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7001:2: 7001 | double precision,intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7002:2: 7002 | double precision,intent(in) :: xydata(msize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7003:2: 7003 | double precision, intent(out) :: Rsplitmat((2**maxdepth)-1,10) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7004:2: 7004 | double precision,intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7005:2: 7005 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7006:2: 7006 | integer,intent(out) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7007:2: 7007 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7008:2: 7008 | double precision fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7009:2: 7009 | integer nodenum, hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,sizenum,sizer,sizel,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7010:2: 7010 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5),nodenummatsub(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7011:2: 7011 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:), splitindvec(:),nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7012:2: 7012 | double precision,allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),xynodedata(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7013:2: 7013 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7014:2: 7014 | integer, allocatable :: flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7015:2: 7015 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7016:2: 7016 | double precision :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7017:2: 7017 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7018:2: 7018 | Rsplitmat(:,:) = 0.0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7019:2: 7019 | nodenummat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7020:2: 7020 | nodenummat(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7021:2: 7021 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7022:2: 7022 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7023:2: 7023 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7024:2: 7024 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7025:2: 7025 | allocate(nodesize(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7026:2: 7026 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7027:2: 7027 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7028:2: 7028 | call threetreessplitcount(msize, colnum-3, xydata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7029:2: 7029 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7030:2: 7030 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7031:2: 7031 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7032:2: 7032 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7033:2: 7033 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7034:2: 7034 | allocate(anovadata(msize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7035:2: 7035 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7036:2: 7036 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7037:2: 7037 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7038:2: 7038 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7039:2: 7039 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7040:2: 7040 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7041:2: 7041 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7042:2: 7042 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7043:2: 7043 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7044:2: 7044 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7045:2: 7045 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),xydata,msize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7046:2: 7046 | call threetreesrepANOVA(msize,colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7047:2: 7047 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7048:2: 7048 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7049:2: 7049 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7050:2: 7050 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7051:2: 7051 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7052:2: 7052 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7053:2: 7053 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7054:2: 7054 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7055:2: 7055 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7056:2: 7056 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7057:2: 7057 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7058:2: 7058 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7059:2: 7059 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7060:2: 7060 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7061:2: 7061 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7062:2: 7062 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7063:2: 7063 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7064:2: 7064 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7065:2: 7065 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7066:2: 7066 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7067:2: 7067 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7068:2: 7068 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7069:2: 7069 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7070:2: 7070 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7071:2: 7071 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7072:2: 7072 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7073:2: 7073 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7074:2: 7074 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7075:2: 7075 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7076:2: 7076 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7077:2: 7077 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7078:2: 7078 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7079:2: 7079 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7080:2: 7080 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7081:2: 7081 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7082:2: 7082 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7083:2: 7083 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7084:2: 7084 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7085:2: 7085 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7086:2: 7086 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7087:2: 7087 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7088:2: 7088 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7089:2: 7089 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7090:2: 7090 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7091:2: 7091 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7092:2: 7092 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7093:2: 7093 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7094:2: 7094 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7095:2: 7095 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7096:2: 7096 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7097:2: 7097 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7098:2: 7098 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7099:2: 7099 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7100:2: 7100 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7101:2: 7101 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7102:2: 7102 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7103:2: 7103 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7104:2: 7104 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7105:2: 7105 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7106:2: 7106 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7107:2: 7107 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7108:2: 7108 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7109:2: 7109 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7110:2: 7110 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7111:2: 7111 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7112:2: 7112 | xydata,msize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7113:2: 7113 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7114:2: 7114 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7115:2: 7115 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7116:2: 7116 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7117:2: 7117 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7118:2: 7118 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7119:2: 7119 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7120:2: 7120 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7121:2: 7121 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7122:2: 7122 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7123:2: 7123 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7124:2: 7124 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7125:2: 7125 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7126:2: 7126 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7127:2: 7127 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7128:2: 7128 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7129:2: 7129 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7130:2: 7130 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7131:2: 7131 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7132:2: 7132 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7133:2: 7133 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7134:2: 7134 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7135:2: 7135 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7136:2: 7136 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7137:2: 7137 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7138:2: 7138 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7139:2: 7139 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7140:2: 7140 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7141:2: 7141 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7142:2: 7142 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7143:2: 7143 | xydata,msize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7144:2: 7144 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7145:2: 7145 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7146:2: 7146 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7147:2: 7147 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7148:2: 7148 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7149:2: 7149 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7150:2: 7150 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7151:2: 7151 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7152:2: 7152 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7153:2: 7153 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7154:2: 7154 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7155:2: 7155 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7156:2: 7156 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7157:2: 7157 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7158:2: 7158 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7159:2: 7159 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7160:2: 7160 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7161:2: 7161 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7162:2: 7162 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7163:2: 7163 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7164:2: 7164 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7165:2: 7165 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7166:2: 7166 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7167:2: 7167 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7168:2: 7168 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7169:2: 7169 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7170:2: 7170 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7171:2: 7171 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7172:2: 7172 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7173:2: 7173 | if(splitgroupsum <= dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7174:2: 7174 | (dble(msize) - splitgroupsum) <= dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7175:2: 7175 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7176:2: 7176 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7177:2: 7177 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7178:2: 7178 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7179:2: 7179 | Rsplitmat(1,1) =dble(nodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7180:2: 7180 | Rsplitmat(1,2) = splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7181:2: 7181 | Rsplitmat(1,3) = 1d0-splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7182:2: 7182 | Rsplitmat(1,4) = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7183:2: 7183 | Rsplitmat(1,5) = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7184:2: 7184 | Rsplitmat(1,6) = splitfval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7185:2: 7185 | Rsplitmat(1,7) = splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7186:2: 7186 | Rsplitmat(1,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7187:2: 7187 | Rsplitmat(1,9) = splitpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7188:2: 7188 | Rsplitmat(1,10) = splitmcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7189:2: 7189 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7190:2: 7190 | call threetreesnodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7191:2: 7191 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7192:2: 7192 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7193:2: 7193 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7194:2: 7194 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7195:2: 7195 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7196:2: 7196 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7197:2: 7197 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7198:2: 7198 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7199:2: 7199 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7200:2: 7200 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7201:2: 7201 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7202:2: 7202 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7203:2: 7203 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7204:2: 7204 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7205:2: 7205 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7206:2: 7206 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7207:2: 7207 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7208:2: 7208 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7209:2: 7209 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7210:2: 7210 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7211:2: 7211 | call threetreesnodedatanumber(xydata,msize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7212:2: 7212 | call threetreessplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7213:2: 7213 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7214:2: 7214 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7215:2: 7215 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7216:2: 7216 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7217:2: 7217 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7218:2: 7218 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7219:2: 7219 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7220:2: 7220 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7221:2: 7221 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7222:2: 7222 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7223:2: 7223 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7224:2: 7224 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7225:2: 7225 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7226:2: 7226 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7227:2: 7227 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7228:2: 7228 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7229:2: 7229 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7230:2: 7230 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7231:2: 7231 | if(allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7232:2: 7232 | deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7233:2: 7233 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7234:2: 7234 | if(.not. allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7235:2: 7235 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7236:2: 7236 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7237:2: 7237 | if(allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7238:2: 7238 | deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7239:2: 7239 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7240:2: 7240 | if(.not. allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7241:2: 7241 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7242:2: 7242 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7243:2: 7243 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7244:2: 7244 | countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7245:2: 7245 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7246:2: 7246 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7247:2: 7247 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7248:2: 7248 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7249:2: 7249 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7250:2: 7250 | call threetreesrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7251:2: 7251 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7252:2: 7252 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7253:2: 7253 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7254:2: 7254 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7255:2: 7255 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7256:2: 7256 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7257:2: 7257 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7258:2: 7258 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7259:2: 7259 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7260:2: 7260 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7261:2: 7261 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7262:2: 7262 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7263:2: 7263 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7264:2: 7264 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7265:2: 7265 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7266:2: 7266 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7267:2: 7267 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7268:2: 7268 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7269:6: 7269 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7270:2: 7270 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7271:2: 7271 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7272:2: 7272 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7273:2: 7273 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7274:2: 7274 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7275:2: 7275 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7276:2: 7276 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7277:2: 7277 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7278:2: 7278 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7279:2: 7279 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7280:2: 7280 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7281:2: 7281 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7282:2: 7282 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7283:2: 7283 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7284:2: 7284 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7285:2: 7285 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7286:2: 7286 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7287:2: 7287 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7288:2: 7288 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7289:2: 7289 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7290:2: 7290 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7291:2: 7291 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7292:2: 7292 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7293:2: 7293 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7294:2: 7294 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7295:2: 7295 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7296:2: 7296 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7297:2: 7297 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7298:2: 7298 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7299:2: 7299 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7300:2: 7300 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7301:2: 7301 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7302:2: 7302 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7303:2: 7303 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7304:2: 7304 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7305:2: 7305 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7306:2: 7306 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7307:2: 7307 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7308:2: 7308 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7309:2: 7309 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7310:2: 7310 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7311:2: 7311 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7312:2: 7312 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7313:2: 7313 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7314:2: 7314 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7315:2: 7315 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7316:2: 7316 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7317:2: 7317 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7318:2: 7318 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7319:2: 7319 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7320:2: 7320 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7321:2: 7321 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7322:2: 7322 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7323:2: 7323 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7324:2: 7324 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7325:2: 7325 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7326:2: 7326 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7327:2: 7327 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7328:2: 7328 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7329:2: 7329 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7330:2: 7330 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7331:2: 7331 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7332:2: 7332 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7333:2: 7333 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7334:2: 7334 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7335:2: 7335 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7336:2: 7336 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7337:2: 7337 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7338:2: 7338 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7339:2: 7339 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7340:2: 7340 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7341:2: 7341 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7342:2: 7342 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7343:2: 7343 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7344:2: 7344 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7345:2: 7345 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7346:2: 7346 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7347:2: 7347 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7348:2: 7348 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7349:2: 7349 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7350:2: 7350 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7351:2: 7351 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7352:2: 7352 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7353:2: 7353 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7354:2: 7354 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7355:2: 7355 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7356:2: 7356 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7357:2: 7357 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7358:2: 7358 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7359:2: 7359 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7360:2: 7360 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7361:2: 7361 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7362:2: 7362 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7363:2: 7363 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7364:2: 7364 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7365:2: 7365 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7366:2: 7366 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7367:2: 7367 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7368:2: 7368 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7369:2: 7369 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7370:2: 7370 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7371:2: 7371 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7372:2: 7372 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7373:2: 7373 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7374:2: 7374 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7375:2: 7375 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7376:2: 7376 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7377:2: 7377 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7378:2: 7378 | if(splitgroupsum <= dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7379:2: 7379 | (dble(nodesize(nodeloop)) - splitgroupsum) <= dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7380:2: 7380 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7381:2: 7381 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7382:2: 7382 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7383:2: 7383 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7384:2: 7384 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7385:2: 7385 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7386:2: 7386 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7387:2: 7387 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7388:2: 7388 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7389:2: 7389 | call threetreesnodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7390:2: 7390 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7391:2: 7391 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7392:2: 7392 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7393:2: 7393 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7394:2: 7394 | Rsplitmat(nodenum,1) =dble(nodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7395:2: 7395 | Rsplitmat(nodenum,2) = splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7396:2: 7396 | Rsplitmat(nodenum,3) = 1d0-splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7397:2: 7397 | Rsplitmat(nodenum,4) = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7398:2: 7398 | Rsplitmat(nodenum,5) = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7399:2: 7399 | Rsplitmat(nodenum,6) = splitfval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7400:2: 7400 | Rsplitmat(nodenum,7) = splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7401:2: 7401 | Rsplitmat(nodenum,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7402:2: 7402 | Rsplitmat(nodenum,9) = splitpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7403:2: 7403 | Rsplitmat(nodenum,10) = splitmcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7404:6: 7404 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7405:2: 7405 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7406:2: 7406 | deallocate(anovadata,xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7407:2: 7407 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7408:2: 7408 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7409:2: 7409 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7410:2: 7410 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7411:2: 7411 | deallocate(nodesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7412:2: 7412 | allocate(nodesize(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7413:2: 7413 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7414:2: 7414 | deallocate(nodesizesub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7415:2: 7415 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7417:2: 7417 | deallocate(nodesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7421:2: 7421 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7422:2: 7422 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7423:2: 7423 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7424:2: 7424 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7425:2: 7425 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7426:2: 7426 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7427:2: 7427 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7428:2: 7428 | call threetreesdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7429:2: 7429 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7430:2: 7430 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7431:2: 7431 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7432:2: 7432 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7433:2: 7433 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7434:2: 7434 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7435:2: 7435 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7438:2: 7438 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7439:2: 7439 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7440:2: 7440 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7441:2: 7441 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7442:2: 7442 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7443:2: 7443 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7444:2: 7444 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7445:2: 7445 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7446:2: 7446 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7447:2: 7447 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7448:2: 7448 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7449:2: 7449 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7450:2: 7450 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7451:2: 7451 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7452:2: 7452 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7453:2: 7453 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7454:2: 7454 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7455:2: 7455 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7456:2: 7456 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7457:2: 7457 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7458:2: 7458 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7459:2: 7459 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7460:2: 7460 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7461:2: 7461 | call threetreesdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7462:2: 7462 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7463:2: 7463 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7464:2: 7464 | call threetreesdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7465:2: 7465 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7466:2: 7466 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7469:2: 7469 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7470:2: 7470 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7471:2: 7471 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7472:2: 7472 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7473:2: 7473 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7474:2: 7474 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7475:2: 7475 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7476:2: 7476 | call threetreesdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7477:2: 7477 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7478:2: 7478 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7479:2: 7479 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7480:2: 7480 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7481:2: 7481 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7482:2: 7482 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7483:2: 7483 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7484:2: 7484 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7487:2: 7487 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7488:2: 7488 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7489:2: 7489 | double precision, intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7490:2: 7490 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7491:2: 7491 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7492:2: 7492 | double precision datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7493:2: 7493 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7494:2: 7494 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7495:2: 7495 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7496:2: 7496 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7497:2: 7497 | call threetreesdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7498:2: 7498 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7499:2: 7499 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7500:2: 7500 | call threetreesdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7501:2: 7501 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7502:2: 7502 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7503:2: 7503 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7504:2: 7504 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7507:2: 7507 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7508:2: 7508 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7509:2: 7509 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7510:2: 7510 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7511:2: 7511 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7512:2: 7512 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7513:2: 7513 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7514:2: 7514 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7515:2: 7515 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7516:2: 7516 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7517:2: 7517 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7518:2: 7518 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7519:2: 7519 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7520:2: 7520 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7521:2: 7521 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7522:2: 7522 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7523:2: 7523 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7524:2: 7524 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7525:2: 7525 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7526:2: 7526 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7527:2: 7527 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7528:2: 7528 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7529:2: 7529 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7530:2: 7530 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7531:2: 7531 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7532:2: 7532 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7533:2: 7533 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7534:2: 7534 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7535:2: 7535 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7536:2: 7536 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7537:2: 7537 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7538:2: 7538 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7539:2: 7539 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7540:2: 7540 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7541:2: 7541 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7544:2: 7544 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7545:2: 7545 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7546:2: 7546 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7547:2: 7547 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7548:2: 7548 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7549:2: 7549 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7550:2: 7550 | double precision facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7551:2: 7551 | call threetreesdataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7552:2: 7552 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7553:2: 7553 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7554:2: 7554 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7555:2: 7555 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7556:2: 7556 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7557:2: 7557 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7558:2: 7558 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7559:2: 7559 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7560:2: 7560 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7563:2: 7563 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7564:2: 7564 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7565:2: 7565 | double precision, intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7566:2: 7566 | double precision, intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7567:2: 7567 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7568:2: 7568 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7569:2: 7569 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7570:2: 7570 | double precision ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7571:2: 7571 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7572:2: 7572 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7573:2: 7573 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7574:2: 7574 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7575:2: 7575 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7576:2: 7576 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7577:2: 7577 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7578:2: 7578 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7579:2: 7579 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7580:2: 7580 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7581:2: 7581 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7582:2: 7582 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7583:2: 7583 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7584:2: 7584 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7585:2: 7585 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7586:2: 7586 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7587:2: 7587 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7588:2: 7588 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7589:2: 7589 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7590:2: 7590 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7591:2: 7591 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7592:2: 7592 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7593:2: 7593 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7594:2: 7594 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7595:2: 7595 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7596:2: 7596 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7597:2: 7597 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7598:2: 7598 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7599:2: 7599 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7600:2: 7600 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7601:2: 7601 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7602:2: 7602 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7603:2: 7603 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7604:2: 7604 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7605:2: 7605 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7606:2: 7606 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7607:2: 7607 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7608:2: 7608 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7609:2: 7609 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7610:2: 7610 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7611:2: 7611 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7612:2: 7612 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7613:2: 7613 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7614:2: 7614 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7615:2: 7615 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7616:2: 7616 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7617:2: 7617 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7618:2: 7618 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7619:2: 7619 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7620:2: 7620 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7621:2: 7621 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7622:2: 7622 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7623:2: 7623 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7624:2: 7624 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7625:2: 7625 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7626:2: 7626 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7627:2: 7627 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7628:2: 7628 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7629:2: 7629 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7630:2: 7630 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7631:2: 7631 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7632:2: 7632 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7633:2: 7633 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7634:2: 7634 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7635:2: 7635 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7636:2: 7636 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7637:2: 7637 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7638:2: 7638 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7639:2: 7639 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7642:2: 7642 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7643:2: 7643 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7644:2: 7644 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7645:2: 7645 | double precision, intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7646:2: 7646 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7647:2: 7647 | double precision xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7648:2: 7648 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7649:2: 7649 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7650:2: 7650 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7651:2: 7651 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7652:2: 7652 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7653:2: 7653 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7654:2: 7654 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7655:2: 7655 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7656:2: 7656 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7657:2: 7657 | call threetreespfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7658:2: 7658 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7659:2: 7659 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7660:2: 7660 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7661:2: 7661 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7662:2: 7662 | call threetreespfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7663:2: 7663 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7664:2: 7664 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7665:2: 7665 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7666:2: 7666 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7667:2: 7667 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7668:2: 7668 | call threetreesdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7669:2: 7669 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7671:2: 7671 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7674:2: 7674 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7675:2: 7675 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7676:2: 7676 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7677:2: 7677 | double precision,intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7678:2: 7678 | double precision,intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7679:2: 7679 | double precision res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7680:2: 7680 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7682:2: 7682 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7683:2: 7683 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7684:2: 7684 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7685:2: 7685 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7686:2: 7686 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7687:2: 7687 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7688:2: 7688 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7693:2: 7693 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7694:2: 7694 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7695:2: 7695 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7700:2: 7700 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7701:2: 7701 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7702:2: 7702 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7703:2: 7703 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7704:2: 7704 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7705:2: 7705 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7706:2: 7706 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7707:2: 7707 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7708:2: 7708 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7709:2: 7709 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7710:2: 7710 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7711:2: 7711 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7712:2: 7712 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7713:2: 7713 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7714:2: 7714 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7715:2: 7715 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7716:2: 7716 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7717:2: 7717 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7718:2: 7718 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7721:2: 7721 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7722:2: 7722 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7724:2: 7724 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7725:2: 7725 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7752:2: 7752 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7761:2: 7761 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7762:2: 7762 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7768:2: 7768 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7802:2: 7802 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7813:2: 7813 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7814:2: 7814 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7815:2: 7815 | double precision,intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7816:2: 7816 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7817:2: 7817 | eps=1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7818:2: 7818 | s1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7819:2: 7819 | s2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7820:2: 7820 | zval = (z-((1d0-weight)*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7821:2: 7821 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7822:2: 7822 | form2 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7823:2: 7823 | form3 = (df11/df12)**(df11/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7824:2: 7824 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7825:2: 7825 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7826:2: 7826 | form6 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7827:2: 7827 | form7 = (df21/df22)**(df21/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7828:2: 7828 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7829:2: 7829 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7830:2: 7830 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7834:2: 7834 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7835:2: 7835 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7836:2: 7836 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7837:2: 7837 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7838:2: 7838 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7839:2: 7839 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7840:2: 7840 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7841:2: 7841 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7842:2: 7842 | nodenummatsub(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7843:2: 7843 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7844:2: 7844 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7845:2: 7845 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7846:2: 7846 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7847:2: 7847 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7848:2: 7848 | nodenummatsub(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7849:2: 7849 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7850:2: 7850 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7851:2: 7851 | nodenummatsub(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7852:2: 7852 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7853:2: 7853 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7854:2: 7854 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7855:2: 7855 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7856:2: 7856 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7857:2: 7857 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7860:2: 7860 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7861:2: 7861 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7862:2: 7862 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7863:2: 7863 | integer, intent(in) :: nodenummat(msize,11) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7864:2: 7864 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7865:2: 7865 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7866:2: 7866 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7867:2: 7867 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7868:2: 7868 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7869:2: 7869 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7870:2: 7870 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7871:2: 7871 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7872:2: 7872 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7875:2: 7875 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7876:2: 7876 | integer,intent(in) :: prunind,msize,cv,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7877:2: 7877 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7878:2: 7878 | double precision,intent(in) :: alpha,gamma,allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7879:2: 7879 | double precision,intent(out) :: allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7880:2: 7880 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7881:2: 7881 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7882:2: 7882 | double precision minghval,allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7883:2: 7883 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7884:2: 7884 | allgammaval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7885:2: 7885 | if(prunind == 1 .or. alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7886:2: 7886 | goto 3001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7887:2: 7887 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7888:2: 7888 | call threetreescvterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7889:2: 7889 | call threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7890:2: 7890 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7891:2: 7891 | call threetreescvpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7892:2: 7892 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7893:2: 7893 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7894:2: 7894 | allgammaval(2) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7895:2: 7895 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7896:2: 7896 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7897:2: 7897 | call threetreescvterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7898:2: 7898 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7899:2: 7899 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7900:2: 7900 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7901:2: 7901 | call threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7902:2: 7902 | allocate(nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7903:2: 7903 | call threetreescvpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7904:2: 7904 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7905:2: 7905 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7906:2: 7906 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7907:2: 7907 | allgammaval(prunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7908:2: 7908 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7912:2: 7912 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7913:2: 7913 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7914:2: 7914 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7915:2: 7915 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7916:2: 7916 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7917:2: 7917 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7918:2: 7918 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7919:2: 7919 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7920:2: 7920 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7921:2: 7921 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7922:2: 7922 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7923:2: 7923 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7924:2: 7924 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7925:2: 7925 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7926:2: 7926 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7927:2: 7927 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7928:2: 7928 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7929:2: 7929 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7930:2: 7930 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7931:2: 7931 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7932:2: 7932 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7933:2: 7933 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7934:2: 7934 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7935:2: 7935 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7936:2: 7936 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7937:2: 7937 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7938:2: 7938 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7939:2: 7939 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7940:2: 7940 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7943:2: 7943 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7944:2: 7944 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7945:2: 7945 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7946:2: 7946 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7947:2: 7947 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7948:2: 7948 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7949:2: 7949 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7950:2: 7950 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7951:2: 7951 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7952:2: 7952 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7953:2: 7953 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7954:2: 7954 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7955:2: 7955 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7956:2: 7956 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7957:2: 7957 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7958:2: 7958 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7959:2: 7959 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7960:2: 7960 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7961:2: 7961 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7962:2: 7962 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7963:2: 7963 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7964:2: 7964 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7965:2: 7965 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7966:2: 7966 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7967:2: 7967 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7968:2: 7968 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7969:2: 7969 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7970:2: 7970 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7971:2: 7971 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7972:2: 7972 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7973:2: 7973 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7974:2: 7974 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7975:2: 7975 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7976:2: 7976 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7977:2: 7977 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7978:2: 7978 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7979:2: 7979 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7980:2: 7980 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7981:2: 7981 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7982:2: 7982 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7983:2: 7983 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7984:2: 7984 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7985:2: 7985 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7988:2: 7988 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7989:2: 7989 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7990:2: 7990 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7991:2: 7991 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7992:2: 7992 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7993:2: 7993 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7994:2: 7994 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7995:2: 7995 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7996:2: 7996 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7997:2: 7997 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7998:2: 7998 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7999:2: 7999 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8000:2: 8000 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8001:2: 8001 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8002:2: 8002 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8003:2: 8003 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8004:2: 8004 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8005:2: 8005 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8006:2: 8006 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8007:2: 8007 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8008:2: 8008 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8009:2: 8009 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8010:2: 8010 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8011:2: 8011 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8012:2: 8012 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8013:2: 8013 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8014:2: 8014 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8015:2: 8015 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8020:2: 8020 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8021:2: 8021 | integer,intent(in) :: cv,msize,colnum,Ksplit,maxdepth,levelcount,beta1len,beta2len,minbucket,minsplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8022:2: 8022 | integer,intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8023:2: 8023 | integer,intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8024:2: 8024 | double precision,intent(in) :: alpha,gamma,fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8025:2: 8025 | double precision,intent(in) :: beta1(beta1len),beta2(beta2len),allgammaval1((2**(maxdepth-1))-1),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8026:2: 8026 | allgammaval2((2**(maxdepth-1))-1),allgammaval3((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8027:2: 8027 | integer,intent(in) :: cvindin1(msize),cvindin2(msize),cvindin3(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8028:2: 8028 | double precision,intent(in) :: bootdata1(msize,colnum),bootdata2(msize,colnum),bootdata3(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8029:2: 8029 | double precision,intent(out) :: bestgammaval1,bestgammaval2,bestgammaval3,r2cvval1,r2cvval2,r2cvval3,r2cvvalthree | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8030:2: 8030 | integer, allocatable :: cvind1(:),cvind2(:),cvind3(:),cvsize1(:),cvsize2(:),cvsize3(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8031:2: 8031 | integer, allocatable :: nodenummat1(:,:),nodenummat2(:,:),nodenummat3(:,:), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8032:2: 8032 | prunenodenummat1(:,:), prunenodenummat2(:,:), prunenodenummat3(:,:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8033:2: 8033 | nodenummattest1(:,:),nodenummattest2(:,:),nodenummattest3(:,:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8034:2: 8034 | nodenummattestcv1(:,:),nodenummattestcv2(:,:),nodenummattestcv3(:,:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8035:2: 8035 | prunenodenummattest1(:,:),prunenodenummattest2(:,:),prunenodenummattest3(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8036:2: 8036 | double precision, allocatable :: meangammacv1(:),meangammacv2(:),meangammacv3(:),meangammar2cv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8037:2: 8037 | double precision, allocatable :: gammacvmat1(:,:),gammacvmat2(:,:),gammacvmat3(:,:),traindata1(:,:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8038:2: 8038 | traindata2(:,:),traindata3(:,:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8039:2: 8039 | testdata1(:,:),testdata2(:,:),testdata3(:,:),testdataall(:,:),gammar2cvmat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8040:2: 8040 | integer cvloop,traindatasize1,traindatasize2,traindatasize3,testdatasize1,testdatasize2,testdatasize3,prunind1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8041:2: 8041 | prunind2,prunind3,i,testdataallsize,bfsize,afsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8042:2: 8042 | double precision allfval1((2**maxdepth)-1),allfval2((2**maxdepth)-1),allfval3((2**maxdepth)-1),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8043:2: 8043 | gammacv1((2**(maxdepth-1))-1),gammacv2((2**(maxdepth-1))-1),gammacv3((2**(maxdepth-1))-1),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8044:2: 8044 | r2cvvalvec1(ksplit),r2cvvalvec2(ksplit),r2cvvalvec3(ksplit),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8045:2: 8045 | r2cvvalvecthree(ksplit),gammar2cv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8046:2: 8046 | double precision maxgammasub,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8047:2: 8047 | allocate(cvind1(msize),cvind2(msize),cvind3(msize),cvsize1(Ksplit),cvsize2(Ksplit),cvsize3(Ksplit),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8048:2: 8048 | gammacvmat1(ksplit,(2**(maxdepth-1))-1),gammacvmat2(ksplit,(2**(maxdepth-1))-1),gammacvmat3(ksplit,(2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8049:2: 8049 | allocate(gammar2cvmat(ksplit,(2**(maxdepth-1))-1),meangammacv1((2**(maxdepth-1))-1),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8050:2: 8050 | meangammacv2((2**(maxdepth-1))-1),meangammacv3((2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8051:2: 8051 | allocate(meangammar2cv((2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8052:2: 8052 | call threetreesttcvdata(bootdata1,msize,colnum,Ksplit,levelcount,cvindin1,cvind1,cvsize1,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8053:2: 8053 | call threetreesttcvdata(bootdata2,msize,colnum,Ksplit,levelcount,cvindin2,cvind2,cvsize2,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8054:2: 8054 | call threetreesttcvdata(bootdata3,msize,colnum,Ksplit,levelcount,cvindin3,cvind3,cvsize3,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8055:2: 8055 | do cvloop = 1,Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8056:2: 8056 | traindatasize1 = ((sum(cvsize1)-cvsize1(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8057:2: 8057 | testdatasize1 = (cvsize1(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8058:2: 8058 | traindatasize2 = ((sum(cvsize2)-cvsize2(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8059:2: 8059 | testdatasize2 = (cvsize2(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8060:2: 8060 | traindatasize3 = ((sum(cvsize3)-cvsize3(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8061:2: 8061 | testdatasize3 = (cvsize3(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8062:2: 8062 | testdataallsize = testdatasize1+testdatasize2+testdatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8063:2: 8063 | allocate(traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),traindata3(traindatasize3,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8064:2: 8064 | allocate(testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),testdata3(testdatasize3,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8065:2: 8065 | allocate(testdataall(testdataallsize,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8066:2: 8066 | allocate(nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),nodenummat3(traindatasize3,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8067:2: 8067 | allocate(nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8068:2: 8068 | nodenummattest3(testdataallsize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8069:2: 8069 | allocate(nodenummattestcv1(testdatasize1,maxdepth),nodenummattestcv2(testdatasize2,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8070:2: 8070 | nodenummattestcv3(testdatasize3,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8071:2: 8071 | call threetreesttcvdatachoice(bootdata1,msize,colnum,Ksplit,levelcount,cvloop,cvind1,cvsize1,traindata1,testdata1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8072:2: 8072 | call threetreesttcvdatachoice(bootdata2,msize,colnum,Ksplit,levelcount,cvloop,cvind2,cvsize2,traindata2,testdata2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8073:2: 8073 | call threetreesttcvdatachoice(bootdata3,msize,colnum,Ksplit,levelcount,cvloop,cvind3,cvsize3,traindata3,testdata3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8074:2: 8074 | testdataall(1:testdatasize1,:) = testdata1(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8075:2: 8075 | testdataall((testdatasize1+1):(testdatasize1+testdatasize2),:) = testdata2(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8076:2: 8076 | testdataall((testdatasize1+testdatasize2+1):testdataallsize,:) = testdata3(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8077:2: 8077 | call threetreesttcvtreegrowth(traindatasize1,testdataallsize,traindata1,testdataall,nodenummattest1,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8078:2: 8078 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata1,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8079:2: 8079 | beta2len,nodenummat1,allfval1,prunind1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8080:2: 8080 | call threetreesttcvtreegrowth(traindatasize2,testdataallsize,traindata2,testdataall,nodenummattest2,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8081:2: 8081 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata2,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8082:2: 8082 | beta2len,nodenummat2,allfval2,prunind2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8083:2: 8083 | call threetreesttcvtreegrowth(traindatasize3,testdataallsize,traindata3,testdataall,nodenummattest3,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8084:2: 8084 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata3,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8085:2: 8085 | beta2len,nodenummat3,allfval3,prunind3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8086:2: 8086 | if(alpha < 1d0 .and. gamma < 0d0 .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8087:2: 8087 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8088:2: 8088 | nodenummat1,nodenummat2,nodenummat3,testdata1,testdata2,testdata3,testdataall,testdatasize1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8089:2: 8089 | testdatasize2,testdatasize3,testdataallsize,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8090:2: 8090 | colnum,levelcount,nodenummattest1,nodenummattest2,nodenummattest3,maxdepth,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8091:2: 8091 | r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8092:2: 8092 | r2cvvalvec1(cvloop) = r2cvval1sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8093:2: 8093 | r2cvvalvec2(cvloop) = r2cvval2sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8094:2: 8094 | r2cvvalvec3(cvloop) = r2cvval3sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8095:2: 8095 | r2cvvalvecthree(cvloop) = r2cvvalthreesub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8096:2: 8096 | bestgammaval1 = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8097:2: 8097 | bestgammaval2 = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8098:2: 8098 | bestgammaval3 = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8099:2: 8099 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8100:2: 8100 | if(alpha == 1d0 .and. gamma >= 0d0 .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8101:2: 8101 | allocate(prunenodenummattest1(testdataallsize,maxdepth),prunenodenummattest2(testdataallsize,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8102:2: 8102 | prunenodenummattest3(testdataallsize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8103:2: 8103 | allocate(prunenodenummat1(traindatasize1,maxdepth),prunenodenummat2(traindatasize2,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8104:2: 8104 | prunenodenummat3(traindatasize3,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8105:2: 8105 | call threetreesttcvgammatreepruning(prunind1,traindatasize1,testdataallsize,gamma,maxdepth,nodenummat1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8106:2: 8106 | nodenummattest1,allfval1,prunenodenummat1,prunenodenummattest1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8107:2: 8107 | call threetreesttcvgammatreepruning(prunind2,traindatasize2,testdataallsize,gamma,maxdepth,nodenummat2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8108:2: 8108 | nodenummattest2,allfval2,prunenodenummat2,prunenodenummattest2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8109:2: 8109 | call threetreesttcvgammatreepruning(prunind3,traindatasize3,testdataallsize,gamma,maxdepth,nodenummat3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8110:2: 8110 | nodenummattest3,allfval3,prunenodenummat3,prunenodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8111:2: 8111 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8112:2: 8112 | prunenodenummat1,prunenodenummat2,prunenodenummat3,testdata1,testdata2,testdata3,testdataall,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8113:2: 8113 | testdatasize1,testdatasize2,testdatasize3,testdataallsize,colnum,levelcount,prunenodenummattest1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8114:2: 8114 | prunenodenummattest2,prunenodenummattest3,maxdepth,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8115:2: 8115 | r2cvvalvec1(cvloop) = r2cvval1sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8116:2: 8116 | r2cvvalvec2(cvloop) = r2cvval2sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8117:2: 8117 | r2cvvalvec3(cvloop) = r2cvval3sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8118:2: 8118 | r2cvvalvecthree(cvloop) = r2cvvalthreesub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8119:2: 8119 | bestgammaval1 = gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8120:2: 8120 | bestgammaval2 = gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8121:2: 8121 | bestgammaval3 = gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8122:2: 8122 | deallocate(prunenodenummattest1,prunenodenummattest2,prunenodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8123:2: 8123 | deallocate(prunenodenummat1,prunenodenummat2,prunenodenummat3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8124:2: 8124 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8125:2: 8125 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8126:2: 8126 | nodenummattestcv1(:,:) = nodenummattest1(1:testdatasize1,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8127:2: 8127 | nodenummattestcv2(:,:) = nodenummattest2((testdatasize1+1):(testdatasize1+testdatasize2),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8128:2: 8128 | nodenummattestcv3(:,:) = nodenummattest3((testdatasize1+testdatasize2+1):testdataallsize,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8129:2: 8129 | call threetreesttcvbesttreepruning(traindatasize1,testdatasize1,maxdepth,nodenummat1,nodenummattestcv1,allfval1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8130:2: 8130 | levelcount,colnum,traindata1,testdata1,allgammaval1,gammacv1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8131:2: 8131 | call threetreesttcvbesttreepruning(traindatasize2,testdatasize2,maxdepth,nodenummat2,nodenummattestcv2,allfval2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8132:2: 8132 | levelcount,colnum,traindata2,testdata2,allgammaval2,gammacv2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8133:2: 8133 | call threetreesttcvbesttreepruning(traindatasize3,testdatasize3,maxdepth,nodenummat3,nodenummattestcv3,allfval3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8134:2: 8134 | levelcount,colnum,traindata3,testdata3,allgammaval3,gammacv3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8135:2: 8135 | gammacvmat1(cvloop,:) = gammacv1(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8136:2: 8136 | gammacvmat2(cvloop,:) = gammacv2(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8137:2: 8137 | gammacvmat3(cvloop,:) = gammacv3(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8138:2: 8138 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8139:2: 8139 | deallocate(traindata1,traindata2,traindata3,testdata1,testdata2,testdata3,testdataall) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8140:2: 8140 | deallocate(nodenummat1,nodenummat2,nodenummat3,nodenummattest1,nodenummattest2,nodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8141:2: 8141 | deallocate(nodenummattestcv1,nodenummattestcv2,nodenummattestcv3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8142:2: 8142 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8143:2: 8143 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8144:2: 8144 | do i = 1,size(allgammaval1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8145:2: 8145 | meangammacv1(i) = sum(gammacvmat1(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8146:2: 8146 | if(meangammacv1(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8147:2: 8147 | meangammacv1(i) = meangammacv1(i) / dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8148:2: 8148 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8149:2: 8149 | meangammacv1(i) = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8150:2: 8150 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8151:2: 8151 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8152:2: 8152 | maxgammasub = maxval(meangammacv1) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8153:2: 8153 | do i = 1,size(meangammacv1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8154:2: 8154 | if(meangammacv1(i) < maxgammasub .and. meangammacv1(i) >= 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8155:2: 8155 | bestgammaval1 = allgammaval1(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8156:2: 8156 | maxgammasub = meangammacv1(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8157:2: 8157 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8158:2: 8158 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8159:2: 8159 | do i = 1,size(allgammaval2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8160:2: 8160 | meangammacv2(i) = sum(gammacvmat2(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8161:2: 8161 | if(meangammacv2(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8162:2: 8162 | meangammacv2(i) = meangammacv2(i) / dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8163:2: 8163 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8164:2: 8164 | meangammacv2(i) = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8165:2: 8165 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8166:2: 8166 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8167:2: 8167 | maxgammasub = maxval(meangammacv2) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8168:2: 8168 | do i = 1,size(meangammacv2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8169:2: 8169 | if(meangammacv2(i) < maxgammasub .and. meangammacv2(i) >= 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8170:2: 8170 | bestgammaval2 = allgammaval2(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8171:2: 8171 | maxgammasub = meangammacv2(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8172:2: 8172 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8173:2: 8173 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8174:2: 8174 | do i = 1,size(allgammaval3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8175:2: 8175 | meangammacv3(i) = sum(gammacvmat3(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8176:2: 8176 | if(meangammacv3(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8177:2: 8177 | meangammacv3(i) = meangammacv3(i) / dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8178:2: 8178 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8179:2: 8179 | meangammacv3(i) = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8180:2: 8180 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8181:2: 8181 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8182:2: 8182 | maxgammasub = maxval(meangammacv3) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8183:2: 8183 | do i = 1,size(meangammacv3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8184:2: 8184 | if(meangammacv3(i) < maxgammasub .and. meangammacv3(i) >= 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8185:2: 8185 | bestgammaval3 = allgammaval3(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8186:2: 8186 | maxgammasub = meangammacv3(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8187:2: 8187 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8188:2: 8188 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8189:2: 8189 | deallocate(cvind1,cvind2,cvind3,cvsize1,cvsize2,cvsize3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8190:2: 8190 | allocate(cvind1(msize),cvind2(msize),cvind3(msize),cvsize1(Ksplit),cvsize2(Ksplit),cvsize3(Ksplit)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8191:2: 8191 | call threetreesttcvdata(bootdata1,msize,colnum,Ksplit,levelcount,cvindin1,cvind1,cvsize1,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8192:2: 8192 | call threetreesttcvdata(bootdata2,msize,colnum,Ksplit,levelcount,cvindin2,cvind2,cvsize2,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8193:2: 8193 | call threetreesttcvdata(bootdata3,msize,colnum,Ksplit,levelcount,cvindin3,cvind3,cvsize3,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8194:2: 8194 | do cvloop = 1,Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8195:2: 8195 | traindatasize1 = ((sum(cvsize1)-cvsize1(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8196:2: 8196 | testdatasize1 = (cvsize1(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8197:2: 8197 | traindatasize2 = ((sum(cvsize2)-cvsize2(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8198:2: 8198 | testdatasize2 = (cvsize2(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8199:2: 8199 | traindatasize3 = ((sum(cvsize3)-cvsize3(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8200:2: 8200 | testdatasize3 = (cvsize3(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8201:2: 8201 | testdataallsize = testdatasize1+testdatasize2+testdatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8202:2: 8202 | allocate(traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),traindata3(traindatasize3,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8203:2: 8203 | allocate(testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),testdata3(testdatasize3,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8204:2: 8204 | allocate(testdataall(testdataallsize,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8205:2: 8205 | allocate(nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),nodenummat3(traindatasize3,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8206:2: 8206 | allocate(nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8207:2: 8207 | nodenummattest3(testdataallsize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8208:2: 8208 | call threetreesttcvdatachoice(bootdata1,msize,colnum,Ksplit,levelcount,cvloop,cvind1,cvsize1,traindata1,testdata1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8209:2: 8209 | call threetreesttcvdatachoice(bootdata2,msize,colnum,Ksplit,levelcount,cvloop,cvind2,cvsize2,traindata2,testdata2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8210:2: 8210 | call threetreesttcvdatachoice(bootdata3,msize,colnum,Ksplit,levelcount,cvloop,cvind3,cvsize3,traindata3,testdata3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8211:2: 8211 | testdataall(1:testdatasize1,:) = testdata1(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8212:2: 8212 | testdataall((testdatasize1+1):(testdatasize1+testdatasize2),:) = testdata2(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8213:2: 8213 | testdataall((testdatasize1+testdatasize2+1):testdataallsize,:) = testdata3(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8214:2: 8214 | call threetreesttcvtreegrowth(traindatasize1,testdataallsize,traindata1,testdataall,nodenummattest1,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8215:2: 8215 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata1,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8216:2: 8216 | beta2len,nodenummat1,allfval1,prunind1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8217:2: 8217 | call threetreesttcvtreegrowth(traindatasize2,testdataallsize,traindata2,testdataall,nodenummattest2,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8218:2: 8218 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata2,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8219:2: 8219 | beta2len,nodenummat2,allfval2,prunind2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8220:2: 8220 | call threetreesttcvtreegrowth(traindatasize3,testdataallsize,traindata3,testdataall,nodenummattest3,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8221:2: 8221 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata3,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8222:2: 8222 | beta2len,nodenummat3,allfval3,prunind3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8223:2: 8223 | allocate(prunenodenummattest1(testdataallsize,maxdepth),prunenodenummattest2(testdataallsize,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8224:2: 8224 | prunenodenummattest3(testdataallsize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8225:2: 8225 | allocate(prunenodenummat1(traindatasize1,maxdepth),prunenodenummat2(traindatasize2,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8226:2: 8226 | prunenodenummat3(traindatasize3,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8227:2: 8227 | call threetreesttcvgammatreepruning(prunind1,traindatasize1,testdataallsize,bestgammaval1,maxdepth,nodenummat1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8228:2: 8228 | nodenummattest1,allfval1,prunenodenummat1,prunenodenummattest1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8229:2: 8229 | call threetreesttcvgammatreepruning(prunind2,traindatasize2,testdataallsize,bestgammaval2,maxdepth,nodenummat2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8230:2: 8230 | nodenummattest2,allfval2,prunenodenummat2,prunenodenummattest2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8231:2: 8231 | call threetreesttcvgammatreepruning(prunind3,traindatasize3,testdataallsize,bestgammaval3,maxdepth,nodenummat3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8232:2: 8232 | nodenummattest3,allfval3,prunenodenummat3,prunenodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8233:2: 8233 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8234:2: 8234 | prunenodenummat1,prunenodenummat2,prunenodenummat3,testdata1,testdata2,testdata3,testdataall,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8235:2: 8235 | testdatasize1,testdatasize2,testdatasize3,testdataallsize,colnum,levelcount,prunenodenummattest1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8236:2: 8236 | prunenodenummattest2,prunenodenummattest3,maxdepth,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8237:2: 8237 | r2cvvalvec1(cvloop) = r2cvval1sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8238:2: 8238 | r2cvvalvec2(cvloop) = r2cvval2sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8239:2: 8239 | r2cvvalvec3(cvloop) = r2cvval3sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8240:2: 8240 | r2cvvalvecthree(cvloop) = r2cvvalthreesub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8241:2: 8241 | deallocate(prunenodenummattest1,prunenodenummattest2,prunenodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8242:2: 8242 | deallocate(prunenodenummat1,prunenodenummat2,prunenodenummat3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8243:2: 8243 | deallocate(traindata1,traindata2,traindata3,testdata1,testdata2,testdata3,testdataall) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8244:2: 8244 | deallocate(nodenummat1,nodenummat2,nodenummat3,nodenummattest1,nodenummattest2,nodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8245:2: 8245 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8246:2: 8246 | r2cvval1=sum(r2cvvalvec1)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8247:2: 8247 | r2cvval2=sum(r2cvvalvec2)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8248:2: 8248 | r2cvval3=sum(r2cvvalvec3)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8249:2: 8249 | r2cvvalthree=sum(r2cvvalvecthree)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8250:2: 8250 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8251:2: 8251 | r2cvval1=sum(r2cvvalvec1)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8252:2: 8252 | r2cvval2=sum(r2cvvalvec2)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8253:2: 8253 | r2cvval3=sum(r2cvvalvec3)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8254:2: 8254 | r2cvvalthree=sum(r2cvvalvecthree)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8255:2: 8255 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8258:2: 8258 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8259:2: 8259 | integer, intent(in) :: msize,colnum,Ksplit,levelcount,cv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8260:2: 8260 | integer, intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8261:2: 8261 | integer, intent(in) :: cvindin(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8262:2: 8262 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8263:2: 8263 | integer, intent(out) :: cvind(msize), cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8264:2: 8264 | integer i,subnum, randval, cvsizecou(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8265:2: 8265 | integer, allocatable :: cvindsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8266:2: 8266 | double precision randvalsub,ii | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8267:2: 8267 | integer :: seed_size, seed_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8268:2: 8268 | integer, allocatable :: seed_array(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8269:2: 8269 | call random_seed(size=seed_size) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8270:2: 8270 | allocate(seed_array(seed_size)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8271:2: 8271 | do seed_i = 1, seed_size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8272:2: 8272 | seed_array(seed_i) = iseed + (seed_i - 1) * 37 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8273:2: 8273 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8274:2: 8274 | call random_seed(put=seed_array) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8275:2: 8275 | deallocate(seed_array) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8276:2: 8276 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8277:2: 8277 | cvsize(:) = subnum/Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8278:2: 8278 | do i = 1,(subnum - sum(cvsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8279:2: 8279 | cvsize(i) = cvsize(i) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8280:2: 8280 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8281:2: 8281 | if(cv==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8282:2: 8282 | cvind(:) = cvindin(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8283:2: 8283 | goto 9000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8284:2: 8284 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8285:2: 8285 | allocate(cvindsub(subnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8286:2: 8286 | cvsizecou(:) = cvsize(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8287:2: 8287 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8288:2: 8288 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8289:2: 8289 | call random_number(randvalsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8290:2: 8290 | randval = int(randvalsub * dble(Ksplit)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8291:2: 8291 | if(cvsizecou(randval) > 0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8292:2: 8292 | cvsizecou(randval) = cvsizecou(randval) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8293:2: 8293 | cvindsub(i) = randval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8294:2: 8294 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8295:2: 8295 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8296:2: 8296 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8297:2: 8297 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8298:2: 8298 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8299:2: 8299 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8300:2: 8300 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8304:2: 8304 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8305:2: 8305 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8306:2: 8306 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8307:2: 8307 | integer, intent(in) :: cvind(msize),cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8308:2: 8308 | double precision, intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8309:2: 8309 | testdata((cvsize(testind)*levelcount),colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8310:2: 8310 | integer i,jtrain,jtest,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8311:2: 8311 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8312:2: 8312 | jtest = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8313:2: 8313 | jtrain = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8314:2: 8314 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8315:2: 8315 | if(cvind(((i-1)*levelcount)+1) == testind) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8316:2: 8316 | testdata((levelcount*(jtest-1)+1):(levelcount*jtest),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8317:2: 8317 | jtest = jtest + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8318:2: 8318 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8319:2: 8319 | traindata((levelcount*(jtrain-1)+1):(levelcount*jtrain),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8320:2: 8320 | jtrain = jtrain + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8321:2: 8321 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8322:2: 8322 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8327:2: 8327 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8328:2: 8328 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8329:2: 8329 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8330:2: 8330 | double precision, intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8331:2: 8331 | double precision, intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8332:2: 8332 | double precision, intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8333:2: 8333 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8334:2: 8334 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8335:2: 8335 | double precision,intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8336:2: 8336 | integer nodenummatsub(traindatasize,maxdepth),nodenummatsubtest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8337:2: 8337 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8338:2: 8338 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8339:2: 8339 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8340:2: 8340 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8341:2: 8341 | double precision fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8342:2: 8342 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8343:2: 8343 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8344:2: 8344 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8345:2: 8345 | double precision, allocatable :: xynodedata(:,:),xynodedatatest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8346:2: 8346 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8347:2: 8347 | integer, allocatable :: flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8348:2: 8348 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8349:2: 8349 | double precision :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8350:2: 8350 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8351:2: 8351 | nodenummat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8352:2: 8352 | nodenummat(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8353:2: 8353 | nodenummattest(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8354:2: 8354 | nodenummattest(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8355:2: 8355 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8356:2: 8356 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8357:2: 8357 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8358:2: 8358 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8359:2: 8359 | allocate(nodesize(2),nodesizetest(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8360:2: 8360 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8361:2: 8361 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8362:2: 8362 | call threetreesttcvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8363:2: 8363 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8364:2: 8364 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8365:2: 8365 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8366:2: 8366 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8367:2: 8367 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8368:2: 8368 | allocate(anovadata(traindatasize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8369:2: 8369 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8370:2: 8370 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8371:2: 8371 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8372:2: 8372 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8373:2: 8373 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8374:2: 8374 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8375:2: 8375 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8376:2: 8376 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8377:2: 8377 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8378:2: 8378 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8379:2: 8379 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8380:2: 8380 | call threetreesttcvrepANOVA(traindatasize,colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8381:2: 8381 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8382:2: 8382 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8383:2: 8383 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8384:2: 8384 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8385:2: 8385 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8386:2: 8386 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8387:2: 8387 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8388:2: 8388 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8389:2: 8389 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8390:2: 8390 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8391:2: 8391 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8392:2: 8392 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8393:2: 8393 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8394:2: 8394 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8395:2: 8395 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8396:2: 8396 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8397:2: 8397 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8398:2: 8398 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8399:2: 8399 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8400:2: 8400 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8401:2: 8401 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8402:2: 8402 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8403:2: 8403 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8404:2: 8404 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8405:2: 8405 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8406:2: 8406 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8407:2: 8407 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8408:2: 8408 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8409:2: 8409 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8410:2: 8410 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8411:2: 8411 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8412:2: 8412 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8413:2: 8413 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8414:2: 8414 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8415:2: 8415 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8416:2: 8416 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8417:2: 8417 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8418:2: 8418 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8419:2: 8419 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8420:2: 8420 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8421:2: 8421 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8422:2: 8422 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8423:2: 8423 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8424:2: 8424 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8425:2: 8425 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8426:2: 8426 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8427:2: 8427 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8428:2: 8428 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8429:2: 8429 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8430:2: 8430 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8431:2: 8431 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8432:2: 8432 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8433:2: 8433 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8434:2: 8434 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8435:2: 8435 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8436:2: 8436 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8437:2: 8437 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8438:2: 8438 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8439:2: 8439 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8440:2: 8440 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8441:2: 8441 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8442:2: 8442 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8443:2: 8443 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8444:2: 8444 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8445:2: 8445 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8446:2: 8446 | traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8447:2: 8447 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8448:2: 8448 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8449:2: 8449 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8450:2: 8450 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8451:2: 8451 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8452:2: 8452 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8453:2: 8453 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8454:2: 8454 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8455:2: 8455 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8456:2: 8456 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8457:2: 8457 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8458:2: 8458 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8459:2: 8459 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8460:2: 8460 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8461:2: 8461 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8462:2: 8462 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8463:2: 8463 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8464:2: 8464 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8465:2: 8465 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8466:2: 8466 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8467:2: 8467 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8468:2: 8468 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8469:2: 8469 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8470:2: 8470 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8471:2: 8471 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8472:2: 8472 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8473:2: 8473 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8474:2: 8474 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8475:2: 8475 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8476:2: 8476 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8477:2: 8477 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8478:2: 8478 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8479:2: 8479 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8480:2: 8480 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8481:2: 8481 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8482:2: 8482 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8483:2: 8483 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8484:2: 8484 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8485:2: 8485 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8486:2: 8486 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8487:2: 8487 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8488:2: 8488 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8489:2: 8489 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8490:2: 8490 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8491:2: 8491 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8492:2: 8492 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8493:2: 8493 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8494:2: 8494 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8495:2: 8495 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8496:2: 8496 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8497:2: 8497 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8498:2: 8498 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8499:2: 8499 | traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8500:2: 8500 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8501:2: 8501 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8502:2: 8502 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8503:2: 8503 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8504:2: 8504 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8505:2: 8505 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8506:2: 8506 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8507:2: 8507 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8508:2: 8508 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8509:2: 8509 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8510:2: 8510 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8511:2: 8511 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8512:2: 8512 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8513:2: 8513 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8514:2: 8514 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8515:2: 8515 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8516:2: 8516 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8517:2: 8517 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8518:2: 8518 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8519:2: 8519 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8520:2: 8520 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8521:2: 8521 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8522:2: 8522 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8523:2: 8523 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8524:2: 8524 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8525:2: 8525 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8526:2: 8526 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8527:2: 8527 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8528:2: 8528 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8529:2: 8529 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8530:2: 8530 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8531:2: 8531 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8532:2: 8532 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8533:2: 8533 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8534:2: 8534 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8535:2: 8535 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8536:2: 8536 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8537:2: 8537 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8538:2: 8538 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8539:2: 8539 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8540:2: 8540 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8541:2: 8541 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8542:2: 8542 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8543:2: 8543 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8544:2: 8544 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8545:2: 8545 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8546:2: 8546 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8547:2: 8547 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8548:2: 8548 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8549:2: 8549 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8550:2: 8550 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8551:2: 8551 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8552:2: 8552 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8553:2: 8553 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8554:2: 8554 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8555:2: 8555 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8556:2: 8556 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8557:2: 8557 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8558:2: 8558 | call threetreesttcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8559:2: 8559 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8560:2: 8560 | call threetreesttcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8561:2: 8561 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8562:2: 8562 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8563:2: 8563 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8564:2: 8564 | nodesizetest(1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8565:2: 8565 | nodesizetest(2) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8566:2: 8566 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8567:2: 8567 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8568:2: 8568 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8569:2: 8569 | nodenummattest(:,:) = nodenummatsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8570:2: 8570 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8571:2: 8571 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8572:2: 8572 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8573:2: 8573 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8574:2: 8574 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8575:2: 8575 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8576:2: 8576 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8577:2: 8577 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8578:2: 8578 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8579:2: 8579 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8580:2: 8580 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8581:2: 8581 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8582:2: 8582 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8583:2: 8583 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8584:2: 8584 | call threetreesttcvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8585:2: 8585 | call threetreesttcvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,nodenummattest,nodesizetest(nodeloop),xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8586:2: 8586 | call threetreesttcvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8587:2: 8587 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8588:2: 8588 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8589:2: 8589 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8590:2: 8590 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8591:2: 8591 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8592:2: 8592 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8593:2: 8593 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8594:2: 8594 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8595:2: 8595 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8596:2: 8596 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8597:2: 8597 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8598:2: 8598 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8599:2: 8599 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8600:2: 8600 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8601:2: 8601 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8602:2: 8602 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8603:2: 8603 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8604:2: 8604 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8605:2: 8605 | if(allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8606:2: 8606 | deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8607:2: 8607 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8608:2: 8608 | if(.not. allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8609:2: 8609 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8610:2: 8610 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8611:2: 8611 | if(allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8612:2: 8612 | deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8613:2: 8613 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8614:2: 8614 | if(.not. allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8615:2: 8615 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8616:2: 8616 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8617:2: 8617 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8618:2: 8618 | countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8619:2: 8619 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8620:2: 8620 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8621:2: 8621 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8622:2: 8622 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8623:2: 8623 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8624:2: 8624 | colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8625:2: 8625 | call threetreesttcvrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8626:2: 8626 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8627:2: 8627 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8628:2: 8628 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8629:2: 8629 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8630:2: 8630 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8631:2: 8631 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8632:2: 8632 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8633:2: 8633 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8634:2: 8634 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8635:2: 8635 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8636:2: 8636 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8637:2: 8637 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8638:2: 8638 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8639:2: 8639 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8640:2: 8640 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8641:2: 8641 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8642:2: 8642 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8643:2: 8643 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8644:6: 8644 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8645:2: 8645 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8646:2: 8646 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8647:2: 8647 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8648:2: 8648 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8649:2: 8649 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8650:2: 8650 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8651:2: 8651 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8652:2: 8652 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8653:2: 8653 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8654:2: 8654 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8655:2: 8655 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8656:2: 8656 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8657:2: 8657 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8658:2: 8658 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8659:2: 8659 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8660:2: 8660 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8661:2: 8661 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8662:2: 8662 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8663:2: 8663 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8664:2: 8664 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8665:2: 8665 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8666:2: 8666 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8667:2: 8667 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8668:2: 8668 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8669:2: 8669 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8670:2: 8670 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8671:2: 8671 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8672:2: 8672 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8673:2: 8673 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8674:2: 8674 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8675:2: 8675 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8676:2: 8676 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8677:2: 8677 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8678:2: 8678 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8679:2: 8679 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8680:2: 8680 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8681:2: 8681 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8682:2: 8682 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8683:2: 8683 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8684:2: 8684 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8685:2: 8685 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8686:2: 8686 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8687:2: 8687 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8688:2: 8688 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8689:2: 8689 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8690:2: 8690 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8691:2: 8691 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8692:2: 8692 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8693:2: 8693 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8694:2: 8694 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8695:2: 8695 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8696:2: 8696 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8697:2: 8697 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8698:2: 8698 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8699:2: 8699 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8700:2: 8700 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8701:2: 8701 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8702:2: 8702 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8703:2: 8703 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8704:2: 8704 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8705:2: 8705 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8706:2: 8706 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8707:2: 8707 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8708:2: 8708 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8709:2: 8709 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8710:2: 8710 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8711:2: 8711 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8712:2: 8712 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8713:2: 8713 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8714:2: 8714 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8715:2: 8715 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8716:2: 8716 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8717:2: 8717 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8718:2: 8718 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8719:2: 8719 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8720:2: 8720 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8721:2: 8721 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8722:2: 8722 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8723:2: 8723 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8724:2: 8724 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8725:2: 8725 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8726:2: 8726 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8727:2: 8727 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8728:2: 8728 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8729:2: 8729 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8730:2: 8730 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8731:2: 8731 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8732:2: 8732 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8733:2: 8733 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8734:2: 8734 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8735:2: 8735 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8736:2: 8736 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8737:2: 8737 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8738:2: 8738 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8739:2: 8739 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8740:2: 8740 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8741:2: 8741 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8742:2: 8742 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8743:2: 8743 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8744:2: 8744 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8745:2: 8745 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8746:2: 8746 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8747:2: 8747 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8748:2: 8748 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8749:2: 8749 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8750:2: 8750 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8751:2: 8751 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8752:2: 8752 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8753:2: 8753 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8754:2: 8754 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8755:2: 8755 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8756:2: 8756 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8757:2: 8757 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8758:2: 8758 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8759:2: 8759 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8760:2: 8760 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8761:2: 8761 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8762:2: 8762 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8763:2: 8763 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8764:2: 8764 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8765:2: 8765 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8766:2: 8766 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8767:2: 8767 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8768:2: 8768 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8769:2: 8769 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8770:2: 8770 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8771:2: 8771 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8772:2: 8772 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8773:2: 8773 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8774:2: 8774 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8775:2: 8775 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8776:2: 8776 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8777:2: 8777 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8778:2: 8778 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8779:2: 8779 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8780:2: 8780 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8781:2: 8781 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8782:2: 8782 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8783:2: 8783 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8784:2: 8784 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8785:2: 8785 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8786:2: 8786 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8787:2: 8787 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8788:2: 8788 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8789:2: 8789 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8790:2: 8790 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8791:2: 8791 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8792:2: 8792 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8793:2: 8793 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8794:2: 8794 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8795:2: 8795 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8796:2: 8796 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8797:2: 8797 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8798:2: 8798 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8799:2: 8799 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8800:2: 8800 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8801:2: 8801 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8802:2: 8802 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8803:2: 8803 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8804:2: 8804 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8805:2: 8805 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8806:2: 8806 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8807:2: 8807 | if(.not. allocated(nodesizesubtest)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8808:2: 8808 | allocate(nodesizesubtest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8809:2: 8809 | nodesizesubtest(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8810:2: 8810 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8811:2: 8811 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8812:2: 8812 | call threetreesttcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8813:2: 8813 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8814:2: 8814 | call threetreesttcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8815:2: 8815 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8816:2: 8816 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8817:2: 8817 | nodenummattest(:,:) = nodenummatsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8818:2: 8818 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8819:2: 8819 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8820:2: 8820 | nodesizesubtest(2*nodeloop-1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8821:2: 8821 | nodesizesubtest(2*nodeloop) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8822:6: 8822 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8823:2: 8823 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8824:2: 8824 | deallocate(anovadata,xynodedata,xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8825:2: 8825 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8826:2: 8826 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8827:2: 8827 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8828:2: 8828 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8829:2: 8829 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8830:2: 8830 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8831:2: 8831 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8832:2: 8832 | nodesizetest(:) = nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8833:2: 8833 | deallocate(nodesizesub,nodesizesubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8834:2: 8834 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8836:2: 8836 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8840:2: 8840 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8841:2: 8841 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8842:2: 8842 | double precision, intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8843:2: 8843 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8844:2: 8844 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8845:2: 8845 | double precision datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8846:2: 8846 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8847:2: 8847 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8848:2: 8848 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8849:2: 8849 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8850:2: 8850 | call threetreesttcvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8851:2: 8851 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8852:2: 8852 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8853:2: 8853 | call threetreesttcvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8854:2: 8854 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8855:2: 8855 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8856:2: 8856 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8857:2: 8857 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8860:2: 8860 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8861:2: 8861 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8862:2: 8862 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8863:2: 8863 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8864:2: 8864 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8865:2: 8865 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8866:2: 8866 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8867:2: 8867 | call threetreesttcvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8868:2: 8868 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8869:2: 8869 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8870:2: 8870 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8871:2: 8871 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8872:2: 8872 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8873:2: 8873 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8874:2: 8874 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8877:2: 8877 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8878:2: 8878 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8879:2: 8879 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8880:2: 8880 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8881:2: 8881 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8882:2: 8882 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8883:2: 8883 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8884:2: 8884 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8885:2: 8885 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8886:2: 8886 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8887:2: 8887 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8888:2: 8888 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8889:2: 8889 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8890:2: 8890 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8891:2: 8891 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8892:2: 8892 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8893:2: 8893 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8894:2: 8894 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8895:2: 8895 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8896:2: 8896 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8897:2: 8897 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8898:2: 8898 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8899:2: 8899 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8900:2: 8900 | call threetreesttcvdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8901:2: 8901 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8902:2: 8902 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8903:2: 8903 | call threetreesttcvdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8904:2: 8904 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8905:2: 8905 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8908:2: 8908 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8909:2: 8909 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8910:2: 8910 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8911:2: 8911 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8912:2: 8912 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8913:2: 8913 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8914:2: 8914 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8915:2: 8915 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8916:2: 8916 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8917:2: 8917 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8918:2: 8918 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8919:2: 8919 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8920:2: 8920 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8921:2: 8921 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8922:2: 8922 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8923:2: 8923 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8924:2: 8924 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8925:2: 8925 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8926:2: 8926 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8927:2: 8927 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8928:2: 8928 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8929:2: 8929 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8930:2: 8930 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8931:2: 8931 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8932:2: 8932 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8933:2: 8933 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8934:2: 8934 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8935:2: 8935 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8936:2: 8936 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8937:2: 8937 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8938:2: 8938 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8939:2: 8939 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8940:2: 8940 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8941:2: 8941 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8942:2: 8942 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8945:2: 8945 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8946:2: 8946 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8947:2: 8947 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8948:2: 8948 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8949:2: 8949 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8950:2: 8950 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8951:2: 8951 | double precision facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8952:2: 8952 | call threetreesttcvdataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8953:2: 8953 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8954:2: 8954 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8955:2: 8955 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8956:2: 8956 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8957:2: 8957 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8958:2: 8958 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8959:2: 8959 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8960:2: 8960 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8961:2: 8961 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8964:2: 8964 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8965:2: 8965 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8966:2: 8966 | double precision, intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8967:2: 8967 | double precision, intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8968:2: 8968 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8969:2: 8969 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8970:2: 8970 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8971:2: 8971 | double precision ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8972:2: 8972 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8973:2: 8973 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8974:2: 8974 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8975:2: 8975 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8976:2: 8976 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8977:2: 8977 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8978:2: 8978 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8979:2: 8979 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8980:2: 8980 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8981:2: 8981 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8982:2: 8982 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8983:2: 8983 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8984:2: 8984 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8985:2: 8985 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8986:2: 8986 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8987:2: 8987 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8988:2: 8988 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8989:2: 8989 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8990:2: 8990 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8991:2: 8991 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8992:2: 8992 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8993:2: 8993 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8994:2: 8994 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8995:2: 8995 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8996:2: 8996 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8997:2: 8997 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8998:2: 8998 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8999:2: 8999 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9000:2: 9000 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9001:2: 9001 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9002:2: 9002 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9003:2: 9003 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9004:2: 9004 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9005:2: 9005 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9006:2: 9006 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9007:2: 9007 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9008:2: 9008 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9009:2: 9009 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9010:2: 9010 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9011:2: 9011 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9012:2: 9012 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9013:2: 9013 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9014:2: 9014 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9015:2: 9015 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9016:2: 9016 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9017:2: 9017 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9018:2: 9018 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9019:2: 9019 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9020:2: 9020 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9021:2: 9021 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9022:2: 9022 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9023:2: 9023 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9024:2: 9024 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9025:2: 9025 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9026:2: 9026 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9027:2: 9027 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9028:2: 9028 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9029:2: 9029 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9030:2: 9030 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9031:2: 9031 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9032:2: 9032 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9033:2: 9033 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9034:2: 9034 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9035:2: 9035 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9036:2: 9036 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9037:2: 9037 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9038:2: 9038 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9039:2: 9039 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9040:2: 9040 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9043:2: 9043 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9044:2: 9044 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9045:2: 9045 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9046:2: 9046 | double precision, intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9047:2: 9047 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9048:2: 9048 | double precision xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9049:2: 9049 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9050:2: 9050 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9051:2: 9051 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9052:2: 9052 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9053:2: 9053 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9054:2: 9054 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9055:2: 9055 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9056:2: 9056 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9057:2: 9057 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9058:2: 9058 | call threetreesttcvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9059:2: 9059 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9060:2: 9060 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9061:2: 9061 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9062:2: 9062 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9063:2: 9063 | call threetreesttcvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9064:2: 9064 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9065:2: 9065 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9066:2: 9066 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9067:2: 9067 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9068:2: 9068 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9069:2: 9069 | call threetreesttcvdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9070:2: 9070 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9072:2: 9072 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9075:2: 9075 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9076:2: 9076 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9077:2: 9077 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9078:2: 9078 | double precision,intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9079:2: 9079 | double precision,intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9080:2: 9080 | double precision res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9081:2: 9081 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9083:2: 9083 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9084:2: 9084 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9085:2: 9085 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9086:2: 9086 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9087:2: 9087 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9088:2: 9088 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9089:2: 9089 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9094:2: 9094 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9095:2: 9095 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9096:2: 9096 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9101:2: 9101 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9102:2: 9102 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9103:2: 9103 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9104:2: 9104 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9105:2: 9105 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9106:2: 9106 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9107:2: 9107 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9108:2: 9108 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9109:2: 9109 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9110:2: 9110 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9111:2: 9111 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9112:2: 9112 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9113:2: 9113 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9114:2: 9114 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9115:2: 9115 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9116:2: 9116 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9117:2: 9117 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9118:2: 9118 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9119:2: 9119 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9122:2: 9122 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9123:2: 9123 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9125:2: 9125 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9126:2: 9126 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9153:2: 9153 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9162:2: 9162 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9163:2: 9163 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9169:2: 9169 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9203:2: 9203 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9214:2: 9214 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9215:2: 9215 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9216:2: 9216 | double precision,intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9217:2: 9217 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9218:2: 9218 | eps=1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9219:2: 9219 | s1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9220:2: 9220 | s2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9221:2: 9221 | zval = (z-((1d0-weight)*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9222:2: 9222 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9223:2: 9223 | form2 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9224:2: 9224 | form3 = (df11/df12)**(df11/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9225:2: 9225 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9226:2: 9226 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9227:2: 9227 | form6 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9228:2: 9228 | form7 = (df21/df22)**(df21/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9229:2: 9229 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9230:2: 9230 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9231:2: 9231 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9234:2: 9234 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9235:2: 9235 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9236:2: 9236 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9237:2: 9237 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9238:2: 9238 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9239:2: 9239 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9240:2: 9240 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9241:2: 9241 | call threetreesttcvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9242:2: 9242 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9243:2: 9243 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9244:2: 9244 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9245:2: 9245 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9246:2: 9246 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9247:2: 9247 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9248:2: 9248 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9249:2: 9249 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9253:2: 9253 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9254:2: 9254 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9255:2: 9255 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9256:2: 9256 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9257:2: 9257 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9258:2: 9258 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9259:2: 9259 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9260:2: 9260 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9261:2: 9261 | nodenummatsub(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9262:2: 9262 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9263:2: 9263 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9264:2: 9264 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9265:2: 9265 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9266:2: 9266 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9267:2: 9267 | nodenummatsub(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9268:2: 9268 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9269:2: 9269 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9270:2: 9270 | nodenummatsub(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9271:2: 9271 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9272:2: 9272 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9273:2: 9273 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9274:2: 9274 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9275:2: 9275 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9276:2: 9276 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9279:2: 9279 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9280:2: 9280 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9281:2: 9281 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9282:2: 9282 | integer, intent(in) :: nodenummat(msize,11) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9283:2: 9283 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9284:2: 9284 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9285:2: 9285 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9286:2: 9286 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9287:2: 9287 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9288:2: 9288 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9289:2: 9289 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9290:2: 9290 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9291:2: 9291 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9295:2: 9295 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9296:2: 9296 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9297:2: 9297 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9298:2: 9298 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9299:2: 9299 | double precision, intent(out) :: r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9300:2: 9300 | double precision, allocatable :: timepred(:,:),r2cvnumsub(:,:), timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9301:2: 9301 | double precision r2cvnum,r2cvden,ymean | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9302:2: 9302 | integer i,j,k,l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9303:2: 9303 | allocate(timepred(((2**maxdepth)-1),levelcount),r2cvnumsub(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9304:2: 9304 | allocate(timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9305:2: 9305 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9306:2: 9306 | r2cvnumsub(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9307:2: 9307 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9308:2: 9308 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9309:2: 9309 | do j = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9310:2: 9310 | if(sum(nodenummat(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9311:2: 9311 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9312:2: 9312 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9313:2: 9313 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9314:2: 9314 | if(nodenummat(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9315:2: 9315 | timepred(nodenummat(j,maxdepth),int(traindata(j,3))) = timepred(nodenummat(j,maxdepth),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9316:2: 9316 | timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) = timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9317:2: 9317 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9318:2: 9318 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9319:2: 9319 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9320:2: 9320 | if(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9321:2: 9321 | timepred(nodenummat(j,i),int(traindata(j,3))) = timepred(nodenummat(j,i),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9322:2: 9322 | timepredcou(nodenummat(j,i),int(traindata(j,3))) = timepredcou(nodenummat(j,i),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9323:2: 9323 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9324:2: 9324 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9325:2: 9325 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9327:2: 9327 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9328:2: 9328 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9329:2: 9329 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9330:2: 9330 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9331:2: 9331 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9332:2: 9332 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9333:2: 9333 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9334:2: 9334 | ymean = sum(testdata(:,1))/dble(testdatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9335:2: 9335 | r2cvnum = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9336:2: 9336 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9337:2: 9337 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9338:2: 9338 | do j=1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9339:2: 9339 | if(2**(j-1) <= i .and. i < 2**j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9340:2: 9340 | k = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9341:2: 9341 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9342:2: 9342 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9343:2: 9343 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9344:2: 9344 | do l = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9345:2: 9345 | if(nodenummattest(l,k) == i) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9346:2: 9346 | r2cvnumsub(i,int(testdata(l,3))) = r2cvnumsub(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9347:2: 9347 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9348:2: 9348 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9349:2: 9349 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9350:2: 9350 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9351:2: 9351 | r2cvnum = sum(r2cvnumsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9352:2: 9352 | r2cvden = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9353:2: 9353 | do i = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9354:2: 9354 | r2cvden = r2cvden + ((testdata(i,1) - ymean) * (testdata(i,1) - ymean)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9355:2: 9355 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9356:2: 9356 | r2cvval = 1d0-(r2cvnum/r2cvden) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9357:2: 9357 | deallocate(timepred,r2cvnumsub,timepredcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9361:2: 9361 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9362:2: 9362 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9363:2: 9363 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9364:2: 9364 | double precision,intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9365:2: 9365 | double precision,intent(in) :: gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9366:2: 9366 | integer,intent(out) :: prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9367:2: 9367 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9368:2: 9368 | double precision minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9369:2: 9369 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9370:2: 9370 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9371:2: 9371 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9372:2: 9372 | if(prunind==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9373:2: 9373 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9374:2: 9374 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9375:2: 9375 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9376:2: 9376 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9377:2: 9377 | gammavec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9378:2: 9378 | call threetreesttcvgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9379:2: 9379 | call threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9380:2: 9380 | gammavec(1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9381:2: 9381 | if(gammavec(1) > gamma) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9382:2: 9382 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9383:2: 9383 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9384:2: 9384 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9385:2: 9385 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9386:2: 9386 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9387:2: 9387 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9388:2: 9388 | call threetreesttcvgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9389:2: 9389 | call threetreesttcvgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9390:2: 9390 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9391:2: 9391 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9392:2: 9392 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9393:2: 9393 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9394:2: 9394 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9395:2: 9395 | call threetreesttcvgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9396:2: 9396 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9397:2: 9397 | prunenodenummattest(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9398:2: 9398 | prunenodenummattest(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9399:2: 9399 | prunenodenummat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9400:2: 9400 | prunenodenummat(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9401:2: 9401 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9402:2: 9402 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9403:2: 9403 | call threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9404:2: 9404 | gammavec(prunloop) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9405:2: 9405 | if(gammavec(prunloop-1) < gamma .and. gammavec(prunloop) > gamma) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9406:2: 9406 | prunenodenummattest(:,:) = nodenummatnewtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9407:2: 9407 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9408:2: 9408 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9409:2: 9409 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9410:2: 9410 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9411:2: 9411 | call threetreesttcvgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9412:2: 9412 | call threetreesttcvgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9413:2: 9413 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9414:2: 9414 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9415:2: 9415 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9416:2: 9416 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9417:2: 9417 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9421:2: 9421 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9422:2: 9422 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9423:2: 9423 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9424:2: 9424 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9425:2: 9425 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9426:2: 9426 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9427:2: 9427 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9428:2: 9428 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9429:2: 9429 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9430:2: 9430 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9431:2: 9431 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9432:2: 9432 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9433:2: 9433 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9434:2: 9434 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9435:2: 9435 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9436:2: 9436 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9437:2: 9437 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9438:2: 9438 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9439:2: 9439 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9440:2: 9440 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9441:2: 9441 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9442:2: 9442 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9443:2: 9443 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9444:2: 9444 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9445:2: 9445 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9446:2: 9446 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9447:2: 9447 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9448:2: 9448 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9449:2: 9449 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9452:2: 9452 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9453:2: 9453 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9454:2: 9454 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9455:2: 9455 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9456:2: 9456 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9457:2: 9457 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9458:2: 9458 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9459:2: 9459 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9460:2: 9460 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9461:2: 9461 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9462:2: 9462 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9463:2: 9463 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9464:2: 9464 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9465:2: 9465 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9466:2: 9466 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9467:2: 9467 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9468:2: 9468 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9469:2: 9469 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9470:2: 9470 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9471:2: 9471 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9472:2: 9472 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9473:2: 9473 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9474:2: 9474 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9475:2: 9475 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9476:2: 9476 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9477:2: 9477 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9478:2: 9478 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9479:2: 9479 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9480:2: 9480 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9481:2: 9481 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9482:2: 9482 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9483:2: 9483 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9484:2: 9484 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9485:2: 9485 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9486:2: 9486 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9487:2: 9487 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9488:2: 9488 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9489:2: 9489 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9490:2: 9490 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9491:2: 9491 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9492:2: 9492 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9493:2: 9493 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9494:2: 9494 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9497:2: 9497 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9498:2: 9498 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9499:2: 9499 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9500:2: 9500 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9501:2: 9501 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9502:2: 9502 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9503:2: 9503 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9504:2: 9504 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9505:2: 9505 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9506:2: 9506 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9507:2: 9507 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9508:2: 9508 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9509:2: 9509 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9510:2: 9510 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9511:2: 9511 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9512:2: 9512 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9513:2: 9513 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9514:2: 9514 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9515:2: 9515 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9516:2: 9516 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9517:2: 9517 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9518:2: 9518 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9519:2: 9519 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9520:2: 9520 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9521:2: 9521 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9522:2: 9522 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9523:2: 9523 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9524:2: 9524 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9527:2: 9527 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9528:2: 9528 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9529:2: 9529 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9530:2: 9530 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9531:2: 9531 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9532:2: 9532 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9533:2: 9533 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9534:2: 9534 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9535:2: 9535 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9536:2: 9536 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9537:2: 9537 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9538:2: 9538 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9539:2: 9539 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9540:2: 9540 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9541:2: 9541 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9542:2: 9542 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9543:2: 9543 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9544:2: 9544 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9545:2: 9545 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9549:2: 9549 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9550:2: 9550 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9551:2: 9551 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9552:2: 9552 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9553:2: 9553 | double precision, intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9554:2: 9554 | double precision, intent(out) :: gammacv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9555:2: 9555 | double precision allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9556:2: 9556 | double precision allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9557:2: 9557 | double precision losspredsum,minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9558:2: 9558 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9559:2: 9559 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9560:2: 9560 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9561:2: 9561 | allgammavaltrain(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9562:2: 9562 | gammacv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9563:2: 9563 | losspredsumvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9564:2: 9564 | call threetreesttcvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9565:2: 9565 | nodenummattest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9566:2: 9566 | losspredsumvec(1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9567:2: 9567 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9568:2: 9568 | allfvalnew(:) = allfval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9569:2: 9569 | nodenummatnew(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9570:2: 9570 | nodenummatnewtest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9571:2: 9571 | do cvprunloop = 1,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9572:2: 9572 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9573:2: 9573 | call threetreesttcvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9574:2: 9574 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9575:2: 9575 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9576:2: 9576 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9577:2: 9577 | call threetreesttcvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9578:2: 9578 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9579:2: 9579 | call threetreesttcvbestpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9580:2: 9580 | call threetreesttcvbestpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9581:2: 9581 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9582:2: 9582 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9583:2: 9583 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9584:2: 9584 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9585:2: 9585 | allgammavaltrain(cvprunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9586:2: 9586 | call threetreesttcvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9587:2: 9587 | nodenummatnewtest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9588:2: 9588 | losspredsumvec(cvprunloop+1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9589:2: 9589 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9590:2: 9590 | gammacv(1) = losspredsumvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9591:2: 9591 | j = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9592:2: 9592 | do i = 2,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9593:2: 9593 | if(allgammaval(i) == 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9594:2: 9594 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9595:2: 9595 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9596:2: 9596 | if(allgammaval(i) <= allgammavaltrain(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9597:2: 9597 | gammacv(i) = losspredsumvec(j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9598:2: 9598 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9599:2: 9599 | do k = 1,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9600:2: 9600 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9601:2: 9601 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9602:2: 9602 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9603:2: 9603 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9604:2: 9604 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9605:2: 9605 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9606:2: 9606 | gammacv(i) = losspredsumvec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9607:2: 9607 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9608:2: 9608 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9609:2: 9609 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9613:2: 9613 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9614:2: 9614 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9615:2: 9615 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9616:2: 9616 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9617:2: 9617 | double precision, intent(out) :: losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9618:2: 9618 | double precision, allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9619:2: 9619 | integer i,j,k,l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9620:2: 9620 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9621:2: 9621 | allocate(timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9622:2: 9622 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9623:2: 9623 | losspred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9624:2: 9624 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9625:2: 9625 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9626:2: 9626 | do j = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9627:2: 9627 | if(sum(nodenummat(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9628:2: 9628 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9629:2: 9629 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9630:2: 9630 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9631:2: 9631 | if(nodenummat(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9632:2: 9632 | timepred(nodenummat(j,maxdepth),int(traindata(j,3))) = timepred(nodenummat(j,maxdepth),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9633:2: 9633 | timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) = timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9634:2: 9634 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9635:2: 9635 | elseif(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9636:2: 9636 | timepred(nodenummat(j,i),int(traindata(j,3))) = timepred(nodenummat(j,i),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9637:2: 9637 | timepredcou(nodenummat(j,i),int(traindata(j,3))) = timepredcou(nodenummat(j,i),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9638:2: 9638 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9639:2: 9639 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9640:2: 9640 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9642:2: 9642 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9643:2: 9643 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9644:2: 9644 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9645:2: 9645 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9646:2: 9646 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9647:2: 9647 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9648:2: 9648 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9649:2: 9649 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9650:2: 9650 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9651:2: 9651 | do j=1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9652:2: 9652 | if(2**(j-1) <= i .and. i < 2**j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9653:2: 9653 | k = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9654:2: 9654 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9655:2: 9655 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9656:2: 9656 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9657:2: 9657 | do l = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9658:2: 9658 | if(nodenummattest(l,k) == i) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9659:2: 9659 | losspred(i,int(testdata(l,3))) = losspred(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9660:2: 9660 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9661:2: 9661 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9662:2: 9662 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9663:2: 9663 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9664:2: 9664 | losspredsum = sum(losspred) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9665:2: 9665 | deallocate(timepred,losspred,timepredcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9668:2: 9668 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9669:2: 9669 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9670:2: 9670 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9671:2: 9671 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9672:2: 9672 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9673:2: 9673 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9674:2: 9674 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9675:2: 9675 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9676:2: 9676 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9677:2: 9677 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9678:2: 9678 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9679:2: 9679 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9680:2: 9680 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9681:2: 9681 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9682:2: 9682 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9683:2: 9683 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9684:2: 9684 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9685:2: 9685 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9686:2: 9686 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9687:2: 9687 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9688:2: 9688 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9689:2: 9689 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9690:2: 9690 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9691:2: 9691 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9692:2: 9692 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9693:2: 9693 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9694:2: 9694 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9695:2: 9695 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9696:2: 9696 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9699:2: 9699 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9700:2: 9700 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9701:2: 9701 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9702:2: 9702 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9703:2: 9703 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9704:2: 9704 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9705:2: 9705 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9706:2: 9706 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9707:2: 9707 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9708:2: 9708 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9709:2: 9709 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9710:2: 9710 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9711:2: 9711 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9712:2: 9712 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9713:2: 9713 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9714:2: 9714 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9715:2: 9715 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9716:2: 9716 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9717:2: 9717 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9718:2: 9718 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9719:2: 9719 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9720:2: 9720 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9721:2: 9721 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9722:2: 9722 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9723:2: 9723 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9724:2: 9724 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9725:2: 9725 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9726:2: 9726 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9727:2: 9727 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9728:2: 9728 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9729:2: 9729 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9730:2: 9730 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9731:2: 9731 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9732:2: 9732 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9733:2: 9733 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9734:2: 9734 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9735:2: 9735 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9736:2: 9736 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9737:2: 9737 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9738:2: 9738 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9739:2: 9739 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9740:2: 9740 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9741:2: 9741 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9744:2: 9744 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9745:2: 9745 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9746:2: 9746 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9747:2: 9747 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9748:2: 9748 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9749:2: 9749 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9750:2: 9750 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9751:2: 9751 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9752:2: 9752 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9753:2: 9753 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9754:2: 9754 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9755:2: 9755 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9756:2: 9756 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9757:2: 9757 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9758:2: 9758 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9759:2: 9759 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9760:2: 9760 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9761:2: 9761 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9762:2: 9762 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9763:2: 9763 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9764:2: 9764 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9765:2: 9765 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9766:2: 9766 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9767:2: 9767 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9768:2: 9768 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9769:2: 9769 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9770:2: 9770 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9771:2: 9771 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9774:2: 9774 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9775:2: 9775 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9776:2: 9776 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9777:2: 9777 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9778:2: 9778 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9779:2: 9779 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9780:2: 9780 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9781:2: 9781 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9782:2: 9782 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9783:2: 9783 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9784:2: 9784 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9785:2: 9785 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9786:2: 9786 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9787:2: 9787 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9788:2: 9788 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9789:2: 9789 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9790:2: 9790 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9791:2: 9791 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9792:2: 9792 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9799:2: 9799 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9800:2: 9800 | integer,intent(in) :: colnum,levelcount,maxdepth,cvloop,traindatasize1,traindatasize2,traindatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9801:2: 9801 | integer,intent(in) :: testdatasize1,testdatasize2,testdatasize3,testdataallsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9802:2: 9802 | integer,intent(in) :: nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9803:2: 9803 | nodenummat3(traindatasize3,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9804:2: 9804 | integer,intent(in) :: nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9805:2: 9805 | nodenummattest3(testdataallsize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9806:2: 9806 | double precision,intent(in) :: traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9807:2: 9807 | traindata3(traindatasize3,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9808:2: 9808 | double precision,intent(in) :: testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9809:2: 9809 | testdata3(testdatasize3,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9810:2: 9810 | double precision,intent(in) :: testdataall(testdataallsize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9811:2: 9811 | double precision,intent(out) :: r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9812:2: 9812 | double precision bootpredictsub1(testdatasize1,5),bootpredictsub2(testdatasize2,5),bootpredictsub3(testdatasize3,5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9813:2: 9813 | double precision, allocatable :: timepred(:,:),timepredcou(:,:),predictvec(:),r2cvks0(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9814:2: 9814 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9815:2: 9815 | double precision ymean,r2cvbunsi,r2cvbunbo,r2cvks1,r2cvks2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9816:2: 9816 | bootpredictsub1(:,1) = dble(cvloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9817:2: 9817 | bootpredictsub1(:,2) = testdata1(:,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9818:2: 9818 | bootpredictsub2(:,1) = dble(cvloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9819:2: 9819 | bootpredictsub2(:,2) = testdata2(:,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9820:2: 9820 | bootpredictsub3(:,1) = dble(cvloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9821:2: 9821 | bootpredictsub3(:,2) = testdata3(:,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9822:2: 9822 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9823:2: 9823 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9824:2: 9824 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9825:2: 9825 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9826:2: 9826 | do j = 1,traindatasize1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9827:2: 9827 | if(sum(nodenummat1(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9828:2: 9828 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9829:2: 9829 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9830:2: 9830 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9831:2: 9831 | if(nodenummat1(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9832:2: 9832 | timepred(nodenummat1(j,maxdepth),int(traindata1(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9833:2: 9833 | timepred(nodenummat1(j,maxdepth),int(traindata1(j,3))) + traindata1(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9834:2: 9834 | timepredcou(nodenummat1(j,maxdepth),int(traindata1(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9835:2: 9835 | timepredcou(nodenummat1(j,maxdepth),int(traindata1(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9836:2: 9836 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9837:2: 9837 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9838:2: 9838 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9839:2: 9839 | if(nodenummat1(j,i) > 0 .and. nodenummat1(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9840:2: 9840 | timepred(nodenummat1(j,i),int(traindata1(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9841:2: 9841 | timepred(nodenummat1(j,i),int(traindata1(j,3))) + traindata1(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9842:2: 9842 | timepredcou(nodenummat1(j,i),int(traindata1(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9843:2: 9843 | timepredcou(nodenummat1(j,i),int(traindata1(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9844:2: 9844 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9845:2: 9845 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9846:2: 9846 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9848:2: 9848 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9849:2: 9849 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9850:2: 9850 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9851:2: 9851 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9852:2: 9852 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9853:2: 9853 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9854:2: 9854 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9855:2: 9855 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9856:2: 9856 | do j = 1,testdataallsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9857:2: 9857 | if(sum(nodenummattest1(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9858:2: 9858 | goto 3020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9859:2: 9859 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9860:2: 9860 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9861:2: 9861 | if(nodenummattest1(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9862:2: 9862 | predictvec(j) = timepred(nodenummattest1(j,maxdepth),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9863:2: 9863 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9864:2: 9864 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9865:2: 9865 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9866:2: 9866 | if(nodenummattest1(j,i) > 0 .and. nodenummattest1(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9867:2: 9867 | predictvec(j) = timepred(nodenummattest1(j,i),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9868:2: 9868 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9869:2: 9869 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9870:2: 9870 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9872:2: 9872 | bootpredictsub1(:,3) = predictvec(1:testdatasize1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9873:2: 9873 | bootpredictsub2(:,3) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9874:2: 9874 | bootpredictsub3(:,3) = predictvec((testdatasize1+testdatasize2+1):testdataallsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9875:2: 9875 | deallocate(timepred,timepredcou,predictvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9876:2: 9876 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9877:2: 9877 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9878:2: 9878 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9879:2: 9879 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9880:2: 9880 | do j = 1,traindatasize2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9881:2: 9881 | if(sum(nodenummat2(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9882:2: 9882 | goto 3030 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9883:2: 9883 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9884:2: 9884 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9885:2: 9885 | if(nodenummat2(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9886:2: 9886 | timepred(nodenummat2(j,maxdepth),int(traindata2(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9887:2: 9887 | timepred(nodenummat2(j,maxdepth),int(traindata2(j,3))) + traindata2(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9888:2: 9888 | timepredcou(nodenummat2(j,maxdepth),int(traindata2(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9889:2: 9889 | timepredcou(nodenummat2(j,maxdepth),int(traindata2(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9890:2: 9890 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9891:2: 9891 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9892:2: 9892 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9893:2: 9893 | if(nodenummat2(j,i) > 0 .and. nodenummat2(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9894:2: 9894 | timepred(nodenummat2(j,i),int(traindata2(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9895:2: 9895 | timepred(nodenummat2(j,i),int(traindata2(j,3))) + traindata2(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9896:2: 9896 | timepredcou(nodenummat2(j,i),int(traindata2(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9897:2: 9897 | timepredcou(nodenummat2(j,i),int(traindata2(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9898:2: 9898 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9899:2: 9899 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9900:2: 9900 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9902:2: 9902 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9903:2: 9903 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9904:2: 9904 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9905:2: 9905 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9906:2: 9906 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9907:2: 9907 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9908:2: 9908 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9909:2: 9909 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9910:2: 9910 | do j = 1,testdataallsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9911:2: 9911 | if(sum(nodenummattest2(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9912:2: 9912 | goto 3040 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9913:2: 9913 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9914:2: 9914 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9915:2: 9915 | if(nodenummattest2(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9916:2: 9916 | predictvec(j) = timepred(nodenummattest2(j,maxdepth),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9917:2: 9917 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9918:2: 9918 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9919:2: 9919 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9920:2: 9920 | if(nodenummattest2(j,i) > 0 .and. nodenummattest2(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9921:2: 9921 | predictvec(j) = timepred(nodenummattest2(j,i),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9922:2: 9922 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9923:2: 9923 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9924:2: 9924 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9926:2: 9926 | bootpredictsub1(:,4) = predictvec(1:testdatasize1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9927:2: 9927 | bootpredictsub2(:,4) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9928:2: 9928 | bootpredictsub3(:,4) = predictvec((testdatasize1+testdatasize2+1):testdataallsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9929:2: 9929 | deallocate(timepred,timepredcou,predictvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9930:2: 9930 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9931:2: 9931 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9932:2: 9932 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9933:2: 9933 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9934:2: 9934 | do j = 1,traindatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9935:2: 9935 | if(sum(nodenummat3(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9936:2: 9936 | goto 3050 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9937:2: 9937 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9938:2: 9938 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9939:2: 9939 | if(nodenummat3(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9940:2: 9940 | timepred(nodenummat3(j,maxdepth),int(traindata3(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9941:2: 9941 | timepred(nodenummat3(j,maxdepth),int(traindata3(j,3))) + traindata3(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9942:2: 9942 | timepredcou(nodenummat3(j,maxdepth),int(traindata3(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9943:2: 9943 | timepredcou(nodenummat3(j,maxdepth),int(traindata3(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9944:2: 9944 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9945:2: 9945 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9946:2: 9946 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9947:2: 9947 | if(nodenummat3(j,i) > 0 .and. nodenummat3(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9948:2: 9948 | timepred(nodenummat3(j,i),int(traindata3(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9949:2: 9949 | timepred(nodenummat3(j,i),int(traindata3(j,3))) + traindata3(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9950:2: 9950 | timepredcou(nodenummat3(j,i),int(traindata3(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9951:2: 9951 | timepredcou(nodenummat3(j,i),int(traindata3(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9952:2: 9952 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9953:2: 9953 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9954:2: 9954 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9956:2: 9956 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9957:2: 9957 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9958:2: 9958 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9959:2: 9959 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9960:2: 9960 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9961:2: 9961 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9962:2: 9962 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9963:2: 9963 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9964:2: 9964 | do j = 1,testdataallsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9965:2: 9965 | if(sum(nodenummattest3(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9966:2: 9966 | goto 3060 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9967:2: 9967 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9968:2: 9968 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9969:2: 9969 | if(nodenummattest3(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9970:2: 9970 | predictvec(j) = timepred(nodenummattest3(j,maxdepth),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9971:2: 9971 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9972:2: 9972 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9973:2: 9973 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9974:2: 9974 | if(nodenummattest3(j,i) > 0 .and. nodenummattest3(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9975:2: 9975 | predictvec(j) = timepred(nodenummattest3(j,i),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9976:2: 9976 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9977:2: 9977 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9978:2: 9978 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9980:2: 9980 | bootpredictsub1(:,5) = predictvec(1:testdatasize1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9981:2: 9981 | bootpredictsub2(:,5) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9982:2: 9982 | bootpredictsub3(:,5) = predictvec((testdatasize1+testdatasize2+1):testdataallsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9983:2: 9983 | r2cvks1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9984:2: 9984 | r2cvks2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9985:2: 9985 | ymean = sum(bootpredictsub1(:,2))/testdatasize1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9986:2: 9986 | do i = 1,testdatasize1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9987:2: 9987 | r2cvks1 = r2cvks1 + (bootpredictsub1(i,2)-bootpredictsub1(i,3)) * (bootpredictsub1(i,2)-bootpredictsub1(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9988:2: 9988 | r2cvks2 = r2cvks2 + (bootpredictsub1(i,2)-ymean) * (bootpredictsub1(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9989:2: 9989 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9990:2: 9990 | r2cvbunsi = r2cvks1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9991:2: 9991 | r2cvbunbo = r2cvks2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9992:2: 9992 | r2cvval1sub = 1d0-(r2cvbunsi/r2cvbunbo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9993:2: 9993 | r2cvks1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9994:2: 9994 | r2cvks2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9995:2: 9995 | ymean = sum(bootpredictsub2(:,2))/testdatasize2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9996:2: 9996 | do i = 1,testdatasize2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9997:2: 9997 | r2cvks1 = r2cvks1 + (bootpredictsub2(i,2)-bootpredictsub2(i,4)) * (bootpredictsub2(i,2)-bootpredictsub2(i,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9998:2: 9998 | r2cvks2 = r2cvks2 + (bootpredictsub2(i,2)-ymean) * (bootpredictsub2(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9999:2: 9999 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10000:2: 10000 | r2cvbunsi = r2cvks1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10001:2: 10001 | r2cvbunbo = r2cvks2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10002:2: 10002 | r2cvval2sub = 1d0-(r2cvbunsi/r2cvbunbo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10003:2: 10003 | r2cvks1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10004:2: 10004 | r2cvks2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10005:2: 10005 | ymean = sum(bootpredictsub3(:,2))/testdatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10006:2: 10006 | do i = 1,testdatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10007:2: 10007 | r2cvks1 = r2cvks1 + (bootpredictsub3(i,2)-bootpredictsub3(i,5)) * (bootpredictsub3(i,2)-bootpredictsub3(i,5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10008:2: 10008 | r2cvks2 = r2cvks2 + (bootpredictsub3(i,2)-ymean) * (bootpredictsub3(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10009:2: 10009 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10010:2: 10010 | r2cvbunsi = r2cvks1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10011:2: 10011 | r2cvbunbo = r2cvks2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10012:2: 10012 | r2cvval3sub = 1d0-(r2cvbunsi/r2cvbunbo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10013:2: 10013 | r2cvks1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10014:2: 10014 | r2cvks2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10015:2: 10015 | ymean = (sum(bootpredictsub1(:,2))+sum(bootpredictsub2(:,2))+sum(bootpredictsub3(:,2)))/testdataallsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10016:2: 10016 | allocate(r2cvks0(testdatasize1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10017:2: 10017 | r2cvks0(:) = (bootpredictsub1(:,3)+bootpredictsub1(:,4)+bootpredictsub1(:,5))/3d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10018:2: 10018 | do i = 1,testdatasize1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10019:2: 10019 | r2cvks1 = r2cvks1 + (bootpredictsub1(i,2)-r2cvks0(i)) * (bootpredictsub1(i,2)-r2cvks0(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10020:2: 10020 | r2cvks2 = r2cvks2 + (bootpredictsub1(i,2)-ymean) * (bootpredictsub1(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10021:2: 10021 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10022:2: 10022 | deallocate(r2cvks0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10023:2: 10023 | allocate(r2cvks0(testdatasize2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10024:2: 10024 | r2cvks0(:) = (bootpredictsub2(:,3)+bootpredictsub2(:,4)+bootpredictsub2(:,5))/3d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10025:2: 10025 | do i = 1,testdatasize2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10026:2: 10026 | r2cvks1 = r2cvks1 + (bootpredictsub2(i,2)-r2cvks0(i)) * (bootpredictsub2(i,2)-r2cvks0(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10027:2: 10027 | r2cvks2 = r2cvks2 + (bootpredictsub2(i,2)-ymean) * (bootpredictsub2(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10028:2: 10028 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10029:2: 10029 | deallocate(r2cvks0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10030:2: 10030 | allocate(r2cvks0(testdatasize3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10031:2: 10031 | r2cvks0(:) = (bootpredictsub3(:,3)+bootpredictsub3(:,4)+bootpredictsub3(:,5))/3d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10032:2: 10032 | do i = 1,testdatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10033:2: 10033 | r2cvks1 = r2cvks1 + (bootpredictsub3(i,2)-r2cvks0(i)) * (bootpredictsub3(i,2)-r2cvks0(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10034:2: 10034 | r2cvks2 = r2cvks2 + (bootpredictsub3(i,2)-ymean) * (bootpredictsub3(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10035:2: 10035 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10036:2: 10036 | deallocate(r2cvks0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10037:2: 10037 | r2cvbunsi = r2cvks1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10038:2: 10038 | r2cvbunbo = r2cvks2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10039:2: 10039 | r2cvvalthreesub = 1d0-(r2cvbunsi/r2cvbunbo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10040:2: 10040 | deallocate(timepred,timepredcou,predictvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10043:2: 10043 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10044:2: 10044 | integer,intent(in) :: msize,maxdepth,prunind,cv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10045:2: 10045 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10046:2: 10046 | double precision,intent(in) :: bestgammaval,allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10047:2: 10047 | integer,intent(out) :: prunenodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10048:2: 10048 | double precision minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10049:2: 10049 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10050:2: 10050 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10051:2: 10051 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10052:2: 10052 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10053:2: 10053 | if(bestgammaval <= 0d0 .or. prunind==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10054:2: 10054 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10055:2: 10055 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10056:2: 10056 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10057:2: 10057 | gammavec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10058:2: 10058 | call threetreesgterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10059:2: 10059 | call threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10060:2: 10060 | gammavec(1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10061:2: 10061 | if(gammavec(1) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10062:2: 10062 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10063:2: 10063 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10064:2: 10064 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10065:2: 10065 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10066:2: 10066 | call threetreesgpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10067:2: 10067 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10068:2: 10068 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10069:2: 10069 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10070:2: 10070 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10071:2: 10071 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10072:2: 10072 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10073:2: 10073 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10074:2: 10074 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10075:2: 10075 | call threetreesgterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10076:2: 10076 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10077:2: 10077 | prunenodenummat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10078:2: 10078 | prunenodenummat(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10079:2: 10079 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10080:2: 10080 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10081:2: 10081 | call threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10082:2: 10082 | gammavec(prunloop) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10083:2: 10083 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10084:2: 10084 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10085:2: 10085 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10086:2: 10086 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10087:2: 10087 | allocate(nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10088:2: 10088 | call threetreesgpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10089:2: 10089 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10090:2: 10090 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10091:2: 10091 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10092:2: 10092 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10093:2: 10093 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10094:2: 10094 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10095:2: 10095 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10096:2: 10096 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10100:2: 10100 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10101:2: 10101 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10102:2: 10102 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10103:2: 10103 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10104:2: 10104 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10105:2: 10105 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10106:2: 10106 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10107:2: 10107 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10108:2: 10108 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10109:2: 10109 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10110:2: 10110 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10111:2: 10111 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10112:2: 10112 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10113:2: 10113 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10114:2: 10114 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10115:2: 10115 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10116:2: 10116 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10117:2: 10117 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10118:2: 10118 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10119:2: 10119 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10120:2: 10120 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10121:2: 10121 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10122:2: 10122 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10123:2: 10123 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10124:2: 10124 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10125:2: 10125 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10126:2: 10126 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10127:2: 10127 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10128:2: 10128 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10131:2: 10131 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10132:2: 10132 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10133:2: 10133 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10134:2: 10134 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10135:2: 10135 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10136:2: 10136 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10137:2: 10137 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10138:2: 10138 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10139:2: 10139 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10140:2: 10140 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10141:2: 10141 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10142:2: 10142 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10143:2: 10143 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10144:2: 10144 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10145:2: 10145 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10146:2: 10146 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10147:2: 10147 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10148:2: 10148 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10149:2: 10149 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10150:2: 10150 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10151:2: 10151 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10152:2: 10152 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10153:2: 10153 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10154:2: 10154 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10155:2: 10155 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10156:2: 10156 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10157:2: 10157 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10158:2: 10158 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10159:2: 10159 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10160:2: 10160 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10161:2: 10161 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10162:2: 10162 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10163:2: 10163 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10164:2: 10164 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10165:2: 10165 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10166:2: 10166 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10167:2: 10167 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10168:2: 10168 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10169:2: 10169 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10170:2: 10170 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10171:2: 10171 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10172:2: 10172 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10173:2: 10173 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10176:2: 10176 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10177:2: 10177 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10178:2: 10178 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10179:2: 10179 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10180:2: 10180 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10181:2: 10181 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10182:2: 10182 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10183:2: 10183 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10184:2: 10184 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10185:2: 10185 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10186:2: 10186 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10187:2: 10187 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10188:2: 10188 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10189:2: 10189 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10190:2: 10190 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10191:2: 10191 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10192:2: 10192 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10193:2: 10193 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10194:2: 10194 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10195:2: 10195 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10196:2: 10196 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10197:2: 10197 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10198:2: 10198 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10199:2: 10199 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10200:2: 10200 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10201:2: 10201 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10202:2: 10202 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10203:2: 10203 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10206:2: 10206 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10207:2: 10207 | integer, intent(in) :: msize,levelcount,maxdepth,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10208:2: 10208 | integer, intent(in) :: prunenodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10209:2: 10209 | double precision, intent(in) :: XYDATA(Msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10210:2: 10210 | integer, intent(out) :: datatnnodenum(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10211:2: 10211 | double precision, intent(out) :: predvec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10212:2: 10212 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10213:2: 10213 | double precision tnodepredmat((2**maxdepth)-1,levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10214:2: 10214 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10215:2: 10215 | allocate(timepredsum(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10216:2: 10216 | timepredsum(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10217:2: 10217 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10218:2: 10218 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10219:2: 10219 | do j = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10220:2: 10220 | if(sum(prunenodenummat(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10221:2: 10221 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10222:2: 10222 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10223:2: 10223 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10224:2: 10224 | if(prunenodenummat(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10225:2: 10225 | timepredsum(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10226:2: 10226 | timepredsum(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) + XYDATA(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10227:2: 10227 | timepredcou(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10228:2: 10228 | timepredcou(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10229:2: 10229 | datatnnodenum(j) = prunenodenummat(j,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10230:2: 10230 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10231:2: 10231 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10232:2: 10232 | elseif(prunenodenummat(j,i) > 0 .and. prunenodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10233:2: 10233 | timepredsum(prunenodenummat(j,i),int(XYDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10234:2: 10234 | timepredsum(prunenodenummat(j,i),int(XYDATA(j,3))) + XYDATA(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10235:2: 10235 | timepredcou(prunenodenummat(j,i),int(XYDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10236:2: 10236 | timepredcou(prunenodenummat(j,i),int(XYDATA(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10237:2: 10237 | datatnnodenum(j) = prunenodenummat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10238:2: 10238 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10239:2: 10239 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10240:2: 10240 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10242:2: 10242 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10243:2: 10243 | if(abs(sum(timepredsum(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10244:2: 10244 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10245:2: 10245 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10246:2: 10246 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10247:2: 10247 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10248:2: 10248 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10249:2: 10249 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10250:2: 10250 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10251:2: 10251 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10254:2: 10254 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10255:2: 10255 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10256:2: 10256 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10257:2: 10257 | integer, intent(in) :: nodenummat(msize,11) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10258:2: 10258 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10259:2: 10259 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10260:2: 10260 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10261:2: 10261 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10262:2: 10262 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10263:2: 10263 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10264:2: 10264 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10265:2: 10265 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10266:2: 10266 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10270:2: 10270 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10271:2: 10271 | integer, intent(in) :: nodedatasize,colnum,maxdepth,ind1,ind2,splitvecsize,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10272:2: 10272 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10273:2: 10273 | double precision, intent(in) :: nodedatanum(nodedatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10274:2: 10274 | integer, intent(in) :: prunnodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10275:2: 10275 | integer, intent(out) :: splitvector(splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10276:2: 10276 | double precision, intent(out) :: splitnumber(splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10277:2: 10277 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10278:2: 10278 | double precision datasample(nodedatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10279:2: 10279 | integer, allocatable :: splitindmat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10280:2: 10280 | datasample = nodedatanum(:,ind1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10281:2: 10281 | if(datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10282:2: 10282 | splitnum = splitvecsize - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10283:2: 10283 | elseif(datatype(ind1-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10284:2: 10284 | splitnum = (2 ** (splitvecsize-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10285:2: 10285 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10286:2: 10286 | call threetreesspdataval(nodedatanum(:,ind1),nodedatasize,splitnumber,splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10287:2: 10287 | allocate(splitindmat(splitnum,splitvecsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10288:2: 10288 | if(datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10289:2: 10289 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10290:2: 10290 | do j = 1,splitvecsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10291:2: 10291 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10292:2: 10292 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10293:2: 10293 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10294:2: 10294 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10295:2: 10295 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10296:2: 10296 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10297:2: 10297 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10298:2: 10298 | elseif(datatype(ind1-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10299:2: 10299 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10300:2: 10300 | do i = 0, 2**(splitvecsize-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10301:2: 10301 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10302:2: 10302 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10303:2: 10303 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10304:2: 10304 | do j = 0, splitvecsize - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10305:2: 10305 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10306:2: 10306 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10307:2: 10307 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10308:2: 10308 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10309:2: 10309 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10310:2: 10310 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10311:2: 10311 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10312:2: 10312 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10313:2: 10313 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10314:2: 10314 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10315:2: 10315 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10316:2: 10316 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10317:2: 10317 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10318:2: 10318 | splitvector = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10321:2: 10321 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10322:2: 10322 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10323:2: 10323 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10324:2: 10324 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10325:2: 10325 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10326:2: 10326 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10327:2: 10327 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10328:2: 10328 | call threetreesspdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10329:2: 10329 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10330:2: 10330 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10331:2: 10331 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10332:2: 10332 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10333:2: 10333 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10334:2: 10334 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10335:2: 10335 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10336:2: 10336 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10339:2: 10339 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10340:2: 10340 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10341:2: 10341 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10342:2: 10342 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10343:2: 10343 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10344:2: 10344 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10345:2: 10345 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10346:2: 10346 | call threetreesspdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10347:2: 10347 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10348:2: 10348 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10349:2: 10349 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10350:2: 10350 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10351:2: 10351 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10352:2: 10352 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10353:2: 10353 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10356:2: 10356 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10357:2: 10357 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10358:2: 10358 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10359:2: 10359 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10360:2: 10360 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10361:2: 10361 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10362:2: 10362 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10363:2: 10363 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10364:2: 10364 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10365:2: 10365 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10366:2: 10366 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10367:2: 10367 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10368:2: 10368 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10369:2: 10369 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10370:2: 10370 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10371:2: 10371 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10372:2: 10372 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10373:2: 10373 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10374:2: 10374 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10375:2: 10375 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10376:2: 10376 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10377:2: 10377 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10378:2: 10378 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10379:2: 10379 | call threetreesspdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10380:2: 10380 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10381:2: 10381 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10382:2: 10382 | call threetreesspdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10383:2: 10383 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10384:2: 10384 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gcc -shared -s -static-libgcc -o longitree.dll tmp.def init.o longitree_program.o -lgfortran -lquadmath -Ld:/rtools45/x86_64-w64-mingw32.static.posix/lib/x64 -Ld:/rtools45/x86_64-w64-mingw32.static.posix/lib -lgfortran -lquadmath -LD:/RCompile/recent/R/bin/x64 -lR installing to d:/RCompile/CRANincoming/R-devel/lib/00LOCK-longitree/00new/longitree/libs/x64 ** 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 ** testing if installed package can be loaded from final location ** testing if installed package keeps a record of temporary installation path * DONE (longitree)